[求助]flac  liner模拟连续墙这段是什么意思 [复制链接]

def merge_link @ZK|k  
        node_num=0 )Cyrs~  
        node_pnt1 = nd_head }QG6KJh_%  
        loop while node_pnt1 # null                ;寻找总节点数，注：不能自己任生成node，程序缺省的方式为连续生成无不连续 U4zyhj  
                node_num = node_num+1 T92k"fBY  
                node_pnt1 = nd_next(node_pnt1) M*+_E8Lh  
        endloop m[ txKj.=_  
        node_num_minus1 = node_num-1 iu&'v  
        link_id=30000 `<Zp!Hl(j  
        loop ii (1,node_num_minus1) |3\ mH~Bw  
                node_pnt1 = nd_find(ii) 0xC{Lf&  
                xx1 = nd_pos(node_pnt1,2,1) b^5rV5d  
                yy1 = nd_pos(node_pnt1,2,2) T
6-e  
                zz1 = nd_pos(node_pnt1,2,3) &HZ"<y{j  
                ii_plus1 = ii+1 7PP76$  
                loop jj (ii_plus1,node_num) i6(y Bn  
                        node_pnt2 = nd_find(jj) zj`!ZY?fv  
                        xx2 = nd_pos(node_pnt2,2,1) ]X4A)%i  
                        yy2 = nd_pos(node_pnt2,2,2) oe4Fy}Y_;  
                        zz2 = nd_pos(node_pnt2,2,3) t~ Q{\!  
                        node_dist = sqrt((xx1-xx2)^2+(yy1-yy2)^2+(zz1-zz2)^2) ,p>=WX  
                        dist_tol = 1e-1 ^^)D!I"cA,  
                        if node_dist < dist_tol then J0lTp /  
                                link_pnt1 = nd_link(node_pnt1) g;eMsoJG  
                                link_pnt2 = nd_link(node_pnt2) {o5E#<)  
                                if link_pnt1 # null then Ck(D: % ~s  
                                        temp1 = lk_delete(link_pnt1) %,-vmqr  
                                endif 0j4bu}@  
                                if link_pnt2 # null then #th^\pV  
                                        temp2 = lk_delete(link_pnt2) $0sUh]7y  
                                endif e/F=5_Io  
                                link_id = link_id+1 Q6kkMLh  
                                command                        ;生成新link(6自由度全固结) ，大的node的id作为target node，小的node的id作为source node，需注意不同情况下的灵活调整 +`_%U7p(  
                                        sel set link node_tol=dist_tol SS@#$t:  
                                        sel link id=link_id ii target = node tgt_num = jj                ;指定link的ID #ra:^9;Es:  
                                        ;sel link  ii target = node tgt_num = jj                                        ;不指定link的id，自动生成 SgFyv<6>:  
                                        sel link  attach xdir=rigid ydir=rigid zdir=rigid range id=link_id +@AN+!(  
                                endcommand Bk>Ch#`Bw  
                        endif ;VYL7Xu](  
                endloop Nm:nSqc  
        endloop US0)^TKrj  
end -&D~TL#  
merge_link [|xHXcW  

看不懂！

没有什么专家光临啊，希望大家能够提供帮助，给些建设性的意见。22