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

def merge_link ATWa/"l(H-  
        node_num=0 +w2 `  
        node_pnt1 = nd_head cX#U_U~d  
        loop while node_pnt1 # null                ;寻找总节点数，注：不能自己任生成node，程序缺省的方式为连续生成无不连续 =3Ohy,5L  
                node_num = node_num+1 7.*Mmx~]=  
                node_pnt1 = nd_next(node_pnt1) NdmwQJ7e"  
        endloop 0iV~MQZ(  
        node_num_minus1 = node_num-1 [VE>{4]W  
        link_id=30000 (@Kc(>(: Y  
        loop ii (1,node_num_minus1) yf2P6b\  
                node_pnt1 = nd_find(ii) p4@0[z'  
                xx1 = nd_pos(node_pnt1,2,1) 3>6rO4,  
                yy1 = nd_pos(node_pnt1,2,2) wu.>'v?y  
                zz1 = nd_pos(node_pnt1,2,3) %l3f .  
                ii_plus1 = ii+1 oh7tE$"c  
                loop jj (ii_plus1,node_num) [a!)w@I:  
                        node_pnt2 = nd_find(jj) =PjxMC._  
                        xx2 = nd_pos(node_pnt2,2,1) 'A,)PZL9i  
                        yy2 = nd_pos(node_pnt2,2,2) $T6+6<  
                        zz2 = nd_pos(node_pnt2,2,3) } 4ZWAzH  
                        node_dist = sqrt((xx1-xx2)^2+(yy1-yy2)^2+(zz1-zz2)^2) X>i{288M3  
                        dist_tol = 1e-1 e!ql8wbp  
                        if node_dist < dist_tol then fizL_`uMqb  
                                link_pnt1 = nd_link(node_pnt1) Ki>XLX,er=  
                                link_pnt2 = nd_link(node_pnt2) XE8%t=V!c$  
                                if link_pnt1 # null then FY)US>  
                                        temp1 = lk_delete(link_pnt1) 61}eB/;7  
                                endif Khh}flRy  
                                if link_pnt2 # null then RBLOc$2  
                                        temp2 = lk_delete(link_pnt2) y"|gC!V}  
                                endif M0t9`Z9  
                                link_id = link_id+1 A`* l+M^z  
                                command                        ;生成新link(6自由度全固结) ，大的node的id作为target node，小的node的id作为source node，需注意不同情况下的灵活调整 \cdns;  
                                        sel set link node_tol=dist_tol f#\Nz>tOhE  
                                        sel link id=link_id ii target = node tgt_num = jj                ;指定link的ID YH&q5W,KX  
                                        ;sel link  ii target = node tgt_num = jj                                        ;不指定link的id，自动生成 d+nxvh?I8  
                                        sel link  attach xdir=rigid ydir=rigid zdir=rigid range id=link_id A
: O"N  
                                endcommand l(HxZlHr  
                        endif 9w6 uoM  
                endloop (K('@W%\?  
        endloop hlfdmh?/  
end ?ph>:M  
merge_link mRy0zN>?  

看不懂！

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