/VIEW,1,,-1
/ANG, 1
/REP,FAST
/prep7
et,1,solid98,3
mp,dens,3,7750
mp,perx,3,1730
mp,pery,3,1730
mp,perz,3,1700
tb,piez,3,,,1
tbdata,14,5.64e-10
tbdata,16,5.64e-10
tbdata,3,-1.85e-10
tbdata,6,-1.85e-10
tbdata,9,4.05e-10
tb,anel,3,,,1
tbdata,1,16.4e-12,-5.1e-12,-5.8e-12
tbdata,7,16.4e-12,-5.8e-12
tbdata,12,18.8e-12
tbdata,21,47.5e-12
tbdata,19,47.5e-12
tbdata,16,43e-12
et,2,solid45
mp,ex,2,1.13e11
mp,nuxy,2,0.35
mp,dens,2,8800
*SET,la,-17.5e-3
*SET,lb,-12e-3
*SET,lc,-4e-3
*SET,da,1e-3
*SET,db,1.6e-3
*SET,dc,2.2e-3
*SET,dd,2.8e-3
k,1,la,0,da
k,2,la,0,db
k,3,lb,0,da
k,4,lb,0,db
k,5,lc,0,dc
k,6,lc,0,dd
k,7,0,0,dc
k,8,0,0,dd
k,9,0,0,-dc
k,10,0,0,-dd
k,11,lc,0,-dc
k,12,lc,0,-dd
k,13,lb,0,-da
k,14,lb,0,-db
k,15,la,0,-da
k,16,la,0,-db
a,1,2,4,6,8,7,5,3
a,9,10,12,14,16,15,13,11
vrotat,1,,,,,,7,8,360
vrotat,2,,,,,,9,10,360
cylind,0,-la,-da,da,0,360
FLST,2,4,6,ORDE,2
FITEM,2,1
FITEM,2,-4
VADD,P51X
FLST,2,4,6,ORDE,2
FITEM,2,5
FITEM,2,-8
VADD,P51X
vglue,all
esize,1e-3
type,1
mat,3
vmesh,2
type,2
mat,2
mshkey,0
mshape,1,3d
vmesh,1
vmesh,3
nsel,s,loc,z,da
nsel,r,loc,x,-la,la
cp,1,volt,all
nsel,s,loc,z,-da
nsel,r,loc,x,-la,la
d,all,volt,0
nsel,s,loc,z,-dd
d,all,ux,0,,,,uy,uz
nsel,all
/SOLU
antype,modal
modopt,block lanczos,6
modopt,lanb,6,1.2e4,1e6,off
mxpand,6
solve
finish
/post1
set,list,2
set,first
pldisp,0
anmode,10,0.5e-1
set,next
pldisp,0
anmode,10,0.5e-1
set,next
pldisp,0
anmode,10,0.5e-1
set,next
pldisp,0
anmode,10,0.5e-1
set,next
pldisp,0
anmode,10,0.5e-1
finish