fini
/clear

/filn,Spektral
resu,Basis,db
/nerr,1e6,1e6
/prep7

! Konstanten
Frequ = 10	! Anzahl der zu berechenden Eigenfrequenzen
a1 = 109.57
a2 = 137.74             
a3 = 240               
a4 = 375
!a5 = 576.92
!a7 = 1500
!a8 = 960
!a9 = 780

f1 = 0.270
f2 = 0.303
f3 = 0.400
f4 = 0.5
!f5 = 0.769
!f6 = 2
!f7 = 3.3333
!f8 =  25
!f9 = 50


!****************
! Randbedingungen
!****************
d,nBoden,all,0

!**************************
! 2. Berechnung_Modalanalyse
!**************************
/solu
antype,modal	! Analysetyp ( Modalanalyse )
modopt,subsp,Frequ	! Unterraum Verfahren anwenden 
mxpand,Frequ,,,yes		! expandieren der angegebenen Eigenformen
alls
solve 
save
fini
 

!************************************
! 3. Berechnung Antwortspektrumanalyse
!*************************************
/solu
antype,spectrum	! Antwortspektrumanalyse
spopt,sprs,Frequ	
svtyp,2	   
freq,f1,f2,f3,f4
sv,0.0001,a1,a2,a3,a4
sed,0,1,0	
alls
solve
fini
!**********************************************
! 4.nachträglich Expansion der signifikanten Eigenformen
!**********************************************
/solu
antype,modal
expass,on
mxpand,Frequ,,,yes,0.0001	
alls
solve
fini
!**********************************
! 4. Berechnung der Eigenformüberlagerung
!**********************************
/solu
antype,spectrum	
srss,0.0001,disp	
alls
solve
save
fini
!*************************
! Überlagerung der Ergebnisse
!*************************
! /post1
! inp,,mcom