{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 "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{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 -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 "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 35 "restart;\nwith(plots ): with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 32 "Warning, new definiti on for norm" }}{PARA 7 "" 1 "" {TEXT -1 33 "Warning, new definition fo r trace" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "A:=matrix(2,2,[. 5,-.6,.75,1.1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6# 7$7$$\"\"&!\"\"$!\"'F,7$$\"#v!\"#$\"#6F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "x[0]:=[2,0];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\" xG6#\"\"!7$\"\"#F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "Vec:= proc(k)\nlocal x;\nx[0]:=[2,0];\nevalm(x[0]&*transpose(A&^k));\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "#Vec(6);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "#Vec(6)[1];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "S:=\{seq([Vec(i)[1],Vec(i)[2]],i=0..50)\}:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "plot(S,style=point, scaling= constrained);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6 '-%'CURVESG6$7U7$$!1+++++S=>!#:$!1++++++'*=!#;7$$!1+++_2)pK\"F*$\"1+++ '\\YKY#F*7$$\"1+++;+vD=F*$\"1+++S!z5y$F-7$$!1+++m`-)>*F-$!1+++KhAy:F*7 $$!1+++6PeA?F*$\"1+++v9#)p>F*7$$!1+++'[?$*4#F*$\" 1+++[V!pz#F-7$$\"1+++j7@c8F*$\"1+++.ws*4\"F*7$$!1+++)*y>,KF-$\"1+++iZ4 tBF*7$$\"\"\"\"\"!$\"1+++++++:F*7$$\"1+++gE5goF-$\"1+++17B&y\"F*7$$!1+ ++9q99AF*$\"1+++t#3%>9F*7$$!1+++++Sa%)F-$!1+++++OZ;F*7$$!1++++++CAF*$ \"1++++++W8F*7$$\"1+++Wbm'=\"F*$!1+++9Qa)[#F*7$$\"1+++i!fk3#F*$!1+++R! *RZ=F*7$$\"1+++-Gh8:F-$!1+++a)>mI#F*7$$\"1+++k#>ei(F-$\"1+++aWs?F*$!1+++?g6E**!#<7$$!1+++Zi8 ([\"F*$!1+++#*))*GE*F-7$$!1+++U^^R5F*$\"1+++?r]*\\#F*7$$!1+++G6HE_F-$! 1+++\"[>G\">F*7$$\"1+++1\\&*=AF*$!1+++;7jL$)F-7$$\"1+++$fd!*p\"F*$!1++ +1\\@.BF*7$$\"1+++-G3%=#F*$!1+++_vRr:F*7$$!1+++`n\"Re\"F*$\"1+++'R9.P# F*7$$\"1+++++'pl&F-$!1++++gF*$!1+++Ux*33#F* 7$$\"1+++!4D<2\"F*$\"1+++BsjE9F*7$$\"1+++SxXJAF*$!1+++.KCf7F*7$$!1+++1 Qi\">#F*$\"1+++;C2AlF-7$$!1+++5fL\"G(F-$\"1+++G?EyCF*7$$\"1+++g(*=NAF* $!1+++g&e-=\"F*7$$!1+++.XZ<7F*$!1+++&)3$oE\"F*7$$\"1++++p!p#=Fbr$\"1++ +7)eoA#F*7$$\"1+++K*z[.#F*$!1******R0_Z!*Fbr7$$!1+++++++SF-$\"1+++++++ CF*7$$\"1+++_Dlf9F*$!1+++w3wBCF*7$$\"1+++C8xj))F-$!1+++kK2'\\#F*7$$\"1 +++F`\\4;F*$\"1+++]u;vuF-7$$!1++++++S;F*$\"1++++++SBF*7$$!1+++G[]LAF*$ \"1+++J)=(45F*7$$!1+++'*=%z(=F-$!1+++k5FM@F*7$$\"1+++\"zu7(=F*$\"1+++C yD%)GF-7$$\"1++++Ob] " 0 "" {MPLTEXT 1 0 8 "restart;" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "with(plots): with(linalg):" }} {PARA 7 "" 1 "" {TEXT -1 32 "Warning, new definition for norm" }} {PARA 7 "" 1 "" {TEXT -1 33 "Warning, new definition for trace" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "A:=matrix(2,2,[.80,0,0,.64]) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7$7$$\"#!)!\"# \"\"!7$F-$\"#kF," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "Vec:=pr oc(c,d,k)\nlocal x;\nx[0]:=c*[1,0]+d*[0,1];\nevalm(x[0]&*transpose(A&^ k));\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "#Vec(3,3,4); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "#\nS:=proc(a,b)\nlocal \+ i;\n\{seq([Vec(a,b,i)[1],Vec(a,b,i)[2]],i=0..10)\};\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "P:=proc(a,b)\nlocal i;\nplot(\{seq ([Vec(a,b,i)[1],Vec(a,b,i)[2]],i=0..10)\},style=point,color=blue);\nen d:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "display(\{P(3,3),P(1 .5,3),P(0,3),P(-1.5,3),P(-3,3),P(3,-3),P(1.5,-3),P(0,-3),P(-1.5,-3),P( -3,-3)\},scaling=constrained);\n" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6/-%'CURVESG6%7-7$$!1+++++++:!#:$\"\"$\"\"!7$$!1+ ++++?:\\!#;$\"1+++saA@KF17$$!1+++++++'*F1$\"1+++++!)G7F*7$$!1+++++;KRF 1$\"1+++-Veh?F17$$!1++++++!o(F1$\"1+++++KkyF17$$!1***********R9'F1$\"1 ++++[;L]F17$$!1+++?fE8?F1$\"1+++`&>VS&!#<7$$!1+++++++7F*$\"1++++++?>F* 7$$!1++++!Gd9$F1$\"1+++`RT>8F17$$!1++++Ce;DF1$\"1*****4I\\UW)FM7$$!1++ +OFh5;F1$\"1+++:XweMFM-%'COLOURG6&%$RGBGF-F-$\"*++++\"!\")-%&STYLEG6#% &POINTG-F$6%7-7$FA$!1+++-Veh?F17$$\"1+++S=`ESF1$!1+++`&>VS&FM7$$\"1+++ ++++CF*$!1++++++?>F*7$$\"1++++gX\"H'F1$!1+++`RT>8F17$$\"1++++++O:F*$!1 +++++KkyF17$F+$!\"$F-7$F7$!1++++[;L]F17$F2$!1+++:XweMFM7$$\"1+++++SI)* F1$!1+++saA@KF17$FF$!1*****4I\\UW)FM7$FQ$!1+++++!)G7F*F\\oFco-F$6%7-7$ $\"1++++!Gd9$F1FV7$$\"1***********R9'F1FF7$$\"1+++OFh5;F1Fjn7$$\"1++++ +?:\\F1F27$$\"1++++++!o(F1FA7$$\"1+++?fE8?F1FK7$$\"1+++++++7F*FQ7$$\"1 ++++Ce;DF1Fen7$$\"1+++++++:F*F+7$$\"1+++++;KRF1F<7$$\"1+++++++'*F1F7F \\oFco-F$6%7-7$F-FF7$F-FV7$F-Fen7$F-F+7$F-FQ7$F-FK7$F-F77$F-Fjn7$F-F27 $F-FA7$F-F " 0 "" {MPLTEXT 1 0 8 "restart;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "with(plots): with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 32 "Warning, new definition for norm" }}{PARA 7 "" 1 "" {TEXT -1 33 "Warning, new definition for trace" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 30 "A:=matrix(2,2,[1.44,0,0,1.2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7$7$$\"$W\"!\"#\"\"!7$F-$\"#7!\" \"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "Vec:=proc(c,d,k)\nloc al x;\nx[0]:=c*[1,0]+d*[0,1];\nevalm(x[0]&*transpose(A&^k));\nend:" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "P:=proc(a,b)\nlocal i;\npl ot(\{seq([Vec(a,b,i)[1],Vec(a,b,i)[2]],i=0..10)\},style=point,color=bl ue);\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "display(\{P( 3,2),P(3,1),P(3,0),P(3,-1),P(3,-2),P(-3,2),P(-3,1),P(-3,0),P(-3,-1),P( -3,-2),P(0,3),P(0,-3)\});" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "60-%'CURVESG6%7-7$$\"1+++)*z7]6!#8$\"1+++%GZ$Q7!#97$$\"1+ ++)3X**G\"F-$\"1+++++?ZT!#:7$$\"1+++nx_YbF-$\"1+++?Rj*f)F37$$\"1+++&Rb <&QF-$\"1++++;OmrF37$$\"1+++++!3A'F3$\"1++++++!)GF37$$\"1+++F4_d=F-$\" 1+++++kw\\F37$$\"1,+++?&z&*)F3$\"1++++++cMF37$$\"\"$\"\"!$\"\"#FP7$$\" 1++++++?VF3$\"1+++++++CF37$$\"1+++M,$[n#F-$\"1++++!o>(fF37$$\"1,++%)** *p)zF-$\"1+++qg&>.\"F--%'COLOURG6&%$RGBGFPFP$\"*++++\"!\")-%&STYLEG6#% &POINTG-F$6%7-7$F?FP7$F(FP7$FIFP7$F5FP7$F/FP7$F:FP7$FDFP7$FTFP7$FNFP7$ FYFP7$FhnFPF\\oFco-F$6%7-7$$!1,++%)***p)zF-$\"1+++_.yf^F37$$!1+++)*z7] 6F*$\"1+++Akt\">'F37$$!1,+++?&z&*)F3$\"1++++++G.\"F-7$FY$!1++++!o>( fF37$F:$!1++++;OmrF37$F/$!1+++++?ZTF37$FI$!1++++++cMF37$FT$!1+++++++CF 37$F5$!1+++?Rj*f)F37$FN$!\"#FP7$FD$!1+++++kw\\F37$F($!1+++%GZ$Q7F-F\\o Fco-F$6%7-7$FP$\"1++++++%=&F37$FP$\"1+++SU&\\2\"F-7$FPFN7$FPFI7$FP$\"1 +++++++OF37$FPF/7$FP$\"1+++1T$za\"F-7$FPFT7$FPFD7$FPF?7$FP$\"1+++++'\\ Y(F3F\\oFco-F$6%7-7$F]r$!1+++gp\")*H%F37$Fgr$!1++++3=$e$F37$Fcq$!1++++ ++G'F37$Fas$! 1+++++++7F37$F\\s$!\"\"FP7$Ffs$!1+++++K)[#F37$F[t$!1+++++gt?F37$Fip$!1 +++_.yf^F3F\\oFco-F$6%7-7$FPFas7$FPFfs7$FP$!1++++++%=&F37$FPFcq7$FP$!1 +++++'\\Y(F37$FP$!1+++++++OF37$FPF[t7$FP$!1+++SU&\\2\"F-7$FPF\\s7$FPFh q7$FP$!1+++1T$za\"F-F\\oFco-F$6%7-7$FcqFP7$FgrFP7$FfsFP7$F\\sFP7$F^qFP 7$FbrFP7$F]rFP7$FasFP7$FhqFP7$FipFP7$F[tFPF\\oFco-F$6%7-7$FhqFct7$FcqF bu7$FgrF\\u7$F\\sF[v7$FbrFit7$FfsF^v7$F[tF_u7$F]rFhu7$F^qFav7$FasFeu7$ FipFftF\\oFco-F$6%7-7$FhqFA7$FcqFK7$F\\sFQ7$FbrFen7$FfsFF7$FgrF<7$F]rF 77$FasFV7$F^qF+7$F[tF17$FipFjnF\\oFco-F$6%7-7$F:Fbx7$FYFhx7$FNFdy7$FDF gy7$FhnF]z7$FIFex7$F5F_x7$FTFay7$F?F[y7$F(F^y7$F/FjyF\\oFco-F$6%7-7$F: Fir7$FNF^s7$FDFhs7$FYFdr7$FIFeq7$F5F_r7$F(F`q7$FTFcs7$F/F]t7$FhnF[q7$F ?FjqF\\oFco-%+AXESLABELSG6$%!GF``l-%%VIEWG6$%(DEFAULTGFd`l" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "restart;\nwith(plots): with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 32 "Warning, new definition for norm" }}{PARA 7 "" 1 "" {TEXT -1 33 "Warning, new definition for trace" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 29 "A:=matrix(2,2,[2.2,0,0,0.5]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'matrixG6#7$7$$\"#A!\"\"\"\"!7$F-$\"\"&F, " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "Vec:=proc(c,d,k)\nlocal x;\nx[0]:=c*[1,0]+d*[0,1];\nevalm(x[0]&*transpose(A&^k));\nend:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "P:=proc(a,b)\nlocal i;\nplo t(\{seq([Vec(a,b,i)[1],Vec(a,b,i)[2]],i=0..5)\},style=point,color=blue );\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 163 "display(\{P(1/ 500,1),P(1/1000,1),P(1/1500,1),P(-1/500,1),P(-1/1000,1),P(-1/1500,1),P (1/500,-1),P(1/1000,-1),P(1/1500,-1),P(-1/500,-1),P(-1/1000,-1),P(-1/1 500,-1)\});" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "60- %'CURVESG6%7(7$$!1+++nmmm9!#=$\"1+++++++]!#;7$$!1mmmmmmmm!#>$\"\"\"\" \"!7$$!1+++nmmEKF*$\"1+++++++DF-7$$!1+++nmm)4(F*$\"1++++++]7F-7$$!1+++ nmqh:!#<$\"1++++++]iFB7$$!1+++nYvNMFB$\"1++++++DJFB-%'COLOURG6&%$RGBGF 4F4$\"*++++\"!\")-%&STYLEG6#%&POINTG-F$6%7(7$$\"1++++?j`^FB$!1++++++DJ FB7$$\"1+++++++AF*$!1+++++++]F-7$$\"1+++++![1\"FB$!1++++++]7F-7$$\"1++ +++cUBFB$!1++++++]iFB7$$\"1++++++S[F*$!1+++++++DF-7$$\"1+++++++5F*$!\" \"F4FJFQ-F$6%7(7$$!1+++++gH@FBF=7$$!1++++ksI5F-FH7$$!1************z'*F *F87$$!1+++++++?F*F27$$!1+++++7&o%FBFC7$$!1+++++++WF*F+FJFQ-F$6%7(7$$ \"1+++nmm)4(F*F_o7$$\"1+++nYvNMFBFen7$$\"1+++nmqh:FBFdo7$$\"1+++nmmm9F *Fjn7$$\"1+++nmmEKF*Fio7$$\"1mmmmmmmmF1F^pFJFQ-F$6%7(7$$!1++++?j`^FBFH 7$$!1+++++++5F*F27$$!1+++++cUBFBFC7$$!1+++++++AF*F+7$$!1++++++S[F*F87$ $!1+++++![1\"FBF=FJFQ-F$6%7(7$FerF87$FiqF=7$FbrF+7$F_rFC7$F\\rFH7$FhrF 2FJFQ-F$6%7(7$FhnF+7$FgoF87$F\\pF27$F]oF=7$FboFC7$FYFHFJFQ-F$6%7(7$$\" 1+++++gH@FBF_o7$$\"1+++++++WF*Fjn7$$\"1+++++++?F*F^p7$$\"1+++++7&o%FBF do7$$\"1************z'*F*Fio7$$\"1++++ksI5F-FenFJFQ-F$6%7(7$F;F_o7$F6F io7$F@Fdo7$FFFen7$F/F^p7$F(FjnFJFQ-F$6%7(7$FgsFjn7$FasF^p7$FdsFdo7$Fjs Fio7$F^sFen7$F]tF_oFJFQ-F$6%7(7$FjpFio7$FgpFen7$F]qF^p7$FdpF_o7$FcqFjn 7$F`qFdoFJFQ-F$6%7(7$F[vF27$FhuF+7$FavF87$FeuF=7$F^vFC7$FdvFHFJFQ-%+AX ESLABELSG6$%!GF]y-%%VIEWG6$%(DEFAULTGFay" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }