ANSYS基坑彈性地基梁全程序即詳解word文檔良心出品

1、i/-2(3tPaAGLUE, all!粘結(jié)所有面1-r 規(guī) y.I I , LJ：滋g枯I . 00 vJi N CreatElementsElem Attributes!設(shè)置單元類(lèi)型屬性指示器!MP 命令中的 MAT 即材料性能!材料實(shí)常數(shù)!材料坐標(biāo)系統(tǒng)屬性指示器!根據(jù)給定的單元號(hào)和節(jié)點(diǎn)號(hào)生成單元NUMCMP , ALL!所有實(shí)體進(jìn)行重新編號(hào)!激活默認(rèn)笛卡爾坐標(biāo)系*DO, i, 1, L1-1CSYS, 0N, 100000+2*i-1, i, L2, -1N, 100000+2*i, i, L2-2.5, -1 *enddo *DO, i, 1, L1-1 TYPE, 2MAT , 1

2、REAL, 0ESYS, 0EN, 100000+i, 100000+2*i-1, 100000+2*i*enddoNUMCMP , ALL!所有實(shí)體進(jìn)行重新編號(hào)*DO, i, 1, L2-1CSYS, 0N, 100000+2*i-1, 0, i, -1N, 100000+2*i, 2.5, i, -1 *enddo *DO, i, 1, L2-1 TYPE, 2MAT , 1REAL, 0ESYS, 0EN, 100000+i, 100000+2*i-1, 100000+2*i *enddoNUMCMP , ALL!所有實(shí)體進(jìn)行重新編號(hào)*DO, i, 1, L2-1CSYS, 0N,100

3、000+2*i-1, L1, i, -1N,100000+2*i, L1-2.5, i, -1 *enddo *DO, i, 1, L2-1TYPE, 2 $ MAT , 1 $ REAL , 0ESYS, 0EN, 100000+i, 100000+2*i-1, 100000+2*i *enddoNUMCMP , ALL!所有實(shí)體進(jìn)行重新編號(hào)ESEL, S, TYPE, , 2 EGEN, 25, 100000, ALL, , , ,ESEL, S, TYPE, , 2CM, SPRING, ELEM! 選擇單元類(lèi)型號(hào)為 2 的單元, , , -1,! 選擇單元類(lèi)型號(hào)為 2 的單元! 生成一

4、個(gè)叫 SPRING 由單元組成的元件ALLSALLSEL, ALLNUMMRG, NODE, 0.01, 0.01, NUMCMP, ALLLOW!選擇所有實(shí)體!節(jié)點(diǎn)合并 距離小于 0.01 則同保留編號(hào)底的點(diǎn) !所有實(shí)體進(jìn)行重新編號(hào)*DO, i, 1, 25NSEL, S, LOC, Z, -1*iESLN, SNSEL, R, TYPE, , 2R, i, m1*i*b*h, , , EMODIF, ALL, REAL, i, *enddo!從當(dāng)前集選擇一組節(jié)點(diǎn)子集 深度-1 以下 !從已選集中選擇!選擇單元類(lèi)型號(hào)為 2 的單元!單位面積內(nèi)受的力隨深度增加而增加!對(duì)已存在單元進(jìn)行修改R,

5、101, 0.6, 0.6, 0.6, 0.6, ,R, 102, 0.1, 0.1, 0.1, 0.1, ,CMSEL, S, WALL! 識(shí)別號(hào) +實(shí)常數(shù)EMODIF, ALL, REAL, 101,CMSEL, S, STRUTEMODIF, ALL, REAL, 102,!將實(shí)常數(shù) 101 組賦給墻!賦值給支撐NSEL, S, LOC, Z-25D, ALL, , , , , , UZ, , , , ,!約束墻底豎向位移CMSEL, S, SPRINGNSLE, SCMSEL, S, WALLNSLE, UD, ALL, , , , , , ALL, , , ,!選擇土彈簧單元!以下命

6、令從已選彈簧集合中選!在已選集中選墻單元!從集合中刪除剛選擇的單元，即與墻有關(guān)的單元!約束土彈簧單元端點(diǎn)的所有位移ALLSSAVE /SOLUALLSANTYPE, STATIC, NEWNROPT, FULL*AFUN, DEGQ=2.0E4GAMA1=0.9E4FAI1=20C1=10e3 m1=1500e3b=1h=1! 分析模式 靜力 !指定計(jì)算模式 ! 指定角度單位為 度 !Q 為超載!浮重度!內(nèi)摩擦角!粘聚力!比例系數(shù)!單元寬度! 墻體單元高度!無(wú)支撐開(kāi)挖1m 坑內(nèi)水位 -1.0 坑外 0NSEL, S, LOC, Z, 0, -0.9ESLN, SCMSEL, R, wallNS

7、LE, S!0 到 0.9 的位置即開(kāi)挖面以上 !以下命令在當(dāng)前集里選擇 ! 在當(dāng)前集選 wll 單元 !以下命令在當(dāng)前集里選擇*GET, ZMIN, NODE, , MNLOC, Z, , , ,*GET, ZMAX, NODE, , MXLOC, Z, , , ,!墻最淺節(jié)點(diǎn)處的位置!墻最深節(jié)點(diǎn)處的位置LOCZ1=abs (ZMAX)LOCZ2=abs (ZMIN)KA= (TAN(45.0 - FAI1/2)*2!取絕對(duì)值!主動(dòng)土壓力系數(shù)!采用水土分算最深主動(dòng)土壓力公式PA1=(Q + GAMA1*LOCZ1)*KA-2.0*C1*SQRT(KA) !* IF , PA1, LT, 0,

8、 THENPA1=0!去除小于零值的可能*ENDIFPA2=10*1E3*LOCZ1!水壓力計(jì)算PA=PA1+PA2!總應(yīng)力SA1=(Q+GAMA1*LOCZ2)*KA-2*C1*SQRT(KA) SA2=10*1E3*LOCZ2WA=SA2SA=SA1+SA2 pressure=SASLZER=ZMAXSLOPE=(SA-PA)/(LOCZ2-LOCZ1) SFGRAD, PRES, 0, z, SLZER, SLOPE SFE, all, 1, PRES, , -PA, , ,!alls! 增長(zhǎng)率! 沿 z 方向從 -1m 開(kāi)始的面力減少!開(kāi)挖面以下加載NSEL, S, LOC, Z, -

9、1.1, -24.9ESLN, SGMSEL, R, wallNSLE, S*GET, ZMIN, NODE, , MNLOC, Z, , , ,*GET, ZMAX, NODE, , MXLOC, Z, , , ,SLZER=ZMAXSLOPE=0SFGRAD, PRES, O, z, SLZER, SLOPE SFE, all, 1, PRES, , -pressure, , ,!allscmsel, S, strutEKILL, ALL!將集合擴(kuò)大到全集!選擇內(nèi)支撐 全部殺死allsNSEL, S, LOC, Z, 0.1, -1.1!選擇單元類(lèi)型號(hào)為 2 的單元ESLN, SESEL,

10、 R, TYPE, , 2EKILL, ALL*do, i, 2, 25z=i-1! 開(kāi)挖了 1m 要在被動(dòng)區(qū)減去相應(yīng)的土壓力K=m1*z*b*hR, i, K, , , *enddo! 載荷步 1TIME, 1 alls solveNSEL, S, LOC, Z, 0, -4.9ESLN, SCMSEL, R, wallNSLE, S *GET, ZMIN, NODE, , MNLOC, Z, , , ,*GET, ZMAX, NODE, , MXLOC, Z, , , ,LOCZ1=abs (ZMAX)LOCZ2=abs (ZMIN)KA= (TAN(45.0 - FAI1/2)*2PA1

11、=(Q + GAMA1*LOCZ1)*KA-2.0*C1*SQRT(KA) * IF , PA1, LT, 0, THENPA1=0 *ENDIFPA2=10*1E3*LOCZ1PA=PA1+PA2SA1=(Q+GAMA1*LOCZ2)*KA-2*C1*SQRT(KA)SA2=10*1E3*LOCZ2WA=SA2SA=SA1+SA2 pressure=SASLZER=ZMAXSLOPE=(SA-PA)/(LOCZ2-LOCZ1) SFGRAD, PRES, 0, z, SLZER, SLOPE SFE, all, 1, PRES, , -PA, , , allsNSEL, S, LOC, Z, -5.1, -24.9ESLN, SGMSEL, R, wallNSLE, S*GET, ZMIN, NODE, , MNLOC, Z, , , , *GET, ZMAX, NODE, , MXLOC, Z, , , , SLZER=ZMAXSLOPE=0SFGRAD, PRES, O, z, SLZER, SLOPESFE, all, 1, PRES, , -pressure, ,