set xDamp 0.05; set nEigenI 1; set nEigenJ 2; set lambdaN [eigen [expr $nEigenJ]]; set lambdaI [lindex $lambdaN [expr $nEigenI-1]]; set lambdaJ [lindex $lambdaN [expr $nEigenJ-1]]; set omegaI [expr pow($lambdaI,0.5)]; set omegaJ [expr pow($lambdaJ,0.5)]; set alphaM [expr $xDamp*(2*$omegaI*$omegaJ)/($omegaI+$omegaJ)]; set betaKcurr [expr 2.*$xDamp/($omegaI+$omegaJ)]; rayleigh $alphaM $betaKcurr 0 0 puts $alphaM puts $betaKcurr set iGMfile "DM1X.txt"; set iGMfact "1"; set dt 0.02; set dispSeries1 "Series -dt $dt -filePath $iGMfile -factor $iGMfact"; set iGMfile "DM1X.txt"; set iGMfact "1"; set dt 0.02; set dispSeries2 "Series -dt $dt -filePath $iGMfile -factor $iGMfact"; pattern MultiSupport 1 { groundMotion 1 Plain -disp $dispSeries1 imposedMotion 1 1 1 imposedMotion 3 1 1 } pattern MultiSupport 2 { groundMotion 2 Plain -disp $dispSeries2 imposedMotion 2 1 2 imposedMotion 4 1 2 } constraints Transformation; numberer Plain; system SparseSPD; test EnergyIncr 1.0e-4 200; algorithm Newton integrator Newmark 0.5 0.25 analysis Transient analyze 1000 0.02，请帮我对每句代码进行注释

好的，以下是对每句代码的注释：

set xDamp 0.05;            # 设置阻尼比
set nEigenI 1;             # 设置首个振型的编号
set nEigenJ 2;             # 设置第二个振型的编号
set lambdaN [eigen [expr $nEigenJ]];    # 计算特征值
set lambdaI [lindex $lambdaN [expr $nEigenI-1]];  
set lambdaJ [lindex $lambdaN [expr $nEigenJ-1]];
set omegaI [expr pow($lambdaI,0.5)];     # 计算首个振型的角频率
set omegaJ [expr pow($lambdaJ,0.5)];     # 计算第二个振型的角频率
set alphaM [expr $xDamp*(2*$omegaI*$omegaJ)/($omegaI+$omegaJ)];   # 计算Rayleigh阻尼系数中的alphaM
set betaKcurr [expr 2.*$xDamp/($omegaI+$omegaJ)];     # 计算Rayleigh阻尼系数中的betaKcurr
rayleigh $alphaM $betaKcurr 0 0      # 设置Rayleigh阻尼
puts $alphaM puts $betaKcurr       # 输出alphaM和betaKcurr的值
set iGMfile "DM1X.txt";      # 设置地震波数据文件名
set iGMfact "1";             # 设置地震波数据的放大倍数
set dt 0.02;                 # 设置时间步长
set dispSeries1 "Series -dt $dt -filePath $iGMfile -factor  $iGMfact";   # 定义位移时间历史数据1
set iGMfile "DM1X.txt";      # 重新设置地震波数据文件名
set iGMfact "1";             # 重新设置地震波数据的放大倍数
set dt 0.02;                 # 重新设置时间步长
set dispSeries2 "Series -dt $dt -filePath $iGMfile -factor  $iGMfact";   # 定义位移时间历史数据2
pattern MultiSupport  1   {    # 定义多支座约束模式1
     groundMotion 1 Plain -disp $dispSeries1     # 设置地震波输入
     imposedMotion 1 1 1     # 设置结构约束
     imposedMotion 3 1 1 
}
pattern MultiSupport  2   {    # 定义多支座约束模式2
     groundMotion 2 Plain -disp $dispSeries2     # 设置地震波输入
     imposedMotion 2 1 2     # 设置结构约束
     imposedMotion 4 1 2 
}
constraints Transformation;   # 定义结构约束模式
numberer Plain;              # 定义节点编号模式
system SparseSPD;            # 定义线性求解器
test EnergyIncr 1.0e-4 200;  # 定义收敛判据
algorithm Newton              # 定义求解算法
integrator Newmark 0.5 0.25   # 定义积分器
analysis Transient           # 定义分析类型
analyze 1000 0.02            # 进行1000个时间步的动力分析