{VERSION 4 0 "IBM INTEL LINUX22" "4.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 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 4 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 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 "Maple Plot" 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 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 19 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 8 8 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 26 "Kompleksilukuja (versio 6 )" }}{PARA 19 "" 0 "" {TEXT -1 16 "V2 kev\344t 2002 HA" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 30 "Kompleksilukupisteiden piirtoa" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "plots[setoptions](scaling=constrain ed):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "complexplot" }{TEXT -1 42 " \+ toimii aivan vastaavasti kuin tavallinen " }{MPLTEXT 1 0 4 "plot" } {TEXT -1 99 ". T\344ss\344 tapauksessa on kyse reaalimuuttujan (reaali sen parametrin) kompleksiarvoisesta funktiosta. " }{MPLTEXT 1 0 12 "co mplexplot " }{TEXT -1 242 "piirt\344\344 riitt\344v\344n tihe\344sti v alitun pistejoukon kuvan kompleksitasoon. Itse asiassa kyse on paramet rimuodossa annetun k\344yr\344n piirt\344misest\344, joka on sik\344li mukava k\344ytt\344\344, ett\344 ei tarvitse erikseen muodostaa paria [x,y], jossa x=Re(z), y=Im(z)." }}{PARA 0 "" 0 "" {TEXT -1 3 " " } {MPLTEXT 1 0 13 " complexplot:" }{TEXT -1 99 "lla voidaan (plot:n tavo in) piirt\344\344 my\366s valittuja pisteit\344 antamalla pisteiden li sta argumentiksi." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "comple xplot(exp(I*t),t=0..2*Pi,color=blue); # Lausekemuoto" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6#7S7$$\"\"\"\"\"! $F*F*7$$\"+uBO1**!#5$\"+#=y_O\"F/7$$\"+*4-Qn*F/$\"+f*)GLDF/7$$\"+zke[# *F/$\"+C.6.QF/7$$\"+>42`')F/$\"+R4U7]F/7$$\"+L?D/zF/$\"+qceDhF/7$$\"+p Td#3(F/$\"++FafqF/7$$\"+ZdX;hF/$\"+\\!>8\"zF/7$$\"+a:x5]F/$\"+Sh-a')F/ 7$$\"+Z'R,#QF/$\"+5bcT#*F/7$$\"+ziQDDF/$\"+M\"oen*F/7$$\"+?o8X8F/$\"+k t64**F/7$$!+'pr5(f!#8$\"+<#)******F/7$$!+eB[i8F/$\"+)GZn!**F/7$$!+\\@= YEF/$\"+]D`V'*F/7$$!+I*3Jx$F/$\"+Ol'3E*F/7$$!+r_JU]F/$\"+v]oN')F/7$$!+ s%*[RgF/$\"+U+BqzF/7$$!+WjJ*3(F/$\"+j?x_qF/7$$!+1U?/zF/$\"+%QZc7'F/7$$ !+QnIf')F/$\"+8/k,]F/7$$!+si$4B*F/$\"+AHvXQF/7$$!+4Nij'*F/$\"+GQ%=d#F/ 7$$!+>+.2**F/$\"+4]Ug8F/7$$!+4>&*****F/$\"+='485$!#77$$!+>!Q%3**F/$!+^ =8]8F/7$$!+oa1u'*F/$!+FIGKDF/7$$!+;AEj#*F/$!+HNAnPF/7$$!+Lh=u')F/$!+') 3zv\\F/7$$!+vx1YzF/$!+lUCrgF/7$$!+Sfc5rF/$!+5yMJqF/7$$!+Pke[gF/$!+$eGL 'zF/7$$!+@%)o!*\\F/$!+5Mil')F/7$$!+%[\"ysPF/$!+R***4E*F/7$$!+$el'3EF/$ !+&p[Pl*F/7$$!+!ym:H\"F/$!+#*>C;**F/7$$!+@OQdIF`s$!+iK&*****F/7$$\"+]K s(G\"F/$!+Y=u;**F/7$$\"+O8/bDF/$!+K'z!o'*F/7$$\"+#Q)zNQF/$!+%>x]B*F/7$ $\"+r0I.]F/$!+9wMe')F/7$$\"+#R]$4hF/$!+)H2o\"zF/7$$\"+&Q+$*4(F/$!+i?sU qF/7$$\"+)Qy,!zF/$!+g&Q38'F/7$$\"+8vLu')F/$!+yp_v\\F/7$$\"+\\4+D#*F/$! +)eo*fQF/7$$\"+o))oa'*F/$!+XQ=0EF/7$$\"+Nb&p!**F/$!+8t'4O\"F/7$F($\"+J _8/#)!#>-%'COLOURG6&%$RGBGF+F+$\"*++++\"!\")-%+AXESLABELSG6$Q!6\"Fb[l- %(SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$%(DEFAULTGF[\\l" 1 2 0 1 10 0 2 6 1 4 1 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "ympyra:=%: # Talletetaan kuva muuttujaan. (H uom: kaksoispiste!!)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "com plexplot([1+I,-1+I,-1-I,1-I],style=point,symbol=circle); #Pistepiirto " }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6(-%'CURVESG6$ 7&7$$\"\"\"\"\"!F(7$$!\"\"F*F(7$F,F,7$F(F,-%'COLOURG6&%$RGBG$\"#5F-$F* F*F6-%'SYMBOLG6#%'CIRCLEG-%&STYLEG6#%&POINTG-%+AXESLABELSG6$Q!6\"FB-%( SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$%(DEFAULTGFK" 1 5 4 1 10 0 2 9 1 4 1 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "pisteet:=%: # Talletetaan pisteet (taas se : )" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "display(ympyra,pisteet); \+ # Yhdistet\344\344n grafiikat." }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6$7S7$$\"\"\"\"\"!$F*F*7$$\"+uBO1**!#5$\" +#=y_O\"F/7$$\"+*4-Qn*F/$\"+f*)GLDF/7$$\"+zke[#*F/$\"+C.6.QF/7$$\"+>42 `')F/$\"+R4U7]F/7$$\"+L?D/zF/$\"+qceDhF/7$$\"+pTd#3(F/$\"++FafqF/7$$\" +ZdX;hF/$\"+\\!>8\"zF/7$$\"+a:x5]F/$\"+Sh-a')F/7$$\"+Z'R,#QF/$\"+5bcT# *F/7$$\"+ziQDDF/$\"+M\"oen*F/7$$\"+?o8X8F/$\"+kt64**F/7$$!+'pr5(f!#8$ \"+<#)******F/7$$!+eB[i8F/$\"+)GZn!**F/7$$!+\\@=YEF/$\"+]D`V'*F/7$$!+I *3Jx$F/$\"+Ol'3E*F/7$$!+r_JU]F/$\"+v]oN')F/7$$!+s%*[RgF/$\"+U+BqzF/7$$ !+WjJ*3(F/$\"+j?x_qF/7$$!+1U?/zF/$\"+%QZc7'F/7$$!+QnIf')F/$\"+8/k,]F/7 $$!+si$4B*F/$\"+AHvXQF/7$$!+4Nij'*F/$\"+GQ%=d#F/7$$!+>+.2**F/$\"+4]Ug8 F/7$$!+4>&*****F/$\"+='485$!#77$$!+>!Q%3**F/$!+^=8]8F/7$$!+oa1u'*F/$!+ FIGKDF/7$$!+;AEj#*F/$!+HNAnPF/7$$!+Lh=u')F/$!+')3zv\\F/7$$!+vx1YzF/$!+ lUCrgF/7$$!+Sfc5rF/$!+5yMJqF/7$$!+Pke[gF/$!+$eGL'zF/7$$!+@%)o!*\\F/$!+ 5Mil')F/7$$!+%[\"ysPF/$!+R***4E*F/7$$!+$el'3EF/$!+&p[Pl*F/7$$!+!ym:H\" F/$!+#*>C;**F/7$$!+@OQdIF`s$!+iK&*****F/7$$\"+]Ks(G\"F/$!+Y=u;**F/7$$ \"+O8/bDF/$!+K'z!o'*F/7$$\"+#Q)zNQF/$!+%>x]B*F/7$$\"+r0I.]F/$!+9wMe')F /7$$\"+#R]$4hF/$!+)H2o\"zF/7$$\"+&Q+$*4(F/$!+i?sUqF/7$$\"+)Qy,!zF/$!+g &Q38'F/7$$\"+8vLu')F/$!+yp_v\\F/7$$\"+\\4+D#*F/$!+)eo*fQF/7$$\"+o))oa' *F/$!+XQ=0EF/7$$\"+Nb&p!**F/$!+8t'4O\"F/7$F($\"+J_8/#)!#>-%'COLOURG6&% $RGBGF+F+$\"*++++\"!\")-F$6&7&7$F(F(7$$!\"\"F*F(7$Fd[lFd[l7$F(Fd[l-Fiz 6&F[[l$\"#5Fe[lF+F+-%'SYMBOLG6#%'CIRCLEG-%&STYLEG6#%&POINTG-%+AXESLABE LSG6$Q!6\"Fg\\l-%(SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$%(DEFAULTGF`]l" 1 2 0 1 10 0 2 9 1 4 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "omega:=exp(I*k*2*Pi/ n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&omegaG-%$expG6#*&*(^#\"\"#\" \"\"%\"kGF,%#PiGF,F,%\"nG!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "n:=6:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "karjet:=seq (omega,k=0..n-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'karjetG6(\"\" \",&#F&\"\"#F&*&^#F(F&-%%sqrtG6#\"\"$F&F&,&#!\"\"F)F&F*F&F2,&F1F&*&^#F 1F&F,F&F&,&F(F&F4F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "comp lexplot([karjet]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 13 " " 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7(7$$\"\"\"\" \"!$F*F*7$$\"3++++++++]!#=$\"3(fQWy.a-m)F/7$$!3++++++++]F/F07$$!\"\"F* F+7$F3$!3(fQWy.a-m)F/7$F-F9-%'COLOURG6&%$RGBG$\"#5F7F+F+-%+AXESLABELSG 6$Q!6\"FE-%(SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$%(DEFAULTGFN" 1 2 0 1 10 0 2 9 1 4 1 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 88 "Loppupiste pit\344\344 viel\344 yhdist \344\344 alkupisteeseen, siksi lis\344t\344\344n listan loppuun alkupi ste:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "complexplot([karjet ,1]);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURV ESG6$7)7$$\"\"\"\"\"!$F*F*7$$\"3++++++++]!#=$\"3(fQWy.a-m)F/7$$!3+++++ +++]F/F07$$!\"\"F*F+7$F3$!3(fQWy.a-m)F/7$F-F9F'-%'COLOURG6&%$RGBG$\"#5 F7F+F+-%+AXESLABELSG6$Q!6\"FE-%(SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$%(DE FAULTGFN" 1 2 0 1 10 0 2 9 1 4 1 1.000000 45.000000 45.000000 0 0 "Cur ve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "nkulmio:=%:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 114 "complexplot([karjet],style= point,symbol=circle,symbolsize=14,axes=frame);# Piirret\344\344n pelk \344t pisteet (style=point)" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%'CURVESG6$7(7$$\"\"\"\"\"!$F*F*7$$\"3++++++++]!#=$\"3 (fQWy.a-m)F/7$$!3++++++++]F/F07$$!\"\"F*F+7$F3$!3(fQWy.a-m)F/7$F-F9-%' COLOURG6&%$RGBG$\"#5F7F+F+-%'SYMBOLG6$%'CIRCLEG\"#9-%&STYLEG6#%&POINTG -%*AXESSTYLEG6#%&FRAMEG-%+AXESLABELSG6$Q!6\"FR-%(SCALINGG6#%,CONSTRAIN EDG-%%VIEWG6$%(DEFAULTGFen" 1 5 4 1 14 0 2 9 1 3 1 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 " npisteet:=%:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "display(ymp yra,nkulmio,npisteet);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%'CURVESG6$7S7$$\"\"\"\"\"!$F*F*7$$\"+uBO1**!#5$\"+#=y _O\"F/7$$\"+*4-Qn*F/$\"+f*)GLDF/7$$\"+zke[#*F/$\"+C.6.QF/7$$\"+>42`')F /$\"+R4U7]F/7$$\"+L?D/zF/$\"+qceDhF/7$$\"+pTd#3(F/$\"++FafqF/7$$\"+ZdX ;hF/$\"+\\!>8\"zF/7$$\"+a:x5]F/$\"+Sh-a')F/7$$\"+Z'R,#QF/$\"+5bcT#*F/7 $$\"+ziQDDF/$\"+M\"oen*F/7$$\"+?o8X8F/$\"+kt64**F/7$$!+'pr5(f!#8$\"+<# )******F/7$$!+eB[i8F/$\"+)GZn!**F/7$$!+\\@=YEF/$\"+]D`V'*F/7$$!+I*3Jx$ F/$\"+Ol'3E*F/7$$!+r_JU]F/$\"+v]oN')F/7$$!+s%*[RgF/$\"+U+BqzF/7$$!+WjJ *3(F/$\"+j?x_qF/7$$!+1U?/zF/$\"+%QZc7'F/7$$!+QnIf')F/$\"+8/k,]F/7$$!+s i$4B*F/$\"+AHvXQF/7$$!+4Nij'*F/$\"+GQ%=d#F/7$$!+>+.2**F/$\"+4]Ug8F/7$$ !+4>&*****F/$\"+='485$!#77$$!+>!Q%3**F/$!+^=8]8F/7$$!+oa1u'*F/$!+FIGKD F/7$$!+;AEj#*F/$!+HNAnPF/7$$!+Lh=u')F/$!+')3zv\\F/7$$!+vx1YzF/$!+lUCrg F/7$$!+Sfc5rF/$!+5yMJqF/7$$!+Pke[gF/$!+$eGL'zF/7$$!+@%)o!*\\F/$!+5Mil' )F/7$$!+%[\"ysPF/$!+R***4E*F/7$$!+$el'3EF/$!+&p[Pl*F/7$$!+!ym:H\"F/$!+ #*>C;**F/7$$!+@OQdIF`s$!+iK&*****F/7$$\"+]Ks(G\"F/$!+Y=u;**F/7$$\"+O8/ bDF/$!+K'z!o'*F/7$$\"+#Q)zNQF/$!+%>x]B*F/7$$\"+r0I.]F/$!+9wMe')F/7$$\" +#R]$4hF/$!+)H2o\"zF/7$$\"+&Q+$*4(F/$!+i?sUqF/7$$\"+)Qy,!zF/$!+g&Q38'F /7$$\"+8vLu')F/$!+yp_v\\F/7$$\"+\\4+D#*F/$!+)eo*fQF/7$$\"+o))oa'*F/$!+ XQ=0EF/7$$\"+Nb&p!**F/$!+8t'4O\"F/7$F($\"+J_8/#)!#>-%'COLOURG6&%$RGBGF +F+$\"*++++\"!\")-F$6$7)F'7$$\"3++++++++]!#=$\"3(fQWy.a-m)Fe[l7$$!3+++ +++++]Fe[lFf[l7$$!\"\"F*F+7$Fi[l$!3(fQWy.a-m)Fe[l7$Fc[lF_\\lF'-Fiz6&F[ [l$\"#5F]\\lF+F+-F$6&7(F'Fb[lFh[lF[\\lF^\\lFa\\lFb\\l-%'SYMBOLG6$%'CIR CLEG\"#9-%&STYLEG6#%&POINTG-%*AXESSTYLEG6#%&FRAMEG-%+AXESLABELSG6$Q!6 \"Fi]l-%(SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$%(DEFAULTGFb^l" 1 2 0 1 10 0 2 9 1 3 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curv e 3" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "display(%,complexpl ot([0],style=point,symbol=cross));# Lis\344t\344\344n edelliseen keski piste." }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6*-%'CUR VESG6$7S7$$\"\"\"\"\"!$F*F*7$$\"+uBO1**!#5$\"+#=y_O\"F/7$$\"+*4-Qn*F/$ \"+f*)GLDF/7$$\"+zke[#*F/$\"+C.6.QF/7$$\"+>42`')F/$\"+R4U7]F/7$$\"+L?D /zF/$\"+qceDhF/7$$\"+pTd#3(F/$\"++FafqF/7$$\"+ZdX;hF/$\"+\\!>8\"zF/7$$ \"+a:x5]F/$\"+Sh-a')F/7$$\"+Z'R,#QF/$\"+5bcT#*F/7$$\"+ziQDDF/$\"+M\"oe n*F/7$$\"+?o8X8F/$\"+kt64**F/7$$!+'pr5(f!#8$\"+<#)******F/7$$!+eB[i8F/ $\"+)GZn!**F/7$$!+\\@=YEF/$\"+]D`V'*F/7$$!+I*3Jx$F/$\"+Ol'3E*F/7$$!+r_ JU]F/$\"+v]oN')F/7$$!+s%*[RgF/$\"+U+BqzF/7$$!+WjJ*3(F/$\"+j?x_qF/7$$!+ 1U?/zF/$\"+%QZc7'F/7$$!+QnIf')F/$\"+8/k,]F/7$$!+si$4B*F/$\"+AHvXQF/7$$ !+4Nij'*F/$\"+GQ%=d#F/7$$!+>+.2**F/$\"+4]Ug8F/7$$!+4>&*****F/$\"+='485 $!#77$$!+>!Q%3**F/$!+^=8]8F/7$$!+oa1u'*F/$!+FIGKDF/7$$!+;AEj#*F/$!+HNA nPF/7$$!+Lh=u')F/$!+')3zv\\F/7$$!+vx1YzF/$!+lUCrgF/7$$!+Sfc5rF/$!+5yMJ qF/7$$!+Pke[gF/$!+$eGL'zF/7$$!+@%)o!*\\F/$!+5Mil')F/7$$!+%[\"ysPF/$!+R ***4E*F/7$$!+$el'3EF/$!+&p[Pl*F/7$$!+!ym:H\"F/$!+#*>C;**F/7$$!+@OQdIF` s$!+iK&*****F/7$$\"+]Ks(G\"F/$!+Y=u;**F/7$$\"+O8/bDF/$!+K'z!o'*F/7$$\" +#Q)zNQF/$!+%>x]B*F/7$$\"+r0I.]F/$!+9wMe')F/7$$\"+#R]$4hF/$!+)H2o\"zF/ 7$$\"+&Q+$*4(F/$!+i?sUqF/7$$\"+)Qy,!zF/$!+g&Q38'F/7$$\"+8vLu')F/$!+yp_ v\\F/7$$\"+\\4+D#*F/$!+)eo*fQF/7$$\"+o))oa'*F/$!+XQ=0EF/7$$\"+Nb&p!**F /$!+8t'4O\"F/7$F($\"+J_8/#)!#>-%'COLOURG6&%$RGBGF+F+$\"*++++\"!\")-F$6 $7)F'7$$\"3++++++++]!#=$\"3(fQWy.a-m)Fe[l7$$!3++++++++]Fe[lFf[l7$$!\" \"F*F+7$Fi[l$!3(fQWy.a-m)Fe[l7$Fc[lF_\\lF'-Fiz6&F[[l$\"#5F]\\lF+F+-F$6 &7(F'Fb[lFh[lF[\\lF^\\lFa\\lFb\\l-%'SYMBOLG6$%'CIRCLEG\"#9-%&STYLEG6#% &POINTG-F$6&7#7$F+F+Fb\\l-Fj\\l6#%&CROSSGF^]l-%*AXESSTYLEG6#%&FRAMEG-% +AXESLABELSG6$Q!6\"F`^l-%(SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$%(DEFAULTG Fi^l" 1 2 0 1 10 0 2 9 1 3 1 1.000000 45.000000 45.000000 0 0 "Curve 1 " "Curve 2" "Curve 3" "Curve 4" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "sade:=(z,vari)-> complexplot([0,z],scaling=constrained,color=vari);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%%sadeGR6$%\"zG%%variG6\"6$%)operatorG%&arrowGF)-%,c omplexplotG6%7$\"\"!9$/%(scalingG%,constrainedG/%&colorG9%F)F)F)" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "display([sade(exp(I*Pi/4),blue),sad e(exp(I*Pi/2),green)],axes=frame);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6(-%'CURVESG6$7$7$$\"\"!F)F(7$$\"3tva'=\"y1rq!#=F +-%'COLOURG6&%$RGBGF(F($\"*++++\"!\")-F$6$7$F'7$F($\"\"\"F)-F/6&F1F(F2 F(-%*AXESSTYLEG6#%&FRAMEG-%+AXESLABELSG6$Q!6\"FD-%(SCALINGG6#%,CONSTRA INEDG-%%VIEWG6$%(DEFAULTGFM" 1 2 0 1 10 0 2 9 1 3 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "omega:=exp(I*Pi/4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&omegaG,&*$-%%sqrtG6#\"\"#\"\"\"#F+F**&^#F,F+F'F+F+" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "display([seq(sade(omega^k,re d),k=0..10)],axes=frame,insequence=false);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "61-%'CURVESG6$7$7$$\"\"!F)F(7$$\"\" \"F)F(-%'COLOURG6&%$RGBG$\"*++++\"!\")F(F(-F$6$7$F'7$$\"3tva'=\"y1rq!# =F8F--F$6$7$F'7$F($\"+&*********!#5F--F$6$7$F'7$$!+1y1rqFA$\"+1y1rqFAF --F$6$7$F'7$$!+*)********FAF(F--F$6$7$F'7$$!+.y1rqFAFTF--F$6$7$F'7$F($ !+%)********FAF--F$6$7$F'7$$\"+*zn52(FA$!+*zn52(FAF--F$6$7$F'7$$\"+z** ******FA$!\"!F)F--F$6$7$F'7$$\"+&zn52(FAFjoF--F$6$7$F'7$F($\"+u******* *FAF--%*AXESSTYLEG6#%&FRAMEG-%+AXESLABELSG6$Q!6\"Fip-%(SCALINGG6#%,CON STRAINEDG-%%VIEWG6$%(DEFAULTGFbq" 1 2 0 1 10 0 2 9 1 3 1 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" "Curve 10" "Curve 11" }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "display([seq(sade(omega^k,bl ue),k=0..10)],axes=frame,style=point,symbol=circle);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "63-%'CURVESG6$7$7$$\"\"!F)F(7$$ \"\"\"F)F(-%'COLOURG6&%$RGBGF(F($\"*++++\"!\")-F$6$7$F'7$$\"3tva'=\"y1 rq!#=F8F--F$6$7$F'7$F($\"+&*********!#5F--F$6$7$F'7$$!+1y1rqFA$\"+1y1r qFAF--F$6$7$F'7$$!+*)********FAF(F--F$6$7$F'7$$!+.y1rqFAFTF--F$6$7$F'7 $F($!+%)********FAF--F$6$7$F'7$$\"+*zn52(FA$!+*zn52(FAF--F$6$7$F'7$$\" +z********FA$!\"!F)F--F$6$7$F'7$$\"+&zn52(FAFjoF--F$6$7$F'7$F($\"+u*** *****FAF--%'SYMBOLG6#%'CIRCLEG-%&STYLEG6#%&POINTG-%*AXESSTYLEG6#%&FRAM EG-%+AXESLABELSG6$Q!6\"Faq-%(SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$%(DEFAU LTGFjq" 1 5 4 1 10 0 2 9 1 3 1 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" "Curve 10" "Curve 11" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "display(%,%%);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6<-%'CURVESG6&7$7$$\"\"!F)F(7$$\"\"\"F)F(-%'COLOURG6& %$RGBGF(F($\"*++++\"!\")-%'SYMBOLG6#%'CIRCLEG-%&STYLEG6#%&POINTG-F$6&7 $F'7$$\"3tva'=\"y1rq!#=F@F-F4F8-F$6&7$F'7$F($\"+&*********!#5F-F4F8-F$ 6&7$F'7$$!+1y1rqFI$\"+1y1rqFIF-F4F8-F$6&7$F'7$$!+*)********FIF(F-F4F8- F$6&7$F'7$$!+.y1rqFIFfnF-F4F8-F$6&7$F'7$F($!+%)********FIF-F4F8-F$6&7$ F'7$$\"+*zn52(FI$!+*zn52(FIF-F4F8-F$6&7$F'7$$\"+z********FI$!\"!F)F-F4 F8-F$6&7$F'7$$\"+&zn52(FIFbpF-F4F8-F$6&7$F'7$F($\"+u********FIF-F4F8-F $6$F&-F.6&F0F1F(F(-F$6$F>F\\q-F$6$FEF\\q-F$6$FLF\\q-F$6$FTF\\q-F$6$FZF \\q-F$6$FjnF\\q-F$6$F`oF\\q-F$6$FhoF\\q-F$6$F`pF\\q-F$6$FfpF\\q-%*AXES STYLEG6#%&FRAMEG-%+AXESLABELSG6$Q!6\"Fir-%(SCALINGG6#%,CONSTRAINEDG-%% VIEWG6$%(DEFAULTGFbs" 1 2 0 1 10 0 2 9 1 3 1 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" "Curve 10" "Curve 11" "Curve 12" "Cu rve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 17" "Curve 18" "Curve \+ 19" "Curve 20" "Curve 21" "Curve 22" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "complexplot([seq(omega^k,k=0..10)],axes=frame,style= line,symbol=circle,scaling=constrained,color=green);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6*-%'CURVESG6#7-7$$\"\"\"\"\"!$F *F*7$$\"+5y1rq!#5F-7$F+$\"+&*********F/7$$!+1y1rqF/$\"+1y1rqF/7$$!+*)* *******F/F+7$$!+.y1rqF/F<7$F+$!+%)********F/7$$\"+*zn52(F/$!+*zn52(F/7 $$\"+z********F/$!\"!F*7$$\"+&zn52(F/FL7$F+$\"+u********F/-%'SYMBOLG6# %'CIRCLEG-%&STYLEG6#%%LINEG-%'COLOURG6&%$RGBGF+$\"*++++\"!\")F+-%*AXES STYLEG6#%&FRAMEG-%+AXESLABELSG6$Q!6\"Fao-%(SCALINGG6#%,CONSTRAINEDG-%% VIEWG6$%(DEFAULTGFjo" 1 6 4 1 10 0 2 6 1 3 1 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 0 "" }}}{SECT 1 {PARA 3 "" 0 " " {TEXT -1 0 "" }}}}{MARK "1 30 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }