RT 请教大家
建立了个挡墙的模型 如图
为了求得挡墙的倾覆力矩 故想用FISH求得挡墙从挡墙底起每一米的水平力之和
编FISH如下
运行过程无报错 但是FLAC3D中一调用就卡住
请教大家是哪里出了问题 谢谢
res RE_WALL.SAV ;读取求解结果
define wall_sxx ;定义
a = 0
b = 5 ;挡墙底
c = 1
array fx(8) ;定义数组,存放1~8米水平合力
loop while a <= 7 ;a从0~7
p_z = zone_head
loop while p_z # null
if z_zcen(p_z) >= b ;Z在1米内,X在挡墙范围内的单元
if z_zcen(p_z) < b+1
if z_xcen(p_z) >= 10
if z_xcen(p_z) <= 13.3
fx(c) = fx(c) + z_sxx(p_z) ;累积1米内的单元水平力
endif
endif
endif
endif
endloop
a=a+1
b=b+1 ;提升1米
c=c+1 ;数组前进一位
endloop
end
wall_sxx ;使用
loop c(1,8) ;分别输出1~8米水平合力
"fx"=out(fx(c))
endloop
