Finish
/clear,start

/Prep7
r=0.075    !radius
r_in=2.5e-3  !inner radius

uzz=1e-3
Alt_BaseZ=1
damp_mode1=0.0
f1=362
f2=372  !
N_SUBSET=10 !

N_order=120  !
N_size=50   !


rou=1200    !density
niu=0.4    !Possion's ratio
Elas=5e9   !Ypung's modulus
h=1e-3  !thickness



MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,Elas   
MPDATA,PRXY,1,,niu  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,1,,rou  


ET,1,SHELL181   ! 
sect,1,shell,,  
secdata, h,1,0.0,3  
secoffset,MID   
seccontrol,,,, , , ,



CYL4, , ,r, ,r_in   
wpro,,,-90.000000   
ASBW,       1   
wpro,,-90.000000,   
FLST,2,2,5,ORDE,2   
FITEM,2,2   
FITEM,2,-3  
ASBW,P51X  





ESIZE,0,N_size, 
MSHAPE,0,2D 
MSHKEY,1
AMESH,ALL


/solu
CSYS,0
antype,harmonic


FLST,2,4,4,ORDE,2   
FITEM,2,5   
FITEM,2,-8  
DL,P51X, ,UZ,uzz,  


HROPT,FULL  
HROUT,OFF


HARFRQ,f1,f2       ! RANGE OF FREQUENCIES FROM 0.1 TO 1.0 HZ
NSUBST,N_SUBSET

KBC,1                ! STEP BOUNDARY CONDITIONS

DMPRAT,damp_mode1


ALLSEL,all

SOLVE
FINISH


SAVE

/POST1

SET,,, ,,, ,2 
PATH,RR,2,30,120,
PPATH,1,0,0,0,0,0,   
PPATH,2,0,r,0,0,0,  
AVPRIN,0, , 
PDEF,UzR,U,Z,AVG
PATH,RR