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

def merge_link *;E+9^:V  
        node_num=0 UH-uU~  
        node_pnt1 = nd_head
s[@>uP  
        loop while node_pnt1 # null                ;寻找总节点数，注：不能自己任生成node，程序缺省的方式为连续生成无不连续 89#0vG7m  
                node_num = node_num+1 eSNSnh]'  
                node_pnt1 = nd_next(node_pnt1) 6n\z53Mk  
        endloop |;m`874  
        node_num_minus1 = node_num-1 lV6[d8P  
        link_id=30000 :;;WK~*#  
        loop ii (1,node_num_minus1) R 0HVLQI  
                node_pnt1 = nd_find(ii) %`1CE\f  
                xx1 = nd_pos(node_pnt1,2,1) lN>C#e<]  
                yy1 = nd_pos(node_pnt1,2,2) `Uj?PcS_  
                zz1 = nd_pos(node_pnt1,2,3) )NmlV99q  
                ii_plus1 = ii+1 poYAiq_3T  
                loop jj (ii_plus1,node_num) <Iyot]E  
                        node_pnt2 = nd_find(jj) Guw|00w,Q$  
                        xx2 = nd_pos(node_pnt2,2,1) OrEuQ-,i@  
                        yy2 = nd_pos(node_pnt2,2,2) .`>
l.gmi&  
                        zz2 = nd_pos(node_pnt2,2,3) q,+kPhHEgy  
                        node_dist = sqrt((xx1-xx2)^2+(yy1-yy2)^2+(zz1-zz2)^2) (e3Gs+;  
                        dist_tol = 1e-1 T) tZU?  
                        if node_dist < dist_tol then )]c3bMVE-  
                                link_pnt1 = nd_link(node_pnt1) n,a5LR  
                                link_pnt2 = nd_link(node_pnt2) 'Rd*X6dv  
                                if link_pnt1 # null then f H|QAMfOu  
                                        temp1 = lk_delete(link_pnt1) _s^:zPl  
                                endif {hRie+  
                                if link_pnt2 # null then 2, "q_d'V  
                                        temp2 = lk_delete(link_pnt2) o?mXxL)  
                                endif =l2Dm  
                                link_id = link_id+1 @PoFxv  
                                command                        ;生成新link(6自由度全固结) ，大的node的id作为target node，小的node的id作为source node，需注意不同情况下的灵活调整 "E)++\JL  
                                        sel set link node_tol=dist_tol AYA&&b  
                                        sel link id=link_id ii target = node tgt_num = jj                ;指定link的ID (S)E|;f%C  
                                        ;sel link  ii target = node tgt_num = jj                                        ;不指定link的id，自动生成 k;_KKvQ  
                                        sel link  attach xdir=rigid ydir=rigid zdir=rigid range id=link_id ,o@~OTja*  
                                endcommand 27E9NO=  
                        endif =ch Af=  
                endloop WCmNibj  
        endloop m_!vIUOz  
end 4!~ .6cp3  
merge_link yC 7Vb P  

看不懂！

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