{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {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 -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 }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 }1 0 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 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {TEXT -1 2 " " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 1 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with (plot s):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "plot(cos(theta),thet a=0..2*Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%*ploarplotG6$-%$cosG6 #%&thetaG/F);\"\"!,$%#PiG\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "plot([1,t,t=0..2*Pi],coords=polar,scaling = constrained);" }} {PARA 13 "" 1 "" {GLPLOT2D 657 411 411 {PLOTDATA 2 "6%-%'CURVESG6$7S7$ $\"\"\"\"\"!F*7$$\"1#4hRPij!**!#;$\"1kwb#=y_O\"F.7$$\"18J#))4-Qn*F.$\" 1D\\ff*)GLDF.7$$\"1N5')yke[#*F.$\"1Mj&[K5J!QF.7$$\"1goz=42`')F.$\"1:NX R4U7]F.7$$\"1b](G._U!zF.$\"1`H-qceDhF.7$$\"1]$R'oTd#3(F.$\"1jB*3qU&fqF .7$$\"1H$>jubk6'F.$\"1:7_\\!>8\"zF.7$$\"1GuIc:x5]F.$\"1$>p(Qh-a')F.7$$ \"1C3nW'R,#QF.$\"1L+16bcT#*F.7$$\"1n9AwiQDDF.$\"1'Q\"[M\"oen*F.7$$\"1B ^hAo8X8F.$\"1)fVPO<\"4**F.7$$!1qB/u(p5(f!#>$\"08;t@)******!#:7$$!1)\\T #fB[i8F.$\"1q%>wGZn!**F.7$$!1crN]@=YEF.$\"1A>=\\D`V'*F.7$$!1zV1J*3Jx$F .$\"1zF#e`m3E*F.7$$!1(\\AOF:B/&F.$\"1V'yI2&oN')F.7$$!1igNw%*[RgF.$\"1j \")RQ+BqzF.7$$!1XUwYjJ*3(F.$\"1fvOg?x_qF.7$$!1#e_b?/U!zF.$\"14HvXQF.7$$ !12RS4Nij'*F.$\"1%p9m#Q%=d#F.7$$!1xpT>+.2**F.$\"1V?00]Ug8F.7$$!1gKG4>& *****F.$\"1DA\\O%485$!#=7$$!1`Is=!Q%3**F.$!1$4*>c=8]8F.7$$!1_NDna1u'*F .$!1NbFGIGKDF.7$$!1_J.8AEj#*F.$!15&=j`Bsw$F.7$$!1v#)4Kh=u')F.$!1FNX')3 zv\\F.7$$!1B*z7xng%zF.$!1W(H!pUCrgF.7$$!1D84Pfc5rF.$!1?#o?\"yMJqF.7$$! 1Wy6Ike[gF.$!1Jw!yeGL'zF.7$$!1AUD=%)o!*\\F.$!1_Mh6Mil')F.7$$!1,1s\"[\" ysPF.$!10`8S***4E*F.7$$!1yCH\"el'3EF.$!1V>(fp[Pl*F.7$$!177Cvnc\"H\"F.$ !1$RoI*>C;**F.7$$!1zyOHMQdIF`s$!11O#>E`*****F.7$$\"1IAj`Ks(G\"F.$!1ZZ3 X=u;**F.7$$\"1KRqX8/bDF.$!1$[o%H'z!o'*F.7$$\"1%)yb&Q)zNQF.$!1.2<#>x]B* F.7$$\"17w4w0I.]F.$!1Igb5wMe')F.7$$\"1\\#)[*R]$4hF.$!1a*[=H2o\"zF.7$$ \"1/wY'Q+$*4(F.$!1r&)eg?sUqF.7$$\"1f=s$Ry,!zF.$!11$H2ndo*fQF.7$$\"1mGAp))oa'*F .$!1g]nRQ=0EF.7$$\"1zb'f`bp!**F.$!1up91t'4O\"F.7$F($\"1YKhSr8/#)!#D-%' COLOURG6&%$RGBG$\"#5!\"\"F*F*-%(SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$%(DE FAULTGFf[l" 1 2 0 1 0 2 9 1 4 1 1.000000 45.000000 45.000000 0 }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "coordlist:=[seq([cos(2*Pi*j/ (24)),sin(2*Pi*j/(24))],j=0..24)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "plots[pointplot](coordlist, style=line, scaling=const rained,color=blue);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6#7;7$$\"\"\"\"\"!F*7$$\"+j#e#f'*!#5$\"+]/>)e #F.7$$\"+SSDg')F.$\"+++++]F.7$$\"+5y1rqF.F77$F4F27$F/F,7$F*F(7$$!+]/>) e#F.F,7$$!+++++]F.F27$$!+5y1rqF.F77$$!+SSDg')F.F47$$!+j#e#f'*F.F/7$$! \"\"F*F*7$FIF=7$FFF@7$FCFC7$F@FF7$F=FI7$F*FL7$F/FI7$F4FF7$F7FC7$F2F@7$ F,F=F'-%(SCALINGG6#%,CONSTRAINEDG-%&STYLEG6#%%LINEG-%'COLOURG6&%$RGBGF *F*$\"*++++\"!\")" 1 6 0 1 0 2 6 1 4 1 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "for k from 1 to 3" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 98 " coordlist[k]:=[seq([cos(2*Pi*j/(6*2^(k-1))),sin (2*Pi*j/(6*2^(k-1)))],j=0..6*2^(k-1))] od; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%*coordlistG6#\"\"\"7)7$F'\"\"!7$#F'\"\"#,$*$-%%sqrtG 6#\"\"$\"\"\"F,7$#!\"\"F-F.7$F7F*7$F6,$F/F67$F,F:F)" }}{PARA 12 "" 1 " " {XPPMATH 20 "6#>&%*coordlistG6#\"\"#7/7$\"\"\"\"\"!7$,$*$-%%sqrtG6# \"\"$\"\"\"#F*F'F47$F4F-7$F+F*7$#!\"\"F'F-7$,$F.F8F47$F9F+7$F;F87$F8F; 7$F+F97$F4F;7$F-F8F)" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>&%*coordlistG 6#\"\"$7;7$\"\"\"\"\"!7$,$*&-%%sqrtG6#\"\"'\"\"\",&F*F**$-F06#F'F3#F*F 'F*#F*\"\"%,$*&F/F3,&F*F*F5#!\"\"F'F*F97$,$F5#F*\"\"#FB7$,$*$-F06#FCF3 FBFE7$FBFA7$F;F-7$F+F*7$,$F<#F?F:F-7$#F?FCFA7$,$FFFPFE7$,$F5FPFB7$,$F. FNF;7$F?F+7$FVFM7$FTFP7$FRFR7$FPFT7$FMFV7$F+F?7$F;FV7$FBFT7$FEFR7$FAFP 7$F-FMF)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "for k from 1 to 3" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 81 " \+ plots[pointplot](coordlist[k], style=line, scaling=constrained,col or=blue)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " od;" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6#7)7$$\"\"\"\"\"!F*7$$\"+++++]!#5$\"+SSDg')F .7$$!+++++]F.F/7$$!\"\"F*F*7$F2$!+SSDg')F.7$F,F8F'-%(SCALINGG6#%,CONST RAINEDG-%&STYLEG6#%%LINEG-%'COLOURG6&%$RGBGF*F*$\"*++++\"!\")" 1 6 0 1 0 2 6 1 4 1 1.000000 45.000000 45.000000 0 }}}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6#7/7$$\"\"\"\"\"!F*7$$ \"+SSDg')!#5$\"+++++]F.7$F/F,7$F*F(7$$!+++++]F.F,7$$!+SSDg')F.F/7$$!\" \"F*F*7$F7F47$F4F77$F*F:7$F/F77$F,F4F'-%(SCALINGG6#%,CONSTRAINEDG-%&ST YLEG6#%%LINEG-%'COLOURG6&%$RGBGF*F*$\"*++++\"!\")" 1 6 0 1 0 2 6 1 4 1 1.000000 45.000000 45.000000 0 }}}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6#7;7$$\"\"\"\"\"!F*7$$\"+j#e#f'*!#5$ \"+]/>)e#F.7$$\"+SSDg')F.$\"+++++]F.7$$\"+5y1rqF.F77$F4F27$F/F,7$F*F(7 $$!+]/>)e#F.F,7$$!+++++]F.F27$$!+5y1rqF.F77$$!+SSDg')F.F47$$!+j#e#f'*F .F/7$$!\"\"F*F*7$FIF=7$FFF@7$FCFC7$F@FF7$F=FI7$F*FL7$F/FI7$F4FF7$F7FC7 $F2F@7$F,F=F'-%(SCALINGG6#%,CONSTRAINEDG-%&STYLEG6#%%LINEG-%'COLOURG6& %$RGBGF*F*$\"*++++\"!\")" 1 6 0 1 0 2 6 1 4 1 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "graph0:= plo t([1,t,t=0..2*Pi],coords=polar,scaling = constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "graph1:= plots[pointplot](coordlist [1], style=line, scaling=constrained,color=blue):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 85 "graph2 :=plots[pointplot](coordlist[2], styl e=line, scaling=constrained,color=black):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 85 "graph3 :=plots[pointplot](coordlist[3], style=line, scaling=constrained,color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "display(\{graph0,graph1,graph2,graph3\});" }}{PARA 13 "" 1 "" {GLPLOT2D 269 236 236 {PLOTDATA 2 "6(-%'CURVESG6%7/7$$\"\" \"\"\"!F*7$$\"+SSDg')!#5$\"+++++]F.7$F/F,7$F*F(7$$!+++++]F.F,7$$!+SSDg ')F.F/7$$!\"\"F*F*7$F7F47$F4F77$F*F:7$F/F77$F,F4F'-%'COLOURG6&%$RGBGF* F*F*-%&STYLEG6#%%LINEG-F$6%7;F'7$$\"+j#e#f'*F.$\"+]/>)e#F.F+7$$\"+5y1r qF.FRF17$FOFMF27$$!+]/>)e#F.FMF37$$!+5y1rqF.FRF67$$!+j#e#f'*F.FOF97$Ff nFVF<7$FYFYF=7$FVFfnF>7$FOFfnF?7$FRFYF@7$FMFVF'-FB6&FDF*$\"*++++\"!\") F*FE-F$6$7SF'7$$\"1#4hRPij!**!#;$\"1kwb#=y_O\"Fio7$$\"18J#))4-Qn*Fio$ \"1D\\ff*)GLDFio7$$\"1N5')yke[#*Fio$\"1Mj&[K5J!QFio7$$\"1goz=42`')Fio$ \"1:NXR4U7]Fio7$$\"1b](G._U!zFio$\"1`H-qceDhFio7$$\"1]$R'oTd#3(Fio$\"1 jB*3qU&fqFio7$$\"1H$>jubk6'Fio$\"1:7_\\!>8\"zFio7$$\"1GuIc:x5]Fio$\"1$ >p(Qh-a')Fio7$$\"1C3nW'R,#QFio$\"1L+16bcT#*Fio7$$\"1n9AwiQDDFio$\"1'Q \"[M\"oen*Fio7$$\"1B^hAo8X8Fio$\"1)fVPO<\"4**Fio7$$!1qB/u(p5(f!#>$\"08 ;t@)******!#:7$$!1)\\T#fB[i8Fio$\"1q%>wGZn!**Fio7$$!1crN]@=YEFio$\"1A> =\\D`V'*Fio7$$!1zV1J*3Jx$Fio$\"1zF#e`m3E*Fio7$$!1(\\AOF:B/&Fio$\"1V'yI 2&oN')Fio7$$!1igNw%*[RgFio$\"1j\")RQ+BqzFio7$$!1XUwYjJ*3(Fio$\"1fvOg?x _qFio7$$!1#e_b?/U!zFio$\"14HvXQFio7$$!12RS4Nij'*Fio$\"1%p9m#Q%=d#Fi o7$$!1xpT>+.2**Fio$\"1V?00]Ug8Fio7$$!1gKG4>&*****Fio$\"1DA\\O%485$!#=7 $$!1`Is=!Q%3**Fio$!1$4*>c=8]8Fio7$$!1_NDna1u'*Fio$!1NbFGIGKDFio7$$!1_J .8AEj#*Fio$!15&=j`Bsw$Fio7$$!1v#)4Kh=u')Fio$!1FNX')3zv\\Fio7$$!1B*z7xn g%zFio$!1W(H!pUCrgFio7$$!1D84Pfc5rFio$!1?#o?\"yMJqFio7$$!1Wy6Ike[gFio$ !1Jw!yeGL'zFio7$$!1AUD=%)o!*\\Fio$!1_Mh6Mil')Fio7$$!1,1s\"[\"ysPFio$!1 0`8S***4E*Fio7$$!1yCH\"el'3EFio$!1V>(fp[Pl*Fio7$$!177Cvnc\"H\"Fio$!1$R oI*>C;**Fio7$$!1zyOHMQdIFaw$!11O#>E`*****Fio7$$\"1IAj`Ks(G\"Fio$!1ZZ3X =u;**Fio7$$\"1KRqX8/bDFio$!1$[o%H'z!o'*Fio7$$\"1%)yb&Q)zNQFio$!1.2<#>x ]B*Fio7$$\"17w4w0I.]Fio$!1Igb5wMe')Fio7$$\"1\\#)[*R]$4hFio$!1a*[=H2o\" zFio7$$\"1/wY'Q+$*4(Fio$!1r&)eg?sUqFio7$$\"1f=s$Ry,!zFio$!11$H2ndo*fQFio7$ $\"1mGAp))oa'*Fio$!1g]nRQ=0EFio7$$\"1zb'f`bp!**Fio$!1up91t'4O\"Fio7$F( $\"1YKhSr8/#)!#D-FB6&FD$\"#5F;F*F*-F$6%7)F'F1F3F9F=F?F'-FB6&FDF*F*F`oF E-%(SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$%(DEFAULTGFi_l" 1 2 0 1 0 2 9 1 1 1 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "k:='k':for k from 1 to 3" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 143 " o utercoordlist[k]:=[seq([sec(2*Pi/(6*2^(k)))*cos(2*Pi*j/(6*2^(k-1))),se c(2*Pi/(6*2^(k)))*sin(2*Pi*j/(6*2^(k-1)))],j=0..6*2^(k-1))] od: " }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "for k from 1 to 3" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 86 " plots[pointplot](outercoordlist[k], style=line, scaling=con strained,color=blue)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " od;" }} {PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6#7)7$ $\"+R0qa6!\"*\"\"!7$$\"+$p-Nx&!#5$\"\"\"F+7$$!+$p-Nx&F/F07$$!+R0qa6F*F +7$F3$!\"\"F+7$F-F9F'-%(SCALINGG6#%,CONSTRAINEDG-%&STYLEG6#%%LINEG-%'C OLOURG6&%$RGBGF+F+$\"*++++\"!\")" 1 6 0 1 0 2 6 1 4 1 1.000000 45.000000 45.000000 0 }}}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6#7/7$$\"+!=w_.\"!\"*\"\"!7$$\"+?Zvl*)!#5$\"+ +4Qw^F/7$F0F-7$F+F(7$$!++4Qw^F/F-7$$!+?Zvl*)F/F07$$!+!=w_.\"F*F+7$F8F5 7$F5F87$F+F;7$F0F87$F-F5F'-%(SCALINGG6#%,CONSTRAINEDG-%&STYLEG6#%%LINE G-%'COLOURG6&%$RGBGF+F+$\"*++++\"!\")" 1 6 0 1 0 2 6 1 4 1 1.000000 45.000000 45.000000 0 }}}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6#7;7$$\"+h*G'35!\"*\"\"!7$$\"+BwgU(*!#5$\"+X Q_5EF/7$$\"+NI)\\t)F/$\"+0[9V]F/7$$\"+!y$3KrF/F87$F5F37$F0F-7$F+F(7$$! +XQ_5EF/F-7$$!+0[9V]F/F37$$!+!y$3KrF/F87$$!+NI)\\t)F/F57$$!+BwgU(*F/F0 7$$!+h*G'35F*F+7$FJF>7$FGFA7$FDFD7$FAFG7$F>FJ7$F+FM7$F0FJ7$F5FG7$F8FD7 $F3FA7$F-F>F'-%(SCALINGG6#%,CONSTRAINEDG-%&STYLEG6#%%LINEG-%'COLOURG6& %$RGBGF+F+$\"*++++\"!\")" 1 6 0 1 0 2 6 1 4 1 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "graph4:=plot s[pointplot](outercoordlist[1], style=line, scaling=constrained,color= blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "graph5:=plots[poi ntplot](outercoordlist[2], style=line, scaling=constrained,color=black ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "display(\{graph0, gra ph4, graph5\});" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6$7S7$$\"\"\"\"\"!F*7$$\"1#4hRPij!**!#;$\"1kwb#=y_O\"F.7$ $\"18J#))4-Qn*F.$\"1D\\ff*)GLDF.7$$\"1N5')yke[#*F.$\"1Mj&[K5J!QF.7$$\" 1goz=42`')F.$\"1:NXR4U7]F.7$$\"1b](G._U!zF.$\"1`H-qceDhF.7$$\"1]$R'oTd #3(F.$\"1jB*3qU&fqF.7$$\"1H$>jubk6'F.$\"1:7_\\!>8\"zF.7$$\"1GuIc:x5]F. $\"1$>p(Qh-a')F.7$$\"1C3nW'R,#QF.$\"1L+16bcT#*F.7$$\"1n9AwiQDDF.$\"1'Q \"[M\"oen*F.7$$\"1B^hAo8X8F.$\"1)fVPO<\"4**F.7$$!1qB/u(p5(f!#>$\"08;t@ )******!#:7$$!1)\\T#fB[i8F.$\"1q%>wGZn!**F.7$$!1crN]@=YEF.$\"1A>=\\D`V '*F.7$$!1zV1J*3Jx$F.$\"1zF#e`m3E*F.7$$!1(\\AOF:B/&F.$\"1V'yI2&oN')F.7$ $!1igNw%*[RgF.$\"1j\")RQ+BqzF.7$$!1XUwYjJ*3(F.$\"1fvOg?x_qF.7$$!1#e_b? /U!zF.$\"14HvXQF.7$$!12RS4Nij'*F.$\"1%p9m#Q%=d#F.7$$!1xpT>+.2**F.$\"1V? 00]Ug8F.7$$!1gKG4>&*****F.$\"1DA\\O%485$!#=7$$!1`Is=!Q%3**F.$!1$4*>c=8 ]8F.7$$!1_NDna1u'*F.$!1NbFGIGKDF.7$$!1_J.8AEj#*F.$!15&=j`Bsw$F.7$$!1v# )4Kh=u')F.$!1FNX')3zv\\F.7$$!1B*z7xng%zF.$!1W(H!pUCrgF.7$$!1D84Pfc5rF. $!1?#o?\"yMJqF.7$$!1Wy6Ike[gF.$!1Jw!yeGL'zF.7$$!1AUD=%)o!*\\F.$!1_Mh6M il')F.7$$!1,1s\"[\"ysPF.$!10`8S***4E*F.7$$!1yCH\"el'3EF.$!1V>(fp[Pl*F. 7$$!177Cvnc\"H\"F.$!1$RoI*>C;**F.7$$!1zyOHMQdIF`s$!11O#>E`*****F.7$$\" 1IAj`Ks(G\"F.$!1ZZ3X=u;**F.7$$\"1KRqX8/bDF.$!1$[o%H'z!o'*F.7$$\"1%)yb& Q)zNQF.$!1.2<#>x]B*F.7$$\"17w4w0I.]F.$!1Igb5wMe')F.7$$\"1\\#)[*R]$4hF. $!1a*[=H2o\"zF.7$$\"1/wY'Q+$*4(F.$!1r&)eg?sUqF.7$$\"1f=s$Ry,!zF.$!11$H 2ndo*fQF .7$$\"1mGAp))oa'*F.$!1g]nRQ=0EF.7$$\"1zb'f`bp!**F.$!1up91t'4O\"F.7$F($ \"1YKhSr8/#)!#D-%'COLOURG6&%$RGBG$\"#5!\"\"F*F*-F$6%7)7$$\"+R0qa6!\"*F *7$$\"+$p-Nx&!#5F(7$$!+$p-Nx&Fi[lF(7$$!+R0qa6Fe[lF*7$F[\\l$F^[lF*7$Fg[ lFa\\lFb[l-Fiz6&F[[lF*F*$\"*++++\"!\")-%&STYLEG6#%%LINEG-F$6%7/7$$\"+! =w_.\"Fe[lF*7$$\"+?Zvl*)Fi[l$\"++4Qw^Fi[l7$Fe]lFc]l7$F*F`]l7$$!++4Qw^F i[lFc]l7$$!+?Zvl*)Fi[lFe]l7$$!+!=w_.\"Fe[lF*7$F]^lFj]l7$Fj]lF]^l7$F*F` ^l7$Fe]lF]^l7$Fc]lFj]lF_]l-Fiz6&F[[lF*F*F*Fh\\l-%(SCALINGG6#%,CONSTRAI NEDG-%%VIEWG6$%(DEFAULTGF`_l" 1 2 0 1 0 2 9 1 1 1 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "display(\{gr aph0,graph1, graph2, graph4, graph5\});" }}{PARA 13 "" 1 "" {GLPLOT2D 573 387 387 {PLOTDATA 2 "6)-%'CURVESG6%7/7$$\"\"\"\"\"!F*7$$ \"+SSDg')!#5$\"+++++]F.7$F/F,7$F*F(7$$!+++++]F.F,7$$!+SSDg')F.F/7$$!\" \"F*F*7$F7F47$F4F77$F*F:7$F/F77$F,F4F'-%'COLOURG6&%$RGBGF*F*F*-%&STYLE G6#%%LINEG-F$6$7SF'7$$\"1#4hRPij!**!#;$\"1kwb#=y_O\"FO7$$\"18J#))4-Qn* FO$\"1D\\ff*)GLDFO7$$\"1N5')yke[#*FO$\"1Mj&[K5J!QFO7$$\"1goz=42`')FO$ \"1:NXR4U7]FO7$$\"1b](G._U!zFO$\"1`H-qceDhFO7$$\"1]$R'oTd#3(FO$\"1jB*3 qU&fqFO7$$\"1H$>jubk6'FO$\"1:7_\\!>8\"zFO7$$\"1GuIc:x5]FO$\"1$>p(Qh-a' )FO7$$\"1C3nW'R,#QFO$\"1L+16bcT#*FO7$$\"1n9AwiQDDFO$\"1'Q\"[M\"oen*FO7 $$\"1B^hAo8X8FO$\"1)fVPO<\"4**FO7$$!1qB/u(p5(f!#>$\"08;t@)******!#:7$$ !1)\\T#fB[i8FO$\"1q%>wGZn!**FO7$$!1crN]@=YEFO$\"1A>=\\D`V'*FO7$$!1zV1J *3Jx$FO$\"1zF#e`m3E*FO7$$!1(\\AOF:B/&FO$\"1V'yI2&oN')FO7$$!1igNw%*[RgF O$\"1j\")RQ+BqzFO7$$!1XUwYjJ*3(FO$\"1fvOg?x_qFO7$$!1#e_b?/U!zFO$\"14HvX QFO7$$!12RS4Nij'*FO$\"1%p9m#Q%=d#FO7$$!1xpT>+.2**FO$\"1V?00]Ug8FO7$$!1 gKG4>&*****FO$\"1DA\\O%485$!#=7$$!1`Is=!Q%3**FO$!1$4*>c=8]8FO7$$!1_NDn a1u'*FO$!1NbFGIGKDFO7$$!1_J.8AEj#*FO$!15&=j`Bsw$FO7$$!1v#)4Kh=u')FO$!1 FNX')3zv\\FO7$$!1B*z7xng%zFO$!1W(H!pUCrgFO7$$!1D84Pfc5rFO$!1?#o?\"yMJq FO7$$!1Wy6Ike[gFO$!1Jw!yeGL'zFO7$$!1AUD=%)o!*\\FO$!1_Mh6Mil')FO7$$!1,1 s\"[\"ysPFO$!10`8S***4E*FO7$$!1yCH\"el'3EFO$!1V>(fp[Pl*FO7$$!177Cvnc\" H\"FO$!1$RoI*>C;**FO7$$!1zyOHMQdIFau$!11O#>E`*****FO7$$\"1IAj`Ks(G\"FO $!1ZZ3X=u;**FO7$$\"1KRqX8/bDFO$!1$[o%H'z!o'*FO7$$\"1%)yb&Q)zNQFO$!1.2< #>x]B*FO7$$\"17w4w0I.]FO$!1Igb5wMe')FO7$$\"1\\#)[*R]$4hFO$!1a*[=H2o\"z FO7$$\"1/wY'Q+$*4(FO$!1r&)eg?sUqFO7$$\"1f=s$Ry,!zFO$!11$H2ndo*fQFO7$$\"1mGAp)) oa'*FO$!1g]nRQ=0EFO7$$\"1zb'f`bp!**FO$!1up91t'4O\"FO7$F($\"1YKhSr8/#)! #D-FB6&FD$\"#5F;F*F*-F$6%7)F'F1F3F9F=F?F'-FB6&FDF*F*$\"*++++\"!\")FE-F $6%7)7$$\"+R0qa6!\"*F*7$$\"+$p-Nx&F.F(7$$!+$p-Nx&F.F(7$$!+R0qa6F[^lF*7 $F`^lF:7$F]^lF:Fh]lF`]lFE-F$6%7/7$$\"+!=w_.\"F[^lF*7$$\"+?Zvl*)F.$\"++ 4Qw^F.7$F`_lF^_l7$F*F[_l7$$!++4Qw^F.F^_l7$$!+?Zvl*)F.F`_l7$$!+!=w_.\"F [^lF*7$Fh_lFe_l7$Fe_lFh_l7$F*F[`l7$F`_lFh_l7$F^_lFe_lFj^lFAFE-%(SCALIN GG6#%,CONSTRAINEDG-%%VIEWG6$%(DEFAULTGFi`l" 1 2 0 1 0 2 9 1 1 1 1.000000 45.000000 44.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "19 1 0" 2 }{VIEWOPTS 1 1 0 1 1 1803 }