代码
finish
/filname,Exercise23
/prep7
et,1,plane13
mptemp,,,,,,,,
mptemp,1,0
mpdata,dens,1,,7800
mptemp,,,,,,,,
mptemp,1,0
mpdata,c,1,,460
mptemp,,,,,,,,
mptemp,1,0
mpdata,kxx,1,,66.6
mptemp,,,,,,,,
mptemp,1,0
uimp,1,reft,,,30
mpdata,alpx,1,,1.06e-5
mptemp,,,,,,,,
mptemp,1,0
mpdata,ex,1,,206e9
mpdata,prxy,1,,0.3
mptemp,,,,,,,,
mptemp,1,0
mpdata,dens,2,,8900
mptemp,,,,,,,,
mptemp,1,0
mpdata,c,2,,390
mptemp,,,,,,,,
mptemp,1,0
mpdata,kxx,2,,383
mptemp,,,,,,,,
mptemp,1,0
uimp,2,reft,,,30
mpdata,alpx,2,,1.75e-5
mptemp,,,,,,,,
mptemp,1,0
mpdata,ex,2,,103e9
mpdata,prxy,2,,0.3
rectng,0,5,0,1.25,
rectng,0,1.25,1.25,2.5,
type,1
mat,1
real,
esys,0
secnum,
esize,0.25,0,
mshape,0,2d
mshkey,1
cm,_y,area
asel,,,,1
cm,_y1,area
chkmsh,'area'
cmsel,s,_y
amesh,_y1
cmdele,_y
cmdele,_y1
cmdele,_y2
type,1
mat,2
real,
esys,0
secnum,
cm,_y,area
asel,,,,2
cm,_y1,area
chkmsh,'area'
cmsel,s,_y
amesh,_y1
cmdele,_y
cmdele,_y1
cmdele,_y2
cm,_nodecm,node
cm,_elemcm,elem
cm,_kpcm,kp
cm,_linecm,line
cm,_areacm,area
cm,_volucm,volu
mp,mu,1,0.2
mat,1
mp,emis,1,
r,3
et,2,169
et,3,172
r,3,,,1.0,0.1,0,
rmore,,,1.0e20,0.0,1.0,
rmore,0.0,0,1.0,,1.0,0.5
rmore,0,1.0,1.0,0.0,,1.0
keyopt,3,3,0
keyopt,3,4,0
keyopt,3,5,0
keyopt,3,7,0
keyopt,3,8,0
keyopt,3,9,1
keyopt,3,10,1
keyopt,3,11,0
keyopt,3,12,0
keyopt,3,2,0
keyopt,3,1,1
lsel,s,,,3
cm,_target,line
type,2
nsll,s,1
esln,s,0
esurf,all
cmsel,s,_elemcm
lsel,s,,,5
cm,_contact,line
type,3
nsll,s,1
esln,s,0
esurf,all
allsel
esel,all
esel,s,type,,2
esel,a,type,,3
esel,r,real,,3
esel,all
esel,s,type,,2
esel,a,type,,3
esel,r,real,,3
cmsel,a,_nodecm
cmdel,_nodecm
cmdel,_elemcm
cmsel,s,_kpcm
cmdel,_kpcm
cmsel,s,_linecm
cmdel,_linecm
cmsel,s,_areacm
cmsel,_areacm
cmsel,s,_volucm
cmsel,_volucm
cmdel,_target
cmdel,_contact
flst,2,1,5,orde,1
fitem,2,1
/go
da,p51x,ux,
flst,2,1,5,orde,1
fitem,2,1
/go
da,p51x,uy
flst,2,1,4,orde,1
fitem,2,6
/go
dl,p51x,,ux,3.75
finish
/sol
*dim,pre,table,2,1,1,time,press,
*set,pre(1,0,1),0
*set,pre(1,1,1),10e6
*set,pre(2,0,1),10
*set,pre(2,1,1),10e6
flst,2,1,4,orde,1
fitem,2,7
/go
sfl,p51x,pres,%pre%
tunif,30,
allsel
antype,trans
timint,off,struc
tintp,,,,1.0
nlgeom,on
time,3.75e-3
toffset,273
auto,on
nsub,100,1000,100
outres,all,-10
solve
/post1
set,last
plnsol,temp
plnsol,s,eqv,2
finish |