{VERSION 5 0 "SUN SPARC SOLARIS" "5.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 "" 0 1 0 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 0 }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 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "W arning" 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 "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 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 Plo t" 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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "read ( \"/home/mat33 1/Worksheets/lsq_data.txt\");" }}{PARA 6 "" 1 "" {TEXT -1 82 "defined \+ line_pts(), bad_line_pts(), quadratic_pts(), cubic_pts(), and circle_p ts()" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "dat:=cubic_pts();" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$datG777$$!++V2P6!\"*$!+[4t*3#F)7$ $!)2&H(*)F)$!+ezGh6F)7$$\"+_z$f@#F)$\"+nreu6!\")7$$\"*SPAj(F)$!+9M2\"R \"F)7$$!+g$G*yEF)$!+!zPGp\"F67$$\"+l+Y.6F)$\"+8Jcjm!#57$$\"+d(oL9#F)$ \"+K4G!3\"F67$$!+\\%fac\"F)$!+uG7^VF)7$$\"*#z#=6$F)$!+qRo89F)7$$!*mK_x *F)$!+f')\\;IF)7$$\"+'31*e=F)$\"+gsM?jF)7$$\")lI$[#F)$!+Bt#=0#F)7$$\"* EUm\"pF)$!+C?tE>F)7$$!*6WEW%F)$!+-%>R@#F)7$$!*Sbnv)F)$!+2#3\\k#F)7$$\" +_ " 0 "" {MPLTEXT 1 0 22 "plot(dat,style=POINT); " }}{PARA 13 "" 1 "" {GLPLOT2D 399 192 192 {PLOTDATA 2 "6&-%'CURVESG6$ 777$$!34++++V2P6!#<$!39+++[4t*3#F*7$$!3+++++2&H(*)!#>$!3&******z&zGh6F *7$$\"3*******>&z$f@#F*$\"3(******p;(eu6!#;7$$\"3R++++uBKw!#=$!31+++9M 2\"R\"F*7$$!3++++g$G*yEF*$!35+++!zPGp\"F87$$\"3$******\\1gM5\"F*$\"3[* ****H6jNm'F<7$$\"3=+++d(oL9#F*$\"3(******>$4G!3\"F87$$!3++++\\%fac\"F* $!3j*****R(G7^VF*7$$\"3')******>z#=6$F<$!3!*******pRo89F*7$$!3X******f EBv(*F<$!3!)******e')\\;IF*7$$\"3&******f31*e=F*$\"38+++gsM?jF*7$$\"3: ++++lI$[#F0$!3#******HKF=0#F*7$$\"3$*******fAk;pF<$!35+++C?tE>F*7$$!3E +++5TkUWF<$!39+++-%>R@#F*7$$!3I++++avc()F<$!3%)*****p?3\\k#F*7$$\"3?++ +_ " 0 "" {MPLTEXT 1 0 38 "cub:=(a,b,c,d,x) -> a*x^3+b*x^2+c*x+d;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$cubGf*6'%\"aG%\"bG%\"cG%\"dG%\"xG6\"6$%)o peratorG%&arrowGF,,**&9$\"\"\")9(\"\"$F3F3*&9%F3)F5\"\"#F3F3*&9&F3F5F3 F39'F3F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "C:= (a,b,c, d,p) -> sum( ( cub(a,b,c,d,p[i][1]) - p[i][2])^2, i=1..nops(p))/ nops( p);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CGf*6'%\"aG%\"bG%\"cG%\"dG% \"pG6\"6$%)operatorG%&arrowGF,*&-%$sumG6$*$),&-%$cubG6'9$9%9&9'&&9(6#% \"iG6#\"\"\"FD&F?6#\"\"#!\"\"FGFD/FB;FD-%%nopsG6#F@FDFKFHF,F,F," }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "C(1,0,0,-1,dat);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+#*e!R,#!\"*" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 23 "lin:= (m,b,x) -> m*x+b;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$linGf*6%%\"mG%\"bG%\"xG6\"6$%)operatorG%&arrowGF*,&* &9$\"\"\"9&F1F19%F1F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "L:= (m,b,p) -> sum( ( lin(m,b,p[i][1]) - p[i][2])^2, i=1..nops(p)) / nops(p);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"LGf*6%%\"mG%\"bG%\"p G6\"6$%)operatorG%&arrowGF**&-%$sumG6$*$),&-%$linG6%9$9%&&9&6#%\"iG6# \"\"\"F@&F;6#\"\"#!\"\"FCF@/F>;F@-%%nopsG6#F " 0 "" {MPLTEXT 1 0 83 "linfit:= \n solve(\n \{ diff(L(m, b,dat),m) =0, diff(L(m,b,dat),b) =0\}, \n \{m, b\});" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%'linfitG<$/%\"mG$\"+%[koc%!\"*/%\"bG$!+%*o+lJ! #5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 168 "cubfit:= \n solve(\n \{ diff(C(a,b,c,d,dat),a) =0, diff(C(a,b,c,d,dat),b) =0,\n diff (C(a,b,c,d,dat),c) =0, diff(C(a,b,c,d,dat),d) =0\}, \n \{a,b,c,d\}) ; \n\n\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cubfitG<&/% \"bG$\"+&GJ'Ge!#5/%\"cG$\"+QJl=f!#6/%\"aG$\"+kF(o$**F*/%\"dG$!+v&4'>>! \"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "linesol := subs(linf it, m*x+b);\ncubsol:= subs(cubfit, a*x^3 + b*x^2 + c*x +d);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%(linesolG,&%\"xG$\"+%[koc%!\"*$\"+%* o+lJ!#5!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cubsolG,**$)%\"xG\" \"$\"\"\"$\"+kF(o$**!#5*&$\"+&GJ'GeF-F*)F(\"\"#F*F**&$\"+QJl=f!#6F*F(F *F*$\"+v&4'>>!\"*!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 " with(plots):\ndisplay(\n plot(dat,style=point),\n plot([linesol, cub sol], x=-3..3, color=[black,blue]));" }}{PARA 7 "" 1 "" {TEXT -1 50 "W arning, the name changecoords has been redefined\n" }}{PARA 13 "" 1 " " {GLPLOT2D 497 299 299 {PLOTDATA 2 "6'-%'CURVESG6%777$$!34++++V2P6!#< $!39+++[4t*3#F*7$$!3+++++2&H(*)!#>$!3&******z&zGh6F*7$$\"3*******>&z$f @#F*$\"3(******p;(eu6!#;7$$\"3R++++uBKw!#=$!31+++9M2\"R\"F*7$$!3++++g$ G*yEF*$!35+++!zPGp\"F87$$\"3$******\\1gM5\"F*$\"3[*****H6jNm'F<7$$\"3= +++d(oL9#F*$\"3(******>$4G!3\"F87$$!3++++\\%fac\"F*$!3j*****R(G7^VF*7$ $\"3')******>z#=6$F<$!3!*******pRo89F*7$$!3X******fEBv(*F<$!3!)******e ')\\;IF*7$$\"3&******f31*e=F*$\"38+++gsM?jF*7$$\"3:++++lI$[#F0$!3#**** **HKF=0#F*7$$\"3$*******fAk;pF<$!35+++C?tE>F*7$$!3E+++5TkUWF<$!39+++-% >R@#F*7$$!3I++++avc()F<$!3%)*****p?3\\k#F*7$$\"3?+++_M\"F87$$!3#)***\\7bBav#F*$!3v x!)RkY,!H\"F87$$!36++]K3XFEF*$!3G[+)zDr:B\"F87$$!3%)****\\F)H')\\#F*$! 3izss]/us6F87$$!3\"****\\i3@/P#F*$!3Z#)>.c#*=96F87$$!3:++Dr^b^AF*$!3L; [Z.[!*f5F87$$!3#****\\7Sw%G@F*$!3sv+8(R'p.5F87$$!3*****\\7;)=,?F*$!3x) )Q\")Gelb%*F*7$$!3.++DO\"3V(=F*$!34eB\"*[>@w))F*7$$!3#******\\V'zVbxF*7$$!3!******\\!)H% *\\\"F*$!3QWb57M>krF*7$$!3.+++vl[p8F*$!36-B3!Hg2d'F*7$$!3!******\\>iUC \"F*$!3G\"QHl^x))*fF*7$$!3-++DhkaI6F*$!3m1XzqJbzaF*7$$!3s******\\XF`** F<$!3\"zg*e$HE?'[F*7$$!3u*******>#z2))F<$!3n@KYF+!*QVF*7$$!3R++]7RKvuF <$!3y<#Rw\")z.t$F*7$$!3s,+++P'eH'F<$!3+%[j@KO<>$F*7$$!3q)***\\7*3=+&F< $!3h!4Ds.f2g#F*7$$!3[)***\\PFcpPF<$!3zb)4!3*3!Q?F*7$$!3:)****\\7VQ[#F< $!3P1!RX=Q3X\"F*7$$!32)***\\i6:.8F<$!3S`XIb;K;\"*F<7$$!3Wb+++v`hH!#?$! 31WyE)Hc-I$F<7$$\"3]****\\(QIKH\"F<$\"3;0LIK5+TFF<7$$\"38****\\7:xWCF< $\"3k27$zHL***zF<7$$\"3E,++vuY)o$F<$\"3Wmmz@C(zO\"F*7$$\"3*y******4FL( \\F<$\"3cq/j+/va>F*7$$\"3A)****\\d6.B'F<$\"3jf@@w\")zGDF*7$$\"3s****\\ (o3lW(F<$\"3Y?T2;*=U3$F*7$$\"35*****\\A))oz)F<$\"3w7#F*$\"3$=)R%p>Z+S* F*7$$\"3N++v)Q?QD#F*$\"3=]uH(f\"Rw**F*7$$\"3G+++5jypBF*$\"3iT3WC#*f]5F 87$$\"3<++]Ujp-DF*$\"3/&**R^V(H66F87$$\"3++++gEd@EF*$\"3zSzPQmel6F87$$ \"39++v3'>$[FF*$\"3@:\"[ADqMA\"F87$$\"37++D6EjpGF*$\"3R!e/lDs)y7F87$$ \"\"$Ffr$\"3*****fiF4%Q8F8-F_r6&FarFfrFfrFfr-F$6$7S7$F_s$!3'***RaZd4oB F87$Fds$!3T.Cs(Q^i2#F87$Fis$!3/uiM)))[X%=F87$F^t$!3&oDKu@Uvg\"F87$Fct$ !37))*>-9WHR\"F87$Fht$!34-4%\\*G*>?\"F87$F]u$!3-%['\\q^-W5F87$Fbu$!3! \\h[I]yp)*)F*7$Fgu$!3:O>)3//vm(F*7$F\\v$!3*)y8=hN'e_'F*7$Fav$!3?s,?'HT &>bF*7$Ffv$!3%y'yULk%Qw%F*7$F[w$!3\\HsCC>yZSF*7$F`w$!3'z)4o\")yvfMF*7$ Few$!3+5L%y(H10IF*7$Fjw$!3$G8V!pUTxEF*7$F_x$!3sHW7BP\"4Q#F*7$Fdx$!3e$) 3+K9a)>#F*7$Fix$!3m/=V)RMK0#F*7$F^y$!3[*='\\\\t\"Q(>F*7$Fcy$!31orI\"3Q x#>F*7$Fhy$!3RM'oviBB\">F*7$F]z$!3;XY8_#yN\">F*7$Fbz$!3-F&f3KB'>>F*7$F gz$!3Z!zA=xz(>>F*7$F][l$!3WvJlD\"e+!>F*7$Fb[l$!3WsZu(p#yb=F*7$Fg[l$!3$ Hcw5W<'o.ec=F*7$Fd^l$\"3(4%>Cx!* [4GF*7$Fi^l$\"3C`C;;)QI'RF*7$F^_l$\"3$GU7o_3yD&F*7$Fc_l$\"3X0jCTgZ-oF* 7$Fh_l$\"3S-`V7a#\\[)F*7$F]`l$\"37Pg!RvA:/\"F87$Fb`l$\"3K&4UHF.^D\"F87 $Fg`l$\"3k%3rHLQ=Z\"F87$F\\al$\"3V>tNHGfX " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "10 0 0" 32 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }