{VERSION 5 0 "IBM INTEL NT" "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 "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 "Warning" -1 7 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 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 P
lot" -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 70 "pol:=2-5*x+13/6*x*(x
-1)-7/12*x*(x-1)*(x-3)+19/252*x*(x-1)*(x-3)*(x-4);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%$polG,,\"\"#\"\"\"*&\"\"&F'%\"xGF'!\"\"**\"#8F'\"\"
'F+F*F',&F*F'F'F+F'F'*,\"\"(F'\"#7F+F*F'F/F',&F*F'\"\"$F+F'F+*.\"#>F'
\"$_#F+F*F'F/F'F3F',&F*F'\"\"%F+F'F'" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "expand(pol);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,,\"
\"#\"\"\"*&#\"$v#\"#GF%%\"xGF%!\"\"*&#\"%&\\\"\"$_#F%*$)F*F$F%F%F%*&#
\"$*HF/F%*$)F*\"\"$F%F%F+*&#\"#>F/F%*$)F*\"\"%F%F%F%" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 
50 "Warning, the name changecoords has been redefined\n" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "pl1:=pointplot([[0,2],[1,-3],[3,0],
[4,1],[7,-2]]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "pl2:=plo
t(pol,x=0..7,thickness=2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "display(pl1,pl2);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 
{PLOTDATA 2 "6&-%'POINTSG6'7$$\"\"!F($\"\"#F(7$$\"\"\"F($!\"$F(7$$\"\"
$F(F'7$$\"\"%F(F,7$$\"\"(F($!\"#F(-%'CURVESG6%7foF&7$$\"3]mm;z>]9Q!#>$
\"3(zBec\"y#Rj\"!#<7$$\"3+LLLeR+HwFB$\"3y68SNps%G\"FE7$$\"3&****\\Pf]V
9\"!#=$\"3y<NO*zz+_*FN7$$\"3gmmm\"z+e_\"FN$\"3qEh,5S&QN'FN7$$\"3QL3Fp&
)pd=FN$\"3BxIgjE#ps$FN7$$\"3;+](oM'f*=#FN$\"34:CxD+Z;7FN7$$\"3lm\"zW7%
\\@DFN$!3))epR*ys*z6FN7$$\"3sLL3->R`GFN$!3CQuQ5F&[Y$FN7$$\"3=+]7G%**)*
f$FN$!39&y>7k\"))3#)FN7$$\"3mmm;apSYVFN$!3Y\"402v$zU7FE7$$\"3Gnmm;G'y4
&FN$!3Nt;uP/<<;FE7$$\"3Onm;z'=$\\eFN$!3$fiY9n2P%>FE7$$\"3i+]7.I?(f'FN$
!3Dk[GY?xBAFE7$$\"3!RL$3Ft3XtFN$!3M5Z9LN`hCFE7$$\"3J++DJ=ZQ!)FN$!3))e/
!oT9jk#FE7$$\"3tmmTNj&=t)FN$!3#[NqY?\\()z#FE7$$\"3MML3Fe\")\\%*FN$!3'*
y=0/8\\CHFE7$$\"33+](=`xn,\"FE$!3vkg+#e\"e>IFE7$$\"3cL$3_+H54\"FE$!3')
=QX.by(3$FE7$$\"3#omT&y/Gl6FE$!35%3\\bx`u7$FE7$$\"32++]_rG-7FE$!3YZ1mz
w@PJFE7$$\"3JL$ek#QHR7FE$!3W*=aNxi19$FE7$$\"3wmmT+0Iw7FE$!3%Hntz*y.QJF
E7$$\"3++]PurI88FE$!3Tel()*\\)eHJFE7$$\"3wmT5+!R%*Q\"FE$!3=T9cl\\\"\\4
$FE7$$\"3aLL$e#3dl9FE$!3\\\\DlPMnQIFE7$$\"3ymm\"Ht%o*f\"FE$!3[=Alu^?$*
GFE7$$\"3K++]F_m]<FE$!3ARc!H=&zpEFE7$$\"32++]icE->FE$!3GTbV)RBbR#FE7$$
\"3;++]s2O[?FE$!3[@M$pcpi4#FE7$$\"3um;aG\"H5=#FE$!3Z`.E*>JU!=FE7$$\"3^
LL$ej%yQBFE$!3^a%3g#QzU9FE7$$\"3mLLLVUUsCFE$!3GcA0Dx*G8\"FE7$$\"35+](o
()yyi#FE$!3!*z2&pELRx(FN7$$\"3GLLLoD[lFFE$!3]zT\">'=cVZFN7$$\"3P+](oib
k\"HFE$!35%\\\\^FNoh\"FN7$$\"3a+]i!o<-1$FE$\"3!y_#oS$)f26FN7$$\"3qLL3-
$=-@$FE$\"3XA$[\"*y&GJOFN7$$\"3kL$3xplzM$FE$\"3nGkC\"p21i&FN7$$\"3gmm
\"H([a'\\$FE$\"3![#4\"3g%RxtFN7$$\"3wm;ayo(3l$FE$\"3*G\"os@bAV()FN7$$
\"3?+]7VLA&y$FE$\"3'f@\"[X$)zK&*FN7$$\"3OL3FuAxdQFE$\"3\"pK!>Cft+)*FN7
$$\"3'pm;a?@.$RFE$\"35n![66>k&**FN7$$\"3\"RL3-Nr_+%FE$\"3a#)\\Lre2****
FN7$$\"3)******\\\\@-3%FE$\"3vHE-)>()=#**FN7$$\"3u**\\P*eXN:%FE$\"33HT
E;5>J(*FN7$$\"3Q++v$opoA%FE$\"3L[rjqc)yU*FN7$$\"3c+](oMf(oVFE$\"3umeP!
4A%G&)FN7$$\"3#)***\\ii.j_%FE$\"3U(QPmQ-t1(FN7$$\"3%GLL$oT'ym%FE$\"33R
?$3Xw#o`FN7$$\"3'3++DE5!>[FE$\"3)4AtxBd/>$FN7$$\"3Mm;a)3rf&\\FE$\"3fgg
rL^>R$*FB7$$\"3*4++vW0d5&FE$!31\\ZOJB0(y\"FN7$$\"3;L$3-\"QfY_FE$!3@u[s
H'p:`%FN7$$\"3C+]PWF'QR&FE$!3&GydWo?=_(FN7$$\"3[LL$e/Xy`&FE$!3)*eB#R'
\\&*[5FE7$$\"3m**\\(=<\"e)o&FE$!3?X0=ysDb8FE7$$\"3%ymmm(zvLeFE$!3QX:7T
`WO;FE7$$\"3-nm\"zAAA)fFE$!3[z/Qo!3$**=FE7$$\"3LM$3-7d%HhFE$!3S'4xSZ0R
7#FE7$$\"3#4++]p]ZE'FE$!3c^2Nxv2)G#FE7$$\"3#ym\"HZ:GUjFE$!3?Pq\"RF8*fB
FE7$$\"3$QL$e*R7)>kFE$!3-%RC<-jIT#FE7$$\"3S+]7=p:*['FE$!3(e/;6+&3VCFE7
$$\"3'pmmmV,&elFE$!3![ZIn=))\\X#FE7$$\"3[](=nHpaf'FE$!3[4m.g?R`CFE7$$
\"3,M3xcrVKmFE$!3u3bI)fhfW#FE7$$\"3_<H#o,0%pmFE$!3#o.0<#=XKCFE7$$\"3<+
](o(GP1nFE$!3[wA$3P9ET#FE7$$\"3#3++]zQrx'FE$!3_))y+w:2cBFE7$$\"3g+]78Z
!z%oFE$!39kwRIihtAFEF6-%'COLOURG6&%$RGBG$\"#5!\"\"F'F'-%*THICKNESSG6#F
*-%+AXESLABELSG6$Q\"x6\"Q!Fbdl-%%VIEWG6$;F'F7%(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 14 "eval(pol,x=7);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
123 "2*(x-1)*(x-3)*(x-4)*(x-7)/3/4/7-3*x*(x-3)*(x-4)*(x-7)/2/3/(-6)+\n
x*(x-1)*(x-3)*(x-7)/4/3/(-3)-2*x*(x-1)*(x-3)*(x-4)/7/6/4/3;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#,**,\"#U!\"\",&%\"xG\"\"\"F)F&F),&F(F)\"\"$F
&F),&F(F)\"\"%F&F),&F(F)\"\"(F&F)F)*,\"#7F&F(F)F*F)F,F)F.F)F)*,\"#OF&F
(F)F'F)F*F)F.F)F&*,\"$_#F&F(F)F'F)F*F)F,F)F&" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 10 "expand(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,,
\"\"#\"\"\"*&#\"$v#\"#GF%%\"xGF%!\"\"*&#\"%&\\\"\"$_#F%*$)F*F$F%F%F%*&
#\"$*HF/F%*$)F*\"\"$F%F%F+*&#\"#>F/F%*$)F*\"\"%F%F%F%" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "deg:=evalf(Pi/180):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 173 "pol:=sin(60*deg)*(x-70)*(x-80)*(x-90)/(-10*20*30)\n+
sin(70*deg)*(x-60)*(x-80)*(x-90)/(10*10*20)\n+sin(80*deg)*(x-60)*(x-70
)*(x-90)/(-20*10*10)+(x-60)*(x-70)*(x-80)/(30*20*10);" }{TEXT -1 0 "" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$polG,***$\"+tcPV9!#8\"\"\",&%\"xG
F*\"#q!\"\"F*,&F,F*\"#!)F.F*,&F,F*\"#!*F.F*F.**$\"+/JY)p%F)F*,&F,F*\"#
gF.F*F/F*F1F*F***$\"+m(QS#\\F)F*F6F*F+F*F1F*F.**\"%+gF.F6F*F+F*F/F*F*
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "pl1:=pointplot([[60,sin
(60*deg)],[70,sin(70*deg)],[80,sin(80*deg)],[90,1]],symbolsize=13):" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "pl2:=plot(pol,x=60..90,thi
ckness=2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "display(pl1,p
l2);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'POINT
SG6'7$$\"#g\"\"!$\"+PSDg')!#57$$\"#qF)$\"+2i#pR*F,7$$\"#!)F)$\"+Jv2[)*
F,7$$\"#!*F)$\"\"\"F)-%'SYMBOLG6$%(DEFAULTG\"#8-%'CURVESG6%7S7$F'$\"3E
*****z.a-m)!#=7$$\"3))****\\i9Rlg!#;$\"3\")=.DX3)or)FH7$$\"3++]PC#)GAh
FL$\"3uHF$Q$H?l()FH7$$\"3/++v$eui='FL$\"3.`!G$\\$)[=))FH7$$\"3A++D'3&o
]iFL$\"3y*HGzW#*4())FH7$$\"3t**\\(oX*y9jFL$\"3z*)pl2K6A*)FH7$$\"31+]P9
CAujFL$\"3Y&4ZB3&\\o*)FH7$$\"3t**\\P*zhdV'FL$\"3\\pZ_K**[:!*FH7$$\"3Y+
]P>fS*\\'FL$\"31:y'pW&)H1*FH7$$\"3O+](=$f%Gc'FL$\"3P1vtU`?4\"*FH7$$\"3
k++]#y,\"GmFL$\"3=&)[G!Rub:*FH7$$\"3u++Dr\"zbo'FL$\"3om))R#HFa>*FH7$$
\"37++](4&G]nFL$\"3r\"31lY!=R#*FH7$$\"3X++]7nD:oFL$\"3O'G!y-\\#>G*FH7$
$\"3c++]-*oy(oFL$\"3tl&)GKo)>K*FH7$$\"3%)**\\PpnsMpFL$\"31cU'H$HSd$*FH
7$$\"3%)****\\siL-qFL$\"3Cl+01$=$)R*FH7$$\"3G+++!R5'fqFL$\"3vE2@Sz&>V*
FH7$$\"3=**\\P/QBErFL$\"37F(R/(o!*p%*FH7$$\"3Q*****\\\"o?&=(FL$\"3/jV8
FWV-&*FH7$$\"3?+]Pa&4*\\sFL$\"3<xjod'pp`*FH7$$\"3@+]7j=_6tFL$\"3Ab1eY5
to&*FH7$$\"3O++vVy!eP(FL$\"3k')))oizp+'*FH7$$\"3(***\\(=WU[V(FL$\"3dHE
6%e&**G'*FH7$$\"3U++DJ#>&)\\(FL$\"3]xAH4&z$e'*FH7$$\"3W**\\P>:mkvFL$\"
3ORiHXfk(o*FH7$$\"3;**\\iv&QAi(FL$\"3(*4gP&4y?r*FH7$$\"3_++vtLU%o(FL$
\"3+'*=Xd/PP(*FH7$$\"3I+++bjm[xFL$\"3)*)Q!)*)G-Bw*FH7$$\"34++vyb^6yFL$
\"3k@fAS>^&y*FH7$$\"3++]PMaKsyFL$\"3:NZ^mJ&o!)*FH7$$\"3=++D6W%)RzFL$\"
3</()Hb+EH)*FH7$$\"3V*****\\@80+)FL$\"3mUpP=MB[)*FH7$$\"3)*****\\7,Hl!
)FL$\"33Xo/kcFn)*FH7$$\"3()**\\P4w)R7)FL$\"3A3!>]FVM))*FH7$$\"3k****\\
x%f\")=)FL$\"3#f[,<FK***)*FH7$$\"3)***\\P/-a[#)FL$\"3s[667BJ9**FH7$$\"
38+](=Yb;J)FL$\"3U3OS/T;G**FH7$$\"3y****\\i@Ot$)FL$\"3#HZjA&z`S**FH7$$
\"3/+]PfL'zV)FL$\"3=DcX*[]A&**FH7$$\"35+++!*>=+&)FL$\"3i\\G(3(oKi**FH7
$$\"3?++DE&4Qc)FL$\"3y&[^Y%fSr**FH7$$\"3=+]P%>5pi)FL$\"3?rQ/ND=z**FH7$
$\"3K+++bJ*[o)FL$\"35Oiu<zC&)**FH7$$\"3)4+]7<[8v)FL$\"3?Nqu5L#4***FH7$
$\"36******Hjy5))FL$\"3_.)e9\\T[***FH7$$\"3E+]P/)fT())FL$\"37q#*4>8\"y
***FH7$$\"3;+]i0j\"[$*)FL$\"3]$)[^6K[****FHF7-%'COLOURG6&%$RGBG$\"#5!
\"\"$F)F)Ff\\l-%*THICKNESSG6#\"\"#-%+AXESLABELSG6$Q\"x6\"Q!F_]l-%%VIEW
G6$;F'F8F?" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "C
urve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "plot(
\{pol,sin(x*deg)\},x=60..90,thickness=2);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6$7S7$$\"#g\"\"!$\"3E**
***z.a-m)!#=7$$\"3))****\\i9Rlg!#;$\"3\")=.DX3)or)F-7$$\"3++]PC#)GAhF1
$\"3uHF$Q$H?l()F-7$$\"3/++v$eui='F1$\"3.`!G$\\$)[=))F-7$$\"3A++D'3&o]i
F1$\"3y*HGzW#*4())F-7$$\"3t**\\(oX*y9jF1$\"3z*)pl2K6A*)F-7$$\"31+]P9CA
ujF1$\"3Y&4ZB3&\\o*)F-7$$\"3t**\\P*zhdV'F1$\"3\\pZ_K**[:!*F-7$$\"3Y+]P
>fS*\\'F1$\"31:y'pW&)H1*F-7$$\"3O+](=$f%Gc'F1$\"3P1vtU`?4\"*F-7$$\"3k+
+]#y,\"GmF1$\"3=&)[G!Rub:*F-7$$\"3u++Dr\"zbo'F1$\"3om))R#HFa>*F-7$$\"3
7++](4&G]nF1$\"3r\"31lY!=R#*F-7$$\"3X++]7nD:oF1$\"3O'G!y-\\#>G*F-7$$\"
3c++]-*oy(oF1$\"3tl&)GKo)>K*F-7$$\"3%)**\\PpnsMpF1$\"31cU'H$HSd$*F-7$$
\"3%)****\\siL-qF1$\"3Cl+01$=$)R*F-7$$\"3G+++!R5'fqF1$\"3vE2@Sz&>V*F-7
$$\"3=**\\P/QBErF1$\"37F(R/(o!*p%*F-7$$\"3Q*****\\\"o?&=(F1$\"3/jV8FWV
-&*F-7$$\"3?+]Pa&4*\\sF1$\"3<xjod'pp`*F-7$$\"3@+]7j=_6tF1$\"3Ab1eY5to&
*F-7$$\"3O++vVy!eP(F1$\"3k')))oizp+'*F-7$$\"3(***\\(=WU[V(F1$\"3dHE6%e
&**G'*F-7$$\"3U++DJ#>&)\\(F1$\"3]xAH4&z$e'*F-7$$\"3W**\\P>:mkvF1$\"3OR
iHXfk(o*F-7$$\"3;**\\iv&QAi(F1$\"3(*4gP&4y?r*F-7$$\"3_++vtLU%o(F1$\"3+
'*=Xd/PP(*F-7$$\"3I+++bjm[xF1$\"3)*)Q!)*)G-Bw*F-7$$\"34++vyb^6yF1$\"3k
@fAS>^&y*F-7$$\"3++]PMaKsyF1$\"3:NZ^mJ&o!)*F-7$$\"3=++D6W%)RzF1$\"3</(
)Hb+EH)*F-7$$\"3V*****\\@80+)F1$\"3mUpP=MB[)*F-7$$\"3)*****\\7,Hl!)F1$
\"33Xo/kcFn)*F-7$$\"3()**\\P4w)R7)F1$\"3A3!>]FVM))*F-7$$\"3k****\\x%f
\")=)F1$\"3#f[,<FK***)*F-7$$\"3)***\\P/-a[#)F1$\"3s[667BJ9**F-7$$\"38+
](=Yb;J)F1$\"3U3OS/T;G**F-7$$\"3y****\\i@Ot$)F1$\"3#HZjA&z`S**F-7$$\"3
/+]PfL'zV)F1$\"3=DcX*[]A&**F-7$$\"35+++!*>=+&)F1$\"3i\\G(3(oKi**F-7$$
\"3?++DE&4Qc)F1$\"3y&[^Y%fSr**F-7$$\"3=+]P%>5pi)F1$\"3?rQ/ND=z**F-7$$
\"3K+++bJ*[o)F1$\"35Oiu<zC&)**F-7$$\"3)4+]7<[8v)F1$\"3?Nqu5L#4***F-7$$
\"36******Hjy5))F1$\"3_.)e9\\T[***F-7$$\"3E+]P/)fT())F1$\"37q#*4>8\"y*
**F-7$$\"3;+]i0j\"[$*)F1$\"3]$)[^6K[****F-7$$\"#!*F*$\"\"\"F*-%'COLOUR
G6&%$RGBG$\"#5!\"\"$F*F*F`[l-F$6$7S7$F($\"3#zRhy.a-m)F-7$F/$\"3ithY(f`
nr)F-7$F5$\"3w#G!f$3!*\\w)F-7$F:$\"3?nSvRU?=))F-7$F?$\"3u47q\"Qg1())F-
7$FD$\"3\\NgniTv@*)F-7$FI$\"3![*yx$3F\"o*)F-7$FN$\"3EA&H[jE^,*F-7$FS$
\"3!)>V.B'RE1*F-7$FX$\"3FpLp5u))3\"*F-7$Fgn$\"3SaB4sPHb\"*F-7$F\\o$\"3
)[_8,/&=&>*F-7$Fao$\"3wH*eFt&)*Q#*F-7$Ffo$\"3S7*)H#o!y\"G*F-7$F[p$\"3b
wrq;B*=K*F-7$F`p$\"3q@b[5KNd$*F-7$Fep$\"3a%[<f.?$)R*F-7$Fjp$\"3j*om))o
+?V*F-7$F_q$\"3UnB]hK**p%*F-7$Fdq$\"3=]31p\\b-&*F-7$Fiq$\"3Et@nP?7P&*F
-7$F^r$\"3m*zNBl2*o&*F-7$Fcr$\"3v>=H%*H*3g*F-7$Fhr$\"3h=HYZ5?H'*F-7$F]
s$\"3En_(3/*ee'*F-7$Fbs$\"3M\"3A!=<&yo*F-7$Fgs$\"3;x/P?SF7(*F-7$F\\t$
\"3Yh$R:0\\vt*F-7$Fat$\"3Of(\\6,cCw*F-7$Fft$\"3%z(foc\\j&y*F-7$F[u$\"3
#3[RV0Tp!)*F-7$F`u$\"3%Q\")G_`.$H)*F-7$Feu$\"3]4wNKIB[)*F-7$Fju$\"3#G;
ftRDs')*F-7$F_v$\"3_ZFAbhM$))*F-7$Fdv$\"3[K%[oW$y**)*F-7$Fiv$\"3nC#)=M
d69**F-7$F^w$\"3Z<XS>,#z#**F-7$Fcw$\"3iWp(Hx^-%**F-7$Fhw$\"33#\\#3-l#>
&**F-7$F]x$\"3K?-RfY(>'**F-7$Fbx$\"3O%*))z8a.r**F-7$Fgx$\"3y6A]En!)y**
F-7$F\\y$\"3m)pycs!)[)**F-7$Fay$\"3'>E*yvXe!***F-7$Ffy$\"3[Y/inva%***F
-7$F[z$\"3Q*omN<)e(***F-7$F`z$\"31`)o.'GN****F-Fdz-Fjz6&F\\[lF`[lF][lF
`[l-%+AXESLABELSG6$Q\"x6\"Q!Fjdl-%*THICKNESSG6#\"\"#-%%VIEWG6$;F(Fez%(
DEFAULTG" 1 2 0 1 10 2 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Cur
ve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "plot(\{p
ol-sin(x*deg)\},x=60..90,thickness=2);" }}{PARA 13 "" 1 "" {GLPLOT2D 
496 496 496 {PLOTDATA 2 "6&-%'CURVESG6$7]p7$$\"#g\"\"!$\"3o\"Hsh_8gQ\"
!#G7$$\"3(***\\ilyM;g!#;$\"3#e*yBVND)[$!#B7$$\"3%****\\7t&pKgF1$\"3gmg
nP76onF47$$\"3#***\\(ofV!\\gF1$\"3Ko)=wxD^%)*F47$$\"3))****\\i9RlgF1$
\"3C->XTyZs7!#A7$$\"3I+vVV)RQ4'F1$\"3AY4O%QX\"G<FD7$$\"3++]PC#)GAhF1$
\"3wN*pWU-&G@FD7$$\"3Q+D1/9GahF1$\"3IriywT5;DFD7$$\"3/++v$eui='F1$\"3&
pNe)Rd4TGFD7$$\"37+++N)z%=iF1$\"3\\G@fku\")3JFD7$$\"3A++D'3&o]iF1$\"3&
>L+4Fi1K$FD7$$\"3M+Dcrst#G'F1$\"3cfZpfGlzMFD7$$\"3t**\\(oX*y9jF1$\"3CG
Ha4)\\/f$FD7$$\"3Y***\\ipZ'HjF1$\"3d31!\\ZBki$FD7$$\"3!***\\iNf]WjF1$
\"395VHwm6`OFD7$$\"3M+++vTOfjF1$\"3E;PEE9'3n$FD7$$\"31+]P9CAujF1$\"3#4
n1?p&)*zOFD7$$\"3;+]igsg*Q'F1$\"3)>%)>][%p!o$FD7$$\"3a**\\(o5#*\\S'F1$
\"3OJIPxJ'Gn$FD7$$\"3M+]7`pP?kF1$\"3/Mjw5@%ol$FD7$$\"3t**\\P*zhdV'F1$
\"3@LBZ_p(Hj$FD7$$\"35+]PfQenkF1$\"3#=s8L@%=gNFD7$$\"3Y+]P>fS*\\'F1$\"
3E%[_\\LR#eMFD7$$\"3O+](=$f%Gc'F1$\"3KO5PT/KzJFD7$$\"3k++]#y,\"GmF1$\"
3`$z2`#>=1GFD7$$\"3u++Dr\"zbo'F1$\"3(4/=M&G_ACFD7$$\"37++](4&G]nF1$\"3
1R&>:ZPt%>FD7$$\"3X++]7nD:oF1$\"3B*oRP\"[?U9FD7$$\"3c++]-*oy(oF1$\"3?E
w\"*Q\"e:X*F47$$\"3%)**\\PpnsMpF1$\"3UvfVtyCs\\F47$$\"3%)****\\siL-qF1
$!3(p\"*3$>u')H<!#C7$$\"3G+++!R5'fqF1$!3'pk(G'fl[F%F47$$\"3=**\\P/QBEr
F1$!33$3ISE1\"R')F47$$\"3Q*****\\\"o?&=(F1$!3&zQr[E>a?\"FD7$$\"3?+]Pa&
4*\\sF1$!3)o\"4'z&)*zB:FD7$$\"3@+]7j=_6tF1$!3ALWW^v0m<FD7$$\"3O++vVy!e
P(F1$!35X5LHgJ]>FD7$$\"3(3]7G9D`S(F1$!31\\JL`9R5?FD7$$\"3(***\\(=WU[V(
F1$!3Qo.*G]LY0#FD7$$\"3?+DcO3omuF1$!3)RwVy;zV3#FD7$$\"3U++DJ#>&)\\(F1$
!31Ev*)HeJ&4#FD7$$\"3$**\\7`P!fJvF1$!3C_@)*e$*o'3#FD7$$\"3W**\\P>:mkvF
1$!3y0*>%essd?FD7$$\"3I****\\Z+X$f(F1$!3(=\"RCuQ1;?FD7$$\"3;**\\iv&QAi
(F1$!3_#*=nW*\\#f>FD7$$\"3_++vtLU%o(F1$!3'obaY(3%fy\"FD7$$\"3I+++bjm[x
F1$!3iQPq$p@s`\"FD7$$\"34++vyb^6yF1$!3!=-j0gk,B\"FD7$$\"3++]PMaKsyF1$!
3IOpcuCy)y)F47$$\"3=++D6W%)RzF1$!3_))o'4,$*zM%F47$$\"3V*****\\@80+)F1$
\"39j1lJL>gQ!#D7$$\"3)*****\\7,Hl!)F1$\"3&)\\lAo(om-&F47$$\"3()**\\P4w
)R7)F1$\"3U)Gqgiz>r*F47$$\"3k****\\x%f\")=)F1$\"3aIX`I&[#)[\"FD7$$\"3)
***\\P/-a[#)F1$\"3yg/CH#zd'>FD7$$\"38+](=Yb;J)F1$\"3/:&44**\\)RCFD7$$
\"3y****\\i@Ot$)F1$\"3/')HGlGzhGFD7$$\"3/+]PfL'zV)F1$\"3]b5LJP()RKFD7$
$\"35+++!*>=+&)F1$\"3jlJHE[6ANFD7$$\"3'3+D\"ed*>`)F1$\"3ld+(f'3\\GOFD7
$$\"3?++DE&4Qc)F1$\"3L>U\"f_3`q$FD7$$\"3#4D\"G$p%ez&)F1$\"3g_?5'>&\\JP
FD7$$\"3?+DJg)f`f)F1$\"3!ypDY&)z#\\PFD7$$\"3Z\\PMF]86')F1$\"3mr%RX]u#e
PFD7$$\"3=+]P%>5pi)F1$\"3;qTf;a3ePFD7$$\"3]\\7`MfST')F1$\"3'o]o#=CZ\\P
FD7$$\"3E+vou;!fl)F1$\"3W(Qaw]`Ct$FD7$$\"3+^P%[T(Rq')F1$\"368df)Q5nq$F
D7$$\"3K+++bJ*[o)F1$\"3uiVPv1#>n$FD7$$\"3l+]7j17=()F1$\"3K$e*\\#**pib$
FD7$$\"3)4+]7<[8v)F1$\"3'zcKxd\\tQ$FD7$$\"3/+]i]s1\"y)F1$\"3y(zDqClx=$
FD7$$\"36******Hjy5))F1$\"3\"=CqNQQ#RHFD7$$\"3o*\\(=nIZU))F1$\"3&oe'oV
P&oh#FD7$$\"3E+]P/)fT())F1$\"3Qut!eKb9B#FD7$$\"3?+++b!)[/*)F1$\"3=m'4&
p6#**z\"FD7$$\"3;+]i0j\"[$*)F1$\"39&Q/.Y6NI\"FD7$$\"3%3v=#HA6^*)F1$\"3
,%\\fV$ps35FD7$$\"33+D\"G:3u'*)F1$\"3R)))e6w\"*f$pF47$$\"3M\\iSwSq$)*)
F1$\"3s*3uyI8bd$F47$$\"#!*F*$F*F*-%'COLOURG6&%$RGBG$\"#5!\"\"F[elF[el-
%+AXESLABELSG6$Q\"x6\"Q!Fgel-%*THICKNESSG6#\"\"#-%%VIEWG6$;F(Fidl%(DEF
AULTG" 1 2 0 1 10 2 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve \+
1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "plot(\{pol,sin(x*deg)
\},x=0..180,thickness=2);" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 
{PLOTDATA 2 "6'-%'CURVESG6$7S7$$\"\"!F)$!3Q(*****z=o!))*!#>7$$\"3h****
**\\x[BR!#<$!3g7&=q&R#[;\"F,7$$\"3#*****\\iMHPtF0$\"3#3A`yVT\\<'F,7$$
\"3-++]-vk<6!#;$\"3cm`Xau5:9!#=7$$\"3?++]<06/:F;$\"3YUE6&[1v=#F>7$$\"3
!)***\\7uO())=F;$\"3:Lt.0v1DHF>7$$\"3)****\\i[M`C#F;$\"3m`jiGMU!e$F>7$
$\"3x***\\izqXh#F;$\"39htsTAZHUF>7$$\"3')***\\i^Nk*HF;$\"33aMK7fQo[F>7
$$\"3/++D\"fvqP$F;$\"3[P)Hc$4yraF>7$$\"3G+++&p5'oPF;$\"3/lGj%[&ycgF>7$
$\"3=++]F]Z8TF;$\"3)3DL/Sa9a'F>7$$\"3,+++&e5<]%F;$\"3%ya=woZ?0(F>7$$\"
3%)*****\\FS:*[F;$\"3M;.>Z!Hm_(F>7$$\"3_+++:M@n_F;$\"3326rik3ZzF>7$$\"
3r***\\ihg$3cF;$\"3_TpIa[\"pH)F>7$$\"3W+++Nw,9gF;$\"3uv7qS3\\s')F>7$$
\"3E+++SBmdjF;$\"3qIypy'pc&*)F>7$$\"3O***\\i#GSdnF;$\"3.oOqF8#RC*F>7$$
\"38*******)3C6rF;$\"3g>&[*))yZh%*F>7$$\"3w***\\iKd%*\\(F;$\"3]LdQXN!)
e'*F>7$$\"3%)***\\(y68pyF;$\"3(4WL!*[fd!)*F>7$$\"3u++]iq%[D)F;$\"3I$QP
$Q2v:**F>7$$\"3?,+D^Y04')F;$\"3KL#G;>1r(**F>7$$\"3m****\\(Q:6**)F;$\"3
)*f,8u2++5F07$$\"3]***\\i6pzQ*F;$\"3iu6jMwVv**F>7$$\"3@***\\PXJMt*F;$
\"3<]qihBF8**F>7$$\"3-++DCSl55!#:$\"3Jm^$*yu\"G!)*F>7$$\"3!******H\")*
>\\5F_t$\"3DJ<0l-tS'*F>7$$\"3!****\\sM4p3\"F_t$\"35-npK6BM%*F>7$$\"3**
**\\ig_RB6F_t$\"3Acn/*y9')=*F>7$$\"3'****\\nk1R;\"F_t$\"374Y4o#)Gi))F>
7$$\"3%*******GzI+7F_t$\"3]'yHoqC-_)F>7$$\"3)*****\\nS<R7F_t$\"3&y%HRA
&)=.\")F>7$$\"3#***\\ilDRu7F_t$\"3ij_j^IUywF>7$$\"32++]'o&*GJ\"F_t$\"3
G,?#HEBB;(F>7$$\"3)***\\iAT7\\8F_t$\"3sKD(*QLqEmF>7$$\"33+]7xK*pQ\"F_t
$\"3D\\VctEF9gF>7$$\"3()****\\(H<SU\"F_t$\"3Gl'y(eM(GO&F>7$$\"3-+]i:!y
FY\"F_t$\"3MQfjwZRCYF>7$$\"31+++%>4,]\"F_t$\"3km<n()yvdQF>7$$\"37++v:d
GQ:F_t$\"3v>*H3z%z;IF>7$$\"35+]i;h9w:F_t$\"3Ll'H%f#f^7#F>7$$\"3>+++$*e
$4h\"F_t$\"3;?H7jifa7F>7$$\"3-++v-*33l\"F_t$\"3qV9&\\$y5d>F,7$$\"3/+++
)zrko\"F_t$!3Wwx(G'fbt!)F,7$$\"3:+]i#)e\\C<F_t$!3T]N&Gu#zN>F>7$$\"35+]
P$y*)3w\"F_t$!3ao[d,N_tIF>7$$\"$!=F)$!3ci/+ez\")fVF>-%'COLOURG6&%$RGBG
$\"#5!\"\"F(F(-F$6$7S7$F(F(7$F.$\"3fD-q?uUUoF,7$F4$\"3#=tO\\*>5x7F>7$F
9$\"3hUDzhcJQ>F>7$F@$\"3U-alN&>^f#F>7$FE$\"3f*fh><)3PKF>7$FJ$\"3!Qw'GO
+J>QF>7$FO$\"3Mxvv_Vb1WF>7$FT$\"3+1,[<8h%*\\F>7$FY$\"3s3+@RSrebF>7$Fhn
$\"3%[i@vm^L6'F>7$F]o$\"39YO<h;KylF>7$Fbo$\"3;1&z!)eyJ2(F>7$Fgo$\"3&fy
`S'3SPvF>7$F\\p$\"3CAbEQmy^zF>7$Fap$\"3)>3-]lE&)H)F>7$Ffp$\"3;gRn,3Ys'
)F>7$F[q$\"3#>)=Z^FIb*)F>7$F`q$\"33V9bB?tV#*F>7$Feq$\"3Mw@J%*[bh%*F>7$
Fjq$\"35V[d!38!f'*F>7$F_r$\"3@8$)3W$\\e!)*F>7$Fdr$\"3G2u\"4G\\b\"**F>7
$Fir$\"3CIA3J/tw**F>7$F^s$\"2%*[5t(z)*****F07$Fcs$\"3cm2%fC$3x**F>7$Fh
s$\"3b%R3]l\"==**F>7$F]t$\"3MI/ayt39)*F>7$Fct$\"3STn,#[jGm*F>7$Fht$\"3
Sj]@H*4EZ*F>7$F]u$\"3c#\\tkEx%\\#*F>7$Fbu$\"3;NC;P>%y&*)F>7$Fgu$\"3UCP
x*flvl)F>7$F\\v$\"3%4R;)4!G%)H)F>7$Fav$\"3vx$\\t'G)*RzF>7$Ffv$\"3=\\qw
=G%Q^(F>7$F[w$\"3Y6I=Z!p=3(F>7$F`w$\"3bcElH[5+mF>7$Few$\"3?3,DXC@,hF>7
$Fjw$\"3YYI?Yrm^bF>7$F_x$\"3c$[.CW\\$)*\\F>7$Fdx$\"3Hos?QOe5WF>7$Fix$
\"3S&Ges%eM3QF>7$F^y$\"3$[2BfrK-C$F>7$Fcy$\"316,_>4buDF>7$Fhy$\"37Y;fh
2]o>F>7$F]z$\"3)>e18l%)RJ\"F>7$Fbz$\"3\"\\9FL#3s?oF,7$Fgz$!3]#R^MR#o?5
!#G-F\\[l6&F^[lF(F_[lF(-%+AXESLABELSG6$Q\"x6\"Q!F]el-%*THICKNESSG6#\"
\"#-%%VIEWG6$;F(Fgz%(DEFAULTG" 1 2 0 1 10 2 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
15 "x:=[0,1,3,4,7];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG7'\"\"!\"
\"\"\"\"$\"\"%\"\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "y:=[
2,-3,0,1,-2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG7'\"\"#!\"$\"\"
!\"\"\"!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "y:=[seq((y[i
+1]-y[i])/(x[i+1]-x[i]),i=1..4)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%\"yG7&!\"&#\"\"$\"\"#\"\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 45 "y:=[seq((y[i+1]-y[i])/(x[i+2]-x[i]),i=1..3)];" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG7%#\"#8\"\"'#!\"\"F(#F*\"\"#" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "y:=[seq((y[i+1]-y[i])/(x[i+
3]-x[i]),i=1..2)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG7$#!\"(\"#
7#!\"\"\"#=" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "y:=[seq((y[i
+1]-y[i])/(x[i+4]-x[i]),i=1..1)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%\"yG7##\"#>\"$_#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "y:=[2,
-3,0,1,-2]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "n:=4;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"\"%" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 70 "for j to n do y:=[seq((y[i+1]-y[i])/(x[i+j]-x[i]),
i=1..n+1-j)] end do;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG7&!\"&#
\"\"$\"\"#\"\"\"!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG7%#\"#8
\"\"'#!\"\"F(#F*\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG7$#!\"(
\"#7#!\"\"\"#=" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG7##\"#>\"$_#" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "28 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }