使用tcl的多个for循环
我已经写了我的脚本,如下所示,我提到了我的预期结果,也提到了我得到的错误。有人能帮我吗 脚本:使用tcl的多个for循环,tcl,Tcl,我已经写了我的脚本,如下所示,我提到了我的预期结果,也提到了我得到的错误。有人能帮我吗 脚本: for {set x 0} {$x <= 80} {incr x [expr {+20}]} { puts "pdb ./$x.a.pdb;" puts "pdb ./$x.b.pdb;" puts "pdb ./$x.ab.pdb;" for {set i 0} {$i < 15} {incr i} { puts "A$x = [measu
for {set x 0} {$x <= 80} {incr x [expr {+20}]} {
puts "pdb ./$x.a.pdb;"
puts "pdb ./$x.b.pdb;"
puts "pdb ./$x.ab.pdb;"
for {set i 0} {$i < 15} {incr i} {
puts "A$x = [measure sasa 1.4 [atomselect $i "all"]] >> 1.dat" }
for {set j 1} {$j < 15} {incr j} {
puts "B$x = [measure sasa 1.4 [atomselect $j "all"]] >> 1.dat"}
for {set k 2} {$k < 15} {incr k} {
puts "AB$x = [measure sasa 1.4 [atomselect $k "all"]] >>1.dat"}
}
for循环不是这里的问题:方括号是Tcl的“命令替换”语法(如shell中的backticks或
$(…)
)。您需要转义开方括号(和内引号)
或者使用格式
命令
puts [format {A%d = [measure sasa 1.4 [atomselect %d "all"]] >> 1.dat} $x $i]
我在第二个示例中使用了大括号来显示Tcl的其他非插值引号(如shell的单引号)
pdb ./0.a.pdb;
pdb ./0.b.pdb;
pdb ./0.ab.pdb;
A0 = [measure sasa 1.4 [atomselect 0 "all"]] >> 1.dat
B0 = [measure sasa 1.4 [atomselect 1 "all"]] >> 1.dat
AB0 = [measure sasa 1.4 [atomselect 2 "all"]] >> 1.dat
pdb ./20.a.pdb;
pdb ./20.b.pdb;
pdb ./20.ab.pdb;
A20 = [measure sasa 1.4 [atomselect 3 "all"]] >> 1.dat
B20 = [measure sasa 1.4 [atomselect 4 "all"]] >> 1.dat
AB20 = [measure sasa 1.4 [atomselect 5 "all"]] >> 1.dat
pdb ./40.a.pdb;
pdb ./40.b.pdb;
pdb ./40.ab.pdb;
A40 = [measure sasa 1.4 [atomselect 6 "all"]] >> 1.dat
B40 = [measure sasa 1.4 [atomselect 7 "all"]] >> 1.dat
AB40 = [measure sasa 1.4 [atomselect 8 "all"]] >> 1.dat
pdb ./60.a.pdb;
pdb ./60.b.pdb;
pdb ./60.ab.pdb;
A60 = [measure sasa 1.4 [atomselect 9 "all"]] >> 1.dat
B60 = [measure sasa 1.4 [atomselect 10 "all"]] >> 1.dat
AB60 = [measure sasa 1.4 [atomselect 11 "all"]] >> 1.dat
puts "A$x = \[measure sasa 1.4 \[atomselect $i \"all\"]] >> 1.dat"
puts [format {A%d = [measure sasa 1.4 [atomselect %d "all"]] >> 1.dat} $x $i]