{VERSION 4 0 "IBM INTEL NT" "4.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 Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 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 }
{CSTYLE "" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 0 0 0 0 1 }{CSTYLE "" -1 256 
"" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 257 "" 0 1 0 0 0 0 
0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 0 1 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 1 }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 "Heading 1" 0 3 1 {CSTYLE "" 
-1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }1 0 0 0 8 4 0 0 0 0 0 0 -1 
0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 
0 0 1 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 1 }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 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "M
aple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 
}3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Title" 0 18 1 {CSTYLE "" 
-1 -1 "" 1 18 0 0 0 0 0 1 1 0 0 0 0 0 0 1 }3 0 0 -1 12 12 0 0 0 0 0 0 
19 0 }{PSTYLE "Author" 0 19 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 
0 0 0 0 0 1 }3 0 0 -1 8 8 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 58 "File: depart\\math\\maple
\\misc\\shadein.mws  Date: 9-dec-1999" }}}{EXCHG {PARA 18 "" 0 "" 
{TEXT -1 37 "Shading the region between two graphs" }}{PARA 19 "" 0 "
" {TEXT -1 44 "by Tim Feeman [timothy.feeman@villanova.edu]" }}{PARA 
0 "" 0 "" {TEXT -1 61 "[with collaborative hints from bob jantzen and \+
klaus volpert]" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "with(plot
s): with(plottools):\n" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the na
me changecoords has been redefined\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 24 "The following procedure " }{TEXT 257 7 "shadein" }{TEXT -1 349 
" is designed to shade in the region between two curves over a specifi
ed interval. The inputs for the procedure are: the two functions (defi
ned as procedures, not expressions), the desired interval on the x-axi
s (e.g., between their intersection points if desired, but any interva
l will work), and the color you want for the shading. \n\nYou must use
  " }{MPLTEXT 0 21 17 "with(plottools): " }{TEXT -1 38 "to use this pr
ocedure. If you wish to " }{TEXT 256 7 "display" }{TEXT -1 52 " it tog
ether with the original curves, you must use " }{MPLTEXT 0 21 11 "with
(plot):" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 
54 "This procedure was created by analyzing the plottools " }{TEXT 
258 7 "ellipse" }{TEXT -1 90 " command. It creates an upward sawtooth \+
sequence of shaded triangles from the lower curve " }{XPPEDIT 18 0 "f;
" "6#%\"fG" }{TEXT -1 20 " to the upper curve " }{XPPEDIT 18 0 "g;" "6
#%\"gG" }{TEXT -1 168 " (if they are in this relation) , and then comp
letes the shading with the complementary downward sawtooth sequence of
 triangles from the upper curve to the lower curve." }}{PARA 0 "" 0 "
" {TEXT -1 2 "  " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 884 "shadei
n:=proc (f,g,a,c) \n  local i, n, loptions;  \n  loptions := [args[5 .
. nargs]]; \n  if not hasoption(loptions,'numpoints','n','loptions') \+
\n    then n := 50 \n  fi; \n### WARNING: persistent store makes one-a
rgument readlib obsolete\n  loptions :=                 convert(readli
b(`plottools/local_2d`)(loptions),\n      'PLOToptions');\nseq(polygon
([\n[evalf(a[1]+(a[2]-a[1])*i/n),\n evalf(f(a[1]+(a[2]-a[1])*i/n))],\n
[evalf(a[1]+(a[2]-a[1])*(i+1)/n),\n evalf(f(a[1]+(a[2]-a[1])*(i+1)/n))
],\n[evalf(a[1]+(a[2]-a[1])*(i+1)/n),\n evalf(g(a[1]+(a[2]-a[1])*(i+1)
/n))]],\ncolor=c,style=patchnogrid,op(loptions)),i = 0 .. n-1), seq(po
lygon([[\nevalf(a[1]+(a[2]-a[1])*i/n),\nevalf(g(a[1]+(a[2]-a[1])*i/n))
],\n[evalf(a[1]+(a[2]-a[1])*(i+1)/n),\nevalf(g(a[1]+(a[2]-a[1])*(i+1)/
n))],\n[evalf(a[1]+(a[2]-a[1])*i/n),\nevalf(f(a[1]+(a[2]-a[1])*i/n))]]
,\ncolor=c,style=patchnogrid,op(loptions)),i = 0 .. n-1) \nend;" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(shadeinGR6&%\"fG%\"gG%\"aG%\"cG6%%
\"iG%\"nG%)loptionsG6\"F/C&>8&7#&9\"6#;\"\"&9#@$4-%*hasoptionG6&F2.%*n
umpointsG.8%.F2>FB\"#]>F2-%(convertG6$--%(readlibG6#%3plottools/local_
2dG6#F2.%,PLOToptionsG6$-%$seqG6$-%(polygonG6&7%7$-%&evalfG6#,&&9&6#\"
\"\"F\\o*&*&,&&Fjn6#\"\"#F\\oFin!\"\"F\\o8$F\\oF\\oFBFcoF\\o-Ffn6#-9$F
gn7$-Ffn6#,&FinF\\o*&*&F_oF\\o,&FdoF\\oF\\oF\\oF\\oF\\oFBFcoF\\o-Ffn6#
-FhoF[p7$Fjo-Ffn6#-9%F[p/%&colorG9'/%&styleG%,patchnogridG-%#opGFO/Fdo
;\"\"!,&FBF\\oF\\oFco-FT6$-FW6&7%7$Fen-Ffn6#-FgpFgnFcpFZFhpF[qF^qF`qF/
F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "p:=plot(\{sin(x),c
os(x)\},x=0..Pi/2,color=black):\ndisplay(\{p,shadein(sin,cos,[0,Pi/4],
gray,numpoints=20)\});" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 
{PLOTDATA 2 "6N-%)POLYGONSG6%7%7$$\"+3`=$G'!#5$\"+CD&y(eF*7$$\"+!R%)en
'F*$\"+%\\R4>'F*7$F.$\"+3$pJ&yF*-%&STYLEG6#%,PATCHNOGRIDG-%'COLOURG6&%
$RGBG$\")=THv!\")F=F=-F$6%7%F-7$$\"+sMeoqF*$\"+%[![%\\'F*7$FD$\"+b'fSg
(F*F5F9-F$6%7%7$$\"+=3*p#R!#6$\"+i.H#***F*7$$\"+N;)R&yFQ$\"+PL<p**F*7$
FO$\"+x:)f#RFQF5F9-F$6%7%7$$\"\"!F[o$\"\"\"F[oFN7$FjnFjnF5F9-F$6%7%7$$
\"+`DGhuF*$\"+cu+)y'F*7$$FVF*$\"+5y1rqF*FgoF5F9-F$6%7%FCFbo7$Fco$\"+%4
DKM(F*F5F9-F$6%7%7$$\"+Xs4y6F*$\"+qXoI**F*7$$\"+Fjzq:F*$\"+1M)o()*F*7$
Fep$\"+uRPv6F*F5F9-F$6%7%FTFdp7$FU$\"+u&4f%yFQF5F9-F$6%7%Fip7$$\"+4a\\
j>F*$\"+/G&y!)*F*7$Fjp$\"+^YMk:F*F5F9-F$6%7%7$$\"+sN*)[FF*$\"+lBbC'*F*
7$$\"+aEfTJF*$\"+j^c5&*F*7$Ffr$\"+*\\/Wr#F*F5F9-F$6%7%7$$\"+!\\%>cBF*$
\"+/#*pB(*F*Fer7$Ffs$\"+QOXMBF*F5F9-F$6%7%FjqFes7$F[r$\"+@K!4&>F*F5F9-
F$6%7%7$$FPF*$\"+D`zQ#*F*7$$\"+**)*o>VF*$\"+Q<V\"3*F*7$Fgt$\"+DV$o#QF*
F5F9-F$6%7%7$$\"+O<HMNF*$\"+fL\">Q*F*Fft7$Ffu$\"+r0<hMF*F5F9-F$6%7%Fjr
Feu7$F[s$\"+W*p,4$F*F5F9-F$6%7%7$$\"+j!)30^F*$\"+q+'\\s)F*7$$\"+Wry(\\
&F*$\"+V;SE&)F*7$Fgv$\"+;C@')[F*F5F9-F$6%7%7$$\"+\")*)Q7ZF*$\"+U_15*)F
*Ffv7$Fgw$\"+)*\\!*RXF*F5F9-F$6%7%FjtFfw7$F[u$\"+wtf'=%F*F5F9-F$6%7%7$
$\"+Ei[!*eF*$\"+Bhp9$)F*7$F($\"+V*p,4)F*7$Fhx$\"+JBqbbF*F5F9-%'CURVESG
6$7SFin7$$\"3NGK5j*))QU$!#>$\"3QEIyk!RT***!#=7$$\"3DXXYUk*HS'Fiy$\"31j
$H4#y]z**F\\z7$$\"3=N68yVJ`(*Fiy$\"3iOWDATZ_**F\\z7$$\"3%3h%eRSe78F\\z
$\"3a=nIl(zR\"**F\\z7$$\"3k+,hQPB[;F\\z$\"3!H&p97NZk)*F\\z7$$\"3'H#*ed
(RUf>F\\z$\"3hF6B)GY'3)*F\\z7$$\"3kHX[TMk\"G#F\\z$\"3G0*pfUK3u*F\\z7$$
\"3<hw(QF$)[h#F\\z$\"3'Q3c\"zG1g'*F\\z7$$\"3%y-->Saq%HF\\z$\"3a#Hg3Tx)
o&*F\\z7$$\"3)pq'4OKt)G$F\\z$\"3!\\CyiMoSY*F\\z7$$\"3#f/N#RTo*e$F\\z$
\"3;o4Josfi$*F\\z7$$\"3Ut79wN[GRF\\z$\"3U5G)z'RAQ#*F\\z7$$\"3/<m3cTnoU
F\\z$\"3+*pDjqrE5*F\\z7$$\"3wMbk:3^'f%F\\z$\"3mNucYM2i*)F\\z7$$\"3%[IQ
)4z@%*[F\\z$\"3ld[L7$[g#))F\\z7$$\"31\\,oR/A[_F\\z$\"3M7F)z@JTl)F\\z7$
$\"3uvW/<q5[bF\\z$\"3@p@5X<++&)F\\z7$$\"3]W`F)RYp*eF\\z$\"34,(\\&3`56$
)F\\z7$$\"33'3B#f$Gd?'F\\z$\"3Lv@N`[XN\")F\\z7$$\"3.n3p46^WlF\\z$\"3lf
?Z%p@Q$zF\\z7$$\"3oHyF.C6noF\\z$\"3:3`m\"e_Lt(F\\z7$$\"3(*zx.5Ir.sF\\z
$\"3(31B8Z3c^(F\\z7$$\"3'pz!QUu\"G^(F\\z$\"3.dzD:e93tF\\z7$$\"3A\"3@7L
Gi%yF\\z$\"3e^%H*)4[l2(F\\z7$$\"3)3\"HIT&[D>)F\\z$\"31AKL\"Gew#oF\\z7$
$\"3gv)\\AI@S\\)F\\z$\"3NI5]d>K/mF\\z7$$\"3vn()=V,i>))F\\z$\"3Wp$f4=xj
N'F\\z7$$\"3'G:[dg&*f:*F\\z$\"3#Gr\"zlF:$4'F\\z7$$\"3sSt6rL2&[*F\\z$\"
3+kbUhf'*GeF\\z7$$\"3mka(*HIZ.)*F\\z$\"3S\\$>&*yStc&F\\z7$$\"3Em\"[l:+
d,\"!#<$\"3syV,H.Dq_F\\z7$$\"3c!3XyEmu/\"Facl$\"35cj1lEn(*\\F\\z7$$\"3
sJ_*>P$Q\"3\"Facl$\"3DF8Py$y5q%F\\z7$$\"3.M\"G%4t676Facl$\"3Cg[y,0kFWF
\\z7$$\"3co*Q4i<d9\"Facl$\"3Fz_\\X[#R7%F\\z7$$\"3[cr`&*GLx6Facl$\"3R](
>U([*Q$QF\\z7$$\"3Hk&>q'*z.@\"Facl$\"3G8u?D(Qm_$F\\z7$$\"34Q$[)>&*oU7F
acl$\"38OldzS^AKF\\z7$$\"3I^lOFY^w7Facl$\"3gN^_O]_+HF\\z7$$\"3`!)f6EA4
48Facl$\"3]EKPO+F(e#F\\z7$$\"3=;T7EvSU8Facl$\"3s9%3md%3kAF\\z7$$\"3a_w
iepWv8Facl$\"3G+Nc*p#4T>F\\z7$$\"3U$obdw1eS\"Facl$\"3v3+*zL?Ck\"F\\z7$
$\"3s$)o#3`-1W\"Facl$\"3#R-7)3IE)H\"F\\z7$$\"3-#*)4zFC<Z\"Facl$\"3q![!
=de+\"*)*Fiy7$$\"3y<;V^l!\\]\"Facl$\"3?\")3+Q4@%e'Fiy7$$\"3\\3Y:@imO:F
acl$\"370X.()zM7MFiy7$$\"3+++lBjzq:Facl$\"3&pI?mi'*[9$!#E-F:6&F<F[oF[o
F[o-Fcy6$7SF^o7$Fgy$\"3QsLeI+ABMFiy7$F^z$\"3]DS+L@i)R'Fiy7$Fcz$\"3_b&e
hJeyt*Fiy7$Fhz$\"3<&Q%f]#=)38F\\z7$F][l$\"3V-yj65yS;F\\z7$Fb[l$\"3q)*)
ys&)4p%>F\\z7$Fg[l$\"3G3RBS#)*=E#F\\z7$F\\\\l$\"3GM*4Ir&=&e#F\\z7$Fa\\
l$\"3=7dd?+e/HF\\z7$Ff\\l$\"3c0jx$Rp(HKF\\z7$F[]l$\"3ML>uye38NF\\z7$F`
]l$\"3V3zj5M@GQF\\z7$Fe]l$\"3T$oQx\\8-9%F\\z7$Fj]l$\"3UOK72VNOWF\\z7$F
_^l$\"3=(>VrOc6q%F\\z7$Fd^l$\"3SMGBr+f5]F\\z7$Fi^l$\"37xKegS#yE&F\\z7$
F^_l$\"3AFv)ygs5c&F\\z7$Fc_l$\"3M>X(*RG,:eF\\z7$Fh_l$\"33g0zi&Qs3'F\\z
7$F]`l$\"3h+)=j,t*RjF\\z7$Fb`l$\"3Qz3MFxj'f'F\\z7$Fg`l$\"3$[8q$y.wDoF
\\z7$F\\al$\"3wm47uKelqF\\z7$Faal$\"3M(RvZssjI(F\\z7$Ffal$\"3C>#p\"po&
)3vF\\z7$F[bl$\"3%4zeG%\\()>xF\\z7$F`bl$\"31()\\)y]!GHzF\\z7$Febl$\"3g
&H%*=Uja7)F\\z7$Fjbl$\"3%3R7+w2pI)F\\z7$F_cl$\"3Q?Zs+w\\)\\)F\\z7$Fecl
$\"3Ih!)R3tfh')F\\z7$Fjcl$\"3VZPF_)*3E))F\\z7$F_dl$\"3kW#3Hj\"Qm*)F\\z
7$Fddl$\"3OvDs!yi+6*F\\z7$Fidl$\"3Uh#yueneB*F\\z7$F^el$\"3Y(Q,up+vN*F
\\z7$Fcel$\"3OZ!)zP7am%*F\\z7$Fhel$\"3-w%)pSt5q&*F\\z7$F]fl$\"3-KPDS[]
f'*F\\z7$Fbfl$\"3B\"='y#[C.u*F\\z7$Fgfl$\"3$oY$>Q\"*z4)*F\\z7$F\\gl$\"
3#4Wi\"*p+U')*F\\z7$Fagl$\"3aZ!3__n`\"**F\\z7$Ffgl$\"3-jN*Rxj4&**F\\z7
$F[hl$\"3%zPL)R0Iy**F\\z7$F`hl$\"3Qg9![CwT***F\\z7$FehlF\\oFjhl-F$6%7%
F[wFgx7$F\\w$\"+Zc)\\A&F*F5F9-F$6%7%F2FHF-F5F9-F$6%7%F\\yF2F'F5F9-F$6%
7%F^pFgoFboF5F9-F$6%7%F^oFYFNF5F9-F$6%7%FHF^pFCF5F9-F$6%7%FYFdqFTF5F9-
F$6%7%F_rF`tFjqF5F9-F$6%7%F^qF_rFipF5F9-F$6%7%FdqF^qFdpF5F9-F$6%7%F`tF
jsFesF5F9-F$6%7%FjsF_sFerF5F9-F$6%7%F_sF`vFjrF5F9-F$6%7%F`vFjuFeuF5F9-
F$6%7%FjuF_uFftF5F9-F$6%7%F_uFaxFjtF5F9-F$6%7%FaxF[xFfwF5F9-F$6%7%F[xF
`wFfvF5F9-F$6%7%F`wF`bmF[wF5F9-F$6%7%F`bmF_yFgxF5F9-F$6%7%F_yF'F\\yF5F
9-%+AXESLABELSG6$Q\"x6\"Q!6\"-%%VIEWG6$;Fjn$F[q!\"*%(DEFAULTG" 1 2 0 
1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" 
"Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" 
"Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Cur
ve 16" "Curve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Curve 2
2" "Curve 23" "Curve 24" "Curve 25" "Curve 26" "Curve 27" "Curve 28" "
Curve 29" "Curve 30" "Curve 31" "Curve 32" "Curve 33" "Curve 34" "Curv
e 35" "Curve 36" "Curve 37" "Curve 38" "Curve 39" "Curve 40" "Curve 41
" "Curve 42" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 9 "Huzzah!!!" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 138 "u:=x->x^2-1;\nv:=x->1-x^2;
\np1:=plot(\{u(x),v(x)\},x=-2..2,color=black):\nsolve(u(x)=v(x),x);\np
ic:=shadein(u,v,[-1,1],gray):\ndisplay(\{p1,pic\});" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%\"uGR6#%\"xG6\"6$%)operatorG%&arrowGF(,&*$)9$\"\"#
\"\"\"F1F1!\"\"F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"vGR6#%\"x
G6\"6$%)operatorG%&arrowGF(,&\"\"\"F-*$)9$\"\"#F-!\"\"F(F(F(" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6$\"\"\"!\"\"" }}{PARA 13 "" 1 "" {GLPLOT2D 
400 300 300 {PLOTDATA 2 "6dq-%)POLYGONSG6%7%7$$!+++++K!#5$\"++++w*)F*7
$$!+++++GF*$\"++++;#*F*7$F($!++++w*)F*-%&STYLEG6#%,PATCHNOGRIDG-%'COLO
URG6&%$RGBG$\")=THv!\")F=F=-F$6%7%7$$!+++++OF*$\"++++/()F*F'7$FD$!++++
/()F*F5F9-F$6%7%7$$!+++++cF*$!++++koF*7$$!+++++_F*$!++++'H(F*7$FT$\"++
++'H(F*F5F9-F$6%7%7$$\"+++++GF*F07$$\"+++++KF*F+7$Fin$!++++;#*F*F5F9-F
$6%7%7$$!+++++[F*$!++++'p(F*7$$!+++++WF*$!++++k!)F*7$Fjo$\"++++k!)F*F5
F9-F$6%7%FSFdo7$Feo$\"++++'p(F*F5F9-F$6%7%FHF2F'F5F9-F$6%7%7$$!+++++SF
*$!+++++%)F*FHFCF5F9-F$6%7%FioF]q7$F^q$\"+++++%)F*F5F9-F$6%7%7$F.F_o7$
$!+++++CF*$!++++C%*F*7$F]r$\"++++C%*F*F5F9-F$6%7%F2F[rF-F5F9-F$6%7%7$$
\"+++++!)!#6$\"++++O**F*7$$\"+++++7F*$\"++++c)*F*7$F[s$!++++O**F*F5F9-
F$6%7%7$$!+++++?F*$!+++++'*F*7$$!+++++;F*$!++++W(*F*7$Fat$\"++++W(*F*F
5F9-F$6%7%F[o7$$\"+++++OF*FF7$F\\oF3F5F9-F$6%7%F\\rF[t7$F\\t$\"+++++'*
F*F5F9-F$6%7%FbuFetF[tF5F9-F$6%7%7$$F_qF]s$!++++%)**F*7$$\"\"!Fav$!\"
\"Fav7$F`v$\"\"\"FavF5F9-%'CURVESG6$7S7$$!\"#Fav$!\"$Fav7$$!3MLLL$Q6G
\">!#<$!3A!e4#)QZ)eEFcw7$$!3bmm;M!\\p$=Fcw$!3'*[e7a<QuBFcw7$$!3MLLL))Q
j^<Fcw$!3I_xvy7Ao?Fcw7$$!3ALLL=Kvl;Fcw$!3AdyQ%yLZx\"Fcw7$$!3wmm;C2G!e
\"Fcw$!3eCF<nrG(\\\"Fcw7$$!3OLL$3yO5]\"Fcw$!3S'\\9uT6JD\"Fcw7$$!3&****
*\\nU)*=9Fcw$!3i6DT^j^85Fcw7$$!3SLL$3WDTL\"Fcw$!3uity=p!*)z(!#=7$$!35+
+]d(Q&\\7Fcw$!3LSk%\\1rMh&Fiy7$$!3gmmmc4`i6Fcw$!3l]J3_Ay9NFiy7$$!3KLLL
QW*e3\"Fcw$!3GaE.7tm\"z\"Fiy7$$!3w++++()>'***Fiy$\"3RT$H=,b6g(!#@7$$!3
E++++0\"*H\"*Fiy$\"3ku*)>EMZk;Fiy7$$!35++++83&H)Fiy$\"3@J!REii\">JFiy7
$$!3\\LLL3k(p`(Fiy$\"3`wE-i')R>VFiy7$$!3Anmmmj^NmFiy$\"3;z)pZD#*pf&Fiy
7$$!3)zmmmYh=(eFiy$\"3'o^F;HC@b'Fiy7$$!3+,++v#\\N)\\Fiy$\"3G'pkBmBk^(F
iy7$$!3commmCC(>%Fiy$\"3/!*4gnbJQ#)Fiy7$$!39*****\\FRXL$Fiy$\"3%yC[By%
3))))Fiy7$$!3t*****\\#=/8DFiy$\"3_m+ey?Yo$*Fiy7$$!3=mmm;a*el\"Fiy$\"35
Li!p.,es*Fiy7$$!3komm;Wn(o)!#>$\"3S&**HKJCX#**Fiy7$$!3IqLLL$eV(>!#?$\"
3U:<4>5'*****Fiy7$$\"3)Qjmm\"f`@')Fd^l$\"3yFwV=\"pc#**Fiy7$$\"3%z****
\\nZ)H;Fiy$\"3i4(HclfVt*Fiy7$$\"3ckmm;$y*eCFiy$\"3#zJ;QcU`R*Fiy7$$\"3f
)******R^bJ$Fiy$\"3*\\!eR\"*=r+*)Fiy7$$\"3'e*****\\5a`TFiy$\"3w#\\'fu'
4[F)Fiy7$$\"3'o****\\7RV'\\Fiy$\"3XE%*>0P`NvFiy7$$\"3Y'*****\\@fkeFiy$
\"3%>%eT\"*elglFiy7$$\"3_ILLL&4Nn'Fiy$\"3/:4&30Fka&Fiy7$$\"3A*******\\
,s`(Fiy$\"3*fxR[Nf!>VFiy7$$\"3%[mm;zM)>$)Fiy$\"31!HPR!\\.yIFiy7$$\"3M*
******pfa<*Fiy$\"3'=fn$HR4\"e\"Fiy7$$\"39HLLeg`!)**Fiy$\"3a6@3$))***))
QFj^l7$$\"3w****\\#G2A3\"Fcw$!3gU.'H-E<r\"Fiy7$$\"3;LLL$)G[k6Fcw$!3CLJ
wbQ?gNFiy7$$\"3#)****\\7yh]7Fcw$!3[YGUH\"\\/k&Fiy7$$\"3xmmm')fdL8Fcw$!
3'ptR@7\\Uy(Fiy7$$\"3bmmm,FT=9Fcw$!34K$\\Af%*=,\"Fcw7$$\"3FLL$e#pa-:Fc
w$!3W+7Lkskd7Fcw7$$\"3!*******Rv&)z:Fcw$!35^[pY)\\f\\\"Fcw7$$\"3ILLLGU
Yo;Fcw$!3?XzA\")Gx$y\"Fcw7$$\"3_mmm1^rZ<Fcw$!3ax32%43X0#Fcw7$$\"34++]s
I@K=Fcw$!3#3*)RIu/qN#Fcw7$$\"34++]2%)38>Fcw$!3?')3\"\\D2*fEFcw7$$\"\"#
FavF^w-F:6&F<FavFavFav-Fhv6$7S7$F\\w$\"\"$Fav7$Faw$\"3A!e4#)QZ)eEFcw7$
Fgw$\"3'*[e7a<QuBFcw7$F\\x$\"3I_xvy7Ao?Fcw7$Fax$\"3AdyQ%yLZx\"Fcw7$Ffx
$\"3eCF<nrG(\\\"Fcw7$F[y$\"3S'\\9uT6JD\"Fcw7$F`y$\"3i6DT^j^85Fcw7$Fey$
\"3uity=p!*)z(Fiy7$F[z$\"3LSk%\\1rMh&Fiy7$F`z$\"3l]J3_Ay9NFiy7$Fez$\"3
GaE.7tm\"z\"Fiy7$Fjz$!3RT$H=,b6g(F^[l7$F`[l$!3ku*)>EMZk;Fiy7$Fe[l$!3@J
!REii\">JFiy7$Fj[l$!3`wE-i')R>VFiy7$F_\\l$!3;z)pZD#*pf&Fiy7$Fd\\l$!3'o
^F;HC@b'Fiy7$Fi\\l$!3G'pkBmBk^(Fiy7$F^]l$!3/!*4gnbJQ#)Fiy7$Fc]l$!3%yC[
By%3))))Fiy7$Fh]l$!3_m+ey?Yo$*Fiy7$F]^l$!35Li!p.,es*Fiy7$Fb^l$!3S&**HK
JCX#**Fiy7$Fh^l$!3U:<4>5'*****Fiy7$F^_l$!3yFwV=\"pc#**Fiy7$Fc_l$!3i4(H
clfVt*Fiy7$Fh_l$!3#zJ;QcU`R*Fiy7$F]`l$!3*\\!eR\"*=r+*)Fiy7$Fb`l$!3w#\\
'fu'4[F)Fiy7$Fg`l$!3XE%*>0P`NvFiy7$F\\al$!3%>%eT\"*elglFiy7$Faal$!3/:4
&30Fka&Fiy7$Ffal$!3*fxR[Nf!>VFiy7$F[bl$!31!HPR!\\.yIFiy7$F`bl$!3'=fn$H
R4\"e\"Fiy7$Febl$!3a6@3$))***))QFj^l7$Fjbl$\"3gU.'H-E<r\"Fiy7$F_cl$\"3
CLJwbQ?gNFiy7$Fdcl$\"3[YGUH\"\\/k&Fiy7$Ficl$\"3'ptR@7\\Uy(Fiy7$F^dl$\"
34K$\\Af%*=,\"Fcw7$Fcdl$\"3W+7Lkskd7Fcw7$Fhdl$\"35^[pY)\\f\\\"Fcw7$F]e
l$\"3?XzA\")Gx$y\"Fcw7$Fbel$\"3ax32%43X0#Fcw7$Fgel$\"3#3*)RIu/qN#Fcw7$
F\\fl$\"3?')3\"\\D2*fEFcw7$FaflFiflFcfl-F$6%7%7$$!+++++!)F]sFfsF[v7$F
\\v$\"++++%)**F*F5F9-F$6%7%F[u7$$\"+++++SF*Ffq7$F\\uFIF5F9-F$6%7%7$$!+
++++7F*$!++++c)*F*F\\`m7$F]`mF^sF5F9-F$6%7%F`tF\\am7$F]amFcsF5F9-F$6%7
%Fes7$FasF_amF`sF5F9-F$6%7%7$$Fg`mF]sF]vFesFjrF5F9-F$6%7%F_vF]bm7$F^bm
F``mF5F9-F$6%7%7$$\"+++++CF*F_rF^oFhnF5F9-F$6%7%7$$\"+++++?F*F^tFfbm7$
FgbmFbrF5F9-F$6%7%7$$\"+++++;F*FctF\\cm7$F]cmFcuF5F9-F$6%7%Fe`m7$$\"++
+++WF*F_p7$Ff`mF`qF5F9-F$6%7%FiamFccm7$FdcmFftF5F9-F$6%7%F^uFh`mF[uF5F
9-F$6%7%F^oF^uF[oF5F9-F$6%7%7$F[dmF\\p7$$\"+++++[F*Fgo7$F]emFepF5F9-F$
6%7%F]dmF[emFjcmF5F9-F$6%7%Fh`mF]dmFe`mF5F9-F$6%7%FjcmF_emF[emF5F9-F$6
%7%7$$\"+++++cF*FQ7$$\"+++++gF*$!+++++kF*7$F`fm$\"+++++kF*F5F9-F$6%7%7
$$\"+++++_F*FVF\\fm7$F]fm$\"++++koF*F5F9-F$6%7%FetFeamF`tF5F9-F$6%7%F
\\emFjfm7$F[gmFYF5F9-F$6%7%F`sFadmFiamF5F9-F$6%7%F_fm7$Fefm$!++++/fF*7
$Fefm$\"++++/fF*F5F9-F$6%7%F_emFfgmF\\emF5F9-F$6%7%7$$\"+++++sF*$!++++
;[F*7$$\"+++++wF*$!++++CUF*7$F_im$\"++++CUF*F5F9-F$6%7%7$$\"+++++oF*$!
++++w`F*Fihm7$Fjhm$\"++++;[F*F5F9-F$6%7%F]hmFiim7$Fjim$\"++++w`F*F5F9-
F$6%7%7$Ffq$!++++WHF*7$$\"+++++))F*$!++++cAF*7$F^[n$\"++++cAF*F5F9-F$6
%7%7$$F\\sF*FDFjjm7$Ffq$\"++++WHF*F5F9-F$6%7%FeamFaamF\\amF5F9-F$6%7%F
fgmF]gmFjfmF5F9-F$6%7%F^imFh[n7$Fi[nF\\uF5F9-F$6%7%F]gmFdfmF\\fmF5F9-F
$6%7%7$$\"+++++#*F*$!++++O:F*7$Fcu$!++++SyF]s7$Fcu$\"++++SyF]sF5F9-F$6
%7%F-FarF[rF5F9-F$6%7%F][nF]]n7$F^]n$\"++++O:F*F5F9-F$6%7%FadmFfcmFccm
F5F9-F$6%7%7$FbvF`v7$F^tFf]nFg^nF5F9-F$6%7%FdfmF`hmF_fmF5F9-F$6%7%Fb]n
7$FevF`vF__nF5F9-F$6%7%7$$!+++++wF*Fdim7$$!+++++sF*F_jm7$Fd_nFaimF5F9-
F$6%7%7$$F^`mF*F\\uFc_n7$F^`nFDF5F9-F$6%7%7$F`qF[\\nF]`n7$F`qF[[nF5F9-
F$6%7%7$$!+++++))F*Fc[nFc`n7$Fi`nF`[nF5F9-F$6%7%7$$!+++++#*F*F_^nFh`n7
$F`anF`]nF5F9-F$6%7%Fh^nF_an7$F^tFc]nF5F9-F$6%7%FaamF_`mF\\`mF5F9-F$6%
7%7$$!+++++gF*Fefm7$FOF^gm7$F^bnFbfmF5F9-F$6%7%7$FbfmFahmF]bn7$FbfmF^h
mF5F9-F$6%7%Ff_n7$$!+++++oF*Fejm7$Fg_nF\\imF5F9-F$6%7%FjbnFebn7$F[cnF
\\jmF5F9-F$6%7%F`hmFdjmF]hmF5F9-F$6%7%FfcmF_cmF\\cmF5F9-F$6%7%F^pFeqFi
oF5F9-F$6%7%FdpF^pFdoF5F9-F$6%7%FXFdpFSF5F9-F$6%7%F`bnFXFNF5F9-F$6%7%F
bbmFjrF]bmF5F9-F$6%7%FeqFCF]qF5F9-F$6%7%Fg^nFfanFh^nF5F9-F$6%7%FdjmF^j
mFiimF5F9-F$6%7%FbanF[anFh`nF5F9-F$6%7%FcimFf\\nF^imF5F9-F$6%7%F^jmFci
mFihmF5F9-F$6%7%FfanFbanF_anF5F9-F$6%7%F[anFd`nFc`nF5F9-F$6%7%Fd`nF_`n
F]`nF5F9-F$6%7%Ff\\nFj[nFh[nF5F9-F$6%7%F_`mFdvF[vF5F9-F$6%7%F_`nFi_nFc
_nF5F9-F$6%7%Fj[nFb[nFjjmF5F9-F$6%7%F]cnFacnFjbnF5F9-F$6%7%Fb[nF^^nF][
nF5F9-F$6%7%Fi_nF]cnFf_nF5F9-F$6%7%FdvFbbmF_vF5F9-F$6%7%F^^nFe]nF]]nF5
F9-F$6%7%FacnFfbnFebnF5F9-F$6%7%Fe]nF__nFb]nF5F9-F$6%7%F_cmFhnFfbmF5F9
-F$6%7%FfbnFabnF]bnF5F9-F$6%7%FarFbuF\\rF5F9-F$6%7%FabnFNF`bnF5F9-%+AX
ESLABELSG6$Q\"x6\"Q!6\"-%%VIEWG6$;F\\wFafl%(DEFAULTG" 1 2 0 1 10 0 2 
9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3
" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 1
0" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16" "
Curve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Curve 22" "Curv
e 23" "Curve 24" "Curve 25" "Curve 26" "Curve 27" "Curve 28" "Curve 29
" "Curve 30" "Curve 31" "Curve 32" "Curve 33" "Curve 34" "Curve 35" "C
urve 36" "Curve 37" "Curve 38" "Curve 39" "Curve 40" "Curve 41" "Curve
 42" "Curve 43" "Curve 44" "Curve 45" "Curve 46" "Curve 47" "Curve 48
" "Curve 49" "Curve 50" "Curve 51" "Curve 52" "Curve 53" "Curve 54" "C
urve 55" "Curve 56" "Curve 57" "Curve 58" "Curve 59" "Curve 60" "Curve
 61" "Curve 62" "Curve 63" "Curve 64" "Curve 65" "Curve 66" "Curve 67
" "Curve 68" "Curve 69" "Curve 70" "Curve 71" "Curve 72" "Curve 73" "C
urve 74" "Curve 75" "Curve 76" "Curve 77" "Curve 78" "Curve 79" "Curve
 80" "Curve 81" "Curve 82" "Curve 83" "Curve 84" "Curve 85" "Curve 86
" "Curve 87" "Curve 88" "Curve 89" "Curve 90" "Curve 91" "Curve 92" "C
urve 93" "Curve 94" "Curve 95" "Curve 96" "Curve 97" "Curve 98" "Curve
 99" "Curve 100" "Curve 101" "Curve 102" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 11 "Fantastic!!" 
}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 9 "the teeth" }}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 94 "To show the guts of this procedure, we make the colo
rs of the upper and lower teeth different:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 896 "shadeinteeth:=proc (f,g,a,c) \n  local i, n, lopti
ons;  \n  loptions := [args[5 .. nargs]]; \n  if not hasoption(loption
s,'numpoints','n','loptions') \n    then n := 50 \n  fi; \n### WARNING
: persistent store makes one-argument readlib obsolete\n  loptions := \+
                convert(readlib(`plottools/local_2d`)(loptions),\n    \+
  'PLOToptions');\nseq(polygon([\n[evalf(a[1]+(a[2]-a[1])*i/n),\n eval
f(f(a[1]+(a[2]-a[1])*i/n))],\n[evalf(a[1]+(a[2]-a[1])*(i+1)/n),\n eval
f(f(a[1]+(a[2]-a[1])*(i+1)/n))],\n[evalf(a[1]+(a[2]-a[1])*(i+1)/n),\n \+
evalf(g(a[1]+(a[2]-a[1])*(i+1)/n))]],\ncolor=black,style=patchnogrid,o
p(loptions)),i = 0 .. n-1), seq(polygon([[\nevalf(a[1]+(a[2]-a[1])*i/n
),\nevalf(g(a[1]+(a[2]-a[1])*i/n))],\n[evalf(a[1]+(a[2]-a[1])*(i+1)/n)
,\nevalf(g(a[1]+(a[2]-a[1])*(i+1)/n))],\n[evalf(a[1]+(a[2]-a[1])*i/n),
\nevalf(f(a[1]+(a[2]-a[1])*i/n))]],\ncolor=grey,style=patchnogrid,op(l
options)),i = 0 .. n-1) \nend;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%-s
hadeinteethGR6&%\"fG%\"gG%\"aG%\"cG6%%\"iG%\"nG%)loptionsG6\"F/C&>8&7#
&9\"6#;\"\"&9#@$4-%*hasoptionG6&F2.%*numpointsG.8%.F2>FB\"#]>F2-%(conv
ertG6$--%(readlibG6#%3plottools/local_2dG6#F2.%,PLOToptionsG6$-%$seqG6
$-%(polygonG6&7%7$-%&evalfG6#,&&9&6#\"\"\"F\\o*&*&,&&Fjn6#\"\"#F\\oFin
!\"\"F\\o8$F\\oF\\oFBFcoF\\o-Ffn6#-9$Fgn7$-Ffn6#,&FinF\\o*&*&F_oF\\o,&
FdoF\\oF\\oF\\oF\\oF\\oFBFcoF\\o-Ffn6#-FhoF[p7$Fjo-Ffn6#-9%F[p/%&color
G%&blackG/%&styleG%,patchnogridG-%#opGFO/Fdo;\"\"!,&FBF\\oF\\oFco-FT6$
-FW6&7%7$Fen-Ffn6#-FgpFgnFcpFZ/Fip%%greyGF[qF^qF`qF/F/F/" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "p:=plot(\{sin(x),cos(x)\},x=0..Pi/
2,color=black):\ndisplay(\{p,shadeinteeth(sin,cos,[0,Pi/4],gray,numpoi
nts=20)\});" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6N-
%)POLYGONSG6%7%7$$\"+3`=$G'!#5$\"+CD&y(eF*7$$\"+!R%)en'F*$\"+%\\R4>'F*
7$F.$\"+3$pJ&yF*-%&STYLEG6#%,PATCHNOGRIDG-%'COLOURG6&%$RGBG\"\"!F=F=-F
$6%7%7$$\"+aEfTJF*$\"+j^c5&*F*7$$\"+O<HMNF*$\"+fL\">Q*F*7$FB$\"+W*p,4$
F*F5-F:6&F<$\")=THv!\")FPFP-F$6%7%7$$\"+Xs4y6F*$\"+qXoI**F*7$$\"+Fjzq:
F*$\"+1M)o()*F*7$FW$\"+uRPv6F*F5FN-F$6%7%7$$\"+Ei[!*eF*$\"+JBqbbF*F'7$
F($\"+V*p,4)F*F5F9-F$6%7%7$$\"+=3*p#RF*$\"+D`zQ#*F*7$$\"+**)*o>VF*$\"+
Q<V\"3*F*7$F\\p$\"+DV$o#QF*F5FN-F$6%7%Fen7$$\"+4a\\j>F*$\"+/G&y!)*F*7$
Ffn$\"+^YMk:F*F5FN-F$6%7%F-7$$\"+sMeoqF*$\"+%[![%\\'F*7$Fgq$\"+b'fSg(F
*F5F9-F$6%7%FFF[p7$FG$\"+r0<hMF*F5FN-F$6%7%F`p7$$\"+\")*)Q7ZF*$\"+U_15
*)F*7$Fap$\"+wtf'=%F*F5FN-%'CURVESG6$7S7$$F=F=$\"\"\"F=7$$\"3NGK5j*))Q
U$!#>$\"3QEIyk!RT***!#=7$$\"3DXXYUk*HS'Fjs$\"31j$H4#y]z**F]t7$$\"3=N68
yVJ`(*Fjs$\"3iOWDATZ_**F]t7$$\"3%3h%eRSe78F]t$\"3a=nIl(zR\"**F]t7$$\"3
k+,hQPB[;F]t$\"3!H&p97NZk)*F]t7$$\"3'H#*ed(RUf>F]t$\"3hF6B)GY'3)*F]t7$
$\"3kHX[TMk\"G#F]t$\"3G0*pfUK3u*F]t7$$\"3<hw(QF$)[h#F]t$\"3'Q3c\"zG1g'
*F]t7$$\"3%y-->Saq%HF]t$\"3a#Hg3Tx)o&*F]t7$$\"3)pq'4OKt)G$F]t$\"3!\\Cy
iMoSY*F]t7$$\"3#f/N#RTo*e$F]t$\"3;o4Josfi$*F]t7$$\"3Ut79wN[GRF]t$\"3U5
G)z'RAQ#*F]t7$$\"3/<m3cTnoUF]t$\"3+*pDjqrE5*F]t7$$\"3wMbk:3^'f%F]t$\"3
mNucYM2i*)F]t7$$\"3%[IQ)4z@%*[F]t$\"3ld[L7$[g#))F]t7$$\"31\\,oR/A[_F]t
$\"3M7F)z@JTl)F]t7$$\"3uvW/<q5[bF]t$\"3@p@5X<++&)F]t7$$\"3]W`F)RYp*eF]
t$\"34,(\\&3`56$)F]t7$$\"33'3B#f$Gd?'F]t$\"3Lv@N`[XN\")F]t7$$\"3.n3p46
^WlF]t$\"3lf?Z%p@Q$zF]t7$$\"3oHyF.C6noF]t$\"3:3`m\"e_Lt(F]t7$$\"3(*zx.
5Ir.sF]t$\"3(31B8Z3c^(F]t7$$\"3'pz!QUu\"G^(F]t$\"3.dzD:e93tF]t7$$\"3A
\"3@7LGi%yF]t$\"3e^%H*)4[l2(F]t7$$\"3)3\"HIT&[D>)F]t$\"31AKL\"Gew#oF]t
7$$\"3gv)\\AI@S\\)F]t$\"3NI5]d>K/mF]t7$$\"3vn()=V,i>))F]t$\"3Wp$f4=xjN
'F]t7$$\"3'G:[dg&*f:*F]t$\"3#Gr\"zlF:$4'F]t7$$\"3sSt6rL2&[*F]t$\"3+kbU
hf'*GeF]t7$$\"3mka(*HIZ.)*F]t$\"3S\\$>&*yStc&F]t7$$\"3Em\"[l:+d,\"!#<$
\"3syV,H.Dq_F]t7$$\"3c!3XyEmu/\"Fb]l$\"35cj1lEn(*\\F]t7$$\"3sJ_*>P$Q\"
3\"Fb]l$\"3DF8Py$y5q%F]t7$$\"3.M\"G%4t676Fb]l$\"3Cg[y,0kFWF]t7$$\"3co*
Q4i<d9\"Fb]l$\"3Fz_\\X[#R7%F]t7$$\"3[cr`&*GLx6Fb]l$\"3R](>U([*Q$QF]t7$
$\"3Hk&>q'*z.@\"Fb]l$\"3G8u?D(Qm_$F]t7$$\"34Q$[)>&*oU7Fb]l$\"38OldzS^A
KF]t7$$\"3I^lOFY^w7Fb]l$\"3gN^_O]_+HF]t7$$\"3`!)f6EA448Fb]l$\"3]EKPO+F
(e#F]t7$$\"3=;T7EvSU8Fb]l$\"3s9%3md%3kAF]t7$$\"3a_wiepWv8Fb]l$\"3G+Nc*
p#4T>F]t7$$\"3U$obdw1eS\"Fb]l$\"3v3+*zL?Ck\"F]t7$$\"3s$)o#3`-1W\"Fb]l$
\"3#R-7)3IE)H\"F]t7$$\"3-#*)4zFC<Z\"Fb]l$\"3q![!=de+\"*)*Fjs7$$\"3y<;V
^l!\\]\"Fb]l$\"3?\")3+Q4@%e'Fjs7$$\"3\\3Y:@imO:Fb]l$\"370X.()zM7MFjs7$
$\"3+++lBjzq:Fb]l$\"3&pI?mi'*[9$!#EF9-F`s6$7S7$FdsFds7$Fhs$\"3QsLeI+AB
MFjs7$F_t$\"3]DS+L@i)R'Fjs7$Fdt$\"3_b&ehJeyt*Fjs7$Fit$\"3<&Q%f]#=)38F]
t7$F^u$\"3V-yj65yS;F]t7$Fcu$\"3q)*)ys&)4p%>F]t7$Fhu$\"3G3RBS#)*=E#F]t7
$F]v$\"3GM*4Ir&=&e#F]t7$Fbv$\"3=7dd?+e/HF]t7$Fgv$\"3c0jx$Rp(HKF]t7$F\\
w$\"3ML>uye38NF]t7$Faw$\"3V3zj5M@GQF]t7$Ffw$\"3T$oQx\\8-9%F]t7$F[x$\"3
UOK72VNOWF]t7$F`x$\"3=(>VrOc6q%F]t7$Fex$\"3SMGBr+f5]F]t7$Fjx$\"37xKegS
#yE&F]t7$F_y$\"3AFv)ygs5c&F]t7$Fdy$\"3M>X(*RG,:eF]t7$Fiy$\"33g0zi&Qs3'
F]t7$F^z$\"3h+)=j,t*RjF]t7$Fcz$\"3Qz3MFxj'f'F]t7$Fhz$\"3$[8q$y.wDoF]t7
$F][l$\"3wm47uKelqF]t7$Fb[l$\"3M(RvZssjI(F]t7$Fg[l$\"3C>#p\"po&)3vF]t7
$F\\\\l$\"3%4zeG%\\()>xF]t7$Fa\\l$\"31()\\)y]!GHzF]t7$Ff\\l$\"3g&H%*=U
ja7)F]t7$F[]l$\"3%3R7+w2pI)F]t7$F`]l$\"3Q?Zs+w\\)\\)F]t7$Ff]l$\"3Ih!)R
3tfh')F]t7$F[^l$\"3VZPF_)*3E))F]t7$F`^l$\"3kW#3Hj\"Qm*)F]t7$Fe^l$\"3Ov
Ds!yi+6*F]t7$Fj^l$\"3Uh#yueneB*F]t7$F__l$\"3Y(Q,up+vN*F]t7$Fd_l$\"3OZ!
)zP7am%*F]t7$Fi_l$\"3-w%)pSt5q&*F]t7$F^`l$\"3-KPDS[]f'*F]t7$Fc`l$\"3B
\"='y#[C.u*F]t7$Fh`l$\"3$oY$>Q\"*z4)*F]t7$F]al$\"3#4Wi\"*p+U')*F]t7$Fb
al$\"3aZ!3__n`\"**F]t7$Fgal$\"3-jN*Rxj4&**F]t7$F\\bl$\"3%zPL)R0Iy**F]t
7$Fabl$\"3Qg9![CwT***F]t7$FfblFesF9-F$6%7%Ffq7$$\"+`DGhuF*$\"+cu+)y'F*
7$Fa\\m$\"+%4DKM(F*F5F9-F$6%7%Fgr7$$\"+j!)30^F*$\"+q+'\\s)F*7$Fhr$\"+)
*\\!*RXF*F5FN-F$6%7%F[]m7$$\"+Wry(\\&F*$\"+V;SE&)F*7$F\\]m$\"+;C@')[F*
F5FN-F$6%7%F`\\m7$$\"+N;)R&yF*$\"+5y1rqF*Fa^mF5F9-F$6%7%Ff]m7$Fao$\"+B
hp9$)F*7$Fg]m$\"+Zc)\\A&F*F5FN-F$6%7%Fi^mFeoF`oF5FN-F$6%7%FeoF2F'F5FN-
F$6%7%7$$F]p!#6$\"+x:)f#RFj_m7$$Fc^mFj_m$\"+u&4f%yFj_m7$F^`m$\"+PL<p**
F*F5F9-F$6%7%F^clFh_m7$Fi_m$\"+i.H#***F*F5F9-F$6%7%F[q7$$\"+!\\%>cBF*$
\"+/#*pB(*F*7$F\\q$\"+@K!4&>F*F5FN-F$6%7%FcsFg`mF^clF5FN-F$6%7%F2F[rF-
F5FN-F$6%7%F]`mFjnFVF5F9-F$6%7%Fbam7$F^am$\"+QOXMBF*F]amF5F9-F$6%7%F[r
Fe\\mFfqF5FN-F$6%7%F`qFbamF[qF5F9-F$6%7%FjnF`qFenF5F9-F$6%7%FKFarFFF5F
9-F$6%7%7$$\"+sN*)[FF*$\"+*\\/Wr#F*FKFAF5F9-F$6%7%FabmFccm7$Fdcm$\"+lB
bC'*F*F5F9-F$6%7%Fe\\mFa^mF`\\mF5FN-F$6%7%FarFepF[pF5F9-F$6%7%F`]mF[^m
F[]mF5F9-F$6%7%F\\sF`]mFgrF5F9-F$6%7%F]amF[dmFabmF5FN-F$6%7%FepF\\sF`p
F5F9-F$6%7%F\\_mF`oFi^mF5F9-F$6%7%F[^mF\\_mFf]mF5F9-F$6%7%Fg`mFa`mFh_m
F5FN-F$6%7%Fa`mFVF]`mF5FN-F$6%7%F[dmFAFccmF5FN-%+AXESLABELSG6$Q\"x6\"Q
!6\"-%%VIEWG6$;Fds$Fgn!\"*%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve
 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 10" "Curve 11" "Cur
ve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 17" "Curve 1
8" "Curve 19" "Curve 20" "Curve 21" "Curve 22" "Curve 23" "Curve 24" "
Curve 25" "Curve 26" "Curve 27" "Curve 28" "Curve 29" "Curve 30" "Curv
e 31" "Curve 32" "Curve 33" "Curve 34" "Curve 35" "Curve 36" "Curve 37
" "Curve 38" "Curve 39" "Curve 40" "Curve 41" "Curve 42" }}}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 
1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }