finish
/clear

resume,rotor_housing_model_189,db
allsel
/eshape,1
eplo
finish
!*
!##################
! MOdal Analysis
!##################
!
/solu
allsel
ratio=2*(22/7)
allsel
!!
antype,modal
coriolis,on,,,on	! Stationary reference frame to Obtain Campbell diagram
!*
modopt,qrdamp,16,,,on		! QRDAMP method extracting 16 mode shapes   	
mxpand,16,,,yes
cmomega,rotshaft,0
solve
mxpand,16,,,yes
cmomega,rotshaft,19.9*ratio		! from Hz to rads/sec:  			
solve
mxpand,16,,,yes
cmomega,rotshaft,39.2*ratio				
solve
mxpand,16,,,yes
cmomega,rotshaft,65.2*ratio					
solve
fini
!!
/post1
set,list
set,last,last
plcamp,on,1,rds,0,rotshaft
prcamp,on,1,rds,0,rotshaft

