ansys挡土墙命令流.docx

/BATCH ! /COM,ANSYS RELEASE 13.0 UP20101012 21:37:30 05/15/2011 /title,the analysis of dangtuqiang ! /replot /prep7 *SET,qk,1E5 et,1,plane82,2 !8节点四边形单元et,2,conta172 ！2D3节点面面元et,3,targe169 ！2D目标元mp,ex,1,1.6E10 ！弹性模量mp,prxy,1,0.167 ！泊松比mp,dens,1,2500 ！质量密度mp,ex,2,2.6E7 mp,prxy,2,0.32 mp,dens,2,1700 ! /DIST,1,0.924021086472,1! /REP,FAST ! /DIST,1,0.924021086472,1! /REP,FAST ! /DIST,1,0.924021086472,1! /REP,FAST tb,dp,2 ！定义DP材料tbdata,0,30,30 ！进入并编辑添加单元表mp,mu,3,0 ！摩擦系数mp,mu,4,0.45r,1 ！实常数r,2 r,3 r,4 r,5 k,1 ！关键点k,2,2.25k,3,2.25,0.15 k,4,0.65,0.25 k,5,0.55,3.25 k,6,0.4,3.25k,7,0.4,0.25k,8,0,0.15 *do,i,1,7 ！参数化设计语言，do循环开始l,i,i+1 ！画线*enddo ！do循环结束! /DIST,1,1.08222638492,1 ! /REP,FAST ! /DIST,1,0.924021086472,1! /REP,FAST ! /DIST,1,1.08222638492,1 ! /REP,FAST ! /DIST,1,0.924021086472,1! /REP,FAST l,8,1 ！两点定线al,all ！由线生成面wprota,90 ！将工作平面顺时针旋转一个角度wpoff,0.4 ！移动工作平面中心asbw,all ！切分面WPOFF,0.25ASBW,ALLWPOFF,0.25 WPROTA,90 ASBW,ALLCM,WALL,AREA ！定义组元，将几何元素分组形成组元WPCSYS,-1 ！将工作平面与总体笛卡尔系对齐MSHKEY,1 ！定义网格（对应网格）ESIZE,0.05 ！定义元素网格化大小AATT,1,1,1 ！给面上赋予属性AMESH,ALL ！划分面单元网格KSEL,NONE ！选择有效点LSEL,NONE ！选择有效线ASEL,NONE ！选择有效面K,11 ！关键点K,12,2.25 K,13,2.25,0.15 K,14,0.65,0.25 K,15,0.55,3.25 K,16,6,3.25 K,17,6,-6 K,18,-6,-6 K,19,-6,0.85K,20,0.4,0.85 K,21,0.4,0.25 K,22,0,0.15 *DO,I,11,21 L,I,I+1 *ENDDO L,11,22 AL,ALL ！由线生成面KWPAVE,12 ！移动工作平面（到该点）WPROTA,90 ASBW,ALLKWPAVE,22 ASBW,ALLWPROTA,90 ASBW,ALLKWPAVE,11 ASBW,ALLWPCSYS,-1 CM,SOIL,AREAAATT,2,2,1 ESIZE,0.1 ！定义元素网格化大小*SET,SR,5 LSEL,S,LENGTH,6 ！选择一组线的子集LSEL,S,18,28,10 LESIZE,ALL,0.1,SR ！为线指定网格尺寸LSEL,S,41,43,2LESIZE,ALL,0.1,1/SR LSEL,S,37,40,3LESIZE,ALL,0.1,SR LSEL,S,34,35 LESIZE,ALL,0.1,1/SR LSEL,S,29,30 LESIZE,ALL,0.1,1/SR LSEL,S,19,22,3LESIZE,ALL,0.1,SR LSEL,ALLAMESH,ALL ！划分面单元网格ALLSEL,ALL ！选中所有项目LSEL,S,2,4,1 NSLL,S,1 ！选中与所选线相关联的节点（S，一套新节点）TYPE,3 ！REAL,3 ESURF ！在已存在的选中单元自由度的表面覆盖产生单元LSEL,S,15,17,1NSLL,S,1TYPE,2 REAL,3 MAT,3 ESURF LSEL,S,6,8,1 NSLL,S,1TYPE,3 REAL,4 ESURF LSEL,S,23,25,1NSLL,S,1TYPE,2 REAL,4 MAT,3 ESURF LSEL,S,1 LSEL,A,9,13,4 NSLL,S,1TYPE,3 REAL,5,ESURFLSEL,S,14 NSLL,S,1TYPE,2 REAL,5 MAT,4 ESURF ALLSEL,ALL LSEL,S,LOC,X,-6 LSEL,A,LOC,X,6 DL,ALL,ALL ！列表节点约束LSEL,S,LOC,Y,-6 DL,ALL,ALL LSEL,S,27,29,2SFL,ALL,PRES,QK ！荷载ALLSEL,ALL FINISH /SOL ！求解层ANTYPE,STATIC ！设置求解选项NLGEOM,ON ！打开大位移效果AUTOTS,ON ！使用自动时间步长ACEL,9.8 ！重力加速度! TINE,1TIME,1 NSUBST,50 ！指定荷载步的子步数OUTRES,ALL,ALL ！规定写入数据