! Aktuellen Prozess beenden
 finish

 ! Speicher leeren und Ansys neustarten
 /clear,start

 ! Eigene Parameter definieren
 MYE=210e9 !E-Modul Material

 LX1=11.3 !Länge in X-Richtung
 LX2=12.5	! m
 LNGY=50 !Länge in Y-Richtung

 !LASTF=100 !Last F
 !ALPHA=45 !Lastwinkel

 Afeld=0.06597*2 !Fläche des Stabes
 IYfeld=0.00434*2 !Trägheitsmoment des Stb.
 Hfeld=0.65 !Höhe des Stabes
 
 Ast=0.06597*2 !Fläche des Stabes
 IYst=0.00434*2 !Trägheitsmoment des Stb.
 Hst=0.65 !Höhe des Stabes

 ANZEL=20 !Anzahl der Elemente/Stab
 anzF=3		!Staranzahl der Felder
 anzFE=5	!Endanzahl der Felder
 anzEF=5	!Anzahl der zu bestimmenden Eigenfrequenzen
*dim,Frequenzen,,anzFE-anzF,anzEF	!*dim,Name,,zeilen,spalten
*cfopen,ergebnisse,txt	!Öffnen der Text datei
 !--------------------------------------------
j=1
 !*do,j,1,9	!Start der System veränderungsschleife
 ! Preprozessor starten
 /prep7

 ! Keypoints erzeugen
 k,10,0,0	!Endauflager
 
 k,20,LX1*0.85,0	!zwischen Knoten für beff
 k,22,LX1,0		!erste Stütze
 k,21,LX1+0.25*LX2,0	!zwischen Knoten für beff
 
 *do,i,1,anzf-2		!erzeigt die gewünschte anzahl an stützen
 k,20+i*10,LX1+LX2*i-LX2*0.25,0
 k,22+i*10,LX1+LX2*i,0
 k,21+i*10,LX1+LX2*i+LX2*0.25,0
 *enddo
 k,32+i*10,LX1*2+LX2*i,0	!Endauflager
 

 
! Elementtyp festlegen (Balkenelement)
 et,1,3
! Elementkonstanten im Feld
r,1,Afeld,Iyfeld,Hfeld,0
 	! Stab im Feld 
 	l,10,20,Anzel	!Endfeld
 	i=0
 	*do,i,1,anzf-2		!erzeugt die Stäbe in den mittleren Feldern
 	l,11+i*10,20+i*10,anzel
 	*enddo
 	l,21+i*10,32+i*10,anzel	!Endfeld

! Elementkonstanten über der Stütze
r,2,Ast,Iyst,Hst,0
 	! Linien über den Stützen 
 	i=0
 	*do,i,1,anzF-1
 	l,10+i*10,12+i*10,ANZEL
 	l,12+i*10,11+i*10,anzel
 	*enddo

! Materialeigenschaften deklarieren (E, nu)
 mp,ex,1,MYE
 mp,dens,1,3128.6*2	!masse [kg/m]

! Stäbe Vernetzen
 lmesh,all


 ! Verschiebungsrandbedingungen berüksichtigen
 dk,10,uy,0	!1. Auflager
 dk,10,ux,0	!1. Auflager
 i=0
 *do,i,1,anzf	!Stützen
 dk,12+i*10,uy,0
 *enddo

 ! Preprozessor beenden
 finish

 !--------------------------------------------

 ! Lösungsteil starten
 /solu
 antype,modal
 modopt,lanb,anzEF

! System lösen
 solve
! Lösungsteil beenden
 finish

! Postprocessing
 /post1
*do,i,1,5 !do,Laufwariable,von,bis,schrittweite
set,1,i
*get,FREQ%i%,active,,set,freq
frequenzen(j,i)=freq%i%
*enddo
!LX1=lx1+1 !Länge in X-Richtung
!LX2=lx2+1


!*enddo

*vwrite,frequenzen(j,1),frequenzen(j,2),frequenzen(j,3),frequenzen(j,4),frequenzen(j,5),
(f8.3,';',f8.3,';',f8.3,';',f8.3,';',f8.3)
*cfclos
/eof