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

def merge_link 1z*kc)=JF8  
        node_num=0 sVoW=4V8  
        node_pnt1 = nd_head
h{}mBQl  
        loop while node_pnt1 # null                ;寻找总节点数，注：不能自己任生成node，程序缺省的方式为连续生成无不连续 ?Pwx~[<1""  
                node_num = node_num+1 451'>qS  
                node_pnt1 = nd_next(node_pnt1) {%.Lk'#9  
        endloop T#!lPH :&h  
        node_num_minus1 = node_num-1 F_ 7H!F  
        link_id=30000 Ch_xyuJ  
        loop ii (1,node_num_minus1) m7=1%6FN3  
                node_pnt1 = nd_find(ii)
[4+
q+  
                xx1 = nd_pos(node_pnt1,2,1) 9Bdt(}0A  
                yy1 = nd_pos(node_pnt1,2,2) mxFn7.|r~  
                zz1 = nd_pos(node_pnt1,2,3) DjC
x~@  
                ii_plus1 = ii+1 g,]
@4|  
                loop jj (ii_plus1,node_num) \aP6_g:N}  
                        node_pnt2 = nd_find(jj) ciMM^ZRIb  
                        xx2 = nd_pos(node_pnt2,2,1) ;pJ2V2 g8  
                        yy2 = nd_pos(node_pnt2,2,2) !umEyd@ "  
                        zz2 = nd_pos(node_pnt2,2,3) td{O}\s7D  
                        node_dist = sqrt((xx1-xx2)^2+(yy1-yy2)^2+(zz1-zz2)^2) Y&*x4&Lb  
                        dist_tol = 1e-1 Nf9fb?  
                        if node_dist < dist_tol then yg;_.4TpIO  
                                link_pnt1 = nd_link(node_pnt1) Y\+KoR';  
                                link_pnt2 = nd_link(node_pnt2) R4e&^tI@*  
                                if link_pnt1 # null then 8I+d)(:  
                                        temp1 = lk_delete(link_pnt1) J?n<ydZSH  
                                endif d"~(T:=r  
                                if link_pnt2 # null then !OcENV  
                                        temp2 = lk_delete(link_pnt2) MR'o{?{e`  
                                endif =y%rG :!  
                                link_id = link_id+1 /.V0ag'G  
                                command                        ;生成新link(6自由度全固结) ，大的node的id作为target node，小的node的id作为source node，需注意不同情况下的灵活调整 1;| LI?  
                                        sel set link node_tol=dist_tol "DSPPE&[c  
                                        sel link id=link_id ii target = node tgt_num = jj                ;指定link的ID wH"kk4^  
                                        ;sel link  ii target = node tgt_num = jj                                        ;不指定link的id，自动生成 {SG>'KXZ  
                                        sel link  attach xdir=rigid ydir=rigid zdir=rigid range id=link_id {hqAnZ@]vr  
                                endcommand 4B-yTyO  
                        endif .~=HgOJ  
                endloop /&Jv,[2kV  
        endloop cs_}&!c{  
end (A/0@f1#  
merge_link 2L\3S ukj  

看不懂！

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