/prep7
et,1,162
keyopt,1,3,2
mp,dens,1,7.865e-6
mp,ex,1,200e6
mp,nuxy,1,0.27
tb,plaw,1,,,1
tbdata,1,310e3
tbdata,2,768e3
tbdata,3,0
tbdata,4,40.0
tbdata,5,5.0
tbdata,6,0.75
edmp,rigid,2,6,7
mp,dens,2,7.865e-6
mp,ex,2,200e3
mp,nuxy,2,0.27
edmp,rigid,3,6,7
mp,dens,3,7.865e-6
mp,ex,3,200e3
mp,nuxy,3,0.27
edmp,rigid,4,7,7
mp,dens,4,7.865e-6
mp,ex,4,200e3
mp,nuxy,4,0.27
edmp,hgls,1,5
rectng,5,9.5,0.01,2.01,
rectng,9.5,10.5,0.01,2.01,
rectng,10.5,15,0.01,2.01,
rectng,8,9.99,3,5,
rectng,10,12,2.1,4.1,
rectng,10,15,0,-2,
/pnum,area,1
aplot
aglue,1,2,3
asel,s,,,1
asel,a,,,7
asel,a,,,8
aatt,1
asel,s,,,4
aatt,2
asel,s,,,5
aatt,3
asel,s,,,6
aatt,4
asel,all
/pnum,line,1
/pnum,area,0
lplot
lsel,s,,,27
lsel,a,,,3
lsel,a,,,28
lesize,all,,,20,5
lsel,s,,,1
lesize,all,,,20,0.2
lsel,s,,,25
lsel,a,,,26
lesize,all,,,11
lsel,s,,,2
lsel,a,,,4
lsel,a,,,6
lsel,a,,,10
lesize,all,,,20
lsel,all
esize,,1
mshape,0
mshkey,1
amesh,all
/pnum,mat,1
/num,1
edcgen,ass2d,,,0.6
edpart,create
partsel,'plot'
fini
/solu
*dim,mtime,,2
*dim,move,,2
mtime(1)=0,0.01
move(1)=0,-3
*dim,ftime,,3
*dim,force,,3
ftime(1)=0,0.001,1
force(1)=0,-500e3,-500e3
edload,add,rbuy,,2,mtime,move
edload,add,rbfy,,3,ftime,force
time,0.01
edrst,50
edhtime,100
edout,glstat
save
solv
fini
/post1
eplot
/user,1
/dscale,,1
set,last
pldisp
avprin,,0.5
ples,eppl,eqv
andyna,0.1,,,,,1 |