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

def merge_link F(*~[*Ff  
        node_num=0 +JoE[;  
        node_pnt1 = nd_head ]Igd<  
        loop while node_pnt1 # null                ;寻找总节点数，注：不能自己任生成node，程序缺省的方式为连续生成无不连续 B0Ql1x#x  
                node_num = node_num+1 dIiQ^M  
                node_pnt1 = nd_next(node_pnt1) "Sp+Q&2U  
        endloop .a._WZF  
        node_num_minus1 = node_num-1 Qhlgu
!  
        link_id=30000 b|F_]i T  
        loop ii (1,node_num_minus1) P?%kV  
                node_pnt1 = nd_find(ii) u4QPO:,a4  
                xx1 = nd_pos(node_pnt1,2,1) :A%|'HxH3  
                yy1 = nd_pos(node_pnt1,2,2) (
{=: 
N
 
                zz1 = nd_pos(node_pnt1,2,3) '^f,H1oW  
                ii_plus1 = ii+1 pE{ZWW[@+  
                loop jj (ii_plus1,node_num) kfER  
                        node_pnt2 = nd_find(jj) w'[lIEP 2$  
                        xx2 = nd_pos(node_pnt2,2,1) =C{)i@ +  
                        yy2 = nd_pos(node_pnt2,2,2) X;JptF^  
                        zz2 = nd_pos(node_pnt2,2,3) 8z&7wO  
                        node_dist = sqrt((xx1-xx2)^2+(yy1-yy2)^2+(zz1-zz2)^2) My'u('Q%  
                        dist_tol = 1e-1 S;DqM;Q  
                        if node_dist < dist_tol then n"YY:Gm;8  
                                link_pnt1 = nd_link(node_pnt1) s)Bl1\Q  
                                link_pnt2 = nd_link(node_pnt2)
[gm[mwZ  
                                if link_pnt1 # null then $_s"16s  
                                        temp1 = lk_delete(link_pnt1) \Z0-o&;w  
                                endif mY9^W2:  
                                if link_pnt2 # null then `I+G7KK  
                                        temp2 = lk_delete(link_pnt2) -V@vY42  
                                endif [<m1xr4"k  
                                link_id = link_id+1  y/t{*a  
                                command                        ;生成新link(6自由度全固结) ，大的node的id作为target node，小的node的id作为source node，需注意不同情况下的灵活调整 V_pWf5F  
                                        sel set link node_tol=dist_tol j:'sbU  
                                        sel link id=link_id ii target = node tgt_num = jj                ;指定link的ID SaKaN#C  
                                        ;sel link  ii target = node tgt_num = jj                                        ;不指定link的id，自动生成 K3jKOV8  
                                        sel link  attach xdir=rigid ydir=rigid zdir=rigid range id=link_id Hts.G~~8  
                                endcommand H^ _[IkuA%  
                        endif R2kR   
                endloop *nUD6(@g  
        endloop ((i%h^tGa;  
end Y;3DU1MG0  
merge_link r7w1~z  

看不懂！

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