z_fsi(p_z, arr)是什么意思？ [复制链接]

在某处看到下列一求算应变的FISH程序，本人愚笨，希望牛人回答。在此感谢。 k/Q8:qA  
5VGZ5,+<<  
ci
CQe]fS  
;求应变 8K\S]SZ  
def ax_str T9>,Mx%D[  
str1 = 0 )<5hga][~a  
n=1.0 y XCZs  
array arr(6) w:~
vfdJ  
pnt1 = zone_head $WQm"WAKe  
loop while pnt1 # null !]8QOn7=  
if z_zcen(pnt1) <0.1 then v\=k[oOu  
oo = z_fsi(pnt1,arr) :vE\r#hJ"  
str1 = str1 -arr(3) 
:4Y5  
endif &i*e&{L7  
pnt1 = z_next(pnt1) TH~"y  
n=n+1.0 fV!~SX6S  
endloop YgQb(umK  
ax_strain = str1 / n ; pi 面积 IKp/xj[!
 
,Mn`kL<F  
K[q-[q#yc  
问题为：1. z_fsi(pnt1,arr) 什么什么意思啊？ i\ )$  
               2. 能解释下这个程序的具体意思吗？ a0`(*#P  

老实说,不想回答这个问题, 向对不知道 1+1=2 的人,讲 1+2=3 , 很烦的 A/~^4DR  
+GNXV-S  
9lqD~H.  
oo = z_fsi(p_z,arr)  该命令返回值是0，所以左边可以任意写字母 z[]8"C=  
L#MM
N
c+  
fsi  应变量（张量），它的效果是得到 区域(zone) 的六个应变量, 存在数组 arr 中 *>jJ<8!  
JiX-t\V~  
而且，要求 arr(6) 必须预先定义 ， 上述的 fish 正是如此做的 IG4`f~k^  
TcH7!fUj  
B~u
`bn,iQ  
9i!
|wkx  
至于 if  ...  endif   判断 区域中 其中心坐标在 0 处的区域 Nkk+*(Z  
(_Rl f$D  
^{64b  
loop while  ... endloop    pnt1=zone_head , pnt1=z_next(pnt1) 这些基础命令，没什么好说的