finish
/clear
/filename,dam-3d
/title,dam-3d
/prep7
et,1,solid185
et,2,plane182
mp,ex,1,3e10
mp,prxy,1,0.167
mp,dens,1,2.4e3
k,1,0,0,
k,2,8,0,
k,3,8,6,
k,4,5,9,
k,5,5,11,
k,6,0,11,
!视图
/view,1,1,1,1
/angle,1,270,xm,0
/replot
a,1,2,3,4,5,6
allsel,all
aatt,1,,2
!网格划分
esize,0.5
mshape,0
mshkey,0
amesh,all
extopt,esize,200
extopt,aclear,1
voffst,1,-100
vatt,1,,1
nummrg,all
allsel,all
nsel,s,loc,y,0
d,all,all
allsel,all
nsel,s,loc,z,0
d,all,all
allsel,all
nsel,s,loc,z,-100
d,all,all
allsel,all
/psf,pres,norm,2
sfgrad,pres,,y,11,-10000
nsel,s,loc,x,0
nsel,r,loc,y,0,11
sf,all,pres,0
allsel,all
acel,0,10
allsel,all
sftran
eplot
save
/solu
nsubst,100
!outpr,basic!,all
cutxontrol,plslimit,0.1
outres,all,1
autots,on
solve
finish
save
/post1
wpoffs,,,-20
/cplane,1
/type,1,5
plnsol,s,eqv,0,1