{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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 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 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plo
t" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 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 13 "f:=t->exp(t);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"fGj+6#%\"tG6\"6$%)operatorG%&arrowGF(-%$
expG6#9$F(F(F(6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "#E
ingabe der Intervallgrenzen" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
16 "t1:=-Pi; t2:=Pi;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#t1G,$%#PiG!
\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#t2G%#PiG" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 9 "T:=t2-t1;" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%\"TG,$*&\"\"#\"\"\"%#PiGF(F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "omega:=2*Pi/T; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
&omegaG\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "#Eingabe v
on N" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "N:=4;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"NG\"\"%" }}}{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" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>&%\"cG6#!\"%,$*&#\"\"\"\"#MF+*(%#PiG!\"\",(^$F+F'F+-%$expG6#,$*&\"\"#
F+F.F+F+F/*&^#\"\"%F+F2F+F+F+-F36#,$F.F/F+F+F/" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"cG6#!\"$,$*&#\"\"\"\"#?F+*(%#PiG!\"\",(^$F+F'F+-%$
expG6#,$*&\"\"#F+F.F+F+F/*&^#\"\"$F+F2F+F+F+-F36#,$F.F/F+F+F+" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"cG6#!\"#,$*&#\"\"\"\"#5F+*(%#PiG!
\"\",(^$F+F'F+-%$expG6#,$*&\"\"#F+F.F+F+F/*&^#F7F+F2F+F+F+-F36#,$F.F/F
+F+F/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"cG6#!\"\",$*&#\"\"\"\"\"
%F+*(%#PiGF',(^$F+F'F+-%$expG6#,$*&\"\"#F+F.F+F+F'*&F1F+^#F+F+F+F+-F26
#,$F.F'F+F+F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"cG6#\"\"!,$*&#\"
\"\"\"\"#F+*(%#PiG!\"\",&F+F/-%$expG6#,$*&F,F+F.F+F+F+F+-F26#,$F.F/F+F
+F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"cG6#\"\"\",$*&#F'\"\"%F'*(
%#PiG!\"\",(^$F.F.F'-%$expG6#,$*&\"\"#F'F-F'F'F'*&F1F'^#F'F'F'F'-F26#,
$F-F.F'F'F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"cG6#\"\"#,$*&#\"\"
\"\"#5F+*(%#PiG!\"\",(^$F/!\"#F+-%$expG6#,$*&F'F+F.F+F+F+*&^#F'F+F3F+F
+F+-F46#,$F.F/F+F+F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"cG6#\"\"$
,$*&#\"\"\"\"#?F+*(%#PiG!\"\",(^$F/!\"$F+-%$expG6#,$*&\"\"#F+F.F+F+F+*
&^#F'F+F3F+F+F+-F46#,$F.F/F+F+F/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&
%\"cG6#\"\"%,$*&#\"\"\"\"#MF+*(%#PiG!\"\",(^$F/!\"%F+-%$expG6#,$*&\"\"
#F+F.F+F+F+*&^#F'F+F3F+F+F+-F46#,$F.F/F+F+F+" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 47 "##N-te Partialsumme 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);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>&%\"FG6#\"\"%,4
*&#\"\"\"\"#MF+**%#PiG!\"\",(^$F+!\"%F+-%$expG6#,$*&\"\"#F+F.F+F+F/*&^
#F'F+F3F+F+F+-F46#,$F.F/F+-F46#*&^#F2F+%\"tGF+F+F+F/*&#F+\"#?F+**F.F/,
(^$F+!\"$F+F3F/*&^#\"\"$F+F3F+F+F+F;F+-F46#*&^#FIF+FBF+F+F+F+*&#F+\"#5
F+**F.F/,(^$F+!\"#F+F3F/*&^#F8F+F3F+F+F+F;F+-F46#*&^#FWF+FBF+F+F+F/*&#
F+F'F+**F.F/,(^$F+F/F+F3F/*&F3F+^#F+F+F+F+F;F+-F46#*&^#F/F+FBF+F+F+F+*
&#F+F8F+*(F.F/,&F+F/F3F+F+F;F+F+F+*&#F+F'F+**F.F/,(^$F/F/F+F3F+F]oF+F+
F;F+-F46#*&FBF+F^oF+F+F+F/*&#F+FSF+**F.F/,(^$F/FWF+F3F+FXF+F+F;F+-F46#
*&FYF+FBF+F+F+F+*&#F+FEF+**F.F/,(^$F/FIF+F3F+FJF+F+F;F+-F46#*&FKF+FBF+
F+F+F/*&#F+F,F+**F.F/,(^$F/F2F+F3F+F9F+F+F;F+-F46#*&F:F+FBF+F+F+F+" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "plot(\{f(t),F[N]\},t=t1..t2
);" }}{PARA 13 "" 1 "" {GLPLOT2D 330 330 330 {PLOTDATA 2 "6&-%'CURVESG
6$7V7$$!3*****4tk#fTJ!#<$\"3DsY^`=R@V!#>7$$!3w\"*pr)3PY+$F*$\"3XSrRwNn
b\\F-7$$!3@3E[*ysa)GF*$\"36Ti5A)QGe&F-7$$!3fX&))>2g9v#F*$\"3c>a^.!fMQ'
F-7$$!3)4577.flh#F*$\"3ec8Nq1Q0tF-7$$!3v\"QM::*H#[#F*$\"3D'*)[%R34b$)F
-7$$!3y\\AhcI#yN#F*$\"3RC8>d%*fi%*F-7$$!3&e=d-FN*GAF*$\"3%fn\\#)zHk2\"
!#=7$$!3w%*GBP$Rc4#F*$\"3]*)=7ae\"*H7FQ7$$!3mCj&f)3xi>F*$\"3'[5Oae'o/9
FQ7$$!3'or4AN*4E=F*$\"3MmfUl]S5;FQ7$$!3QQQ*3**=dq\"F*$\"36^7d/uT;=FQ7$
$!3d!>jg@*>q:F*$\"3L,!HaSP+3#FQ7$$!3`;m,%)H7M9F*$\"31tk&f'GC$Q#FQ7$$!3
v(4F,K))HI\"F*$\"3MKkUkf=<FFQ7$$!3S*4!R#[0R=\"F*$\"3v%e.G2531$FQ7$$!3p
Y@QqWIU5F*$\"3-%*f<R4TENFQ7$$!3Wp3w$R)\\B#*FQ$\"3_wi[Zo$e(RFQ7$$!3EJc8
o39GyFQ$\"3=R9q.$y6d%FQ7$$!3'=[BP-8If'FQ$\"3Vn;![$e7s^FQ7$$!3CB3<@?)yB
&FQ$\"3$zJkTWEF#fFQ7$$!3`*)R<YoZZRFQ$\"3u))yJ0/]QnFQ7$$!38TqX=W2,EFQ$
\"3M&3$[quo4xFQ7$$!3qTJY)ocYO\"FQ$\"3]l?*[riVs)FQ7$$!38,z7VKJ,J!#?$\"3
83;h3\\.p**FQ7$$\"3:SFf3xEa8FQ$\"3RSAaV`-X6F*7$$\"3'R2()Hve,c#FQ$\"35%
*G1NKx\"H\"F*7$$\"3IcwR<TbiQFQ$\"3Sjr4^/Yr9F*7$$\"3*4*=Jof03_FQ$\"3akk
zJKQ$o\"F*7$$\"3p]1XIqOClFQ$\"3Zk$*eCT@?>F*7$$\"3%HoBlmlzz(FQ$\"3gd'Hk
_G5=#F*7$$\"3^u'f#4)z?@*FQ$\"3M;KS'RBB^#F*7$$\"39Hv<ECF[5F*$\"3'**G*ow
&=F&GF*7$$\"3Nlj%G%3%R=\"F*$\"3C2^-%[CsE$F*7$$\"3\\-)REfwoI\"F*$\"3SOE
E\")eh%p$F*7$$\"3cM2vQyFT9F*$\"3WlD1LE4EUF*7$$\"3z(32s$*Qxc\"F*$\"33\"
['*yL#z&z%F*7$$\"37+K?Bs#**p\"F*$\"3[/h')H!\\NZ&F*7$$\"3<#H$eMa;H=F*$
\"3H'H`EC'oGiF*7$$\"3%>>CZ'eYk>F*$\"31!3q#*f-68(F*7$$\"3kYuyfix%4#F*$
\"3z$>'o&=BO7)F*7$$\"3T4q))fu.GAF*$\"3?Q,1<Ej\"G*F*7$$\"3z?w'**=&>gBF*
$\"3W'4n,*=If5!#;7$$\"3!*>3a=Wj\"[#F*$\"3%=.++uzg>\"F\\y7$$\"3A?c*)yu
\"3i#F*$\"3,nt+%o&pu8F\\y7$$\"3,i-HnWIXFF*$\"3483&pNNpb\"F\\y7$$\"3Q!4
nV,p;\"GF*$\"3;Wu\"eNmPm\"F\\y7$$\"3v=RWhN.yGF*$\"3@S^i#pFzx\"F\\y7$$
\"3uX=#4!HbTHF*$\"33BNqcV_%*=F\\y7$$\"3ss(*RSA20IF*$\"3A,#)*3Wn(=?F\\y
7$$\"3/')[UXCLtIF*$\"3$HC[O'4Qh@F\\y7$$\"3!)***\\/l#fTJF*$\"3`FA,c#pSJ
#F\\y-%'COLOURG6&%$RGBG$\"#5!\"\"$\"\"!Fb\\lFa\\l-F$6$7[r7$$!+ZEfTJ!\"
*$\"+u@G!***Fi\\l7$$!+o[6tIFi\\l$\"+1!*Rl$)Fi\\l7$$!+)3PY+$Fi\\l$\"+_C
C(p'Fi\\l7$$!+Q\\0XHFi\\l$\"+i6Yh_Fi\\l7$$!+*ysa)GFi\\l$\"+#\\\"o$)QFi
\\l7$$!+IkY=GFi\\l$\"+w=P]CFi\\l7$$!+s+Y^FFi\\l$\"+5e9%=\"Fi\\l7$$!+_&
4So#Fi\\l$\"+@e\\W6!#57$$!+J!flh#Fi\\l$!+=7XasF__l7$$!+\"4H%\\DFi\\l$!
+[47A8Fi\\l7$$!+^\"*H#[#Fi\\l$!+iq8#o\"Fi\\l7$$!+S'RnY#Fi\\l$!+[%zIt\"
Fi\\l7$$!+G,=^CFi\\l$!+0OHs<Fi\\l7$$!+;1iNCFi\\l$!+fc2+=Fi\\l7$$!+/61?
CFi\\l$!+`1v;=Fi\\l7$$!+#f,XS#Fi\\l$!+I6nA=Fi\\l7$$!+!3U*)Q#Fi\\l$!+Lc
@==Fi\\l7$$!+oDQtBFi\\l$!+Bry.=Fi\\l7$$!+cI#yN#Fi\\l$!+S8\")z<Fi\\l7$$
!+j\"zLH#Fi\\l$!+8n!*)e\"Fi\\l7$$!+q_$*GAFi\\l$!+]Y2x7Fi\\l7$$!+P$Rc4#
Fi\\l$!+cI#[8%F__l7$$!+')3xi>Fi\\l$\"+f<$Rm%F__l7$$!+>^V%*=Fi\\l$\"+AB
MT$)F__l7$$!+_$*4E=Fi\\l$\"+xUc36Fi\\l7$$!+iU+'z\"Fi\\l$\"+Wf_&>\"Fi\\
l7$$!+s\"4fw\"Fi\\l$\"+:Ejg7Fi\\l7$$!+#39et\"Fi\\l$\"+YUg.8Fi\\l7$$!+
\"**=dq\"Fi\\l$\"+=.aC8Fi\\l7$$!+[!R=n\"Fi\\l$\"+ypLA8Fi\\l7$$!+/\"fzj
\"Fi\\l$\"+lm*RH\"Fi\\l7$$!+g\"zSg\"Fi\\l$\"+/`AT7Fi\\l7$$!+;#*>q:Fi\\
l$\"+)[%>m6Fi\\l7$$!++6;-:Fi\\l$\"+R%)Q!f*F__l7$$!+%)H7M9Fi\\l$\"+&4*3
vpF__l7$$!+?$))HI\"Fi\\l$\"+%3F!Q9F__l7$$!+,pWV7Fi\\l$!*,dKb)F__l7$$!+
#[0R=\"Fi\\l$!+Ra$ex#F__l7$$!+H_][6Fi\\l$!+0To&o$F__l7$$!+w\\586Fi\\l$
!+U*G_R%F__l7$$!+BZqx5Fi\\l$!+nS;))[F__l7$$!+qWIU5Fi\\l$!+Q%zN:&F__l7$
$!+7eJ75Fi\\l$!+HrE'>&F__l7$$!+X:FB)*F__l$!+Xrer]F__l7$$!+q\\QB&*F__l$
!+)z;Ay%F__l7$$!*R)\\B#*Fi\\l$!+hgcLVF__l7$$!+I'>e_)F__l$!+KDkAFF__l7$
$!*(39GyFi\\l$!*@xeY%F__l7$$!*-8If'Fi\\l$\"+uDvkXF__l7$$!*-#)yB&Fi\\l$
\"+%e/@,\"Fi\\l7$$!+I%zEf%F__l$\"+)eh/B\"Fi\\l7$$!*%oZZRFi\\l$\"+_dr)R
\"Fi\\l7$$!+Ni(3h$F__l$\"+_&HKY\"Fi\\l7$$!+IcFuKF__l$\"+g#=1^\"Fi\\l7$
$!+D]nPHF__l$\"+E%p/a\"Fi\\l7$$!*Uu5g#Fi\\l$\"+kmx_:Fi\\l7$$!+bb'G)>F_
_l$\"+EWGJ:Fi\\l7$$!*pcYO\"Fi\\l$\"+%H,\"e9Fi\\l7$$!++\"\\$yp!#6$\"+:w
pK8Fi\\l7$$!(885$Fi\\l$\"+)>ia<\"Fi\\l7$$\"*rnUN\"Fi\\l$\"+DGs[$)F__l7
$$\"+NK@d>F__l$\"+hrh&=(F__l7$$\"*we,c#Fi\\l$\"+:g'HU'F__l7$$\"++wv&)G
F__l$\"+&[T'>iF__l7$$\"+SkN6KF__l$\"+O%*)>='F__l7$$\"+!Gbp`$F__l$\"+0Y
_@jF__l7$$\"*7aD'QFi\\l$\"+XW[YmF__l7$$\"+X]INXF__l$\"+=Mu@zF__l7$$\"*
(f03_Fi\\l$\"+0>s)***F__l7$$\"*.nV_'Fi\\l$\"+G#peg\"Fi\\l7$$\"*nlzz(Fi
\\l$\"+%*\\I[BFi\\l7$$\"*\")z?@*Fi\\l$\"+izntJFi\\l7$$\"+ECF[5Fi\\l$\"
+UtpgPFi\\l7$$\"+Mm5;6Fi\\l$\"+m9*z(RFi\\l7$$\"+V3%R=\"Fi\\l$\"+O5\"37
%Fi\\l7$$\"+=(3aC\"Fi\\l$\"+qWm)=%Fi\\l7$$\"+$fwoI\"Fi\\l$\"+OQP1UFi\\
l7$$\"+;s2u8Fi\\l$\"+k\"=U=%Fi\\l7$$\"+RyFT9Fi\\l$\"+#*QgTTFi\\l7$$\"+
)Q3X]\"Fi\\l$\"+Xp23TFi\\l7$$\"+P*Qxc\"Fi\\l$\"+gcI2TFi\\l7$$\"+3gy+;F
i\\l$\"+%y&zGTFi\\l7$$\"+!3LQj\"Fi\\l$\"+Ie8qTFi\\l7$$\"+_,)om\"Fi\\l$
\"+[x#[B%Fi\\l7$$\"+Bs#**p\"Fi\\l$\"+578EVFi\\l7$$\"+Hjak<Fi\\l$\"+AGW
#f%Fi\\l7$$\"+Na;H=Fi\\l$\"+o;**))\\Fi\\l7$$\"+]c\"o*=Fi\\l$\"+/,$\\b&
Fi\\l7$$\"+leYk>Fi\\l$\"+yx0xiFi\\l7$$\"+i5iH?Fi\\l$\"+aG&>6(Fi\\l7$$
\"+gix%4#Fi\\l$\"+#H1c1)Fi\\l7$$\"+goSh@Fi\\l$\"+1AIN\"*Fi\\l7$$\"+gu.
GAFi\\l$\"+^SFE5!\")7$$\"+Dj6%H#Fi\\l$\"+$4J$R6Fjim7$$\"+!>&>gBFi\\l$
\"+)=A([7Fjim7$$\"+/[\"4U#Fi\\l$\"+1YiT8Fjim7$$\"+>Wj\"[#Fi\\l$\"+$y!>
B9Fjim7$$\"+\\fA^DFi\\l$\"+q!)*z\\\"Fjim7$$\"+zu\"3i#Fi\\l$\"+P8C[:Fji
m7$$\"+E#R>l#Fi\\l$\"+tZrh:Fjim7$$\"+t41$o#Fi\\l$\"+j;Cp:Fjim7$$\"+Y=i
)p#Fi\\l$\"+D,rq:Fjim7$$\"+?F=9FFi\\l$\"+L8iq:Fjim7$$\"+%fV(HFFi\\l$\"
+='f*o:Fjim7$$\"+nWIXFFi\\l$\"+GKrl:Fjim7$$\"+9!p;\"GFi\\l$\"+[8(R`\"F
jim7$$\"+iN.yGFi\\l$\"+I!*et9Fjim7$$\"+-HbTHFi\\l$\"+FgQ!R\"Fjim7$$\"+
TA20IFi\\l$\"+Nmz%G\"Fjim7$$\"+YCLtIFi\\l$\"+l[E]6Fjim7$$\"+]EfTJFi\\l
$\"+3CG!***Fi\\l-F[\\l6&F]\\lFa\\lF^\\lFa\\l-%+AXESLABELSG6$Q\"t6\"Q!F
[`n-%%VIEWG6$;$!+aEfTJFi\\l$\"+aEfTJFi\\l%(DEFAULTG" 1 2 0 1 10 0 2 9 
1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 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" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>&%\"cG6#%\"rG,$*&#\"\"\"\"\"#F+**%#PiG!\"\",&-%$expG6#*(^#F,F+F'F+F.F
+F/-F26#,$*&F,F+F.F+F+F+F+,&F+F/*&F'F+^#F+F+F+F/-F26#,&F.F/*(^#F/F+F'F
+F.F+F+F+F+F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "##Numerisc
he Berechnung der Fourier-Koeffizienten" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 5 "r:=3:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "c[r
];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&#\"\"\"\"#?F&*(%#PiG!\"\",(^
$F*!\"$F&-%$expG6#,$*&\"\"#F&F)F&F&F&*&^#\"\"$F&F.F&F&F&-F/6#,$F)F*F&F
&F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "evalf(c[r]);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#^$$!+7z2wO!#5$!+uL#G5\"!\"*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "#Diskretes Amplitudenspektru
m" }}}{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));" }}{PARA 13 "" 1 "" {GLPLOT2D 330 330 330 {PLOTDATA 2 "6--%'C
URVESG6%7$7$$!\"%\"\"!$F*F*7$F($\"3#*>0vO&)z:*)!#=-%'COLOURG6&%$RGBGF*
F*F*-%*THICKNESSG6#\"\"$-F$6%7$7$$!\"$F*F+7$F<$\"3!\\s,`!zZi6!#<F0F4-F
$6%7$7$$!\"#F*F+7$FF$\"3*ewO'>?*Rk\"FAF0F4-F$6%7$7$$!\"\"F*F+7$FO$\"3O
?if='z$*f#FAF0F4-F$6%7$7$F+F+7$F+$\"3Wx\\P5z2wOFAF0F4-F$6%7$7$$\"\"\"F
*F+7$FinFRF0F4-F$6%7$7$$\"\"#F*F+7$F`oFIF0F4-F$6%7$7$$F7F*F+7$FgoF?F0F
4-F$6%7$7$$\"\"%F*F+7$F]pF-F0F4-%+AXESLABELSG6%Q!6\"Fcp-%%FONTG6#%(DEF
AULTG-%%VIEWG6$FhpFhp" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve
 6" "Curve 7" "Curve 8" "Curve 9" }}}}{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,argume
nt(c[k])]],color=black,thickness=3):\nod:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 35 "plots[display](seq(Pc[k],k=-N..N));" }}{PARA 13 "" 
1 "" {GLPLOT2D 330 330 330 {PLOTDATA 2 "6--%'CURVESG6%7$7$$!\"%\"\"!$F
*F*7$F($!3bK!oOm<eK\"!#<-%'COLOURG6&%$RGBGF*F*F*-%*THICKNESSG6#\"\"$-F
$6%7$7$$!\"$F*F+7$F<$\"3oQ:>\")oa#*=F/F0F4-F$6%7$7$$!\"#F*F+7$FE$!3T!4
%z<([r5\"F/F0F4-F$6%7$7$$!\"\"F*F+7$FN$\"3$[M#>!\\%>cBF/F0F4-F$6%7$7$F
+F+FVF0F4-F$6%7$7$$\"\"\"F*F+7$Fen$!3$[M#>!\\%>cBF/F0F4-F$6%7$7$$\"\"#
F*F+7$F^o$\"3T!4%z<([r5\"F/F0F4-F$6%7$7$$F7F*F+7$Fgo$!3oQ:>\")oa#*=F/F
0F4-F$6%7$7$$\"\"%F*F+7$F_p$\"3bK!oOm<eK\"F/F0F4-%+AXESLABELSG6%Q!6\"F
gp-%%FONTG6#%(DEFAULTG-%%VIEWG6$F\\qF\\q" 1 2 0 1 10 0 2 9 1 4 2 
1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve \+
4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" }}}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "27" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }