FLAC3D查找disp最值及其所在id的坐标的方法(fish语言)(共3页).docx

精选优质文档-倾情为你奉上首先要感谢下重庆岩土所的阿比尔提供的代码：一、 以zdisp为例举例子说明，查找整个模型的最小zdisp值的方法，xdisp、ydisp求法相同直接替换zdisp即可：def find_min_zdisp ;查找节点最小zdisp值及节点号 p_gp=gp_head min_zdisp=0.0 ;初始值loop while p_gp#null new_zdisp=gp_zdisp(p_gp) if new_zdispmin_zdisp then min_zdisp=new_zdisp pid=gp_id(p_gp) ;节点单元号 px=gp_xpos(p_gp);该节点的x坐标 py=gp_ypos(p_gp);该节点的y坐标 pz=gp_zpos(p_gp);该节点的z坐标 endif