在看郑海棠老师Flac3D2Tecplot_new.dat时看到info_flag时看不懂了,请问info_flag在flac3d 3.0版本fish语言中是什么意思啊?
;; Write gp-related data,such as Coordinates and Displacements,写与节点相关的数据,例如坐标和位移
def write_gp_info
p_gp = gp_head
loop while p_gp # null
buf(1) = ''
loop i(1,N_RECORD); 数据每5个存放一行
if p_gp # null then
caseof info_flag;什么意思?
case 0
buf(1) = buf(1) + string(gp_xpos(p_gp)) + ' ';某节点x坐标
case 1
buf(1) = buf(1) + string(gp_ypos(p_gp)) + ' '
case 2
buf(1) = buf(1) + string(gp_zpos(p_gp)) + ' '
case 4
get_gp_disp;计算某节点位移大小
buf(1) = buf(1) + string(gp_disp*1000) + ' '
case 8
buf(1) = buf(1) + string(gp_xdisp(p_gp)*1000) + ' ';某节点x方向位移
case 16
buf(1) = buf(1) + string(gp_ydisp(p_gp)*1000) + ' '
case 32
buf(1) = buf(1) + string(gp_zdisp(p_gp)*1000) + ' '
endcase
p_gp = gp_next(p_gp)
endif
endloop
status = write(buf,1)
endloop
end