restart: readlib(fourier): funktion:= ;# (* Funktion von t eingeben *) plot(funktion,t=-5..5); ff:=fourier(funktion,t,w); simplify("); plot(ff,w=0..4*Pi);
Beispiel:
Rechteckfunktion der Breite 1.
restart: readlib(fourier): funktion:=(Heaviside(1-t)+Heaviside(1+t))/2-0.5; plot(funktion,t=-5..5); `(* Darstellung der Funktion *)`: ff:=fourier(funktion,t,w); simplify("); plot(ff,w=0..4*Pi);`(* Darstellung der Fouriertransformierten *)`: