fish语言的多层循环是怎么实现的？

仰天笑

fish语言的多层循环是怎么实现的？请问高手指点

cloud328

new       
rest 2.sav
model mohr
;-------------------------------------------------------------
def get_water

   w_pz=zone_head
   loop while w_pz # null   
   w_pp=z_pp(w_pz)   ;孔隙压力赋值
   
   if w_pp=0.0 then   
   x_1=z_xcen(w_pz)
   y_1=z_ycen(w_pz)
   z_1=z_zcen(w_pz)
   
   
   ww_pz=zone_head
loop while ww_pz # null   
ww_pp=abs(z_pp(ww_pz))   ;孔隙压力赋值
if ww_pp # 0.0 then
    if ww_pp<=1.0e5 then
        x_2=z_xcen(ww_pz)   ;得到水位线附近单元形心坐标
        y_2=z_ycen(ww_pz)
        z_2=z_zcen(ww_pz)
        tol_1=abs(x_1-x_2)
        if tol_1<=3.0 then            
                w_y=(y_1-y_2)*10.0
                z_prop(w_pz,'cohesion')=w_y
        endif
    endif      
endif
ww_pz=z_next(ww_pz)
endloop   
   
   
   
   endif
   w_pz=z_next(w_pz)
   endloop  
end
get_water
;-------------------------------------------------------------
plot block property cohesion
;print zone pp

仰天笑

谢谢二楼的同仁