finish
/clear
!(1)
/filenam,yuanzhu2
/units,si
Lplot
keyw,pr_struc,1
!界面过滤
/prep7
/view,1,2,3
/plopots,info,1
!(2)
et,1,solid45
et,2,mesh200,6
save
!(2)定义材料
mptemp,,,,,,,,
mptemp,1,0
!!!!!!!!!!!!!!!!!!!!!!!!!!!岩层分
布!!!!!!!!!!!!!!!!!!!!!!!!
!土-基岩
mpdata,ex,1,,3e9
mpdata,prxy,1,,0.3
mpdata,dens,1,,2300
tb,DP,1,,,
tbmodif,1,1,1e6
tbmodif,1,2,30
tbmodif,1,3,
k,1,0,0,0
k,2,0,0,100e-3
circle,1,3e-3,
circle,1,25e-3,
lstr,1,2
al,1,2,3,4,5,6,7,8
meshkey,1
type,2
fn=9
lesize,1,,,fn,,,,,1
lesize,2,,,fn,,,,,1
lesize,3,,,fn,,,,,1
lesize,4,,,fn,,,,,1
fn=10
lesize,5,,,fn,,,,,1
lesize,6,,,fn,,,,,1
lesize,7,,,fn,,,,,1
lesize,8,,,fn,,,,,1
amesh,1
asel,s,,,1
aplot
extopt,esize,25,0
extopt,aclear,1
type,1
mat,1
allsel
!vdrag,1,,,,,,9
voffst,1,0.1,
finish
/solu
antype,static
save
!加载与求解
asel,s,loc,z,0!从新选择
da,all,uz,0
asel,s,loc,z,1e-1!从新选择
sfa,all,,pres,10e6!加面载荷
!asel,s,loc,y,25e-3!从新选择
!sfa,5,,pres,5e3
!sfa,4,,pres,5e3
!sfa,3,,pres,5e3
!sfa,2,,pres,5e3
deltim,0.1,0.001,0.2!定义计算时间步长
!kbc,0
autot,on
!OUTRES,,ALL
pred,on
lnsrch,on
nlgeom,on!打开大变形
nropt,full!选择迭代方法-牛顿
cnvtol,f,5000,0.002,0
save
/sol
allsel
solve
finish
save
