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

def merge_link je.mX/Lpj  
        node_num=0 ^oM*f{9  
        node_pnt1 = nd_head }56"4/ Z  
        loop while node_pnt1 # null                ;寻找总节点数，注：不能自己任生成node，程序缺省的方式为连续生成无不连续 aM~M@wS  
                node_num = node_num+1 <vOljo  
                node_pnt1 = nd_next(node_pnt1) wOINcEdx  
        endloop Ju+r@/y%  
        node_num_minus1 = node_num-1 v]c1|?9p'  
        link_id=30000 M++*AZ  
        loop ii (1,node_num_minus1) A-uEZj_RD=  
                node_pnt1 = nd_find(ii) r'-)@|  
                xx1 = nd_pos(node_pnt1,2,1) LDO@$jg  
                yy1 = nd_pos(node_pnt1,2,2) ?:~ `?  
                zz1 = nd_pos(node_pnt1,2,3) wC;N*0Th  
                ii_plus1 = ii+1 u[y>DPPx  
                loop jj (ii_plus1,node_num) W +C\/  
                        node_pnt2 = nd_find(jj) +Nyx2(g<m  
                        xx2 = nd_pos(node_pnt2,2,1) PoQ@9 A  
                        yy2 = nd_pos(node_pnt2,2,2) u.R:/H<>~  
                        zz2 = nd_pos(node_pnt2,2,3) OE WIP  
                        node_dist = sqrt((xx1-xx2)^2+(yy1-yy2)^2+(zz1-zz2)^2) mq>Ag  
                        dist_tol = 1e-1 "@DCQ  
                        if node_dist < dist_tol then $}N'm  
                                link_pnt1 = nd_link(node_pnt1) XswEAz0=  
                                link_pnt2 = nd_link(node_pnt2) Sw>AgES  
                                if link_pnt1 # null then zAS&L%^tV  
                                        temp1 = lk_delete(link_pnt1) Gb\}e}TB[  
                                endif ^<7)w2ns  
                                if link_pnt2 # null then {6*h';~  
                                        temp2 = lk_delete(link_pnt2) %/jmQ6z^  
                                endif Fod2KS;g  
                                link_id = link_id+1 Jy{A1i@4~s  
                                command                        ;生成新link(6自由度全固结) ，大的node的id作为target node，小的node的id作为source node，需注意不同情况下的灵活调整 5YJ
LR;  
                                        sel set link node_tol=dist_tol Lr_+)l  
                                        sel link id=link_id ii target = node tgt_num = jj                ;指定link的ID @zW'!Ol  
                                        ;sel link  ii target = node tgt_num = jj                                        ;不指定link的id，自动生成 d2Bn`VI  
                                        sel link  attach xdir=rigid ydir=rigid zdir=rigid range id=link_id 1P@&xcvS\  
                                endcommand
="z\  
                        endif f?[IwA`  
                endloop 0O|T\E8e  
        endloop I"y=A7Nq  
end OiZPL"Q(K  
merge_link t :sKvJ  

看不懂！

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