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

def merge_link ]~j_N^oZ1X  
        node_num=0 u"`5  
        node_pnt1 = nd_head u#a%(  
        loop while node_pnt1 # null                ;寻找总节点数，注：不能自己任生成node，程序缺省的方式为连续生成无不连续 }j+~'O4m  
                node_num = node_num+1 jgo e^f  
                node_pnt1 = nd_next(node_pnt1) Hk<X  
        endloop %|:;Ti  
        node_num_minus1 = node_num-1 [+hy_Nc$  
        link_id=30000 UC8vR>e\  
        loop ii (1,node_num_minus1) b{~fVil$y  
                node_pnt1 = nd_find(ii) Ph(]?MG\_  
                xx1 = nd_pos(node_pnt1,2,1) 

90  
                yy1 = nd_pos(node_pnt1,2,2) 88Fb1!a5Z  
                zz1 = nd_pos(node_pnt1,2,3) +8LM~voB  
                ii_plus1 = ii+1 ntrY =Y  
                loop jj (ii_plus1,node_num) ;
,v!7   
                        node_pnt2 = nd_find(jj) L Yh@ u1p  
                        xx2 = nd_pos(node_pnt2,2,1) wb(*7 &eP:  
                        yy2 = nd_pos(node_pnt2,2,2) MuDFdbtR  
                        zz2 = nd_pos(node_pnt2,2,3) $l#v/(uFa  
                        node_dist = sqrt((xx1-xx2)^2+(yy1-yy2)^2+(zz1-zz2)^2) Ez06:]Jd  
                        dist_tol = 1e-1 Nd]0ta  
                        if node_dist < dist_tol then +Od1)_'\D3  
                                link_pnt1 = nd_link(node_pnt1) tyc8{t#Z  
                                link_pnt2 = nd_link(node_pnt2) ~pHJ0g:t  
                                if link_pnt1 # null then Zw;$(="  
                                        temp1 = lk_delete(link_pnt1) .+{nA}Bc  
                                endif VqcBwJ!?p  
                                if link_pnt2 # null then 6V'wQqJ  
                                        temp2 = lk_delete(link_pnt2) m.1LxM$8  
                                endif fkdf~Vb  
                                link_id = link_id+1 a(PjcQ4dY  
                                command                        ;生成新link(6自由度全固结) ，大的node的id作为target node，小的node的id作为source node，需注意不同情况下的灵活调整 g8%MOhg  
                                        sel set link node_tol=dist_tol VKq0<+M  
                                        sel link id=link_id ii target = node tgt_num = jj                ;指定link的ID <MPeh&_3
#  
                                        ;sel link  ii target = node tgt_num = jj                                        ;不指定link的id，自动生成 :.C+?$iuX  
                                        sel link  attach xdir=rigid ydir=rigid zdir=rigid range id=link_id _v1bTg"?  
                                endcommand "-G&=(  
                        endif o\_ Td  
                endloop qg^(w fI  
        endloop IV)^;i  
end 
R<0Fy=z  
merge_link 1U71
7u  

看不懂！

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