! Beenden und Bereinigung
fini
/clear

/filn,Transient
resu,Basis,db	! Name der Database, die aufgerufen wird
/nerr,1e6,1e6	! maximal zulässige Anzahl an Errors
/config,nres,10000	! maximal Größe des Resultsfiles
/prep7

!***************
!Randbedingungen
!***************
d,nBoden,all,0	! alle Freiheitsgrade für die Knoten nBoden binden
       !ADDAM,AF,AA,AB,AC,AD,AMIN 
!***********
!Konstanten
!***********
pi = acos(-1)

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

omega1 = f1*2*pi 
omega2 = f2*2*pi       
omega3 = f3*2*pi    
omega4 = f4*2*pi    
!omega5 = f5*2*pi
!omega6 = f6*2*pi    
!omega7 = f7*2*pi
!omega8 = f8*2*pi
!omega9 = f9*2*pi
                                    
a1 = 109.57
a2 = 137.74             
a3 = 240               
a4 = 375
!a5 = 576.92
!a7 = 1500
!a8 = 960
!a9 = 780

tend =0.0001            ! Zeitschritt
dt = 0.02            ! endzeit


!****************
!Transiente Analyse 
!****************
/solu	
antype,trans	
	
trnopt,full	! Methode mit vollen Matrizen
nropt,auto	! Berechnungsalgorithmus automatisch wählen
nlgeom,off	! Große Verformungen nicht erlaubt
autots,off	! automatische Schrittwahl ausschalten
outres,all,all	! alle Ergebnisse speichern
timint,on	! Trägheit eingeschalten
lumpm,off	! Konzentrierte Masse ausgeschaltet 
kbc,0
!acel,0,0,9810	! Erdgravitation für die ganze Struktur

time,tend-0.00001
d,nboden,uy,0
alls
solve

!Verschiebungszeitverlauf ansetzen
*do,tt,tend,dt,tend	        
  time,tt	                ! Berechnungszeitpunk: Parameter zeit
  d,nBoden,uy,((a1/((omega1)**2))*cos(omega1*tt))+((a2/((omega2)**2))*cos(omega1*tt))+((a3/((omega3)**2))*cos(omega3*tt))+((a4/((omega4)**2))*cos(omega4*tt))
  alls                                                                                                                                                                                                                          
  solve
*enddo

save
fini