{VERSION 3 0 "SUN SPARC SOLARIS" "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 "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warni ng" 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 "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "Diagnostic" 7 9 1 {CSTYLE "" -1 -1 "" 0 1 64 128 64 1 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 P lot" 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 37 "f:=(x,y) -> sin(x^2 \+ + y^2)/(x^2+y^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6$%\"xG%\" yG6\"6$%)operatorG%&arrowGF)*&-%$sinG6#,&*$)9$\"\"#\"\"\"\"\"\"*$)9%F5 F6F7F6F1!\"\"F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "f(1,3 );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$-%$sinG6#\"#5#\"\"\"F'" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "g := proc(x,y)\n r:=x^2 + y^ 2;\n sin(r)/r;\nend;" }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning, `r` is i mplicitly declared local" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gGR6$% \"xG%\"yG6#%\"rG6\"F+C$>8$,&*$)9$\"\"#\"\"\"\"\"\"*$)9%F3F4F5*&-%$sinG 6#F.F4F.!\"\"F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "g(1, 3);\n \n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#, $-%$sinG6#\"#5#\"\"\"F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "f (0,0);" }}{PARA 8 "" 1 "" {TEXT -1 30 "Error, (in f) division by zero " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "g := proc(x,y)\n r:=x^2 + y^2;\n if (r=0) then\n 1;\n else\n sin(r)/r;\n fi;\nend;" }} {PARA 7 "" 1 "" {TEXT -1 41 "Warning, `r` is implicitly declared local " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gGR6$%\"xG%\"yG6#%\"rG6\"F+C$> 8$,&*$)9$\"\"#\"\"\"\"\"\"*$)9%F3F4F5@%/F.\"\"!F5*&-%$sinG6#F.F4F.!\" \"F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "g(0,0);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "r:=3;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "g(0,0);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "r ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"$" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 106 "g := proc(x,y)\n local r;\n global s;\n r:=x^2 + y ^2;\n s:=r;\n if (r=0) then\n 1;\n else\n sin(r)/r;\n fi;\nend;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gGR6$%\"xG%\"yG6#%\"rG6\"F+C%>8$,& *$)9$\"\"#\"\"\"\"\"\"*$)9%F3F4F5>%\"sGF.@%/F.\"\"!F5*&-%$sinG6#F.F4F. !\"\"F+6#F:F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "r:=3; s:=5 ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"sG\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "g(1,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$-%$sinG6#\"\"##\"\"\"F '" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "r; s;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"#" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "read \+ \"/home/mat331/Worksheets1/lsq_data.txt\";" }}{PARA 6 "" 1 "" {TEXT -1 82 "defined line_pts(), bad_line_pts(), quadratic_pts(), cubic_pts( ), and circle_pts()" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "data :=line_pts():" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 297 "lsq_fit := proc(data)\n local m,b ,points,pt,myline, delta, E;\n delta:=(m,b,pt) -> m*pt[1] + b - pt[2] ;\n E := (m,b,points) -> sum( delta(m,b,points[i])^2,i=1..nops(points )); myline:=subs(\n solve(\{diff(E(m,b,data),m)=0, diff(E(m ,b,data),b)=0\},\{m,b\}),\n m*x+b);\n RETURN(myline);\nend;" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#>%(lsq_fitGR6#%%dataG6)%\"mG%\"bG%'poi ntsG%#ptG%'mylineG%&deltaG%\"EG6\"F0C&>8)R6%F)F*F,F06$%)operatorG%&arr owGF0,(*&9$\"\"\"&9&6#F6#\"\"#!\"\"F0F0F0>8*R6%F)F*F+F0F6F 0-%$sumG6$*$)-T#6%F;F@&F>6#%\"iGFC\"\"\"/FS;F<-%%nopsG6#F>F0F06$F.F3>8 (-%%subsG6$-%&solveG6$<$/-%%diffG6$-FF6%8$8%F;Fdo\"\"!/-F`o6$FboFeoFfo <$FdoFeo,&*&FdoF<%\"xGF " 0 "" {MPLTEXT 1 0 14 "lsq_fit(data);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&%\"xG$!+[,(oK#!\"*$!+E*RGl\"!\")\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "newdat:=line_pts(): lsq_fit(newdat) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&%\"xG$!+^uEcI!\"*$\"+8vx!z(F'\" \"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "delta(1,2,[3,5]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%&deltaG6%\"\"\"\"\"#7$\"\"$\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "trace(lsq_fit);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%(lsq_fitG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "lsq_fit(newdat);" }}{PARA 9 "" 1 "" {TEXT -1 625 "\{- -> enter lsq_fit, args = [[-3.672088020, 19.22103560], [-3.985227496, \+ 20.00031569], [-9.865785859, 38.68256286], [2.84169782, -1.056479864], [-6.378395376, 27.28420071], [-4.060126128, 18.46672729], [-7.0191049 26, 29.67476485], [2.14872325, .6017034681], [-4.780287980, 22.8107950 4], [5.73683922, -9.449388183], [9.38888815, -20.92626803], [4.7768268 1, -6.174125023], [-1.302458104, 11.57240979], [-2.492930826, 15.36877 698], [5.19635365, -7.337004737], [5.68087280, -9.455350206], [3.56084 481, -4.055009026], [5.49539700, -8.961292010], [-.362166230, 9.276861 632], [-8.277250213, 32.88114854], [-1.061710068, 10.94760136]]" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%&deltaGR6%%\"mG%\"bG%#ptG6\"6$%)oper atorG%&arrowGF*,(*&9$\"\"\"&9&6#F1F1F19%F1&F36#\"\"#!\"\"F*F*F*" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"EGR6%%\"mG%\"bG%'pointsG6\"6$%)ope ratorG%&arrowGF*-%$sumG6$*$)-T#6%9$9%&9&6#%\"iG\"\"#\"\"\"/F;;\"\"\"-% %nopsG6#F9F*F*6$%&deltaGFE" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'mylin eG,&%\"xG$!+^uEcI!\"*$\"+8vx!z(F)\"\"\"" }}{PARA 9 "" 1 "" {TEXT -1 65 "<-- exit lsq_fit (now at top level) = -3.056267451*x+7.790777513\} " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&%\"xG$!+^uEcI!\"*$\"+8vx!z(F'\" \"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "?debugger" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "stopat(lsq_fit);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#%(lsq_fitG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "lsq_fit(data);" }}{PARA 6 "" 1 "" {TEXT -1 8 "lsq_fit :" }}{PARA 6 "" 1 "" {TEXT -1 78 " 1* delta := proc (m, b, pt) opt ions operator, arrow; m*pt[1]+b-pt[2] end;" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "DBG> " 0 "" {MPLTEXT 1 0 4 "next" }}{PARA 6 "" 1 "" {TEXT -1 60 "proc (m, b, pt) options operator, arrow; m*pt[1 ]+b-pt[2] end" }}{PARA 6 "" 1 "" {TEXT -1 8 "lsq_fit:" }}{PARA 6 "" 1 "" {TEXT -1 112 " 2 E := proc (m, b, points) options operator, ar row; sum(delta(m,b,points[i])^2,i = 1 .. nops(points)) end;" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "DBG> " 0 "" {MPLTEXT 1 0 1 "n" }}{PARA 6 "" 1 "" {TEXT -1 1 "n" }}{PARA 6 "" 1 "" {TEXT -1 8 "lsq _fit:" }}{PARA 6 "" 1 "" {TEXT -1 112 " 2 E := proc (m, b, points ) options operator, arrow; sum(delta(m,b,points[i])^2,i = 1 .. nops(po ints)) end;" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "DBG> \+ " 0 "" {MPLTEXT 1 0 4 "next" }}{PARA 6 "" 1 "" {TEXT -1 98 "proc (m, b , points) options operator, arrow; sum(delta(m,b,points[i])^2,i = 1 .. nops(points)) end" }}{PARA 6 "" 1 "" {TEXT -1 8 "lsq_fit:" }}{PARA 6 "" 1 "" {TEXT -1 95 " 3 myline := subs(solve(\{diff(E(m,b,data),m ) = 0, diff(E(m,b,data),b) = 0\},\{m, b\}),m*x+b);" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "DBG> " 0 "" {MPLTEXT 1 0 20 "diff(E(m ,b,data),m);" }}{PARA 6 "" 1 "" {TEXT -1 39 "61.51696580*b+1839.663015 *m+5297.433921" }}{PARA 6 "" 1 "" {TEXT -1 8 "lsq_fit:" }}{PARA 6 "" 1 "" {TEXT -1 95 " 3 myline := subs(solve(\{diff(E(m,b,data),m) = 0, diff(E(m,b,data),b) = 0\},\{m, b\}),m*x+b);" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "DBG> " 0 "" {MPLTEXT 1 0 4 "list" }} {PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 21 "lsq_fit : = proc(data)" }}{PARA 6 "" 1 "" {TEXT -1 41 "local m, b, points, pt, m yline, delta, E;" }}{PARA 6 "" 1 "" {TEXT -1 78 " 1* delta := proc (m, b, pt) options operator, arrow; m*pt[1]+b-pt[2] end;" }}{PARA 6 " " 1 "" {TEXT -1 112 " 2 E := proc (m, b, points) options operator , arrow; sum(delta(m,b,points[i])^2,i = 1 .. nops(points)) end;" }} {PARA 6 "" 1 "" {TEXT -1 95 " 3 ! myline := subs(solve(\{diff(E(m,b ,data),m) = 0, diff(E(m,b,data),b) = 0\},\{m, b\}),m*x+b);" }}{PARA 6 "" 1 "" {TEXT -1 22 " 4 RETURN(myline)" }}{PARA 6 "" 1 "" {TEXT -1 3 "end" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "DBG> " 0 "" {MPLTEXT 1 0 4 "cont" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&%\"xG$! +Y,(oK#!\"*$!+E*RGl\"!\")\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "stopat(g);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$%\"gG%(lsq_fit G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "g(2,3);" }}{PARA 6 "" 1 "" {TEXT -1 2 "g:" }}{PARA 6 "" 1 "" {TEXT -1 21 " 1* r := x^2+y ^2;" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "DBG> " 0 "" {MPLTEXT 1 0 4 "next" }}{PARA 6 "" 1 "" {TEXT -1 2 "13" }}{PARA 6 "" 1 "" {TEXT -1 2 "g:" }}{PARA 6 "" 1 "" {TEXT -1 15 " 2 s := r;" } }{PARA 6 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "DBG> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 6 "" 1 "" {TEXT -1 2 "13" }}{PARA 6 "" 1 "" {TEXT -1 2 "g:" }}{PARA 6 "" 1 "" {TEXT -1 21 " 3 if r = 0 then" }}{PARA 6 "" 1 "" {TEXT -1 13 " ..." }}{PARA 6 "" 1 "" {TEXT -1 12 " else" }}{PARA 6 "" 1 "" {TEXT -1 13 " ..." }} {PARA 6 "" 1 "" {TEXT -1 10 " fi" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "DBG> " 0 "" {MPLTEXT 1 0 4 "next" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$-%$sinG6#\"#8#\"\"\"F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "h:=(x ,y) -> x*sin(x^2 + y^2)/(x^2+y^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%\"hGR6$%\"xG%\"yG6\"6$%)operatorG%&arrowGF)*&*&9$\"\"\"-%$sinG6#,&*$ )F/\"\"#\"\"\"F0*$)9%F7F8F0F0F8F4!\"\"F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "plot3d(h(x,y),x=-3..3,y=-3..3);" }}{PARA 13 "" 1 "" {INLPLOT "6$-%%GRIDG6%;$!\"$\"\"!$\"\"$F)F&7;7;$\"1FhG6ak^7!#;$\" 1)H#3k\">iO\"F0$!12HZ$G&[(p)!#<$!1^[ym#*QF@F0$!1(42$)Qihp*F5$\"1DirxEz +7F0$\"1(p'pE8#3e#F0$\"1-.-#oD!yDF0$\"14\"oELj?j\"F0$\"1()GV*oXqI%F5$! 1e8J&)*e'RcF5$!1s$4%)f.K<\"F0$!1*=RTGGPP\"F0FFFDFBF@F>F(p^$F0$!1q>\\8#>C^$F0$!19@j<(yH[$F0F[oFinFgnFenFYFWFUF SFQFOFMFK7;$!1)3%*GS/zC(F5$!1%)QtDtR:z\"F0$!1?\\f%[Wy+$F5$!1[hr2:\\[BF0$!1CABLsC(>$F0$!1#)eiF* 4#QGF0$!10)e`#z*H&=F0$!18_o&pXQF)F5$!1GmKf;\"3;\"F5$\"1tA!>morK\"F5Ffp FdpFbpF`pF^pF\\pFjoFhoFfoFdoFboF`o7;$!1Q')3]>a&f\"F0$!1%4I.j\"GW5F5$\" 1t$)Rsl*)*)=F0$\"1&HfS@s>V\"F0$!1#Hq!))p-*z)F5$!1Or6I/:oEF0$!1Pk+eovOE F0$!1O&z=51%Q6F0$\"1cZ/%*G1C\")F5$\"1Fp*****GnW#F0$\"1T12eNF&\\$F0$\"1 #e+n6,=-%F0$\"1&eOjh?[<%F0FarF_rF]rF[rFiqFgqFeqFcqFaqF_qF]qF[q7;$!1)Rr )e#3TY'F5$\"1P`3aQ7f9F0$\"1n\\)H\"zbL9F0$!1\\\"HFKd8#yF5$!1a%elh&RtCF0 $!1t>P.w?!*>F0$\"1==_H\\th5F5$\"1OtL/KnsBF0$\"1aDl)4(pNQF0$\"1hI#3n6WL %F0$\"1S!epi9<@%F0$\"1CZ&G_7&>RF0$\"1T'RlZ7Sy$F0F\\tFjsFhsFfsFdsFbsF`s F^sF\\sFjrFhrFfr7;$\"1\\YM`Ri/qF5$\"11Y.\"ob_`\"F0$!1Wk@R6\\0@F5$!1GLJ 7\"G_2#F0$!1w/&HlJ9u\"F0$\"1H7mr^v+XF5$\"14;s+ha=FF0$\"1.567\\MpPF0$\" 1%)y\\dMdHMF0$\"1HO3=i&QC#F0$\"1M\"40-w^)*)F5$!1H[V['f9H*!#=$!1oAUG&p[ ^%F5FguFeuFcuFauF_uF]uF[uFitFgtFetFctFat7;$\"1\\$[Lm5/H\"F0$\"1YPw))[d zdF5$!1*oHY!\\449F0$!1DwL0z$yv\"F0$\"1OOTr>,jzFiu$\"1%4Z?P#=IBF0$\"1B. bDPVeKF0$\"1jPi/2-YCF0$\"15tp$f@O*\\F5$!1I$)*Rq]Os\"F0$!1SPikG$3f$F0$! 1,0fkar=&F0FcwFawF_wF]wF[wFivFgvFevFcvFavF_vF]v7;$\"1f% 3vOxT2\"F0$!13u,EhJXSF5$!17hh;Oi)f\"F0$!1(>vPMyWK'F5$\"1N3r_2#H[\"F0$ \"1Ik$HA*Q#p#F0$\"1pk=(e]$Q?F0$!1h\"R<*ovOmFiu$!1zy(f9%epEF0$!1I\"zl6 \")=+&F0$!1/+\"[)*zgp'F0$!1e[%=J55o(F0$!1#*fU&oC(**zF0F^yF\\yFjxFhxFfx FdxFbxF`xF^xF\\xFjwFhw7;$\"1)p$*)36@SaF5$!1=zZz/0o))F5$!1_.0rRGN6F0$\" 1[ad>Yp5OF5$\"1xiK\\&[y\">F0$\"1itUhivf>F0$\"1t[Yi53HLF5$!1.By;tmN@F0$ !14%GT8([YXF0$!1$zS$[(z(*R'F0$!1!pW[&p(=f(F0$!1/*[Fu\")=A)F0$!1l*y![)4 ZT)F0FizFgzFezFczFazF_zF]zF[zFiyFgyFeyFcy7;$\"1A#eBUhn2\"F5$!1@r0nZ$Q* ))F5$!1:k2wP**ebF5$\"1\"4BLLjd:)F5$\"1['elP/ai\"F0$\"1T)H*[m_;'*F5$!1] ;**>ND=')F5$!1yu%*p'G6+$F0$!1%fb7\"[$)*z%F0$!1oR*RH<^,'F0$!1JFDc$=;q'F 0$!1ZbGvs;@qF0$!1-O\"QJ-26(F0Fd\\lFb\\lF`\\lF^\\lF\\\\lFj[lFh[lFf[lFd[ lFb[lF`[lF^[l7;$!1)f&=U;V*R*Fiu$!1[WYmW\\%R'F5$!1Vq8R\"pZl\"F5$\"19.\\ tXFnxF5$\"15&RnlGH0\"F0$\"1&*or[J>nDF5$!18z?)GWp>\"F0$!1,S#R*>VyEF0$!1 XBUx%Qfz$F0$!1a^$3dXxY%F0$!1I?/'QbUz%F0$!1%4'GLi,>\\F0$!1f/4&=z![\\F0F _^lF]^lF[^lFi]lFg]lFe]lFc]lFa]lF_]lF]]lF[]lFi\\l7;$!1O9T`mpw(*Fiu$!1\" z,fP3J>$F5$FgpFiu$\"1\"4Xu!zmoWF5$\"10%oNl!R**[F5$!1KyMy8NF8Fiu$!1-vh. K,rzF5$!1s*oB1-i`\"F0$!1EsoN/Zb?F0$!1\\=w\"4*QSBF0$!1ZIk;\"3&fCF0$!1aX qnY\\$\\#F0$!13_p8FP)\\#F0Fi_lFg_lFe_lFc_lFa_lF__lF]_lF[_lFi^lFh^lFf^l Fd^l7;F)F)F)F)F)F)F)F)F)F)F)F)%%FAILGF)F)F)F)F)F)F)F)F)F)F)F)7;$\"+amp w(*!#7$\"+w$3J>$!#6$\"+f;\"3;\"Fb`l$!+3zmoWFe`l$!+a1R**[Fe`l$\"+z8NF8F b`l$\"+-K,rzFe`l$\"+i??O:!#5$\"+O/Zb?Fbal$\"+\"4*QSBFbal$\"+<\"3&fCFba l$\"+oY\\$\\#Fbal$\"+9FP)\\#FbalFialFgalFealFcalF`alF^alF\\alFj`lFh`lF f`lFc`lF``l7;$\"+V;V*R*Fb`l$\"+nW\\%R'Fe`l$\"+S\"pZl\"Fe`l$!+tXFnxFe`l $!+d'GH0\"Fbal$!+\\J>nDFe`l$\"+)GWp>\"Fbal$\"+%*>VyEFbal$\"+y%Qfz$Fbal $\"+sbunWFbal$\"+'QbUz%Fbal$\"+Mi,>\\Fbal$\"+)=z![\\FbalFdclFbclF`clF^ clF\\clFjblFhblFfblFdblFbblF`blF^bl7;$!+B9ww5Fe`l$\"+nZ$Q*))Fe`l$\"+wP **ebFe`l$!+LLwb\")Fe`l$!+xVSD;Fbal$!+[m_;'*Fe`l$\"+AND=')Fe`l$\"+q'G6+ $Fbal$\"+7[$)*z%Fbal$\"+%H<^,'Fbal$\"+d$=;q'Fbal$\"+vs;@qFbal$\"+8Bq5r FbalF_elF]elF[elFidlFgdlFedlFcdlFadlF_dlF]dlF[dlFicl7;$!+46@SaFe`l$\"+ z/0o))Fe`l$\"+rRGN6Fbal$!+>Yp5OFe`l$!+\\&[y\">Fbal$!+hivf>Fbal$!+i53HL Fe`l$\"+,jzFb`l$!+sB=IBFbal$!+FPVeKFbal$!+02-YCFbal$!+%f@O*\\Fe`l$ \"+/2lBFbal$!+I\\th5Fe `l$!+/KnsBFbal$!+)4(pNQFbal$!+r;TMVFbal$!+EYr6UFbal$!+AD^>RFbal$!+yC,% y$FbalFf]mFd]mFb]mF`]mF^]mF\\]mFj\\mFh\\mFf\\mFd\\mFb\\mF`\\m7;$\"+]>a &f\"Fbal$\"+I;GW5Fe`l$!+tl*)*)=Fbal$!+9A(>V\"Fbal$\"+))p-*z)Fe`l$\"+I/ :oEFbal$\"+fovOEFbal$\"+-hSQ6Fbal$!+$*G1C\")Fe`l$!+,!HnW#Fbal$!+fNF&\\ $Fbal$!+;6!=-%Fbal$!+;1#[<%FbalFa_mF__mF]_mF[_mFi^mFg^mFe^mFc^mFa^mF_^ mF]^mF[^m7;$\"+2W!zC(Fe`l$\"+EtR:z\"Fbal$\"+'[Wy+$Fe`l$\"+3:\\[BFbal$\"+LsC(>$Fbal$\"+G*4#QGFbal$\"+ Ez*H&=Fbal$\"+(pXQF)Fe`l$Fg`lFe`l$!+i'orK\"Fe`lF\\amFj`mFh`mFf`mFd`mFb `mF``mF^`mF\\`mFj_mFh_mFf_m7;$!+nvO_7Fbal$\"+P%44+\"Fbal$\"+eq$p)=Fbal $\"+:UMw7Fe`l$!+*H&H1?Fbal$!+UYa7CFbal$!+I()ef5Fbal$\"+xap**))Fe`l$\"+ \")QrQCFbal$\"+[F2hKFbal$\"+c>(p^$Fbal$\"+8#>C^$Fbal$\"+<(yH[$FbalFfbm FdbmFbbmF`bmF^bmF\\bmFjamFhamFfamFdamFbamF`am7;$!+6ak^7Fbal$!+k\">iO\" Fbal$\"+&G&[(p)Fe`l$\"+m#*QF@Fbal$\"+&Qihp*Fe`l$!+yEz+7Fbal$!+F8#3e#Fb al$!+#oD!yDFbal$!+LL1K;Fbal$!+\"pXqI%Fe`l$\"+')*e'RcFe`l$\"+)f.K<\"Fba l$\"+%GGPP\"FbalFadmF_dmF]dmF[dmFicmFgcmFecmFccmFacmF_cmF]cmF[cm-%+AXE SLABELSG6%%\"xG%\"yG%!G" 3 545 245 245 2 0 1 0 2 1 0 1 2 1.000000 27.000000 45.000000 14010 14091 14086 14104 14112 15010 15070 20540 0 17560 0 0 0 0 0 0 0 1 0 534 5992 0 1 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 8 "D[1](h);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#R 6$%\"xG%\"yG6\"6$%)operatorG%&arrowGF',(*&-%$sinG6#,&*$)9$\"\"#\"\"\" \"\"\"*$)9%F4F5F6F5F0!\"\"F6*&*&F2F5-%$cosGF/F6F5F0F:F4*&*&F2F5F-F6F5* $)F0\"\"#F5F:!\"#F'F'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 " evalgrad := proc(f, pt)\n [ D[1](f)(pt[1],pt[2]), D[2](f)(pt[1],pt[2 ])];\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)evalgradGR6$%\"fG%#pt G6\"F)F)7$--&%\"DG6#\"\"\"6#9$6$&9%F/&F56#\"\"#--&F.F7F1F3F)F)F)" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "evalgrad(h,[1,.2]);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#7$$\"*bH03#!\"*$!+ePOU7!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "evalgrad := proc(f, pt)\n [ pt[1] - D[1](f)(pt[1],pt[2]), pt[2] - D[2](f)(pt[1],pt[2])];\nend;\n " }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%)evalgradGR6$%\"fG%#ptG6\"F)F)7$,&&9 %6#\"\"\"F/--&%\"DGF.6#9$6$F,&F-6#\"\"#!\"\",&F7F/--&F3F8F4F6F:F)F)F) " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "evalgrad(h,[1,.2]);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#7$$\"*Xq%>z!\"*$\"+ePOUK!#5" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "evalgrad(h,%);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#7$$\"*1X/p\"!\"*$\"+?q,IW!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "evalgrad(h,%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$$!+;x!H=)!#5$\"+)f%pTXF&" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 42 "for i from 1 to 10 do\n evalgrad(h,%);\nod;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#7$$!+DZWL8!\"*$\"+uPgLD!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$$!**[Y$H$!\"*$!**o=yO!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$$!+)f0%>8!\"*$!*r,'*e$!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$$!+&G<\"RT!#5$\"*rHr7%!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$$!+fP^*Q\"!\"*$\"*KsD$R!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$$!*IYI+#!\"*$!*ey)\\!)!#7" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$$!+CL'*)>\"!\"*$!*mbn+)!#7" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$$!+=pk_x!#5$!*VL!Hd!#8" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$$!+=\\*Q[\"!\"*$!*WEG,%!#8" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# 7$$\")RB!H'!\"*$\"+.xih6!#9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "55 0 0" 0 }{VIEWOPTS 1 1 0 2 1 1805 }