1、finish/clear/units,si/filname,45,1/plopts,date,0 /plots,vers,0 /udoc,1,logo,off *afun,deg/prep7et,1,plane82KEYOPT,1,3,2 mp,ex,1,6e9 !弹性模量mp,prxy,1,0.32 !泊松比mp,dens,1,2390 !岩石密度tb,dp,1 !DP 准则 tbdata,6.846e4,17.98,0k,1,0,0k,2,180,120k,3,310,120k,4,395,205k,5,605,205k,6,605,0k,7,395,0k,8,310,0*do,i,1,7
2、l,i,i+1*enddol,1,8l,3,8l,4,7al,1,2,9,8al,3,10,7,9al,4,5,6,10type,1 !选择划分单元的类型mat,1 !选择要划分单元的材料模型mshape,1,2d !设置平面三角形单元mshkey,0 !设置自由划分esize,10,0 !设置单元大小amesh,1,3,1 !对面 1 到面 11 划分单元savefinish/solueplotsavensubst,50 !指定荷载子步nlgeom,on !指定大变形nropt,full !设置成 newton-lapnace 迭代pred,on !启用非线性求解预测器lnsrch,on !启用线性搜索outres,all,last !只输出最后一步计算结果nsel,s,loc,x,605 !施加约束d,all,ux nsel,s,loc,y,0d,all,allallsel,all !选择所有元素acel,0,9.8,0 !施加重力加速度asel,s,1,3,1 !选择面esla,s !选择面上的单元solve !求解save !保存finish/post1set,1 plnsol,u,x,0plnsol,eppl,eqv
