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

def merge_link q!
*MH/R  
        node_num=0 ABiC9[Q0  
        node_pnt1 = nd_head XARSGAuw  
        loop while node_pnt1 # null                ;寻找总节点数，注：不能自己任生成node，程序缺省的方式为连续生成无不连续 vl~%o@*_  
                node_num = node_num+1 %Rn:GK  
                node_pnt1 = nd_next(node_pnt1) Ec.)!Hu  
        endloop !$E~\uT  
        node_num_minus1 = node_num-1 +FBi5h  
        link_id=30000 wO.B~`y  
        loop ii (1,node_num_minus1) 'wE\{1~_[+  
                node_pnt1 = nd_find(ii) 7 6*hc   
                xx1 = nd_pos(node_pnt1,2,1) ]L]T>~X`  
                yy1 = nd_pos(node_pnt1,2,2) `i4I!E  
                zz1 = nd_pos(node_pnt1,2,3) 03
"#J2b  
                ii_plus1 = ii+1 !u0U5>ccw  
                loop jj (ii_plus1,node_num) \(9p&"Q-  
                        node_pnt2 = nd_find(jj) KZ\dB;W<|  
                        xx2 = nd_pos(node_pnt2,2,1) .HDebi  
                        yy2 = nd_pos(node_pnt2,2,2) _W+Q3Jx-(  
                        zz2 = nd_pos(node_pnt2,2,3) oP-;y&AS  
                        node_dist = sqrt((xx1-xx2)^2+(yy1-yy2)^2+(zz1-zz2)^2) }9}w8R~E  
                        dist_tol = 1e-1 7-g^2sa'(  
                        if node_dist < dist_tol then N[ Q#R~Hn<  
                                link_pnt1 = nd_link(node_pnt1) "gg(tp45  
                                link_pnt2 = nd_link(node_pnt2) BD4"pcr  
                                if link_pnt1 # null then :|($,3*  
                                        temp1 = lk_delete(link_pnt1) nOuN|q=C  
                                endif Q0SW;o7  
                                if link_pnt2 # null then t'Htx1#Zc[  
                                        temp2 = lk_delete(link_pnt2) XPVV+.  
                                endif cUM_ncYOP  
                                link_id = link_id+1 W9jNUZVXE#  
                                command                        ;生成新link(6自由度全固结) ，大的node的id作为target node，小的node的id作为source node，需注意不同情况下的灵活调整 jaa/k@OG  
                                        sel set link node_tol=dist_tol #Y: ~UVV  
                                        sel link id=link_id ii target = node tgt_num = jj                ;指定link的ID VD4S_qx  
                                        ;sel link  ii target = node tgt_num = jj                                        ;不指定link的id，自动生成 ?1DUNZ6  
                                        sel link  attach xdir=rigid ydir=rigid zdir=rigid range id=link_id yA0Y 14\*  
                                endcommand wz@/5c/u  
                        endif V<W02\Hs  
                endloop 7 s-`QdWX  
        endloop [J:zE&aj
  
end y[p6y[r*  
merge_link yTj p-  

看不懂！

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