|
|
|
|
|
|
|
|
Die in eine Fourierreihe zu entwickelnde Funktion muß nicht von vornherein periodisch sein. Im zweiten Parameter des Kommandos FourierTrigTransform wird eine Liste mit der Variablen, dem Start- und dem Endwert der Periode angegeben. Der dritte Parameter enthält die gewünschte Ordnung der Näherung.
Remove["Global`*"]
Needs["Calculus`FourierTransform`"]
f= (* periodische Funktion z.B. Sägezahn *)
n= (* Ordnung der Näherung *)
start= (* Startwert der Periode *)
ende= (* Endwert der Periode *)
g=FourierTrigSeries[f,{x,start,ende},n]
Plot[{f,g},{x,-Pi,2 Pi},PlotStyle->{{RGBColor[1,0,0]},{RGBColor[0,1,0]}}]
(* Beispiel *)
f1=x+Sin[x]
g1=FourierTrigSeries[f1,{x,0,Pi},4]
Plot[{f1,g1},{x,-Pi,2 Pi},PlotStyle->{{RGBColor[1,0,0]},{RGBColor[0,1,0]}}]
Achtung! Werden Sie nicht ungeduldig. Auch wenn man es nicht sieht,
Mathematica rechnet.
