{VERSION 6 0 "IBM INTEL LINUX" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "##komplexe Fourier-K
oeffizienten bis N" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restar
t:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "#Eingabe der Funktion
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "f:=t-> ;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "#Eingabe der Intervallgrenzen" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "t1:= ; t2:= ;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "T:=t2-t1;" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 15 "omega:=2*Pi/T; " }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "#Eingabe von N" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 5 "N:= ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "for k from \+
-N to N do\n    c[k]:=1/T*int(f(t)*exp(-I*k*omega*t),t=t1..t2);\nod;\n
    \n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "##N-te Partialsum
me der komplexen Fourier-Reihe" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 41 "F[N]:=sum(c[l]*exp(I*l*omega*t),l=-N..N);" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 30 "plot(\{f(t),F[N]\},t=-T/2..T/2);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "##Allgemeine Form der Fourier-Koeff
izienten" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "c[r]:=1/T*int(f
(t)*exp(-I*r*omega*t),t=t1..t2);\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 49 "##Numerische Berechnung der Fourier-Koeffizienten" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "r:=3:" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 5 "c[r];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 12 "evalf(c[r]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "#Disk
retes Amplitudenspektrum" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 
"for k from -N to N do\nSc[k]:=plot([[k,0],[k,abs(c[k])]],color=black,
thickness=3):\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "plots
[display](seq(Sc[k],k=-N..N));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 25 "#Diskretes Phasenspektrum" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 90 "for k from -N to N do\nPc[k]:=plot([[k,0],[k,argument
(c[k])]],color=black,thickness=3):\nod:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 35 "plots[display](seq(Pc[k],k=-N..N));" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "20 0 0" 21 }{VIEWOPTS 1 1 0 
1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }