K : $
K : #output "****************************************"
K : #output "** Program File Makro zum Auslesen    **"
K : #output "** der ersten 10 Eigenfrequenzen im   **"
K : #output "** I-deas Postprocessing Task         **"
K : #output "** (c) Dipl.-Ing. Daniel Zuber 2008   **"
K : #output "****************************************"
K : $ #open Datei "Ergebnis.dat"
K : #i=1
K : $ /ta po
K : #output "****************************************"
K : #output "** Eigenfrequenzen                    **"
K : #output "****************************************"
K : #loop:
K : $ /res se
K :  RE i;
K :  ATP
K :  ATD
K : OKAY
K : $
K : $ /rep o
K :  SC Y
K :  FS N
K :  D ON
K :  R OF
K : OKAY
K : *
K : #Frequenz=z_list(6)
K : #Nummer=i-1
K : #output "Eigenfrequenz Nr. " Nummer ": " Frequenz " Hz"
K : #write Datei Nummer " " Frequenz
K : #i=i+1
K : #if (i LE 11) then goto loop
K : #close Datei
K : $ /F PR E
E : **** END OF SESSION ****