Anbei der überarbeitete Quellcode:
[code]
Dim Daten, Path, Ind, DataSet, Freq, PSD, res
Daten = PSD_Auswertung.Objects(“^.*\.fml$”).Names
Path = PSD_Auswertung.FullName : “\”
For Each Row i In Daten Do
DataSet = $Path : Daten[i]$
Ind = GlobalMaximum(DataSet, EVENT_INDEX)
Freq = DataSet[Ind].X
PSD = DataSet[Ind].Y
res := List(Daten[i], Signal(PSD, Freq))
End
res
[/code]
Hier eine kurze Erklärung der Korrekturen:
[code]
PSD_Auswertung.Objects(“^.*\.fml$”).Names
[/code]
Dieser Ausdruck findet alle Formeln im Ordner “PSD_Auswertung “. Details:
“^“: gibt an, dass der Objektname beliebig beginnt.
“.*“: steht für eine beliebig lange Folge von beliebigen Zeichen.
“\.fml$”: legt fest, dass der Objektname mit “.fml” enden muss, d. h. dass das Objekt eine Formel sein muss.
[code]
res := List(Daten[i], Signal(PSD, Freq))
[/code]
Dies erzeugt eine Liste als Resultat. Details:
“:“: Anhängeoperator zum Erweitern der Liste
“Daten[i]“: Einzelwert (Zeichenkette) als Name des Listenelements.
“Signal(PSD, Freq)“: Für die korrekte Syntax der List-Funktion ist hier ein Datensatzobjekt (statt zwei aufeinanderfolgende) erforderlich. Man kann hier z.B. die Signal-Funktion verwenden um PSD und Freq zu einem Signal zusammenzufassen.
