{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 "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 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 57 "pts:=[ [0,0.1], [1,.
9], [1.4,1.6], [4,4.2], [5.5, 5.3] ];" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%$ptsG7'7$\"\"!$\"\"\"!\"\"7$F)$\"\"*F*7$$\"#9F*$\"#;F*7$\"\"%$\"#
UF*7$$\"#bF*$\"#`F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "plot
(pts,style=point);" }}{PARA 13 "" 1 "" {INLPLOT "6&-%'CURVESG6$7'7$\"
\"!$\"1+++++++5!#;7$$\"\"\"F($\"1+++++++!*F+7$$\"1+++++++9!#:$\"1+++++
++;F47$$\"\"%F($\"1+++++++UF47$$\"1+++++++bF4$\"1+++++++`F4-%'COLOURG6
&%$RGBG$\"#5!\"\"F(F(-%&STYLEG6#%&POINTG-%+AXESLABELSG6$%!GFO-%%VIEWG6
$%(DEFAULTGFS" 2 428 428 428 5 0 1 0 2 9 0 4 2 1.000000 45.000000 
45.000000 10020 10061 10056 10074 0 0 0 20530 0 12020 0 0 0 0 0 0 0 1 
1 0 0 0 18678 -16401 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 54 "E:=(m,b)->sum( (m*pts[i][1]+b - pts[i][2])^4, i=1..5);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"EGR6$%\"mG%\"bG6\"6$%)operatorG%&a
rrowGF)-%$sumG6$*$),(*&9$\"\"\"&&%$ptsG6#%\"iG6#F5F5F59%F5&F76#\"\"#!
\"\"\"\"%\"\"\"/F:;F5\"\"&F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 "gradm:=diff(E(m,b),m);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%&gradmG,**$),(%\"mG\"\"\"%\"bGF*$!\"*!\"\"F*\"\"$\"\"\"\"\"%*$
),(F)$\"#9F.F+F*$!#;F.F*F/F0$\"#cF.*$),(F)F1F+F*$!#UF.F*F/F0\"#;*$),(F
)$\"#bF.F+F*$!#`F.F*F/F0$\"$?#F." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 "gradb:=diff(E(m,b),b);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%&gradbG,,*$),&$!\"\"F*\"\"\"%\"bGF+\"\"$\"\"\"\"\"%*$),(%\"mGF
+F,F+$!\"*F*F+F-F.F/*$),(F3$\"#9F*F,F+$!#;F*F+F-F.F/*$),(F3F/F,F+$!#UF
*F+F-F.F/*$),(F3$\"#bF*F,F+$!#`F*F+F-F.F/" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 31 "solve(\{gradm=0,gradb=0\},\{m,b\});" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6+<$/%\"mG,&$\"+:\\<)H*!#5\"\"\"%\"IG$!+BKc<\")!#6/%
\"bG,&$\"+jntP>F)F*F+$\"+^?!Qb\"F)<$/F0,&F2F*F+$!+^?!Qb\"F)/F%,&F'F*F+
$\"+BKc<\")F.<$/F%,&$\"+]V7='*F)F*F+$!+1-O)H\"F./F0,&$\"+cfJ18F)F*F+$!
+_rDJBF)<$/F0,&FHF*F+$\"+_rDJBF)/F%,&FBF*F+$\"+1-O)H\"F.<$/F0,&$!+P,.S
vF.F*F+$\"+I'o];#F)/F%,&$\"+YU1[(*F)F*F+$!+#eF!)3\"F)<$/F0,&FXF*F+$!+I
'o];#F)/F%,&FhnF*F+$\"+#eF!)3\"F)<$/F0$\"+:\"z*R\"*F./F%$\"+'R([%y*F)<
$/F%,&$\"+Tp\\[)*F)F*F+$!+IrPP^F./F0,&$\"+/u:QoF.F*F+$\"+-ZN8BF)<$/F%,
&F_pF*F+$\"+IrPP^F./F0,&FepF*F+$!+-ZN8BF)" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 21 "LIST:=[[1,2],[4,-6]];" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%%LISTG7$7$\"\"\"\"\"#7$\"\"%!\"'" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 8 "LIST[1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$\"\"\"\"
\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "LIST[1][2];" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 46 "plot3d(E(m,b),m=0.5..1.5,b=-1..1,axes=framed);" }}{PARA 13 "" 1 
"" {INLPLOT "6%-%%GRIDG6%;$\"\"&!\"\"$\"#:F);$F)\"\"!$\"\"\"F.W(\\bm\"
:\":4071A04B645A1CAC406FB7E5EB6B3AAE406C795A6171C0A040698046A7EF9DB240
66C82CA4587E6A40644CBDA46BE970406209DA5E353F7C405FF725E01776A6405C3C4D
C124E3A44058DC0A3D70A3D74055CF980370493840531092923119F5405098F4395810
62404CC62C3243B5DB4048D36044C5B86E40454FB22D0E56044042320D0F252460403E
E43360824350403A107CED9168724035DB3ED4A355944032383C674278B0402E396872
B020C44028FEC0425857924024B0EA6ECB555D40214347AE147AE1406BD4BCA8C942A1
4068DB9F87E449EE406625049035CDE64063AC76A916EEBC40616DB0222CA6C6405EC9
3566CF94CA405B1A9EFA0A10214057C82E0F19D09E4054CAD287A79B7840521BDB15F3
EA0F404F69EA79ADD3C0404B205A9F80F93040474FDCE57070104043EE0534BACC3E40
40F12517CE09F9403CA097748F1B704038068BD1E8489D4034053C23A005AD40308F38
880D8D5E402B3118BFCDD62D40262D7C9C81F5A6402201A0711ED238401D3CFD1A92CC
714017F00F8AC89A5240140A46E51F876E4065AF50C4DC5FFC406334E67DB638B14060
F5CFDB08ECDC405DDBA05CBDD4FB405A31B4631CF33C4056E6200D7378C84053F18670
9D5E0A40514CE9720E4F8C404DE3538FA35C0E4049B30DF1151CB64045FD3EB6E77306
4042B6E030BF5954403FAB549EE2647F403AA0254A01915040363A98C9429F8A40326A
90C56AC630402E42D4533C19994028A3FA46BE972D4023E13A45205696401FCC6365C4
952F401942E8F2860E344014091A0C7D8275401007F8991E9E74400A5CE70EB0A23940
06E2CD9F29979A4060A7D98041893A405D38AD534AA9E040598ADB303F836C40563E34
0ED9168B40534B0E37268EDD4050AA1EC1CECC26404CA8F33020C49E40488722E78332
CF4044E26FBEA0DB454041AF3A6B851EBC403DC5428AD58C5F4038E500897805E04034
AAE20624DD3440310595766E161C402BCA8924890A0840267728A7EF9DBA4021F749F0
6CD27A401C6847F8366948401633C89BA5E35C40112F5DDA53B0A0400A7E7999CD61BA
40049B0F2B020C4C4000949ABF802A183FFCAE2982F211983FFBB49F5C28F5C5405931
2C269D18264055DA897AEF851E4052E08FE5618CF340503BA7B1CD429F404BC92FF948
DA704047A90D65E11008404409F124A584DA4040DFA25207FFFA403C3D4B575361A940
37787B20B65E4340335CD40038F5B3402FAFA27073F1324029B0D29AEE105040249E1C
0E192C3D40205B58DCEBC9BF40199EB33E341D904013C7CAE22B84D4400E16E7D03933
DF4006922D37C2DFAC4000CC10A59EB7B83FF9362DAEDBD6CA3FF3C33D3B905DD23FF1
1BC1B87776303FF133E1129A9B3C3FF417755CF051AB4052BCFD16B6185A40500B7C7F
EAF6BF404B5607ABD12C9E404728D871D74B03404381DB33910DDD4040543D73D6A2B3
403B27D4AD5F3EB040366B1542A603BC40325D09744E6160402DD3F2A307EA084027FF
5057A2593540231AA92E3E8D7A401E0EE1A6D94A6640175422F0F4BFB84011D3D7A6E6
3C62400AC55C7C7F885A4003B6846C1D3A843FFC78705B6D409D3FF446C5CAA69F223F
ED132727C58B4A3FE614309615E5723FE3528D53EADCE73FE4BF8B20CB14B03FEA7BE0
081742E93FF26BD530851845404B650F2B020C5640471A2633A13C6440435BDD5891D6
8240401CC883126E9F403AA0727B2201D04035D47D6755E3C44031BF4B645A1CB6402C
97E29C4E2D9E4026CDFE862819BA4021FD0147AE1488401C07F04E13ABD2401589CDDE
456E0E4010498FDF3B646840082E2FF3758BA240019069C008174E3FF8E289374BC6C2
3FF128242179D7FC3FE71FF6F2C6C8683FDF406A7EF9DB4C3FD6D9046CB892C33FD49F
8A610A308A3FD8889BA5E354053FE173D40E7661283FEA37781FC1B34C3FF38BE147AE
147D4043AD3E2369012340404C97546F8D8D403AC9E6F3EA0DC64035D3904BFA701240
319E911776A863402C2995FE47DB7440264335DC4C8F62402163B224011CDB401ACF63
6A51AAE040145DA3E88957C0400E6E9B2A4CD02F40064EEA98428C363FFFFC73CBB679
963FF654CDE1E97F723FEE34A6A98DDE783FE3B05057C92F5A3FD8C492531543BD3FCE
FEA716C7E55C3FC5B3CC7BE430333FC4F839CFCF0CF53FCCD9353C406C713FD710D30D
2C45AF3FE296853CA7FC933FECF22ADF41DD5E3FF5AE26941D06A7403BCE22902B4952
40368E58F2ED9E6840321D0019E4093F402CC58CF5411B46402693AB9A27FFDD40217B
A6171C0A43401AAF79CAF44B3E40140A4E06B9BC74400D9047CE71867D40055E86F739
F9FC3FFE2F87723525C43FF4C084B0AF2AE73FEBA084B0AF2AFE3FE1AD627B2201E73F
D58DD96AAC490F3FC8EF567F13BF6A3FBC51BE360E9D813FB2FCB013D297363FB4C6DB
B7B01A5B3FC1096E505A36923FCE5F48565EB6B03FDA08C6061E64273FE5229AAFECFC
883FF05E36DDBD80D33FF8659C886EA480403363EC3D07C85C402EB6A437D11D244028
02718A1DB96240228023FF2E48FB401C0F2B53F2A1574014E72E4465ECCB400E87BE11
3405124005CD71C5DB663C3FFE5C907CEC462B3FF489D84B5DCC8A3FEADF88E49B7CAD
3FE0E62525D707C63FD440D1D14E3C023FC6DA801C7AD72E3FB803F53956C5513FA852
13A92A30B03F9F618FDEE88AEF3FA482D7DD3FEEE23FB40ECC63F141153FC3B3393094
A10A3FD1FA6353A4F51F3FDEAD23BCD35A7D3FE8CBE56EA861813FF32FC5959325C23F
FCA1A5182A992C402AE0F600DC12694024BACF44B24D81401F7228FDD9D25C4017685F
C1B349F840110F044107C33140084589E2D283BE4000CC7AA3CA18543FF687D7AC0EAA
4D3FED2322764740403FE20F58C59E8E6B3FD54D9EDBEB78633FC7ADAF8BE566F83FB8
73DF218051423FA70B57CFA8372B3F9446E09271D45E3F88A1C78401EC343F9412970B
DBB12E3FA7AB70E491212D3FB9F56D338DD1393FC9A6814D57F6633FD7503E669A2E67
3FE3D622B08854B33FEFFF0B811316D03FF8AED153696898400257065BE1C2A04022BC
6E6AE68A13401C1EB6B35D45E04014AAD1ECD5B348400DAA2055F726B24004B680401E
BEE53FFC04761F334D3A3FF241449DABB4293FE6C3866CDF68DC3FDAEFF528D565B63F
CDED92FCFDC0393FBEC56233EEE8CE3FACA20CF2049A653F972F493F6309FC3F7FEC79
DE5F52BF3F72E2AA76E298613F88CC107C31DBE63FA1F72DB0273D6D3FB58A7461CC5E
9A3FC67BB4361B8F163FD53BC0C56AC6083FE29322DB6A03E63FEE93171323D3AB3FF7
F0C3F89DF9484001FC6A2A3964F3400A19852E4B7F5F401AB53F7CED918640138BFC28
26A25D400BE9F093A8849B40035E45A1CAC09B3FF9FD5ED710B6953FF0C17FE9587808
3FE4978D4FDF3B853FD7DAFD991825973FC9A554EDC530BA3FB8F7CED916876D3FA51B
E360E9D3BA3F8D17089F30110C3F747AE147AE14843F80456110A980603F97B5C42D9C
BBB23FACF1A9FBE76BFD3FBEA8F2860E35243FCD7B93476D5A0E3FDA5604189374733F
E62772352598AA3FF1B8CCE6B0D5E03FFB2B22D0E5600E4004146AB2C1ED68400CC3D9
AB665FCA40140D4FDF3B64404013CEEAA3E3FC52400C6FE9852BAA6D4003DBA23B6AD3
2E3FFAD9EFA96D81503FF177799C6E8AA83FE5AE76E02AE1C03FD96109AA2FAF973FCB
8A7FBF45E91A3FBB0D9AA2FAF8113FA7A1272A32EC193F94EF20CB14A8183F92A162E2
B226433FA1D54F849D43C03FB2525A49FB17EB3FC1552BD46914463FCE9C64CB6253E3
3FD9AFC70AA500713FE4AF3FBB3A475F3FF01215F78E1EDA3FF82E8743AF64D74001AB
ED8D909937400928567E7866CE40117CD32386218C4017CC6F665FED49401FC56E03FE
AF46400EE99F2F6AE2BB4005E881FB75813A3FFE26B0464F42A53FF408693A0C01463F
E98411CA2F861C3FDEDC76015858ED3FD18BA5AA5E49FE3FC2C31944CEC84B3FB42356
507948393FAC57DE0F0F22713FB1412C171445A33FBC7F7F463BD76B3FC83F4E5D75A7
DB3FD3D45EBE7813F43FDF2194B9AA44463FE7A4D3F8748C663FF17B71F3201AEC3FF9
437D131C0F514001E11FC10D965A4008D390C5FBC3104010EE4FE89E0E0B4016B5DA97
545A1E401DFE099E8911B7402385359B8FE1764029123D51BB9F32400959F48B43958B
4001D337E9C0081D3FF84FCDBB1371873FF0005DD2F1AA003FE4405E8D703C4B3FD8BC
159FC4EFCE3FCE22BD70A3D70A3FC47A8DB432DF013FC2B69A24C34B0A3FC7CB820C49
BA443FD1B5C2F2118BF13FDB0343AA8A4D8F3FE432824DD2F1973FED684BE4979A1E3F
F4E697F3A953933FFD1D63F7CED9004003EE8578BB19D6400AE0E0FCA321C24011DFDC
9374BC5E4017786E54E74C1B401E72FA2544BF3440238720B851EB7B4028C779564B4B
9C402F1FD4AC15232240335C3B7EF9DB1B4005A922764740113FFE5F6D8E2BF18D3FF4
BCB07B62BBDE3FEBAD3BA51433AE3FE262F3AFCC9F7D3FD9A4F3D6A2AD493FD4C64EEF
BE0F303FD5577B8318E79D3FDAE4CD0094DF313FE2ACB3B7E3E2543FEA7F9FB7FDC650
3FF29FC68E0B947C3FF9B82365C495214001713FFE61BF604007481509477A49400EA5
11C64D51714013EC489D91CFF640199F644038A2D140204FF1B074E9B4402493DD4F77
AB344029BB65D1873177402FE9728FC3B9124033A1F0B4058FFF4037F9C35E7C729440
3D1216BAF3146E40033FAB4BE08BFD3FFB57BE95EF0F4D3FF353D6AE68A0003FEBF8C8
3057C92F3FE5E3C0604802343FE3D8F0F25246243FE5781D380102E53FEA9070CEB8B9
6F3FF1903FCFDBFEE73FF7AB22F00BBB503FFFC7940864EEEE400515FCBFA70023400B
9B36F08D2F7E4011D72FF802A1224016CB1C9512FD00401CD2AF0EFE4E5140220E9117
633D4A40266FCEE37454DC402BAA9B59AEA2DE4030EFBBB665FED1403498ED4A21EE5C
4038E4196625AC4D403DE5F24AEA959A4041DA52BDA46BEA404533EDDE3BB87D400234
46A7EF9DB33FFB478EDAB4C7BD3FF55828FC3B91AB3FF23F56041893753FF1B9C467DD
D0F53FF39BD6C30A575C3FF7D1A3D70A3D733FFE5EF68B36A3924003AFA6F66AD9A040
0982EE978D4FE340106762EAC969744014E23D380102EF401A509A1CAC083440206B7D
45C227CA40244FE6405F78E84028EDB5810624DF402E600F0F4BFA6D40326286BBC234
C240361EE0E560418A403A7719CF677CB7403F7EB0871E100E4042A54FAE147AE24045
F8ADF045FC704049C56B7454DA5F404E183E45A1CAC240034BE166CA145A400021BA66
A9B74C3FFD68FA8DDCFA123FFDC983777CA51C40009EF98C35A9A54003DB70926778E4
40089E4CBB5D3B70400EF78E0716F1564013818744458FB64018744132D3677F401E6D
BBEBA6C72E4022C6D5CA565C294026FCD8AEA6C34F402BEEADBF36602D4030DA894E9A
4D92403435DDB7473EC5403818A96EF7590D403C93BD0D5EC2664040DCB23648389C40
43CEB3547F165740472A8310BC4648404AFB803B977C80404F4DC746D7D57D40521719
22B9EB044054D52C75C8B58E4007F99DA53B09C44006DE38AFC626804007C104869C9B
EA400A90B36A37C6D0400F47D1AE0788FC4012F662DC392457401748E8016A788E401C
AA858CC179254021981AE6F1902540257A700EF7D55D402A0CAC6FC14BC1402F6230BF
5954184032C8AA1C447814403659B24D6B618B403A72531543889E403F2229D84DDFEF
40423D279EB5156E404546AB96EB7EB04048B7A86A98DDEC404C9AE350BB4DB840507D
EF90C028764052F36E2B22695B4055B46C84CA93404058C7C87B9683F2405C34BEBDFB
CD9040112F696041894140121FFC0102E86440143EDF2949E7BF40178A793F7CEDA240
1C071DB37DA2DC4020DF867F5479524024613A51EB852D402893B797ADACF6402D8502
1B8249DF4031A30A16872B0D4034F56F505A36984038C52467CA65F7403D1F184BC6A7
FF404108DA96CE5E224043D670407C9979404700FD7DF3B651404A91F04B68CD57404E
937446405F8B4051883956872B0440540A492FCB01434056D61BEF650F644059F242A6
666678405D65AD3677CBA440609BD528ECDC344062B7F3BDB22D1A401AA586AB2C1EEE
401DADF1AB9A28134021113D002D4F2240240449AAFECFDA4027B5CF314746A1402C2E
7472CA04EA4030BCEB6A03FEBD4033D3451F1FE2264037630C8FB6C72A403B76823525
98F840400CB0E59409A44042AC7127EC61404045A1DB01D881B64048F50534C481CE40
4CAEC4234BE0A140506C54E89CC2B94052BE82F1C3DFFE40555372D030240940583109
F78E1F0C405B5D8CAC221542405EDF9E02C7FF0840615F1FF079C484406380697E5809
F64065D78B6E505A3E40686894EC0019EE40250F03D139857E4027FD46BA64AE60402B
C7C909D5E0AC40303A659C7503B5403306C222DDD78440364F10D9918278403A1AE3C4
5AEBED403E73482963CBE44041B163489A556640447AB1635A70E940479C4DEB954D55
404B1DB6091D67DF404F072484F4A5E34051B0C8E4A62A9C40541B59F0C295E54056C8
7F3D17A40C4059BDD17085185B405D014802826A3940604C9C9D8F62B04062462D1980
84C2406470DF69B3E5414066D06CEB14A842406968BE62D9CBDA406C3DEBFE86282B40
6F543D53E86F8A40306BB9F559B3E24032CF9E867AF3784035B86053A8D77140392AE2
EB1C4346403D2D851D6CEB354040E4107EC8A9F140438205F06F69564046760B2F84C6
CB4049C64629123D80404D799A6B50B10B4050CBD492D436A9405314689458932E4055
9B177318FC61405864CE3890B498405B76D8BED2B24B405ED6E1B089A03E4061457944
7BEE9A40634CB9C9FBBE0A40658495F6FD220E4067F0A0C204D83D406A949C89E37844
406D747B15B573FD40704A2ECA718B9C4071FC4A4F9043EA4073D2D01A36E2F6-%+AXE
SLABELSG6%%\"mG%\"bG%!G-%*AXESSTYLEG6#%&FRAMEG" 3 435 435 435 2 0 1 0 
2 1 0 3 2 1.000000 45.000000 45.000000 14010 14091 14086 14104 14112 
15010 15070 20520 0 17560 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "b := .9139979115e-1; m := .9
784487396;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG$\"+:\"z*R\"*!#6" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"mG$\"+'R([%y*!#5" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "plot([pts,m*x+b],x=0..5,color=[blue
,red],style=[point,line]);" }}{PARA 13 "" 1 "" {INLPLOT "6&-%'CURVESG6
%7'7$\"\"!$\"1+++++++5!#;7$$\"\"\"F($\"1+++++++!*F+7$$\"1+++++++9!#:$
\"1+++++++;F47$$\"\"%F($\"1+++++++UF47$$\"1+++++++bF4$\"1+++++++`F4-%'
COLOURG6&%$RGBGF(F($\"*++++\"!\")-%&STYLEG6#%&POINTG-F$6%7S7$F($\"1,++
:\"z*R\"*!#<7$$\"1LLL3x&)*3\"F+$\"1%4iD\"yO!)>F+7$$\"1nm\"H2P\"Q?F+$\"
1Ytih0@3HF+7$$\"1LL$eRwX5$F+$\"1O]*Hxm;&RF+7$$\"1ML$3x%3yTF+$\"1JQY*oR
?+&F+7$$\"1nm\"z%4\\Y_F+$\"1r=\"oO?u/'F+7$$\"1MLeR-/PiF+$\"1&zaF2Am,(F
+7$$\"1***\\il'pisF+$\"1Y\\!4Iu,-)F+7$$\"1MLe*)>VB$)F+$\"1LT&3X\\!e!*F
+7$$\"1++DJbw!Q*F+$\"1pM?7'f#45F47$$\"1nm;/j$o/\"F4$\"1(RHNXvc6\"F47$$
\"1LL3_>jU6F4$\"1DE\\%e1%47F47$$\"1++]i^Z]7F4$\"1I#*zPc#\\J\"F47$$\"1+
+](=h(e8F4$\"1unZiz(3U\"F47$$\"1++]P[6j9F4$\"1M>zfE)H_\"F47$$\"1L$e*[z
(yb\"F4$\"19*en].dh\"F47$$\"1nm;a/cq;F4$\"1z\\&>cdfs\"F47$$\"1nmm;t,m<
F4$\"1uUv3sN>=F47$$\"1+]iSj0x=F4$\"1?Fz,K+G>F47$$\"1nmm\"pW`(>F4$\"1+o
)\\JtT-#F47$$\"1+]i!f#=$3#F4$\"1%p.8<(oH@F47$$\"1+](=xpe=#F4$\"1M3P98;
IAF47$$\"1nm\"H28IH#F4$\"1O;BUb*\\L#F47$$\"1n;zpSS\"R#F4$\"1n>6*3m7V#F
47$$\"1LL3_?`(\\#F4$\"1R:izo5NDF47$$\"1M$e*)>pxg#F4$\"1$[QqFoHk#F47$$
\"1+]Pf4t.FF4$\"1ozcS>'ot#F47$$\"1MLe*Gst!GF4$\"1z2[p'p#QGF47$$\"1+++D
RW9HF4$\"1F6?wP.VHF47$$\"1++DJE>>IF4$\"1rh!e,Db/$F47$$\"1+]i!RU07$F4$
\"1.a7g0pWJF47$$\"1++v=S2LKF4$\"1W%H)*)pzaKF47$$\"1mmm\"p)=MLF4$\"1B)*
49Dt`LF47$$\"1++](=]@W$F4$\"1zKi.tOfMF47$$\"1L$e*[$z*RNF4$\"15$[L7)3bN
F47$$\"1,+]iC$pk$F4$\"1]%*[iitfOF47$$\"1m;H2qcZPF4$\"1v5+1??ePF47$$\"1
+]7.\"fF&QF4$\"1$3&ezq7hQF47$$\"1mm;/OgbRF4$\"1#4/?:b<'RF47$$\"1+]ilAF
jSF4$\"1<C5=M5nSF47$$\"1MLL$)*pp;%F4$\"1LNH>jcoTF47$$\"1ML3xe,tUF4$\"1
wHP!zEBF%F47$$\"1n;HdO=yVF4$\"1]VOs!G_P%F47$$\"1,++D>#[Z%F4$\"1'p+Om$y
pWF47$$\"1nmT&G!e&e%F4$\"1Y0vT]:yXF47$$\"1MLL$)Qk%o%F4$\"1]BF%p$3vYF47
$$\"1+]iSjE!z%F4$\"1OG[a)H%yZF47$$\"1,]P40O\"*[F4$\"1$=xkJXt([F47$$\"
\"&F($\"1***\\\"*[VO)\\F4-FB6&FDFEF(F(-FI6#%%LINEG-%+AXESLABELSG6$Q\"x
6\"%!G-%%VIEWG6$;F(Fi\\l%(DEFAULTG" 2 549 549 549 2 0 1 0 2 9 0 4 2 
1.000000 45.000000 45.000000 10030 10061 10056 10074 0 0 0 20530 0 
12020 0 0 0 0 0 0 0 1 1 0 0 0 442 918 0 0 0 0 0 0 }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 44 "read \"/home/mat331/Worksheet2/lsq_data.txt\";" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 8 "" 1 "" {TEXT -1 60 "Err
or, unable to read `/home/mat331/Worksheet2/lsq_data.txt`" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "read \"/home/mat331/Worksheets2/lsq
_data.txt\";" }}{PARA 6 "" 1 "" {TEXT -1 82 "defined line_pts(), bad_l
ine_pts(), quadratic_pts(), cubic_pts(), and circle_pts()" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "line_pts();" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#777$$\"*7#)y0*!\")$\"+zTkIAF'7$$!*M2_v(!\"*$\"+7H69PF-7
$$\"*\">++(*F'$\"+AJ@'R#F'7$$\"*Y`]p&F'$\"+3)y%e;F'7$$!*gZz6#F-$\"+yC4
.QF-7$$\"*]v.t)F'$\"+M))pb@F'7$$!+aR#y1*F-$!+DXjD7F'7$$!+O=(=x(F-$!+o*
3+-\"F'7$$!+ExlEuF-$!+Ufwf'*F-7$$\"*iAcX)F'$\"+\"oG<=#F'7$$\"*^@%R&*F'
$\"+3cwoBF'7$$!+!e/d)zF-$!+')[,'***F-7$$!+A7[lkF-$!+FZ*[r(F-7$$\"*b1aM
$F'$\"+Gqr(4\"F'7$$!+=`+8eF-$!+4UC`aF-7$$\"*V@N>*F'$\"+B(3\"eBF'7$$!+K
.cJWF-$!+6x6\")RF-7$$!+'Go8o'F-$!+GX,/')F-7$$!+%o\\B[%F-$!+J3]&G%F-7$$
\")wfnLF'$\"+_x(3)\\F-7$$\"*>&[&f#F'$\"+rby#4\"F'" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 15 "bad_line_pts();" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#7T7$$\"*\"eo\\@!\")$\"+)[\\9!=F'7$$!+qQrVH!\"*$\"+)\\>b
p\"F'7$$\"*<Vty)F'$\"+!)oyA>F'7$$\"*G'=adF'$\"+oPSj=F'7$$\"*])zsfF'$\"
+ba#[\">F'7$$!+#Q@))p)F-$\"+[v%*e9F'7$$\"*'=ZzIF'$\"+yL<K=F'7$$!+qEIBp
F-$\"+DI'3^\"F'7$$\"*I7^O$F'$\"+zda)y\"F'7$$\"*uN(p`F'$\"+yTgL=F'7$$\"
*K;,>%F'$\"+\\\"=u'=F'7$$!+C73-DF-$\"+=THu:F'7$$\"*/%)e[\"F'$\"+RJ'ev
\"F'7$$!+hS#G2)F-$\"+\"yL\"R9F'7$$!+c[FKvF-$\"+,Aqp9F'7$$!+y=V1NF-$\"+
!H3bp\"F'7$$!+MGH*H%F-$\"+zT8g:F'7$$\"**[+S_F'$\"+)*G,&)=F'7$$\"*%Q$)3
_F'$\"+Ws!)f=F'7$$!+'**\\2\"oF-$\"+Ollu9F'7$$!*7c.W)F-$\"+Iy#4l\"F'7$$
\"*E+'*H$F'$\"+Q&Qex\"F'7$$\"*8x>0%F'$\"+f<XW=F'7$$!+%*pPrHF-$\"+qrE(o
\"F'7$$\"*5U1a\"F'$\"+o71#z\"F'7$$!*/\\_`$F-$\"+&))Q+f\"F'7$$\"*,Egb#F
'$\"+ZT\"3!=F'7$$!+q[K@[F-$\"+mZ&ph\"F'7$$!+S(R4`$F-$\"+&zcXZ\"F'7$$!+
_h#RV#F-$\"+***)p<;F'7$$!+c)[y)fF-$\"+S_C`:F'7$$!+c!G&yVF-$\"+gB![j\"F
'7$$\"*#zwN!*F'$\"+-E!p/#F'7$$\"*;z3b&F'$\"+q<.**=F'7$$\"*[<)=%*F'$\"+
lzRN>F'7$$\"*8!*oO)F'$\"+Q$G!3?F'7$$!+H/j-(*F-$\"+zWbM9F'7$$\"(lQQ(F'$
\"+6i'Qt\"F'7$$\"*%*)G2^F'$\"+*GL(\\>F'7$$!+[oNU%)F-$\"+Pf829F'7$$\"*-
!HlfF'$\"+t4k+>F'7$$!+=q@KFF-$\"+?;X?;F'7$$!+j<&))\\*F-$\"+k(\\mu\"F'7
$$!+!\\kB(zF-$\"+7$*G^?F'7$$!+8X0;')F-$\"+<e(Q;#F'7$$!+5O\"zJ(F-$\"+W>
Q8AF'7$$\"+.53&o&F-$\"+)o[6L\"F'7$$\"+V-+L#)F-$\"+_\\3U8F'7$$\"+IMltrF
-$\"+H8Yp9F'7$\"\"*$\"+7<&*)>#!\"(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "cpts:=cubic_pts();" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%%cptsG777$$!+#R1d:#!\"*$\"+C7y6\")F)7$$!+&pBo'>F)$\"+C%>\"oGF)7$$!+
i\"QQ;#F)$\"+()\\[*y&F)7$$\"*24o([F)$!+yT2&>*F)7$$\"+Yb<&R\"F)$!+l1`uc
F)7$$!+8t:'Q\"F)$!+;$\\D^'F)7$$\"+=Hcx@F)$!+B$oz'\\F)7$$!*`#457F)$!+ly
fK**F)7$$!)yl`FF)$!+O]')\\**F)7$$!+ww\"o.#F)$\"+>)p%*z$F)7$$\"+Ijwt=F)
$!+5d)>e&F)7$$!+c@BI9F)$!+$Q9%)R'F)7$$!*0E!**yF)$!+Z9b\"4\"!\")7$$\"+J
*H82\"F)$!+a^sesF)7$$!+7&>:D\"F)$!+t83(o'F)7$$!+ez=@EF)$\"+7&*4.>Fbo7$
$!*j%fp!*F)$!+FoFj(*F)7$$!+/\"yI`#F)$\"+!Qg(G;Fbo7$$\"+7T`\\=F)$!+_gI.
WF)7$$!*-BqZ$F)$!+Om?56Fbo7$$\"+;U.T5F)$!+w#[cT(F)" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 88 "littlee:=(a,b,c,d,i)->(cpts[i][2]-a*cpts[i]
[1]^3 - b*cpts[i][1]^2 -\nc*cpts[i][1] - d)^2;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%(littleeGR6'%\"aG%\"bG%\"cG%\"dG%\"iG6\"6$%)operatorG
%&arrowGF,*$),,&&%%cptsG6#9(6#\"\"#\"\"\"*&9$F:)&F46#F:\"\"$\"\"\"!\"
\"*&9%F:)F>F9FAFB*&9&F:F>F:FB9'FBF9FAF,F,F," }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 54 "E:=(a,b,c,d)->sum(littlee(a,b,c,d,i),i=1..nops(cpt
s));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"EGR6&%\"aG%\"bG%\"cG%\"dG6
\"6$%)operatorG%&arrowGF+-%$sumG6$-%(littleeG6'9$9%9&9'%\"iG/F9;\"\"\"
-%%nopsG6#%%cptsGF+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "
nops(cpts);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#@" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 11 "E(1,1,1,1);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#$\"+Q)enq%!\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 148 "so
lve( \{ diff(E(a,b,c,d), a) = 0,\n         diff(E(a,b,c,d), b) = 0,\n \+
        diff(E(a,b,c,d), c) = 0,\n         diff(E(a,b,c,d), d) = 0\}, \+
\{a,b,c,d\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<&/%\"bG$\"+H'z,V#!\"
*/%\"dG$!+t\\$)f5!\")/%\"cG$\"+[$Rr/#F(/%\"aG$!+Z;2A5F(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "bestcubic:=subs(%,a*x^3+b*x^2+c*x+d
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*bestcubicG,**$)%\"xG\"\"$\"\"
\"$!+Z;2A5!\"**$)F(\"\"#F*$\"+H'z,V#F-F($\"+[$Rr/#F-$!+t\\$)f5!\")\"\"
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "plot([cpts,bestcubic]
,x=-3..3,style=[point,line]);" }}{PARA 13 "" 1 "" {INLPLOT "6&-%'CURVE
SG6%777$$!1+++#R1d:#!#:$\"1+++C7y6\")F*7$$!1+++&pBo'>F*$\"1+++C%>\"oGF
*7$$!1+++i\"QQ;#F*$\"1+++()\\[*y&F*7$$\"1+++q!4o([!#;$!1+++yT2&>*F*7$$
\"1+++Yb<&R\"F*$!1+++l1`ucF*7$$!1+++8t:'Q\"F*$!1+++;$\\D^'F*7$$\"1+++=
Hcx@F*$!1+++B$oz'\\F*7$$!1+++ID457F:$!1+++lyfK**F*7$$!1++++yl`F!#<$!1+
++O]')\\**F*7$$!1+++ww\"o.#F*$\"1+++>)p%*z$F*7$$\"1+++Ijwt=F*$!1+++5d)
>e&F*7$$!1+++c@BI9F*$!1+++$Q9%)R'F*7$$!1+++]g-**yF:$!1+++Z9b\"4\"!#97$
$\"1+++J*H82\"F*$!1+++a^sesF*7$$!1+++7&>:D\"F*$!1+++t83(o'F*7$$!1+++ez
=@EF*$\"1+++7&*4.>Feo7$$!1+++IYfp!*F:$!1+++FoFj(*F*7$$!1+++/\"yI`#F*$
\"1+++!Qg(G;Feo7$$\"1+++7T`\\=F*$!1+++_gI.WF*7$$!1+++?I-xMF:$!1+++Om?5
6Feo7$$\"1+++;U.T5F*$!1+++w#[cT(F*-%'COLOURG6&%$RGBG$\"#5!\"\"\"\"!Fer
-%&STYLEG6#%&POINTG-F$6%7U7$$!\"$Fer$\"1++gN$yFF$Feo7$$!1++]P&3Y$HF*$
\"1')*zY=2`,$Feo7$$!1+++vq@pGF*$\"1jgHK'4ww#Feo7$$!1+]78.K7GF*$\"1/:^^
u!*fDFeo7$$!1++D^NUbFF*$\"1`Qs[<OfBFeo7$$!1++]K3XFEF*$\"1J^UC#eQ$>Feo7
$$!1++]F)H')\\#F*$\"1ctFN6AS:Feo7$$!1++D'3@/P#F*$\"1')*3H.7<=\"Feo7$$!
1++Dr^b^AF*$\"1AG`4CRy()F*7$$!1++D,kZG@F*$\"1fXpIcy4fF*7$$!1++Dh\")=,?
F*$\"1[sIOaOGKF*7$$!1++DO\"3V(=F*$\"1IdiS15=$)F:7$$!1+++NkzV<F*$!1\\$)
*>Ns(e8F*7$$!1++]d;%)G;F*$!1,t)y0T$oIF*7$$!1+++0)H%*\\\"F*$!1:,.>SeeZF
*7$$!1+++vl[p8F*$!1$4yS=S*=iF*7$$!1+++&>iUC\"F*$!1afl:=G9uF*7$$!1++Dhk
aI6F*$!1'=dM#GvH$)F*7$$!1+++]XF`**F:$!1mb<H)*e?#*F*7$$!1++++Az2))F:$!1
P2NXqz<)*F*7$$!1++]7RKvuF:$!1P=k\\7PM5Feo7$$!1-+++P'eH'F:$!1q.mpl)o1\"
Feo7$$!1****\\7*3=+&F:$!14&ofuS')3\"Feo7$$!1)***\\PFcpPF:$!1h35jm*p4\"
Feo7$$!1)****\\7VQ[#F:$!170fUN7%4\"Feo7$$!1)***\\i6:.8F:$!1Qn)*o\"f@3
\"Feo7$$!1b+++v`hH!#=$!1o6!p5R/1\"Feo7$$\"1++](QIKH\"F:$!1\")o$HY<&H5F
eo7$$\"1****\\7:xWCF:$!1#*H)z-cv'**F*7$$\"1,++vuY)o$F:$!1SJ.cl$Rc*F*7$
$\"1)******4FL(\\F:$!1f\"*3!R&)[5*F*7$$\"1)****\\d6.B'F:$!1W#fa1zni)F*
7$$\"1++](o3lW(F:$!1W0K7`U[\")F*7$$\"1*****\\A))oz)F:$!1-(fmJyEh(F*7$$
\"1+++Ik-,5F*$!1ZMTi-;RrF*7$$\"1+++D-eI6F*$!1?<ZpviamF*7$$\"1++v=_(zC
\"F*$!1za/>^DXiF*7$$\"1+++b*=jP\"F*$!1$=E<K'4UeF*7$$\"1++v3/3(\\\"F*$!
11z?2oO;bF*7$$\"1++vB4JB;F*$!1\\0=Z,TV_F*7$$\"1+++DVsY<F*$!1P#QpPN\\0&
F*7$$\"1++v=n#f(=F*$!1O5sx>I`\\F*7$$\"1+++!)RO+?F*$!1%H!G$32,'\\F*7$$
\"1++]_!>w7#F*$!1)*e&p6ud3&F*7$$\"1++v)Q?QD#F*$!1f$G:&[IT`F*7$$\"1+++5
jypBF*$!1D$)oHVk,dF*7$$\"1++]Ujp-DF*$!1R40fd<viF*7$$\"1+++gEd@EF*$!1g[
!4,pY%pF*7$$\"1++v3'>$[FF*$!1P6Ec5LLyF*7$$\"1++D6EjpGF*$!1/JNYn=k))F*7
$$\"\"$Fer$!1++S\\\\7=5Feo-F_r6&FarFerFbrFer-Fgr6#%%LINEG-%+AXESLABELS
G6$Q\"x6\"%!G-%%VIEWG6$;F^sFibl%(DEFAULTG" 2 547 547 547 2 0 1 0 2 9 
0 4 2 1.000000 45.000000 45.000000 10030 10061 10056 10074 0 0 0 
20530 0 12020 0 0 0 0 0 0 0 1 1 0 0 0 0 74 0 0 0 0 0 0 }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 
1 0 2 1 1805 }