1、FLAC3D淺基礎的穩定性模擬模擬二維的條形基礎在已知材料中的塑性流動，進行應力應變分析。建模及命令語句如下：gen zone brick size 20 1 10;建立矩形的網格區域，其大小為20×1×10model mohr;采用摩爾-庫侖模型prop bul 2.e8 shea 1.e8 cohesion 1.e5;模型的材料性質：體積模量、剪切模量、粘聚力prop friction 0. dilation 0. tension 1.e10;內摩擦角0°、剪脹角0°、抗拉強度fix x range x -.1 .1;在x方向上固定邊界 x =0（即

2、只在x方向上受約束）fix x y z range z -.1 .1;在x y z方向上固定邊界 z =0（即為固定約束）fix x y z range x 19.9 20.1;在x y z方向上固定邊界 x =20fix y;約束所有y方向上運動fix x y z range x -.1 3.1 z 9.9 10.1;在x y z方向上固定平面 x =0，3 z= 10ini zvel -0.5e-5 range x -.1 3.1 z 9.9 10.1;在平面 x =0，3 z= 10上初始化z方向的速度def p_cons;用 fish 語言定義函數p_cons pdis1 = gp_n

3、ear(0.,0.,10.);靠近坐標（0，0，10）的節點的地址賦予pdis1 pdis2 = gp_near(0.,1.,10.) ;靠近坐標（0，0，10）的節點的地址賦予pdis2 p_sol = (2. + pi); 2 + 賦予 p_solend;用于 fish語言的結尾p_cons;運行函數p_cons; p_load : average footing pressure / c ;場地的平均壓力; c_disp : magnitude of vertical displacement at footing center / a;場地中心的垂直沉降量def actLoad;定義函

4、數 actLoad（活荷載）（fish語言的起始句） pnt = gp_head;把網格點指針的首個地址（gp_head）賦予變量 pnt pload = 0.0;定義變量 pload為 0 n = 0;定義變量 n為0 loop while pnt # null;loop是循環命令，其條件是 0 pnt if gp_zpos(pnt) > 9.9 then;當變量 pnt所對應 的 z坐標大于 9.9 if gp_xpos(pnt) < 3.1 then;且x 坐標小于3.1 時 pload = pload + gp_zfunbal(pnt);變量 pload為上次循環中的值與變

5、量 pnt所對應的 z方向上的不平衡力的和 n = n+ 1;n自我加 1 endif;結束里面的 if endif; 結束外面的 if pnt = gp_next(pnt); 把網格點指針的下一個地址（gp_next）賦予變量 pnt endloop;結束循環 actLoad = pload / (3.5 * z_prop(zone_head,'cohesion');這里函數actLoad 的值，為后面的式子所賦予，其中pload為循環結束后的最終;值z_prop(zone_head,'cohesion')為首個單元的粘聚力的數值 c_disp = -(gp_

6、zdisp(pdis1) + gp_zdisp(pdis2) / 7.0; 同理，這里函數 c_disp的值，也為后面的式子所賦予，其中 gp_zdisp(pdis1)為;變量pdis1所對應的網格點在 z方向的位移，gp_zdisp(pdis2) 變量pdis2所對應;的網格點在 z方向的位移end; fish語言的結束句def p_err;定義函數 p_err p_err = 100. * (actLoad - p_sol) / p_sol;函數 p_err的值為后面式子所定義end;fish語言的結束句hist n 50;對n做歷史記錄hist actLoad;對actLoad 做歷史記錄hist p_sol;對p_sol做歷史記錄hist c_disp;對c_disp做歷史記錄hist unbal;對unbal（不平衡力）做歷史記錄plot sketch;繪出輪廓線plot add vel;添加矢量plot add his 1 2 vs 3;繪出歷史記錄n，actLoad ， p_solcyc 15000;運行15000時步print p_err;輸出函數 p_errsave p