finish
/clear
/prep7
et,1,182
keyopt,1,1,2
keyopt,1,3,2
et,2,182
keyopt,2,1,2
keyopt,2,3,2
et,3,202
keyopt,3,3,2
mp,ex,4,1.353e5
mp,ey,4,9.0e3
mp,ez,4,9.0e3
mp,gxy,4,5.2e3
!mp,gyz,4,5.2e3
!mp,gxz,4,3.08e3
mp,prxy,4,0.24
mp,prxz,4,0.24
mp,pryz,4,0.46
gmax = 0.004
tnmax = 25
tb,czm,5,,,expo
tbdata,1,tnmax,gmax,1000.0
rectng,0,100,0,1.5
rectng,0,100,0,-1.5
lsel,s,line,,2,8,2
lesize,all,0.75
lsel,inve
lesize,all, , ,200
allsel,all
type,1
mat,4
local,11,0,0,0,0
esys,11
amesh,2
csys,0
type,2
esys,11
amesh,1
csys,0
nsel,s,loc,x,30,100
nummrg,nodes
esln
type,3
mat,5
czmesh,,,1,y,0,
allsel,all
nsel,s,loc,x,100
d,all,all
nsel,all
finish
/solu
esel,s,type,,2
nsle,s
nsel,r,loc,x
nsel,r,loc,y,1.5
d,all,uy,10
nsel,all
esel,all
esel,s,type,,1
nsle,s
nsel,r,loc,x
nsel,r,loc,y,-1.5
d,all,uy,-10
nsel,all
esel,all
nlgeom,on
autots,on
time,1
nsubst,40,40,40
outres,all,all
solve
finish |
回复此楼