24小时热门版块排行榜    

查看: 360  |  回复: 0

zhuimeng08

银虫 (正式写手)

[交流] 求大神给出下面脚本语言的解释

求大神给出下面脚本语言的解释,学化学的,看不懂是什么意思!
谢谢!
#set c [measure center $mall]
#set vec [vecinvert $c]
#$mall moveby $vec
set minmax [measure minmax $mall]
set min [lindex $minmax 0]
set max [lindex $minmax 1]
set minx [lindex $min 0]
set miny [lindex $min 1]
set maxx [lindex $max 0]
set maxy [lindex $max 1]

set lipids [atomselect top "resname $LipResName"]
$lipids set segname [$lipids get resid]
set firstLipidSeg [lindex [$lipids get resid] 0]

set protein [atomselect top "not resname $LipResName"]

set Nlip [[atomselect top "name $P_name"] num]
puts "Number of lipids is $Nlip"
# Find number of atoms in one lipid
set lipSize [[atomselect top "resname $LipResName and segname $firstLipidSeg"] num]
puts "Number of atoms in one lipid is $lipSize"
(特别是下面几行,是什么意思)
# Cycle over all lipids
for {set i $firstLipidSeg} {$i<=[expr $firstLipidSeg+$Nlip]} {incr i} {
# How many atoms overlap with protein?
set over [atomselect top "segname $i and ( (x < ($minx + $xn))or (x > ($maxx + $xp)) or (y < ($miny + $yn)) or (y > ($maxy + $yp)))"]
puts "Lipid $i overlap - [$over num] atoms"
if {[$over num] > [expr $lipSize*$remove_crit]} {
  # Mark lipid as bad
  [atomselect top "resname $LipResName and segname $i"] set beta -1
}
}
[atomselect top "beta>=0"] writepdb $ResFile
mol delete all
set id2 [mol new $ResFile]
mol delrep 0 top
(到这里,这是重点部分,谢谢!)
#mol selection "protein"
#mol rep NewCartoon
#mol color colorID 15
#mol addrep top
mol selection "not protein"
mol rep Lines
mol color Name
mol addrep top
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子,希望有用哦~

科研从小木虫开始,人人为我,我为人人
相关版块跳转 我要订阅楼主 zhuimeng08 的主题更新
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 12/600 2026-11-01 12:19 by BCdvBAEpt3zm
[硕博家园] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 1uaZt2kAZj2S 2026-10-30 13/650 2026-11-01 12:14 by BCdvBAEpt3zm
[教师之家] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 X5bHxOULxFqb 2026-10-30 15/750 2026-11-01 12:11 by BCdvBAEpt3zm
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 X5bHxOULxFqb 2026-10-30 18/900 2026-11-01 12:11 by BCdvBAEpt3zm
[公派出国] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +4 1uaZt2kAZj2S 2026-10-31 5/250 2026-11-01 11:18 by Equinoxhua
[基金申请] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 hKe7U1kad5Sg 2026-10-31 6/300 2026-11-01 11:09 by BCdvBAEpt3zm
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 xvJS1BYDxvBS 2026-10-31 4/200 2026-11-01 11:01 by BCdvBAEpt3zm
[考研] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 xvJS1BYDxvBS 2026-10-31 9/450 2026-11-01 10:56 by BCdvBAEpt3zm
[博后之家] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 1uaZt2kAZj2S 2026-10-31 7/350 2026-11-01 10:48 by BCdvBAEpt3zm
[基金申请] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 14/700 2026-11-01 10:43 by BCdvBAEpt3zm
[论文投稿] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 X5bHxOULxFqb 2026-10-30 26/1300 2026-11-01 10:22 by BCdvBAEpt3zm
[基金申请] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 X5bHxOULxFqb 2026-10-30 21/1050 2026-11-01 06:46 by YXM1FDCSE8Bn
[公派出国] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-31 6/300 2026-11-01 05:41 by YXM1FDCSE8Bn
[博后之家] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 15/750 2026-11-01 05:22 by YXM1FDCSE8Bn
[基金申请] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-31 3/150 2026-11-01 04:04 by YXM1FDCSE8Bn
[考博] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-31 5/250 2026-11-01 02:25 by YXM1FDCSE8Bn
[考研] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 12/600 2026-11-01 02:19 by YXM1FDCSE8Bn
[考博] 2027博士申请-临床检验诊断学、病原生物学、微生物方向 50+3 yyh@ 2026-10-28 4/200 2026-10-31 12:47 by 可淡不可忘
[硕博家园] 越来越担心硕士毕业后没有竞争力了 +8 zuesli 2026-10-27 14/700 2026-10-30 22:44 by 好运连连公主
[考博] 申博求助 20+3 Katrinae 2026-10-26 4/200 2026-10-27 09:56 by 北京莱茵编辑
信息提示
请填处理意见