《FLAC3D塑性区体积显示程序1页》由会员分享,可在线阅读,更多相关《FLAC3D塑性区体积显示程序1页(1页珍藏版)》请在金锄头文库上搜索。
1、塑性区体积显示程序def get_plast shearnow = 1 tensionnow = 2 shearpast = 4 tensionpast = 8 v_shear_now = 0 v_tension_now = 0 v_shear_past = 0 v_tension_past = 0 p_z = zone_head loop while p_z # null if and(z_state(p_z,0),shearnow) = shearnow then v_shear_now = v_shear_now + z_volume(p_z) endif if and(z_state(
2、p_z,0),tensionnow) = tensionnow then v_tension_now = v_tension_now + z_volume(p_z) endif if and(z_state(p_z,0),shearpast) = shearpast then v_shear_past = v_shear_past + z_volume(p_z) endif if and(z_state(p_z,0),tensionpast) = tensionpast then v_tension_past = v_tension_past + z_volume(p_z) endif p_z = z_next(p_z) endloop ii = out(shear_now : + string(v_shear_now) ii = out(tension_now : + string(v_tension_now) ii = out(shear_past : + string(v_shear_past) ii = out(tension_past : + string(v_tension_past)endget_plast