finish
/clear

resume,rotor_model_189,db
/prep7
allsel
/eshape,1
eplot
finish

!####################################

/solu

coriolis,on,,,on      ! stationary frame 
omega,200

antype,trans
nlgeom,on
kbc,0
betad,1e-5		! Light Damping 
time,.006
acel,,9810.0		! specify peak accl. of 'g' at t=0.006sec
outres,nsol,1
nsub,24
solve

time,.012
acel,,0			! accl. back to 0.0 at t=0.012sec
solve

time,.192		! structure to vibrate until t=0.192sec
nsub,360
solve
fini

/post26
nsol,2,node(1250,0,0),ux
nsol,3,node(1250,0,0),uy
nsol,4,node(1250,0,0),uz
plva,2,3,4
finish

/eof

/post1
set,last,last
/VIEW,1,1,2,3   
/ANG,1  
/REP,FAST   
plnsol,u,x
plnsol,u,y
plnsol,u,z

finish
