{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 "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 45 "read \"/home/mat331/
Worksheets1/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 16 "pts:=line_pts():" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "plot(pts,style=point);" }}
{PARA 13 "" 1 "" {INLPLOT "6&-%'CURVESG6$777$$\"1+++!zYZB\"!#:$\"1+++j
+9HD!#97$$!1,++y#=FH*F*$!1+++#=i(Q@F-7$$\"1+++IR7MPF*$\"1+++'o;Yj$F-7$
$\"1+++IV$y^&F*$\"1+++\"\\4u\\%F-7$$\"1+++5!fE`*F*$\"1+++S3(>J'F-7$$!1
+++ykfC()F*$!1+++I>2!*>F-7$$!1+++s!=4W$F*$\"1+++c9,pUF*7$$!1,+++S(Qt)!
#=$\"1+++:ua8>F-7$$\"1+++!oxA8'F*$\"1+++O9Y`ZF-7$$\"1++++'3&G')!#;$\"1
+++Rr%fS#F-7$$\"1+++?%)ejaF*$\"1+++$el)>WF-7$$!1+++7()=Y^F*$!1+++ntj2I
F*7$$\"1,++];$**\\)F*$\"1+++sBtIdF-7$$!1*****RsA#z&)F*$!1+++[^q#z\"F-7
$$\"1++++d/FFF*$\"1+++%4(4=KF-7$$\"1+++SHjHPF*$\"1+++2ln3PF-7$$\"1+++?
a8%))*F*$\"1+++i\"p,S'F-7$$\"1+++g+HCBF*$\"1+++!\\^M)HF-7$$\"1+++!4[-`
(F*$\"1+++yb'eW&F-7$$\"1+++S:'[#pF*$\"1+++*3Ct2&F-7$$!1+++#o&*H/#F*$\"
1+++@&[85\"F--%'COLOURG6&%$RGBG$\"#5!\"\"\"\"!Fer-%&STYLEG6#%&POINTG-%
+AXESLABELSG6$%!GF]s-%%VIEWG6$%(DEFAULTGFas" 2 489 226 226 5 0 1 0 2 
9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 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 
7 "pts[7];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$$!+s!=4W$!\"*$\"+c9,pU
F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "pts[7][1];" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#$!+s!=4W$!\"*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "nops(pts);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#@" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "epsilon:= (m,b, pt) ->  (m
*pt[1] + b - pt[2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(epsilonGR6%
%\"mG%\"bG%#ptG6\"6$%)operatorG%&arrowGF*,(*&9$\"\"\"&9&6#F1F1F19%F1&F
36#\"\"#!\"\"F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "E :=
(m,b, pts) -> sum( ( epsilon(m, b, pts[i]))^2 , i=1..nops(pts));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"EGR6%%\"mG%\"bG%$ptsG6\"6$%)operat
orG%&arrowGF*-%$sumG6$*$)-%(epsilonG6%9$9%&9&6#%\"iG\"\"#\"\"\"/F;;\"
\"\"-%%nopsG6#F9F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "e
psilon( 2, 0, [1,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "E(5,19, pts);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#$\"+M-5v>!\"(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "\nE(6,19, pts);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$
\"+.`,H<!\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "plot3d( E(m
,b,pts), m=0..10, b=0..50);" }}{PARA 13 "" 1 "" {INLPLOT "6$-%%GRIDG6%
;\"\"!$\"#5F';F'$\"#]F'W(\\bm\":\":40DDF487B814D9B940DBABA5CB75819A40D
990568980D42540D7A299F236D15B40D5E2700597793C40D44FD8C3A2CBC640D2EAD42
C58C8FD40D1B3623FB970DD40D0A982FDC4C36940CF9A6CCCF5813D40CE3CF8F3B6D0F
F40CD3AAA6FCD761340CC93814139708040CC477D67FAC04340CC569EE411655840CCC
0E5B57D5FC340CD8651DC3EAF8440CEA6E35855549A40D0114D14E0A78240D0FCBB284
14F6340D215BBE64CA1F140D35C4F4F029F2840D4D0756263470640D6722E206E99944
0D84179892496CA40DAA0D5C60608D940D867F3B8C3941A40D65CA4562BCA0240D47EE
79E3EAA9B40D2CEBD90FC35DA40D14C262E646BC440CFEE42ECEE98B440CD9F5ED269A
F3340CBABA00D3A1B0940CA13069D5FDC3640C8D59282DAF2B540C7F343BDAB5E8C40C
76C1A4DD11FB640C74016334C363740C76F376E1CA20B40C7F97DFE42633740C8DEE9E
3BD79B640CA1F7B1E8DE58B40CBBB31AEB3A6B940CDB20D942EBD3940D00207677F948
840D1589AAF92751D40D2DCC0A250005E40D48E793FB8364C40D66DC487CB16E040D79
146538AF07D40D5686425A55F1B40D36D14A26A786740D19F57C9DA3C5D40CFFE5B37E
955F740CD192C3173888B40CA8F228053107540C8603E2487EDB540C68C7F1E12204A4
0C513E56CF1A83440C3F6711126857440C334220AB0B80840C2CCF859903FF340C2C0F
3FDC51D3140C31014F74F4FC740C3BA5B462ED7B140C4BFC6EA63B4F040C62057E3EDE
78640C7DC0E32CD6F7140C9F2E9D7024CB240CC64EAD08C7F4540CF32111F6C073240D
12D2E61D0723940D2EEE6DE958B8640D4DE3206054F7B40D4C5D960A390A440D2ACF71
21AE2A440D0C1A76E3CDF4D40CE07D4EA130D4440CAE7804D01B14340C822510545AA9
740C5B84712DEF94040C3A96275CD9D3F40C1F5A32E11969340C09D093BAAE53D40BF3
F293D33127640BDFA8AADBB052140BD6C36C8EDA27240BD942D8ECAEA6F40BE726EFF5
2DD1540C0037D8D42BD3340C128E8F031613240C2A979A8755A8640C4852FB60EA9314
0C6BC0B18FD4D3340C94E0BD141468740CC3B31DEDA953040CF837D41C9393140D1937
6FD06994240D392C203D3409940D23E8EED4FE94E40D035AC7E241EAE40CCB4B97345F
D6E40C9593F3F9912D840C658EA61417D9640C3B3BAD83F3DA940C169B0A492531140B
EF5978C757BA040BBCE187A70FBC740B95CE41317269840B7A1FA5667FC1640B69D5B4
4637C3C40B64F06DD09A70D40B6B6FD205A7C8A40B7D53E0E55FCAF40B9A9C9A6FC277
F40BC349FEA4CFCFC40BF75C0D8487D2240C1B696387753FB40C40D715A1FBEB940C6B
F71D11D7ECF40C9CC979D70943740CD34E2BF18FEF640D07C299B0B5F8640D28B74813
4EA3B40CFF6CDF31FF4FC40CC0508D382267A40C86E690939AD4B40C532EE944689744
0C2529974A8BAF240BF9AD354C0838840BB46BE6ADA3BD940B7A8F42B9E9ED340B4C17
4970DAC7940B2903FAD2764C740B115556DEBC7C340B050B5D95AD56840B04260EF748
DB740B0EA56B038F0B040B248971BA7FE5740B45D2231C1B6A440B727F7F28619A040B
AA9185DF5274540BEE083740EDF9440C1E71C9A69A14940C4B91CD021281E40C7E6425
B2E044640CB6E8D3B9035C440CF51FD7147BC9940D1C8497E2A4C6240CBF8C30AC7886
440C826FDA9E380A240C4B05D9E54CE3340C194E2E81B711940BDA91B0E6ED2AD40B8D
EBAF7516DCF40B4CAA58ADEB39D40B16CDAC916A41640AD8AB563F27E7340A9A84A8B0
D0A1240A73275077CEB0440A62934D942214A40A68C8A005CACE640A85C747CCC8DD74
0AB98F44E91C41C40B02104BAD627DD40B32BD9F90E185540B6ECF9E1F0B37A40BB646
4757DF94940C0490CD9DAF4E240C33B0CCE4C427640C688321812E55D40CA307CB72ED
D9B40CE33ECABA02B2D40D14940FAB3670C40C882FD21968CD440C4D1377F6C4BD040C
17A973297602140BCFE38762F938E40B7BD8D31DB118340B3332C98313A2740AEBE2D5
2641AE340A88296C9BB16D540A3B3959667681940A05129B8690EB3409CB6A65F80154
4409BA423F8D8B7CD409D6ACC3CDC04FE40A1054F95C4FE6D40A4C1CE62714FB040A9E
AE28472F64540B04045FDE4F91C40B44165643B21BE40B8F8CF753BF50D40BE668430E
7730440C24541CB9ECDD540C5B266D41F377F40C97AB131F4F67A40CD9E20E5200ACE4
0D10E5AF6D03A3B40C5957C378D024C40C203B6541C880740BD9A2B8C02C62D40B7E33
51A7726F740B2E2895396326D40AD30506EBFD11B40A608238BA892B040A04C8BFDE6A
99C4097FB138AF42BBE40923639C4C5AEEA408E95155283B980408E700C70D16A84409
1FEAC723A386D40979E7D56B6664340A00BBC72EE9F6140A5B4CF8FD760F440ACCA780
21577E240B2A65AE4D4721140B79DC47348D2DD40BD4B78AC67DE5640C1D7BBC818CA3
D40C564E08F52FAA440C94D2AABE2806040CD909A1DC75B7240D117977280C5ED40C33
0404CAAE8CB40BF7CF44FE86A8840B94FB2B125AE2840B3D8BBBD0D9C7240AE301EE74
06ACB40A61B5BA9BAF208409EE65B83159D3640946F2A5D6001064089A247C4AA1F094
080189023E991594078825BB0FCB1F3407C3841C4D0EBE34085A96941A7E83A4091748
37B1E57EB409AED7D0013666440A39FD097D98FC340AB357804FEC1AD40B21BDA63BCA
47540B753436FA492C240BD40F726372BB840C1F27AC3BA37AE40C59F9F49AE2ED240C
9A7E924F77B4F40CE0B5855961D2040D164F66DC50A2440C1534960F0405140BC0305F
5E6A71440B615C3D497783340B0DECC5DF2F3FC40A8BC3F23F234D940A1277AE153D71
44095FE97E8159D4B40890EC9705C6E2A4077A570CBC5EE34406123F2C2FB557240538
CB2878047964069321519DA476F407FB39322A4E032408F19633183A3A9409A05A9138
5164640A3ABE59C7982B240ABC18C0485CF9840B2A1E3E0F3B8EB40B8194C6A4F34B54
0BE46FF9E555B2940C2957EBE83162440C662A30330D40A40CA8AEC9D33E74540CF0E5
B8C8C4FD640D1F677E89D06DF40BFFD2EE8BA11C140B999A19A33C5B240B3EC5EF6582
44C40ADEACDFA4E5B2940A569735D41C30B409CA95C2B150084409158FC465125A0408
1C38E186FEAC8406A1DE3E64B7EAD403FB72601653C23404264EBBD8C96B0406C04E67
3EEF92040828E79D37408764091E707AFA0D3FF409D5FFD20324E6A40A5D90E9DB739C
140AE6EB400AAA1A440B438775C79AF6F40B9EFDF6348B8BA40C02EC90A61365640C3C
0C7B87365A540C7ADEBBBDAEA4940CBF6351497C44540D04CD1E154F9CB40D2CC1BE30
8BC1C40BE64550DE284EF40B840C73CCFC65F40B2D3841667B27A40AC39173554927D4
0A437BB932F155B409B45EA8CBDDB204090F5889DC836364082FCA2B2FA77EA4073811
2FF73B1814068DB16873A3BAD4070BEAE327134D340803A3DE5F7FB3B408DC77A080CB
15B40988385BFBB5E6940A27E3C930D876940AA274B9B92B4F140B19E77FCB69BE940B
6DF94D64E880540BCD6FC5A911ECB40C1C25744BF302040C57455B18B262E40C981797
3AC719240CDE9C28B23124940D156987BF7842D40D3E5E25D0829E140BDDC053159DA2
E40B7F876DDBAA91B40B2CB3334C622B640ACA8746CF88DF140A52717C5BA2BCD409E2
4A0E7A23DFB4094D43CEE7ACF0F408CBA073FFC158E40857DE9F857E25A4083F422060
9047840881CAF690F7BEA4090FBC910B5A4594098C265178E356340A1B115E488B88D4
0A86D8E929FABBD40B04B4E4B05FA2140B5161FF766C90F40BA973C4E7242AB40C0675
1A814337940C3DE2A7E449AF140C7B028A9CA57BF40CBDD4C2AA569E240D032CA806AE
8AF40D2A481962DC71440D543CB569B502840BE643F5320117C40B8C0B07CF46DE940B
3D36C5173750240AF38E5A13A4D8740A83787F4E3066040A2A2BF9DE1148E409CF5193
868F02A40977DDDDFBA61DE4094DFCD31B67E3C40951AE72E5D454640982F2BD5AEB6F
8409E1C9B27AAD35640A3719A9228CD2E40A9417CE5D1860340B03EFA4767CA1940B49
380C6917BDB40B99E51F065D84840BF5F6DC4E4DF6440C2EB6A2207489340C68242B6F
176CC40CA7440A130FA5840CEC163E0C5D33940D1B4D63AD800BA40D4368D2FF7C2804
0D6E5D6CFC22EF240BFFD0373352ADE40BA99741A7D14C940B5EC2F6C6FA96040B1F53
5690CE8A040AD690C20A9A51640A85442C48ECE4240A4AC0EBDC94CC640A270700C592
09A40A1A166B03E49C740A23EF2A978C84A40A44913F8089C2040A7BFCA9BEDC54A40A
CA316952843CA40B1797BF1DC0BCF40B557B743CEA06540B9EC3D406BDFA440BF370DE
7B3C99040C29C149CD32F1440C5F7C79B21CEB840C9AE9FEEC5C3AD40CDC09D97BF0DF
940D116E04B06D6CD40D37B0474D8D14A40D60CBB4955767140D8CC04C87CC64140C15
328C8CC932740BD82C1B6549DB740B9157C85BABFCE40B55E81FFCB8C8D40B25DD2248
703F540B0136CF3ED260B40ACFEA4DBFBE59140AB43052572D46640AAF3FAC43F18914
0AC1185B860B21040AE9BA601D7A0E240B1492DD051F28540B3FAD34A62BF4340B762C
36F1E36AC40BB80FE3E8458C040C02AC1DC4A92BF40C2F029EEA84E7440C610B7565B5
F8140C98C6A1363C5E040CD634225C1819640D0CA9FC6BA495240D31131253E7C8240D
585552E6D5A5F40D8270BE246E2E540DAF65540CB161440C33014D72601E740C0BE4CA
83D845C40BD4F539D54B84D40B9D85894D9128940B717A83708177140B50D4283E1C70
440B3B9277B66214240B31B571D95262B40B333D16A6ED5BE40B4029661F32FFC40B58
7A6042234E240B7C30050FBE47740BAB4A548803EB440BE5C94EAAF439940C15D679BC
4799640C3E7AA1786A6B540C6CD11E89E292840CA0D9F0F0B00F540CDA9518ACD2E134
0D0D014ADF2584440D2F9134128C42A40D54FA47F09DABB40D7D3C867959BF740DA857
EFACC07DD40DD64C838AD1E6C40C59545E4A6E1B040C3437D74782AE440C14CDA599EC
96E40BF62B928357A9640BCE20847D80CFC40BB17A212254A0E40BA0386871D31CA40B
9A5B5A6BFC43240B9FE2F710D014440BB0CF3E604E8FF40BCD20305A77B6740BF4D5CC
FF4B87740C13F80A276501940C333783247994C40C58295176E37D540C82CD751EA2BB
340CB323EE1BB74E440CE92CBC6E2137040D1273F00AF03A740D332AAC897A84240D56
BA93B2AF78740D7D23A5868F17740DA665E2051961140DD281492E4E55840E00BAED81
16FA440C882BBF14F328040C650F33FDA427440C47A4FE3BAA7BD40C2FED1DCF0625A4
0C1DE792B7B724D40C11945CF5BD79440C0AF37C891923340C0A04F171CA22440C0EC8
BBAFD076D40C193EDB432C20A40C2967502BDD1FE40C3F421A69E374740C5ACF39FD3F
1E340C7C0EAEE5F01D440CA3007923F671C40CCFA498B7521B840D00FD86D0018D540D
1D01EBEF04B7C40D3BDF7BB8B28CA40D5D96362D0B0C440D82261B4C0E36940DA98F2B
15BC0B840DD3D1658A148B240E007665548BDAB40E1870AD3962C5440CBF876FD1EF45
A40C9E6AE0A63CB0D40C8300A6CFDF71640C6D48C24ED787240C5D43332324F2340C52
EFF94CC7B2A40C4E4F14CBBFC8740C4F6085A00D33940C56244BC9AFF4140C629A6748
A809F40C74C2D81CF574E40C8C9D9E469835740CAA2AB9C5904B240CCD6A2A99DDB634
0CF65BF0C38076C40D128006213C46340D2CAB3E8B62FBD40D49AFA1A0345C240D698D
2F5FB067140D8C43E7C9D71C940DB1D3CADEA87CE40DDA3CD89E2487D40E02BF888425
9EB40E19CD3A0E8E4EE40E324780EE4C54640CFF6770816273940CE04ADD414C4AF40C
C6E09F568B77340CB328B6C11FF8E40CA523238109D0040C9CCFE59648FC540C9A2EFD
00DD7E140C9D4069C0C755240CA6042BD60681A40CB47A43409B03740CC8A2B00084DA
740CE27D7215C407040D010544C02C44440D13A4FB20212FC40D291DDC2AC0C5F40D41
6FE7E00B06B40D5C9B1E3FFFF2540D7A9F7F4A9F88C40D9B7D0AFFE9C9940DBF33C15F
DEB5040DE5C3A26A7E4B540E0796570FE446240E1DB7723FDEBBE40E354522C52E8704
0E4E3F689FD3A7940D23E5E091A659040D155794E7697A940D09A273E7D746C40D00C6
7D92EFBD940CF58763D165BE240CEF3421D24156940CEE9335287244240CF3A49DD3F8
87340CFE685BD4D41F840D076F37958286A40D12836BEB45A8240D2070CAEBB374540D
31375496CBEB140D44D708EC8F0C940D5B4FE7ECFCD8C40D74A1F198154FB40D90CD25
EDD871240DAFD184EE463D440DD1AF0E995EB4440DF665C2EF21D5C40E0EFAD0F7C7D0
F40E242F55CD540C840E3AD06FF8359D340E52DE1F786C83540E6C58644DF8BED40D4C
5A30DBD700940D3ECBE3276858240D3416C01DA45A240D2C3AC7BE8B07040D2737FA0A
1C5E840D250E57005860940D25BDDEA13F0D740D294690ECD065240D2FA86DE30C6714
0D38E37583F313D40D44F7A7CF846B640D53E504C5C06D840D65AB8C66A71A540D7A4B
3EB23871B40D91C41BA87473E40DAC1623495B20C40DC9415594EC78540DE945B28B28
7A540E06119D160793A40E18ECF63BD03F640E2D34E4B6EE40640E42E968876197040E
5A0A81AD2A42A40E729830284843E40E8C9273F8BB9A540D7910A91F4330540D6C8259
60A2BDA40D62CD344CACF5D40D5BF139E361D8940D57EE6A24C166240D56C4C510CB9E
340D58744AA78081040D5CFCFAE8E00E640D645ED5D4EA46A40D6E99DB6B9F29740D7B
AE0BACFEB6E40D8B9B669908EEF40D9E61EC2FBDD1A40DB4019C711D5F340DCC7A775D
2797440DE7CC7CF3DC79F40E02FBD69A9E03C40E137E0410A31FE40E256CC6DBFD9144
0E38C81EFCAD58040E4D900C72B274240E63C48F3E0CE5840E7B65A75EBCAC340E9473
54D4C1C8740EAEED97A01C39E-%+AXESLABELSG6%%\"mG%\"bG%!G" 3 245 119 119 
2 0 1 0 2 1 0 2 2 1.000000 66.000000 44.000000 14010 14091 14086 
14104 14112 15010 15070 20510 0 17560 0 0 0 0 0 0 0 1 1 560 1342 0 
257 257 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "solve
( \{ diff(E(m,b,pts), m) = 0,\n        diff(E(m,b,pts), b) = 0\}, \{m,
b\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$/%\"bG$\"+MMB\"*>!\")/%\"mG
$\"+fHc\"[%!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "myline:=
 ( subs(%, m*x+b) );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'mylineG,&%
\"xG$\"+fHc\"[%!\"*$\"+MMB\"*>!\")\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 73 "linepic:=plot(myline,x=-10..10):\nptpic:=plot(pts,sty
le=point,color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "wi
th(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "display([line
pic,ptpic]);" }}{PARA 13 "" 1 "" {INLPLOT "6&-%'CURVESG6$7S7$$!#5\"\"!
$!1+++D&H.\\#!#97$$!1nmm;p0k&*!#:$!13,b())e\\H#F-7$$!1LL$3<XZ=*F1$!1zg
aSz'\\7#F-7$$!1mmmT%p\"e()F1$!1/>%=M&zL>F-7$$!1nmm\"4m(G$)F1$!1`)eq_b8
u\"F-7$$!1LL$3i.9!zF1$!1:N7X.$)\\:F-7$$!1nm;/R=0vF1$!1M'RX)>Es8F-7$$!1
,+]P8#\\4(F1$!1ueJK-S)=\"F-7$$!1mm;/siqmF1$!1h5\\^9]#)**F17$$!1****\\(
y$pZiF1$!17WB<()4(3)F17$$!1LLL$yaE\"eF1$!1K3WISWPhF17$$!1mmm\">s%HaF1$
!1yQ4@r=?WF17$$!1******\\$*4)*\\F1$!1r>OsD'p[#F17$$!1+++]_&\\c%F1$!1:e
#*y,+ea!#;7$$!1+++]1aZTF1$\"1@K,#zp[K\"F17$$!1mm;/#)[oPF1$\"1R#yF><O-$
F17$$!1LLL$=exJ$F1$\"12Ule@fV]F17$$!1LLLL2$f$HF1$\"1KOI:fxanF17$$!1++]
PYx\"\\#F1$\"1\\VSA%*GX()F17$$!1MLLL7i)4#F1$\"1WAd:Js]5F-7$$!1****\\P'
psm\"F1$\"1l9**[g.W7F-7$$!1****\\74_c7F1$\"18J8wc6G9F-7$$!1:LL$3x%z#)F
jo$\"1TW$eX$=?;F-7$$!1ILL3s$QM%Fjo$\"1u?nM;c'z\"F-7$$!1^omm;zr)*!#=$\"
1qFTG$4o)>F-7$$\"1WLLezw5VFjo$\"13\"pS@BW=#F-7$$\"1.++v$Q#\\\")Fjo$\"1
9YX#oYkN#F-7$$\"1NLLe\"*[H7F1$\"1wy/TnBUDF-7$$\"1++++dxd;F1$\"1I]9^g<M
FF-7$$\"1,++D0xw?F1$\"1*H=*>7&>#HF-7$$\"1,+]i&p@[#F1$\"1Cd#4NLO5$F-7$$
\"1+++vgHKHF1$\"13TX\"Qg`I$F-7$$\"1lmmmZvOLF1$\"1-gb!4@m[$F-7$$\"1,++]
2goPF1$\"1if%oeb,o$F-7$$\"1KL$eR<*fTF1$\"1SmO0m_bQF-7$$\"1-++])Hxe%F1$
\"1ke;]MDZSF-7$$\"1mm;H!o-*\\F1$\"1E&*\\pMlFUF-7$$\"1,+]7k.6aF1$\"1Dgg
pMA;WF-7$$\"1mmm;WTAeF1$\"1#4o@6&e+YF-7$$\"1****\\i!*3`iF1$\"1.G=mYf$z
%F-7$$\"1NLLL*zym'F1$\"11'Gk!e[z\\F-7$$\"1OLL3N1#4(F1$\"1EA=Yjep^F-7$$
\"1pm;HYt7vF1$\"1&*p[dF6e`F-7$$\"1-+++xG**yF1$\"1K/))\\*[8`&F-7$$\"1qm
mT6KU$)F1$\"1%fdg<(*)HdF-7$$\"1OLLLbdQ()F1$\"1N5Yw5[2fF-7$$\"1++]i`1h
\"*F1$\"1\"zbLbAo4'F-7$$\"1-+]P?Wl&*F1$\"1]@<1l/yiF-7$$\"#5F*$\"1+++$R
'zskF--%'COLOURG6&%$RGBG$Fhz!\"\"F*F*-F$6%777$$\"1+++!zYZB\"F1$\"1+++j
+9HDF-7$$!1,++y#=FH*F1$!1+++#=i(Q@F-7$$\"1+++IR7MPF1$\"1+++'o;Yj$F-7$$
\"1+++IV$y^&F1$\"1+++\"\\4u\\%F-7$$\"1+++5!fE`*F1$\"1+++S3(>J'F-7$$!1+
++ykfC()F1$!1+++I>2!*>F-7$$!1+++s!=4W$F1$\"1+++c9,pUF17$$!1,+++S(Qt)F`
s$\"1+++:ua8>F-7$$\"1+++!oxA8'F1$\"1+++O9Y`ZF-7$$\"1++++'3&G')Fjo$\"1+
++Rr%fS#F-7$$\"1+++?%)ejaF1$\"1+++$el)>WF-7$$!1+++7()=Y^F1$!1+++ntj2IF
17$$\"1,++];$**\\)F1$\"1+++sBtIdF-7$$!1*****RsA#z&)F1$!1+++[^q#z\"F-7$
$\"1++++d/FFF1$\"1+++%4(4=KF-7$$\"1+++SHjHPF1$\"1+++2ln3PF-7$$\"1+++?a
8%))*F1$\"1+++i\"p,S'F-7$$\"1+++g+HCBF1$\"1+++!\\^M)HF-7$$\"1+++!4[-`(
F1$\"1+++yb'eW&F-7$$\"1+++S:'[#pF1$\"1+++*3Ct2&F-7$$!1+++#o&*H/#F1$\"1
+++@&[85\"F--F\\[l6&F^[lF*F*$\"*++++\"!\")-%&STYLEG6#%&POINTG-%+AXESLA
BELSG6$Q\"x6\"%!G-%%VIEWG6$;F(Fgz%(DEFAULTG" 2 547 212 212 2 0 1 0 2 
9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 1 1 0 0 0 12196 86 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 33 "E(4.481562959,19.91233434, pts); " }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$\"+:-eNR!\"*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 18 "L
et's try a cubic!" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "cpts:=cubic_pts()
:\nplot(cpts,style=point,color=blue);" }}{PARA 13 "" 1 "" {INLPLOT "6'
-%'CURVESG6#777$$\"1+++/g&H@\"!#:$!1+++ITN8uF*7$$!1+++\"GOvP#F*$!1+++'
[O&Q8!#97$$\"1+++#G!))*o\"F*$!1+++B#3Ov(F*7$$!1++++h!3)**!#<$!1+++fqHk
;F27$$!1+++]zZc&*!#;$!1+++;l6)*>F27$$!1+++_Eg/CF*$!1+++k&zuE\"F27$$!1+
++x52H?F*$!1+++p7m\\<F27$$!1+++[wc1?F*$!1+++Zh3N=F27$$!1+++qya/@FA$!1+
++Y<z,<F27$$\"1+++5!p)z\"*FA$!1+++?z%)*p*F*7$$!1+++gV.:hFA$!1+++\\4U**
=F27$$\"1+++z>r0?F*$!1+++iZ'>a(F*7$$\"1+++!>,wJ*FA$!1******zpES#*F*7$$
\"1+++]4FHhFA$!1+++;vk17F27$$!1+++wM\")3@F*$!1+++coOa;F27$$\"1+++k$H(H
8F*$!1+++(>0(R\")F*7$$\"1+++MrF!Q#F*$!1*****4l`uJ)F*7$$\"1+++Rf70>F*$!
1+++([kw<(F*7$$!1+++A92QEF*$!1*****RTc6R)F*7$$!1+++9,6?HF*$!1+++K3)o+$
F*7$$\"1+++!>%)\\s'FA$!1+++dy&\\7\"F2-%&STYLEG6#%&POINTG-%+AXESLABELSG
6$%!GFer-%'COLOURG6&%$RGBG\"\"!Fjr$\"*++++\"!\")-%%VIEWG6$%(DEFAULTGFa
s" 2 547 210 210 5 0 1 0 2 6 0 4 2 1.000000 45.000000 45.000000 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 639 831 0 0 0 0 0 0 }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 149 "delta:= (a,b,c,d, pt) ->  \n   (a*
pt[1]^3 + b*pt[1]^2 + c*pt[1] + d - pt[2]);\nH:= (a,b,c,d, pts) -> sum
( (delta(a,b,c,d,pts[i]))^2,  i=1..nops(pts));\n" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%&deltaGR6'%\"aG%\"bG%\"cG%\"dG%#ptG6\"6$%)operatorG%&
arrowGF,,,*&9$\"\"\")&9(6#F3\"\"$\"\"\"F3*&9%F3)F5\"\"#F9F3*&9&F3F5F3F
39'F3&F66#F=!\"\"F,F,F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"HGR6'%
\"aG%\"bG%\"cG%\"dG%$ptsG6\"6$%)operatorG%&arrowGF,-%$sumG6$*$)-%&delt
aG6'9$9%9&9'&9(6#%\"iG\"\"#\"\"\"/F?;\"\"\"-%%nopsG6#F=F,F,F," }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 168 "solve( \{ diff(H(a,b,c,d,cp
ts), a) = 0,\n         diff(H(a,b,c,d,cpts), b) = 0,\n         diff(H(
a,b,c,d,cpts), c) = 0,\n         diff(H(a,b,c,d,cpts), d) = 0\}, \{a,b
,c,d\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<&/%\"cG$\"+WWA;m!\"*/%\"a
G$!+$R(305F(/%\"bG$\"+ho]b$)!#5/%\"dG$!+f6%[d\"!\")" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 42 "mycub := subs(%, a*x^3 + b*x^2 + c*x + d)
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&mycubG,**$)%\"xG\"\"$\"\"\"$!+
$R(305!\"**$)F(\"\"#F*$\"+ho]b$)!#5F($\"+WWA;mF-$!+f6%[d\"!\")\"\"\"" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "23 0 0" 0 }
{VIEWOPTS 1 1 0 2 1 1805 }