|
|
|
|
|
|
|
|
Es wird Äquidistanz der Daten vorausgesetzt. Die Daten müssen zeilenweise abgespeichert werden. Sie können mittels des Befehls ReadList[dateiname,Number] gelesen werden. Die Datei muß sich im Mathematica-Arbeitsverzeichnis befinden.
Remove["Global`*"] data=ReadList["Dateiname",Number]; ListPlot[data,PlotJoined->True] Fourier[data]; fd=N[%]; ListPlot[Abs[fd[[Range[1,50]]]],PlotRange->All,PlotJoined->True]
Beispiel
Daten eines Rechteckimpulses--
Realteil:225 Nullen, 50 Einsen, 225 Nullen
Imaginärteil: 500 Nullen.
data=Join[ Table[0,{225}],Table[1,{50}],Table[0,{225}]];
ListPlot[data,PlotJoined->True]
Fourier[data];
fd=N[%];
ListPlot[Abs[fd[[Range[1,50]]]],PlotRange->All,PlotJoined->True]
