{VERSION 4 0 "IBM INTEL NT" "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 "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 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 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "restart;with(linalg) :" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm an d trace have been redefined and unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 203 "h:=0.08; n:=200;\n\nx[0]:=1:\ny[0]:=0 :\n\nfor i from 0 to n do\n x[i+1]:=x[i]-h*y[i];\n y[i+1]:=y[i]+h* x[i];\n od:\n\nplot([seq([x[j],y[j]], j=0..n)],-2..2,-2..2, style=po int, scaling=constrained);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG$ \"\")!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"$+#" }}{PARA 13 " " 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6$7ew7$$\"\"\"\" \"!$F*F*7$F($\"3=+++++++!)!#>7$$\"3R++++++O**!#=$\"3-+++++++;F37$$\"30 ++++++3)*F3$\"31+++++)[R#F37$$\"3*)*******f4kh*F3$\"37+++++_zJF37$$\"3 [********z/i$*F3$\"3;+++oF$)[RF37$$\"3/+++z89Y!*F3$\"3)******zg'z(p%F3 7$$\"35+++]wJq')F3$\"3u*****z\"z[@aF37$$\"3^+++<')fO#)F3$\"3Y+++IL6:hF 37$$\"39+++^&*QZxF3$\"3!*******=7/unF37$$\"3H+++aiY0sF3$\"3o*****HQKQR (F37$$\"3r*****HmfRh'F3$\"3s*****Hop-(zF37$$\"3a+++)3Qj(fF3$\"3')***** fX'Q*\\)F37$$\"3'******><(Q'H&F3$\"3E+++.N\\x*)F37$$\"3u*****>p(=yXF3$ \"3G+++xW?,%*F37$$\"3B+++M84EQF3$\"3=+++#\\fuw*F37$$\"3&)*****\\d%pWIF 3$\"3&*******zYN25!#<7$$\"3*)*****4$3\")QAF3$\"3.+++PArJ5Ffp7$$\"31+++ T5W89F3$\"3++++CFi\\5Ffp7$$\"3w*****zhGut&F/$\"3!******>DI41\"Ffp7$$!3 3+++)R8+v#F/$\"3%******\\>?b1\"Ffp7$$!3'******f\\F3$\"3!******R%3Ia5Ffp7$$!3>+++=V^@GF3$\"3'****** \\Dw%Q5Ffp7$$!3%)*****>K&H_OF3$\"3'*******RT!f,\"Ffp7$$!3w*****Rj=]Y%F 3$\"3k*****Rxdo')*F37$$!3))*****fDnVD&F3$\"3x*****HGc'4&*F37$$!3)***** **e(R^,'F3$\"3Y*****>!pI*3*F37$$!3q*****4J%GUnF3$\"3w*****4s&43')F37$$ !3v******o>$4V(F3$\"3#)*****f(Hro!)F37$$!3++++2!Hk2)F3$\"3))*****zTQUZ (F37$$!3/+++!3oVn)F3$\"37+++(4C\"GoF37$$!3)******z+=1A*F3$\"3[*****4lu T8'F37$$!3L+++!)>N6(*F3$\"3]+++5__'R&F37$$!33++++uI95Ffp$\"3<+++_qh>YF 37$$!3-+++OVE^5Ffp$\"3,+++K6<3QF37$$!35+++0(H<3\"Ffp$\"3A+++j'fr'HF37$ $!3/+++#)pY06Ffp$\"3*)******)*ex,@F37$$!3'*******)=\"GA6Ffp$\"3,+++8BS <7F37$$!3/+++3/-K6Ffp$\"3;+++=Ox&>$F/7$$!3'******p-xX8\"Ffp$!3!******f k*QgeF/7$$!35+++:()))H6Ffp$!3%******fe+P\\\"F37$$!3-+++5\"Rz6\"Ffp$!39 +++e:h(R#F37$$!3%******z@e()4\"Ffp$!3++++YG'>H$F37$$!3'******\\^AC2\"F fp$!3E+++?%p4<%F37$$!3(*******fZ0R5Ffp$!3Y+++Ku!*G]F37$$!3;+++0]B))**F 3$!3)*******R7:geF37$$!3=+++1HU>&*F3$!3%)******R+@fmF37$$!3/+++.ho')*) F3$!3@+++sQw?uF37$$!3/+++$*\\-$R)F3$!3O+++g()pR\")F37$$!3[+++#4\\=u(F3 $!3:+++f296))F37$$!3G+++Jy&p.(F3$!3M+++'o)[I%*F37$$!35+++O(=DG'F3$!3'* *****>JXM***F37$$!3'******46VI[&F3$!3#******4o/'\\5Ffp7$$!3*******fOfL k%F3$!3%******f-pM4\"Ffp7$$!3;+++XTeoPF3$!34+++,fhI6Ffp7$$!3%)*****RU \"4kGF3$!35+++uXwg6Ffp7$$!3'******\\wza$>F3$!3++++0tn$=\"Ffp7$$!3U+++5 #z`))*F/$!3)******H9h\"*>\"Ffp7$$!36+++g1!4#H!#?$!3*******fWpq?\"Ffp7$ $\"3]*****>]lWO*F/$!3,+++=JI27Ffp7$$\"3!******\\/*G->F3$!3/+++Y:\")*> \"Ffp7$$\"3?+++#GQ@'GF3$!3/+++MKf%=\"Ffp7$$\"3$*******oG\")4QF3$!3++++ Ghph6Ffp7$$\"3D+++r(p\"RZF3$!3!******\\i<78\"Ffp7$$\"3D+++rQ9WcF3$!3%* *****pE/L4\"Ffp7$$\"3\\*****\\G(y=lF3$!35+++;6:[5Ffp7$$\"3[+++y\"3tN(F 3$!3S+++x\"3+'**F37$$\"3#******>$)3T:)F3$!3!)*****H_B9P*F37$$\"3O+++9F #Q!*)F3$!3O+++;[4>()F37$$\"3#*******)H]8g*F3$!3j******)**)y1!)F37$$\"3 *)*****>M*=C5Ffp$!3I+++v4oQsF37$$\"33+++!z)4#3\"Ffp$!3b*****4]H$>kF37$ $\"3*******fU`M8\"Ffp$!3#*******o/l`bF37$$\"3/+++IE)y<\"Ffp$!3#)*****z s()ok%F37$$\"3++++Kx0:7Ffp$!38+++C;e/PF37$$\"32+++&Q%pW7Ffp$!3)******z VNDt#F37$$\"3%******zmalE\"Ffp$!3.+++I*znt\"F37$$\"3-+++2*[/G\"Ffp$!3@ +++g>ONsF/7$$\"3%******p>PiG\"Ffp$\"3&********HH#3IF/7$$\"3)******RhIQ G\"Ffp$\"3'******zo7)H8F37$$\"3/+++7@>t7Ffp$\"35+++zr(oN#F37$$\"3!**** **\\4PVD\"Ffp$\"37+++p3VvLF37$$\"36+++[OLF7Ffp$\"39+++X0!*yVF37$$\"31+ ++WCI#>\"Ffp$\"3=+++juwg`F37$$\"31+++/jT\\6Ffp$\"33+++=%4YJ'F37$$\"3/+ ++H%**))4\"Ffp$\"3Z+++hC9MsF37$$\"3%*******)GE5/\"Ffp$\"3J+++/?E8\")F3 7$$\"3q******H>?h(*F3$\"3!)*****\\.$3Y*)F37$$\"3'******pG:b/*F3$\"39++ +*=zps*F37$$\"35+++_pNn#)F3$\"3++++T?1X5Ffp7$$\"33+++>tIJuF3$\"3-+++(* 3?66Ffp7$$\"3w*****4gYBa'F3$\"3-+++c8lq6Ffp7$$\"3M+++;b#eg&F3$\"3/+++H ,*HA\"Ffp7$$\"3++++8MVFYF3$\"3++++Ln$yE\"Ffp7$$\"3%)*****p-kJh$F3$\"3 \"********>c[I\"Ffp7$$\"3')*****p1z#pDF3$\"3#******>^hPL\"Ffp7$$\"35++ +d)pA]\"F3$\"31+++XdJa8Ffp7$$\"3C+++5E<)=%F/$\"3)******R!RLm8Ffp7$$!3] ******>')\\UnF/$\"31+++UWop8Ffp7$$!35+++;u**pODL+&F3$\"3#******Hv1dH\"Ffp7$$!3\"******Rw!*)RgF3$\"3))**** **\\,ob7Ffp7$$!3S+++%)[VWqF3$\"3*)*****R-ht?\"Ffp7$$!3j*****HqB.,)F3$ \"33+++Xb+^6Ffp7$$!3p******Q\"G6$*)F3$\"3#******\\&H#p3\"Ffp7$$!3`**** *H]m1!)*F3$\"3(*******HRZ:5Ffp7$$!3#******\\c/81\"Ffp$\"3u******zfoq$* F37$$!31+++`+FO6Ffp$\"3x*****zKU;_)F37$$!30+++#>VW?\"Ffp$\"3Y+++'GEEh( F37$$!33+++-UMl7Ffp$\"3M+++K<2\\mF37$$!3(******fxO&=8Ffp$\"36+++qjzOcF 37$$!3)******p9JOO\"Ffp$\"3y******[p'>e%F37$$!3$******H)oG+9Ffp$\"37++ +J?1\"\\$F37$$!31+++z`@G9Ffp$\"33+++DD$3P#F37$$!33+++R?=Z9Ffp$\"3'**** **>Ag#G7F37$$!35+++@\"3qX\"Ffp$\"3)********4f90(F\\^l7$$!3-+++QAdd9Ffp $!3++++1>4&4\"F37$$!3%******H]6)[9Ffp$!3#******fp\\6E#F37$$!3(******\\ IA2V\"Ffp$!3w*****z*))>?MF37$$!3&******RrgLS\"Ffp$!3;+++UnxkXF37$$!3'* *******\\UoO\"Ffp$!3q*****HJluo&F37$$!3++++yFM@8Ffp$!3_*****HJR4y'F37$ $!3%******RE&4n7Ffp$!3?+++NN,QyF37$$!3-+++c6R/7Ffp$!3#******fu*o^))F37 $$!3++++QwdL6Ffp$!3b*****4n-_\")*F37$$!31+++L:M7Ffp7$ $!3g*****fc$=!y(F3$!3/+++pLH/8Ffp7$$!33+++r)[nt'F3$!3)******z$[`m8Ffp7 $$!3J+++,5_VcF3$!3++++H)G/U\"Ffp7$$!3))*****z$z<2XF3$!3))*****p*pdl9Ff p7$$!3<+++SjrMLF3$!3.+++?Wj,:Ffp7$$!3))*****R!)3M8#F3$!3&******4:7$G:F fp7$$!3U******H3f2\"*F/$!3/+++@%z`a\"Ffp7$$\"3)*******RXWbKF/$!3)***** *R\\lEb\"Ffp7$$\"35+++\\onn:F3$!3++++Q61]:Ffp7$$\"3))******eds2GF3$!3& ******Hs>v`\"Ffp7$$\"3F+++P:uPSF3$!3.+++4;Ff p$!3.+++EhDSJF37$$\"35+++jVJM;Ffp$!3))*****\\F-H&=F37$$\"3'******4eP\" \\;Ffp$!3m******\\y]aaF/7$$\"3/+++(=,Nl\"Ffp$\"3G*******z#fQxF/7$$\"3) ******HJ5tk\"Ffp$\"31+++I-m'4#F37$$\"3.+++Jq`I;Ffp$\"3u******z%3XT$F37 $$\"30+++j4A.;Ffp$\"35+++0\"Q*=ZF37$$\"3#******zXpac\"Ffp$\"3D+++v[^,g F37$$\"3\"*******QtX<:Ffp$\"3Y+++T/*QD(F37$$\"3#******\\@E%f9Ffp$\"3c+ ++7j&yY)F37$$\"3#******RO$o\"R\"Ffp$\"3<+++%G(RN'*F37$$\"31+++'=+YJ\"F fp$\"3'******zRu[2\"Ffp7$$\"3-+++M-hG7Ffp$\"3++++8C/!=\"Ffp7$$\"3\"*** ***4%o?M6Ffp$\"3)******>BJ$y7Ffp7$$\"3'******>MS>.\"Ffp$\"35+++zx1p8Ff p7$$\"3-+++(>\\TA*F3$\"3%******f+B;X\"Ffp7$$\"3K+++#z]G1)F3$\"3+++++iT D:Ffp7$$\"3>+++Ky^UoF3$\"3#******f+>**e\"Ffp7$$\"3G+++FEeqbF3$\"3***** ***[\"fYk\"Ffp7$$\"37+++3`&[D%F3$\"35+++5QA*o\"Ffp7$$\"3D+++giZ.HF3$\" 31+++_EEBY!\\Y2;SU*F3$\"3.+++&Qh<`\"Ffp7$$!31+++=D %\\1\"Ffp$\"3))*****fDpjX\"Ffp7$$!33+++e?X\"=\"Ffp$\"3))*****\\&Q1\"Ffp7$$!3'*******f, 5s:Ffp$\"3>+++q*=$H%*F37$$!3!******>rMvk\"Ffp$\"3o*****>%)Q;<)F37$$!36 +++By!Hr\"Ffp$\"3')*****>26O&oF37$$!3/+++7ntnEF37$$ !3/+++fU6l=Ffp$\"3(******pW)[W6F37$$!3#******p;qU(=Ffp$!3i*******fHgZ$ F/7$$!3#******HM*[r=Ffp$!3-+++%4>q%=F37$$!3-+++!>8n&=Ffp$!30+++o0@WLF3 7$$!3$******\\]f*H=Ffp$!3&*******>6eH[F3-%'COLOURG6&%$RGBG$\"#5!\"\"F+ F+-%(SCALINGG6#%,CONSTRAINEDG-%&STYLEG6#%&POINTG-%+AXESLABELSG6$Q!6\"F b[o-%%VIEWG6$;$!\"#F*$\"\"#F*Fg[o" 1 5 0 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 303 "restart;with(linalg):\n n:=5;\n\nx[0]:=1:\ny[0]: =0:\nr[0]:=0;\n#assume(h>0);\nfor i from 0 to n do\n x[i+1]:=x[i]-h* y[i];\n y[i+1]:=y[i]+h*x[i];\n\n r[i+1]:=x[i+1]^2+y[i+1]^2;\n df [i+1]:=sqrt(x[i+1]^2+y[i+1]^2)-sqrt(x[i]^2+y[i]^2);\nprint(i+1,simplif y(x[i+1]), simplify(y[i+1]), simplify(r[i+1]));\n od:" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm and trace have bee n redefined and unprotected\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"n G\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"rG6#\"\"!F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"\"F#%\"hG,&F#F#*$)F$\"\"#F#F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"#,&\"\"\"F%*$)%\"hGF#F%!\"\",$F(F#,(F%F% *&F#F%F'F%F%*$)F(\"\"%F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"$,& \"\"\"F%*&F#F%)%\"hG\"\"#F%!\"\",&F(F#*$)F(F#F%F*,*F%F%*&F#F%F'F%F%*&F #F%)F(\"\"%F%F%*$)F(\"\"'F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"% ,(\"\"\"F%*&\"\"'F%)%\"hG\"\"#F%!\"\"*$)F)F#F%F%,&F)F#*&F#F%)F)\"\"$F% F+,,F%F%*&F#F%F(F%F%*&F'F%F-F%F%*&F#F%)F)F'F%F%*$)F)\"\")F%F%" }} {PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"&,(\"\"\"F%*&\"#5F%)%\"hG\"\"#F%! \"\"*&F#F%)F)\"\"%F%F%,(F)F#*&F'F%)F)\"\"$F%F+*$)F)F#F%F%,.F%F%*&F#F%F (F%F%*&F'F%F-F%F%*&F'F%)F)\"\"'F%F%*&F#F%)F)\"\")F%F%*$)F)F'F%F%" }} {PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"',*\"\"\"F%*&\"#:F%)%\"hG\"\"#F%! \"\"*&F'F%)F)\"\"%F%F%*$)F)F#F%F+,(F)F#*&\"#?F%)F)\"\"$F%F+*&F#F%)F)\" \"&F%F%,0F%F%*&F#F%F(F%F%*&F'F%F-F%F%*&F3F%F0F%F%*&F'F%)F)\"\")F%F%*&F #F%)F)\"#5F%F%*$)F)\"#7F%F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "restart;\nexpand(x^2+y^2+(x-h*y)^2+(y+h*x)^2-h^2*(x^2+y^2));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,&*$)%\"xG\"\"#\"\"\"F'*&F'F()%\"yGF'F (F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "factor(expand((x^2+y ^2)*((x-h*y)^2+(y+h*x)^2)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&\" \"\"F%*$)%\"hG\"\"#F%F%F%),&*$)%\"xGF)F%F%*$)%\"yGF)F%F%F)F%" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}}{MARK "6 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }