/PREP7

pi=acos(-1)         !PI DEFINIEREN AUS ARKUSFUNKTION

/SOLU

! Schleife von 0 bis 220 Hz 

*do,i,1,220,1

antype,harmic	    !HARMONIC ANALYSIS
Hropt,full          !FULL ANALYSIS
hrout,on,on         !PRINT COMPLEX DISPL, CLUSTER FREQUENCY SOLUTIONS ABOUT NATURAL FREQUENCIES
nsubst,1
KBc,1
harfrq,i,i
ALPHAD,3.914,
BETAD,0.0000136,   

omega1=i*pi*2	    !WINKELGESCHW = 2*pi*f
  
OMEGA,omega1,0,0,   !OMEGA NUR UM X-ACHSE

solve

*enddo