Berechnung der Koeffizienten der Fourierreihenentwicklung

Remove["Global`*"]
Needs["Calculus`FourierTransform`"]
f=                   (* Funktion, die entwickelt werden soll *)
n=                  (* Ordnung des Koeffizienten, der bestimmt werden soll *)
start=              (* Startwert der Periode *)
ende=               (* Endwert der Periode *)
an=FourierCosSeriesCoefficient[f,{x,start,ende},n]
bn=FourierSinSeriesCoefficient[f,{x,start,ende},n]

(* Beispiel *)
FourierSinSeriesCoefficient[x+Sin[x],{x,0,Pi},2]
FourierCosSeriesCoefficient[x+Sin[x],{x,0,Pi},0]