{VERSION 6 0 "IBM INTEL NT" "6.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 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "line:=x->p*x+q;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%%lineGj+6#%\"xG6\"6$%)operatorG%&arr owGF(,&*&%\"pG\"\"\"9$F/F/%\"qGF/F(F(F(6#\"\"!" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 37 "eq:=line(x[1])=y[1],\nline(x[2])=y[2];" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#eqG6$/,&*&%\"pG\"\"\"&%\"xG6#F*F*F* %\"qGF*&%\"yGF-/,&*&F)F*&F,6#\"\"#F*F*F.F*&F0F5" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 26 "params:=solve(\{eq\},\{p,q\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'paramsG<$/%\"pG*&,&&%\"yG6#\"\"\"F-&F+6#\"\"#! \"\"F-,&&%\"xGF/F1&F4F,F-F1/%\"qG*&,&*&F5F-F.F-F-*&F*F-F3F-F1F-F2F1" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "simplify(\nsubs(params,lin e(z))\n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,**&%\"zG\"\"\"&%\"yG6# F'F'F'*&F&F'&F)6#\"\"#F'!\"\"*&&%\"xGF*F'F,F'F'*&F(F'&F2F-F'F/F',&F4F/ F1F'F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 213 "Line:=proc(x,y) \nlocal z;\n if x[1]=x[2] then \n print(`error, line is vertical:`, ` x`=x[1]):\n else\n unapply((z*y[1]-z*y[2]+x[1]*y[2]-y[1]*x[2])/(- x[2]+x[1]),z)# this is the prewiously obtained rule\nfi;\nend;\n " }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 12 "" 1 "" {XPPMATH 20 "6# >%%LineGj+6$%\"xG%\"yG6#%\"zG6\"F+@%/&9$6#\"\"\"&F/6#\"\"#-%&printG6$% 9error,~line~is~vertical:G/%#~xGF.-%(unapplyG6$*&,**&8$F1&9%F0F1F1*&FA F1&FCF3F1!\"\"*&F.F1FEF1F1*&FBF1F2F1FFF1,&F2FFF.F1FFFAF+F+F+6$\"\"!FK " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "Line([1,2],[1,2]);\nLin e([1,2],[1,1]);\nLine([1,1],[1,2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #j+6#%\"zG6\"6$%)operatorG%&arrowGF&9$F&F&F&6#\"+@fE8?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#j+6#%\"zG6\"6$%)operatorG%&arrowGF&\"\"\"F&F&F&6# \"+@fE8?" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%8error~line~is~vertical:G /%#~xG\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 152 "with(plots ):\nA:=pointplot([[1,2],[3,7]]): \nB:=plot(Line([1,3],[2,7])(x),x=0..4 ):\ndisplay(\{A,B\},title=`Two points and one line.\\nMy first aproxim ation`);" }}{PARA 13 "" 1 "" {GLPLOT2D 439 439 439 {PLOTDATA 2 "6'-%'P OINTSG6$7$$\"\"\"\"\"!$\"\"#F)7$$\"\"$F)$\"\"(F)-%'CURVESG6$7S7$$F)F)$ !3++++++++]!#=7$$\"3Hmmmm;')=()!#>$!3VLLL$e%G?GF97$$\"3RLLLe'40j\"F9$! 3FlmmT&esB*F=7$$\"3mmmm;6m$[#F9$\"3nmmm\"z_\"47F97$$\"3fmmm;yYULF9$\"3 /nmmT&phN$F97$$\"3%HLL$eF>(>%F9$\"3;LL$e*=)H\\&F97$$\"3Qmmm\">K'*)\\F9 $\"31nm;z/3uuF97$$\"3P*****\\Kd,\"eF9$\"3**)***\\7LRD&*F97$$\"3-mmm\"f X(emF9$\"3Qmm\"zR'ok6!#<7$$\"3.*****\\U7Y](F9$\"3')***\\i5`hP\"F]o7$$ \"3'QLLLV!pu$)F9$\"3oLLL3En$f\"F]o7$$\"3xmmm;c0T\"*F9$\"3[mm;/RE&y\"F] o7$$\"3#*******H,Q+5F]o$\"3\")*****\\K]4+#F]o7$$\"3)*******\\*3q3\"F]o $\"3r*****\\PAv@#F]o7$$\"3)*******p=\\q6F]o$\"33+++v'HiU#F]o7$$\"3mmm; fBIY7F]o$\"3Tmm\"z*ev:EF]o7$$\"3GLLLj$[kL\"F]o$\"33LLL347TGF]o7$$\"3?L LL`Q\"GT\"F]o$\"3zKLLLY.KIF]o7$$\"3!*****\\s]k,:F]o$\"3k***\\7o7TD$F]o 7$$\"39LLL`dF!e\"F]o$\"3uKLL$Q*o]MF]o7$$\"33++]sgam;F]o$\"3m++D\"=ljm$ F]o7$$\"3/++]F]o$\"3]LLeR\"3GG%F]o7$$\"3immmTc-)*>F]o$\"3emm;/T 1&\\%F]o7$$\"3Mmm;f`@'3#F]o$\"3Slm\"zRQbr%F]o7$$\"3y****\\nZ)H;#F]o$\" 3E***\\(=>Y2\\F]o7$$\"3YmmmJy*eC#F]o$\"3emm;zXu9^F]o7$$\"3')******R^bJ BF]o$\"3@******\\y))G`F]o7$$\"3f*****\\5a`T#F]o$\"3_)***\\i_QQbF]o7$$ \"3o****\\7RV'\\#F]o$\"3x)**\\7y%3TdF]o7$$\"3k*****\\@fke#F]o$\"37**** \\P![h'fF]o7$$\"3/LLL`4NnEF]o$\"3iKLL$Qx$ohF]o7$$\"3#*******\\,s`FF]o$ \"3e*****\\P+VQ'F]o7$$\"3[mm;zM)>$GF]o$\"3?mm\"zpe*zlF]o7$$\"3$******* pfa " 0 "" {MPLTEXT 1 0 418 "PL:=proc(x,y)\nlocal Q,z,N,i;\nN:=nops(x);# numbe r of points\nif N<> nops(y) then \n print(`error, rhe number of poin ts and values is not equal`)\nfi;\nQ:=NULL; # Q will be the body of pi ecewise function\nfor i from 2 to N-1 do # step by step I add one cond ition and one piece of broken line \n Q:=Q,z% #PLGj+6$%\"xG%\"yG6&%\"QG%\"zG%\"NG%\"iG6\"F.C'>8&-%%nopsG6#9$>8$%%NUL LG?(8'\"\"#\"\"\",&F1FF76%F728%&F56#F:--%%LineG6$7$&F5 6#,&F:FFD7$&9%FL&FPFE6#FC>F76$F7--FH6$7$&F56#F=&F56#F17$&FPFZ&FPF fnFR-%(unapplyG6$-%*piecewiseG6#F7FCF.F.F.6$\"\"!Fao" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "PL([1,2,3,4,5,6],[1,2,1,3,1,4]);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#j+6#%\"zG6\"6$%)operatorG%&arrowGF&-%* piecewiseG6+29$\"\"#F.2F.\"\"$,&F.!\"\"\"\"%\"\"\"2F.F4,&*&F/F5F.F5F5 \"\"&F32F.F9,&*&F/F5F.F5F3\"#6F5,&*&F1F5F.F5F5\"#9F3F&F&F&6#\"+@fE8?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 185 "A:=pointplot([[1,1],[2,2 ],[3,1],[4,3],[5,1],[6,4]]): \nB:=plot(PL([1,2,3,4,5,6],[1,2,1,3,1,4]) (x),x=0..7):\ndisplay(\{A,B\},title=`Six points and one broken line.\\ nMy second aproximation`);" }}{PARA 13 "" 1 "" {GLPLOT2D 439 439 439 {PLOTDATA 2 "6'-%'POINTSG6(7$$\"\"\"\"\"!F'7$$\"\"#F)F+7$$\"\"$F)F'7$$ \"\"%F)F.7$$\"\"&F)F'7$$\"\"'F)F1-%'CURVESG6$7fo7$$F)F)F>7$$\"3gmmm\"z +e_\"!#=F@7$$\"3sLL3->R`GFBFD7$$\"3mmm;apSYVFBFG7$$\"3Onm;z'=$\\eFBFJ7 $$\"3!RL$3Ft3XtFBFM7$$\"3tmmTNj&=t)FBFP7$$\"33+](=`xn,\"!#+++XaYE=FUF`o7$$\"32++]icE->FUFco7$$\" 33+++S%*yQ>FUFfo7$$\"37++]FUFio7$$\"3A++D1^d$*>FUF\\p7$$\"3N+++&* p$=,#FU$\"3m*****\\+j\"))>FU7$$\"3.++v$)))4I?FU$\"3)****\\i6,*p>FU7$$ \"3;++]s2O[?FU$\"3')****\\F#R;&>FU7$$\"3nL3_]\\p9@FU$\"3Km\"z%\\]I&)=F U7$$\"3um;aG\"H5=#FU$\"3DL$e9(3(*==FU7$$\"3^LL$ej%yQBFU$\"3[mm;k`@h;FU 7$$\"3mLLLVUUsCFU$\"3MmmmcddF:FU7$$\"35+](o()yyi#FU$\"3!***\\7B67s8FU7 $$\"3GLLLoD[lFFU$\"3smmmJu^M7FU7$$\"3#o;/w4p4%GFU$\"3=LeR-4.f6FU7$$\"3 P+](oibk\"HFU$\"3i**\\7tVa$3\"FU7$$\"3_+DJShR_HFU$\"3[*\\(ofQgZ5FU7$$ \"3C++v`mL))HFU$\"3w***\\iMj;,\"FU7$$\"3R+v=nrFCIFU$\"3y+]PMVb[5FU7$$ \"3a+]i!o<-1$FU$\"35,+Dh`V?6FU7$$\"37nTN\"*z@NJFU$\"3CM$3F)fVq7FU7$$\" 3qLL3-$=-@$FU$\"3Rnm;/mV?9FU7$$\"3kL$3xplzM$FU$\"3EnmT&RJfp\"FU7$$\"3g mm\"H([a'\\$FU$\"3?LL$eu*3$*>FU7$$\"3wm;ayo(3l$FU$\"3_LL3dPv,BFU7$$\"3 ?+]7VLA&y$FU$\"3Q++D'oY/d#FU7$$\"3OL3FuAxdQFU$\"3rm;a[Xa:FFU7$$\"3'pm; a?@.$RFU$\"3#RLL3TU1'GFU7$$\"3W+D\"yF'znRFU$\"3)3+Dcb#fNHFU7$$\"3\"RL3 -Nr_+%FU$\"3=KLe*Hd%*)HFU7$$\"3%p;/EUYF/%FU$\"36m;zar]9HFU7$$\"3)***** *\\\\@-3%FU$\"3/+++5qbRGFU7$$\"3u**\\P*eXN:%FU$\"3_++D@)3Hp#FU7$$\"3Q+ +v$opoA%FU$\"3C****\\K1EYDFU7$$\"3c+](oMf(oVFU$\"3)))**\\iI\"[iAFU7$$ \"3#)***\\ii.j_%FU$\"3O++]ZFRZ>FU7$$\"3%GLL$oT'ym%FU$\"3KMLLj;Fk;FU7$$ \"3'3++DE5!>[FU$\"3G)****\\Zz>O\"FU7$$\"3gL3_v1\\()[FU$\"3zK$e*['=]A\" FU7$$\"3Mm;a)3rf&\\FU$\"3Inm\"H#y0)3\"FU7$$\"33e9T$)you\\FU$\"3'Q3xJBC 10\"FU7$$\"3y\\7GyYS$*\\FU$\"3V+vVV1>85FU7$$\"34YhrvIw-]FU$\"3FQ%[rA*G 35FU7$$\"3^T5:t977]FU$\"3TDJX>WOO5FU7$$\"3#p$feq)z9-&FU$\"3w5yv6'RW1\" FU7$$\"3BL3-o#Q3.&FU$\"3o*\\iS![^#4\"FU7$$\"3m;/wd=Fo]FU$\"3+]7Gtb\"[? \"FU7$$\"3*4++vW0d5&FU$\"3(Q++DM;rJ\"FU7$$\"3;L$3-\"QfY_FU$\"3Y**\\iI9 yRkFU$\"3s***\\() >P%f_FU7$$\"3'pmmmV,&elFU$\"3)3+++J/bn&FU7$$\"3<+](o(GP1nFU$\"3h**\\iI '=\">hFU7$$\"3g+]78Z!z%oFU$\"3z,]PRTrVlFU7$$\"\"(F)Fbal-%'COLOURG6&%$R GBG$\"#5!\"\"F>F>-%&TITLEG6#%PTwo~points~and~one~line.|+My~second~apro ximationG-%+AXESLABELSG6$Q\"x6\"Q!Fcbl-%%VIEWG6$;F>Fbal%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "7 0 0" 83 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }