{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 "M aple 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 Plot" 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 45 "read(\"/home/mat331/ Worksheets/lsq_data.txt\");" }}{PARA 6 "" 1 "" {TEXT -1 82 "defined li ne_pts(), bad_line_pts(), quadratic_pts(), cubic_pts(), and circle_pts ()" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "data := circle_pts(): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "plot(data,style=point,s ymbol=box,scaling=constrained);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6(-%'CURVESG6$777$$\"3U+++o<,+s!#<$!3,+++gx4_>F*7$$\" 3<*****f#eQp\")F*$!31+++T1'o,#F*7$$\"3)******HBgHW%F*$\"3a*****pcM.N)! #=7$$\"3r*****p(fZiYF*$\"3%******\\H5'H=F*7$$\"3!3++I[7&G)*F*$\"32+++, 5PHKF*7$$\"3)*******>vza5!#;$\"3-+++jKPy?F*7$$\"3l*****4N\">tuF*$\"3,+ ++'RE'3TF*7$$\"3')*****H`o(yXF*$\"3#******>R?TD\"F*7$$\"3(******z?TW3 \"FE$\"3-+++7@uw5F*7$$\"3>+++BB9^\")F*$\"3q*****4x$z\"=%F*7$$\"3M+++(o !4*f%F*$\"3++++_8ay5F*7$$\"3C+++iE(et(F*$!3-+++)[yP+#F*7$$\"3M+++u#yOz (F*$!36+++(*3JE?F*7$$\"3=+++Z6p$R'F*$!3'*******yC/I " 0 "" {MPLTEXT 1 0 61 "cdist := (a ,b,r, pt) -> ((a-pt[1])^2 + (b-pt[2])^2 - r^2)^2;" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%&cdistGf*6&%\"aG%\"bG%\"rG%#ptG6\"6$%)operatorG%&ar rowGF+*$),(*$),&9$\"\"\"&9'6#F6!\"\"\"\"#F6F6*$),&9%F6&F86#F;F:F;F6F6* $)9&F;F6F:F;F6F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "C : = (a,b,r,data) -> sum( cdist(a,b,r, data[i]), i=1..nops(data))/ nops(d ata);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CGf*6&%\"aG%\"bG%\"rG%%da taG6\"6$%)operatorG%&arrowGF+*&-%$sumG6$-%&cdistG6&9$9%9&&9'6#%\"iG/F< ;\"\"\"-%%nopsG6#F:F?F@!\"\"F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "C( 7.5, 1, 3, data);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+nUv?$)!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "C( 2, 1 , 3, data);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+$yJ=2\"!\"'" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "sol:=solve( \{diff(C(a,b,r, data),a)=0, diff(C(a,b,r,data),b)=0,diff(C(a,b,r,data),r)=0\},\n \+ \{a,b,r\});" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$solG6)<%/%\"aG^$$\"+ xZ/7g!\"*$!+C%=m@#F,/%\"bG^$$\"+TdX%R(!#5$!+eP'[&QF,/%\"rG$\"\"!F:<%/F (^$F*$\"+C%=m@#F,/F0^$F2$\"+eP'[&QF,F7<%/F($\"+$zU6E(F,/F0$\"+H\"\\M/) F4F7<%/F(^$$\"+()evguF,$\"+B%\\3)[F,/F0^$$\"+><'**Q$F,$!+(=M+4\"F,F7<% /F0^$FT$\"+(=M+4\"F,/F(^$FN$!+B%\\3)[F,F7<%/F($\"+.o_iwF,/F0$\"+gK&>1 \"F,/F8$!+J\"HU6$F,<%F\\oF_o/F8$\"+J\"HU6$F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "mycirc := subs( sol[7], [a+r*cos(t), b+r*sin(t), t=0..2*Pi]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'mycircG7%,&$\"+.o_ iw!\"*\"\"\"*&$\"+J\"HU6$F)F*-%$cosG6#%\"tGF*F*,&$\"+gK&>1\"F)F**&F,F* -%$sinGF0F*F*/F1;\"\"!,$%#PiG\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 125 "plots[display] (\n plot(mycirc, scaling=constrained , color=black), \n plot(data,style=point,symbol=box,scaling=constrain ed));" }}{PARA 13 "" 1 "" {GLPLOT2D 286 298 298 {PLOTDATA 2 "6'-%'CURV ESG6$7S7$$\"31++S$fvw2\"!#;$\"3*)******fK&>1\"!#<7$$\"3_>B<.&fZ2\"F*$ \"3O\")R!)o@8([\"F-7$$\"3zQoLVq^n5F*$\"3d>6_([x3&=F-7$$\"3[4C,\"F* $\"3.j@!Q*4gpHF-7$$\"3)zZWGo-#o)*F-$\"3vTd18mXgKF-7$$\"3'3+m$p7Ln&*F-$ \"3u>a'[G>d_$F-7$$\"3K!)Q%z(e*HA*F-$\"3,Z!z,H:qv$F-7$$\"3b(=#f>e?_))F- $\"3#[!)eI^))*RRF-7$$\"3O]O%Q&**)*[%)F-$\"3fb;@,.CvSF-7$$\"3!3)o\"3BL9 3)F-$\"3#R#omb%zy9%F-7$$\"38Xm0vsmgwF-$\"3y&RJe$==wTF-7$$\"3?_wjx&=#Qs F-$\"3=zflf89ZTF-7$$\"3N_D9\\]WQoF-$\"3c.4/f-=ms-#e'\\F-$\"3eyIg'oy&>EF-7$$\"3q)Qz\"Q[9hr5F-7$$\"3Dv%Q4<7od%F-$\"3 A#oLFk7\\T'!#=7$$\"37'ynO:,)\\YF-$\"3()HuSDIULFFes7$$\"3vi!3)*pMxx%F-$ !3>S>zzYY76Fes7$$\"34M.(*)['=h\\F-$!3K&)yNG.Aw[Fes7$$\"3h\")z(*H#Rz=&F -$!3>J#HS;8xG)Fes7$$\"3k)Q\"3XO8[aF-$!3u'f`'e&px7\"F-7$$\"3+sbz'Re)ydF -$!3ahvyE(4!=9F-7$$\"3WRGTx?J3hF-$!3s@AnE/sO;F-7$$\"3sOGZ.if(['F-$!39i ed>V8A=F-7$$\"3d\">q$o&G,&oF-$!3W3\\B\"GXW%>F-7$$\"3a47R:LIgsF-$!3!*3f [3<>E?F-7$$\"3cE'f/T0Il(F-$!3-(4#p:8E_?F-7$$\"33fF\"*HLbj!)F-$!3%3'p&Q PZj-#F-7$$\"3Vi+(>AD#e%)F-$!3)Q%=Hi#3*[>F-7$$\"3[9ZH5B3d))F-$!3ap\"*)= QhS\"=F-7$$\"3OFK_V#p1A*F-$!3>$y6bdaWj\"F-7$$\"3Fzsb,&=^c*F-$!3RB*y#H> _.9F-7$$\"3e'pD.h6M()*F-$!3VF@Eg$R1DFes7$$\"3Rdifvzxu5F*$\"3P(\\e)o&o6Q' Fes7$F($\"39c\\biK&>1\"F--%'COLOURG6&%$RGBG\"\"!F[[lF[[l-F$6&777$$\"3U +++o<,+sF-$!3,+++gx4_>F-7$$\"3<*****f#eQp\")F-$!31+++T1'o,#F-7$$\"3)** ****HBgHW%F-$\"3a*****pcM.N)Fes7$$\"3r*****p(fZiYF-$\"3%******\\H5'H=F -7$$\"3!3++I[7&G)*F-$\"32+++,5PHKF-7$$\"3)*******>vza5F*$\"3-+++jKPy?F -7$$\"3l*****4N\">tuF-$\"3,+++'RE'3TF-7$$\"3')*****H`o(yXF-$\"3#****** >R?TD\"F-7$$\"3(******z?TW3\"F*$\"3-+++7@uw5F-7$$\"3>+++BB9^\")F-$\"3q *****4x$z\"=%F-7$$\"3M+++(o!4*f%F-$\"3++++_8ay5F-7$$\"3C+++iE(et(F-$!3 -+++)[yP+#F-7$$\"3M+++u#yOz(F-$!36+++(*3JE?F-7$$\"3=+++Z6p$R'F-$!3'*** ****yC/I " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 1 0 " 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }