FLAC3D塑性区体积显示程序(共1页).docx

精选优质文档-倾情为你奉上塑性区体积显示程序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(p_z,0),tensionnow) = tensionnow then v_tension_now = v_tension_now +