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

def merge_link AF3t#)q  
        node_num=0 RX2= iO"  
        node_pnt1 = nd_head x
;Gyo  
        loop while node_pnt1 # null                ;寻找总节点数，注：不能自己任生成node，程序缺省的方式为连续生成无不连续 MqoQs{x  
                node_num = node_num+1 {f^30Fw  
                node_pnt1 = nd_next(node_pnt1) CdaB.xk  
        endloop lmmyDg1R  
        node_num_minus1 = node_num-1 g+k6pi*  
        link_id=30000 z%Z}vWn  
        loop ii (1,node_num_minus1) Jh466; E  
                node_pnt1 = nd_find(ii) pHg8(ru|  
                xx1 = nd_pos(node_pnt1,2,1) >P0AGZ  
                yy1 = nd_pos(node_pnt1,2,2) C4 Wdt  
                zz1 = nd_pos(node_pnt1,2,3) huKz["]z[  
                ii_plus1 = ii+1 hLm9"N'Pf  
                loop jj (ii_plus1,node_num) !%s7I^f*  
                        node_pnt2 = nd_find(jj) =r-Wy.a@  
                        xx2 = nd_pos(node_pnt2,2,1) Cg{$$&_(Hj  
                        yy2 = nd_pos(node_pnt2,2,2) oQyG  
                        zz2 = nd_pos(node_pnt2,2,3) ,s)~Y p?<  
                        node_dist = sqrt((xx1-xx2)^2+(yy1-yy2)^2+(zz1-zz2)^2) Uw&+zJ  
                        dist_tol = 1e-1 o~4n8  
                        if node_dist < dist_tol then ^_+ks/  
                                link_pnt1 = nd_link(node_pnt1) VsZ_So;  
                                link_pnt2 = nd_link(node_pnt2) 3&y u  
                                if link_pnt1 # null then LWQ BGiJj  
                                        temp1 = lk_delete(link_pnt1) [qZ4+xF,,  
                                endif :X4\4B*~  
                                if link_pnt2 # null then wd#AA#J;*  
                                        temp2 = lk_delete(link_pnt2) .9^;? Ts  
                                endif *(>$4$9
n  
                                link_id = link_id+1 gA[M  
                                command                        ;生成新link(6自由度全固结) ，大的node的id作为target node，小的node的id作为source node，需注意不同情况下的灵活调整 8OFrW.>[  
                                        sel set link node_tol=dist_tol %BG5[XQ7  
                                        sel link id=link_id ii target = node tgt_num = jj                ;指定link的ID _-!
6@^+  
                                        ;sel link  ii target = node tgt_num = jj                                        ;不指定link的id，自动生成 SD.ze(P  
                                        sel link  attach xdir=rigid ydir=rigid zdir=rigid range id=link_id r?X^*o9  
                                endcommand .<NXk"\!y  
                        endif NXmj<azED  
                endloop $Ilr.6';  
        endloop XdS<51 C  
end ~IqT>  
merge_link -+PPz?0  

看不懂！

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