finish
/clear

resume,rotor_housing_model_189,db
/prep7
allsel
/eshape,1
eplo
!
fo=70e-3			! Unbalance force to produce excitation
f,node(1250,0,0),fy,fo
f,node(1250,0,0),fz,-fo

allsel
fini
!*
!####################################

/solu
antype,harm	
synchro,1,rotshaft		 ! exciting synchronous motion
cmomega,rotshaft,1250	       	 ! in rads/sec (199Hz)
harfrq,40,450			 ! natural frequency range from modal analysis
nsub,2
kbc,1
acel,,9810.0
coriolis,on,,,on              	 ! stationary frame    
save
solve
fini

/post1

set,1,1
/VIEW,  1,  0.405768701300    ,  0.412859487323    ,  0.815413272379
/ANG,   1,   4.27999004895  
!*  
plns,ux              
anharm,24,.1

set,1,2
/VIEW,  1,  0.405768701300    ,  0.412859487323    ,  0.815413272379
/ANG,   1,   4.27999004895  
!*
plns,ux              
anharm,24,.1

finish
