{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 "Error" -1 8 1 
{CSTYLE "" -1 -1 "Courier" 1 10 255 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 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 27 "f:=x->x^4;h:=x->x^4;
g:=x^4;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGj+6#%\"xG6\"6$%)opera
torG%&arrowGF(*$)9$\"\"%\"\"\"F(F(F(6#\"\"!" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"hGj+6#%\"xG6\"6$%)operatorG%&arrowGF(*$)9$\"\"%\"\"
\"F(F(F(6#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gG*$)%\"xG\"\"%
\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "f1:=x->diff(f(x),
x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f1Gj+6#%\"xG6\"6$%)operatorG
%&arrowGF(-%%diffG6$-%\"fG6#9$F2F(F(F(6#\"\"!" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 22 "f2:=x->diff(f(x),x$2);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f2Gj+6#%\"xG6\"
6$%)operatorG%&arrowGF(-%%diffG6$-%\"fG6#9$-%\"$G6$F2\"\"#F(F(F(6#\"\"
!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "f1(2);" }}{PARA 8 "" 1 
"" {TEXT -1 87 "Error, (in f1) invalid input: diff received 2, which i
s not valid for its 2nd argument\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "subs(x=1,f1(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "f2(2);" }}{PARA 8 "
" 1 "" {TEXT -1 87 "Error, (in f2) invalid input: diff received 2, whi
ch is not valid for its 2nd argument\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "subs(x=1,f2(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
\"#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "plot([f1(x),f2(x)],
x=-1..1);" }}{PARA 13 "" 1 "" {GLPLOT2D 440 339 339 {PLOTDATA 2 "6&-%'
CURVESG6$7S7$$!\"\"\"\"!$!\"%F*7$$!3ommm;p0k&*!#=$!3QgL-nCM*\\$!#<7$$!
3wKL$3<XZ=*F0$!3A]b2_OG*4$F37$$!3mmmmT%p\"e()F0$!3'pv)Q%=+so#F37$$!3:m
mm\"4m(G$)F0$!3A^6ol3,6BF37$$!3\"QLL3i.9!zF0$!3a=f\\'Q2K(>F37$$!3\"omm
T!R=0vF0$!3AUtUa:+\"p\"F37$$!3u****\\P8#\\4(F0$!3[xT]7SdG9F37$$!3+nm;/
siqmF0$!3yK*ops)H(=\"F37$$!3[++](y$pZiF0$!3i*oxth=[v*F07$$!33LLL$yaE\"
eF0$!3SczKqjnbyF07$$!3hmmm\">s%HaF0$!3t7mSwHD-kF07$$!3Q+++]$*4)*\\F0$!
3'Gh2s@+V*\\F07$$!39+++]_&\\c%F0$!3L](e%z080QF07$$!31+++]1aZTF0$!3A,W'
GFbQ&GF07$$!3umm;/#)[oPF0$!3!G4uM\"zsS@F07$$!3hLLL$=exJ$F0$!3OG<!y\\63
Y\"F07$$!3*RLLLtIf$HF0$!3N@CpDCF75F07$$!3]++]PYx\"\\#F0$!37(y9%GD^)='!
#>7$$!3EMLLL7i)4#F0$!3MX`Ec$3rp$Fcq7$$!3c****\\P'psm\"F0$!3op\\'=[iQ&=
Fcq7$$!3')****\\74_c7F0$!32t#4I01a$z!#?7$$!3)3LLL3x%z#)Fcq$!3E2'37.C-F
#Fcr7$$!3KMLL3s$QM%Fcq$!3;x0;l4ayK!#@7$$!3]^omm;zr)*F^s$!3WYQdbS6[Q!#E
7$$\"3%pJL$ezw5VFcq$\"30`u`D=B/KF^s7$$\"3s*)***\\PQ#\\\")Fcq$\"3!)y0H)
[mZ;#Fcr7$$\"3GKLLe\"*[H7F0$\"3NhY$Hi(>MuFcr7$$\"3I*******pvxl\"F0$\"3
f%*Hu8JPA=Fcq7$$\"3#z****\\_qn2#F0$\"37eJ\"yTCGe$Fcq7$$\"3U)***\\i&p@[
#F0$\"3MJ6wCKA<hFcq7$$\"3B)****\\2'HKHF0$\"3Upv,Bv^35F07$$\"3ElmmmZvOL
F0$\"3a#4xm2[g[\"F07$$\"3i******\\2goPF0$\"3@Icg<(>49#F07$$\"3UKL$eR<*
fTF0$\"37Tik,.[zGF07$$\"3m******\\)Hxe%F0$\"3]]'e%omOiQF07$$\"3ckm;H!o
-*\\F0$\"3'oo%Qx3'3(\\F07$$\"3y)***\\7k.6aF0$\"3x?iM'fdsL'F07$$\"3#emm
mT9C#eF0$\"3a;MFUEJ&*yF07$$\"33****\\i!*3`iF0$\"3=k\"y$Q@6!y*F07$$\"3%
QLLL$*zym'F0$\"37l\"4&yB$e=\"F37$$\"3wKLL3N1#4(F0$\"3!eYI?U[oU\"F37$$
\"3Nmm;HYt7vF0$\"3'*R%=$y/6'p\"F37$$\"3Y*******p(G**yF0$\"3=_8Q#fA;(>F
37$$\"3]mmmT6KU$)F0$\"3.Am1OFJABF37$$\"3fKLLLbdQ()F0$\"3+S;sp\\?pEF37$
$\"3[++]i`1h\"*F0$\"3Y&4@t)RPvIF37$$\"3W++]P?Wl&*F0$\"3J#eZ42j3]$F37$$
\"\"\"F*$\"\"%F*-%'COLOURG6&%$RGBG$\"#5F)$F*F*Fc[l-F$6$7S7$F($\"#7F*7$
F.$\"37uGY;Ul(4\"!#;7$F5$\"3kaxBEXJ75F]\\l7$F:$\"3\"pDti$Qm/#*F37$F?$
\"3orN;`8?C$)F37$FD$\"3wt\"=:]h=\\(F37$FI$\"3;*[VADM$fnF37$FN$\"3&[`PU
0\\0/'F37$FS$\"3g3ijv?nR`F37$FX$\"3KKR[>8/%o%F37$Fgn$\"3)\\%\\ivYVaSF3
7$F\\o$\"3G'z4O>+v`$F37$Fao$\"3?^k\\`'>x*HF37$Ffo$\"3s2.9szl+DF37$F[p$
\"3k!H3K@^U1#F37$F`p$\"3$p>$R,/=/<F37$Fep$\"3DO!pNK-4K\"F37$Fjp$\"3%\\
u6DriV.\"F37$F_q$\"315f!H,H2X(F07$Feq$\"3))Hq>(H`]G&F07$Fjq$\"3%fDbHlX
dL$F07$F_r$\"3w)zfUw8Y*=F07$Fer$\"3u;I\"G*)ofA)Fcq7$Fjr$\"3KO,5.1FkAFc
q7$F`s$\"33x3_[sUp6!#A7$Ffs$\"3C$=roWE*HAFcq7$F[t$\"3g(p36L5#pzFcq7$F`
t$\"3-Z5b3B(R\"=F07$Fet$\"3/&e7eKkyH$F07$Fjt$\"3a>0@w4dv^F07$F_u$\"3m?
<S%)))R$R(F07$Fdu$\"3`Z_dKK!=.\"F37$Fiu$\"3\\DZu%)=2O8F37$F^v$\"3?n![N
>#G/<F37$Fcv$\"3)H\")=)G&*ew?F37$Fhv$\"3WA(*=@=nDDF37$F]w$\"3c`2N+IL))
HF37$Fbw$\"3y-\"))o!y^8NF37$Fgw$\"3?S*Gn:h!oSF37$F\\x$\"3;ao#)QZ8#p%F3
7$Fax$\"3'3#>kOZFN`F37$Ffx$\"3G'*zuwPoNgF37$F[y$\"3)3g$*HzTHx'F37$F`y$
\"3s`X3S&\\y[(F37$Fey$\"3-OQoV'=8N)F37$Fjy$\"3gKE@#GCN;*F37$F_z$\"3Dn>
\"HU,r+\"F]\\l7$Fdz$\"3!fEtk<sz4\"F]\\l7$FizFh[l-F^[l6&F`[lFc[lFa[lFc[
l-%+AXESLABELSG6$Q\"x6\"Q!F`el-%%VIEWG6$;F(Fiz%(DEFAULTG" 1 2 0 1 10 
0 2 9 1 4 2 1.000000 46.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "h1:=diff(h(x),x);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%#h1G,$*&\"\"%\"\"\")%\"xG\"\"$F(F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "subs(x=1.0,h1(x));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#,$*&\"\"%\"\"\")-$\"#5!\"\"6#F)\"\"$F&F&" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "subs(x=1.0,h1);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#$\"%+S!\"$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 6 "h1(1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&\"\"%\"
\"\")-%\"xG6#F&\"\"$F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 
"plot(h1,x=-1..1);" }}{PARA 13 "" 1 "" {GLPLOT2D 464 502 502 
{PLOTDATA 2 "6%-%'CURVESG6$7S7$$!\"\"\"\"!$!\"%F*7$$!3ommm;p0k&*!#=$!3
QgL-nCM*\\$!#<7$$!3wKL$3<XZ=*F0$!3A]b2_OG*4$F37$$!3mmmmT%p\"e()F0$!3'p
v)Q%=+so#F37$$!3:mmm\"4m(G$)F0$!3A^6ol3,6BF37$$!3\"QLL3i.9!zF0$!3a=f\\
'Q2K(>F37$$!3\"ommT!R=0vF0$!3AUtUa:+\"p\"F37$$!3u****\\P8#\\4(F0$!3[xT
]7SdG9F37$$!3+nm;/siqmF0$!3yK*ops)H(=\"F37$$!3[++](y$pZiF0$!3i*oxth=[v
*F07$$!33LLL$yaE\"eF0$!3SczKqjnbyF07$$!3hmmm\">s%HaF0$!3t7mSwHD-kF07$$
!3Q+++]$*4)*\\F0$!3'Gh2s@+V*\\F07$$!39+++]_&\\c%F0$!3L](e%z080QF07$$!3
1+++]1aZTF0$!3A,W'GFbQ&GF07$$!3umm;/#)[oPF0$!3!G4uM\"zsS@F07$$!3hLLL$=
exJ$F0$!3OG<!y\\63Y\"F07$$!3*RLLLtIf$HF0$!3N@CpDCF75F07$$!3]++]PYx\"\\
#F0$!37(y9%GD^)='!#>7$$!3EMLLL7i)4#F0$!3MX`Ec$3rp$Fcq7$$!3c****\\P'psm
\"F0$!3op\\'=[iQ&=Fcq7$$!3')****\\74_c7F0$!32t#4I01a$z!#?7$$!3)3LLL3x%
z#)Fcq$!3E2'37.C-F#Fcr7$$!3KMLL3s$QM%Fcq$!3;x0;l4ayK!#@7$$!3]^omm;zr)*
F^s$!3WYQdbS6[Q!#E7$$\"3%pJL$ezw5VFcq$\"30`u`D=B/KF^s7$$\"3s*)***\\PQ#
\\\")Fcq$\"3!)y0H)[mZ;#Fcr7$$\"3GKLLe\"*[H7F0$\"3NhY$Hi(>MuFcr7$$\"3I*
******pvxl\"F0$\"3f%*Hu8JPA=Fcq7$$\"3#z****\\_qn2#F0$\"37eJ\"yTCGe$Fcq
7$$\"3U)***\\i&p@[#F0$\"3MJ6wCKA<hFcq7$$\"3B)****\\2'HKHF0$\"3Upv,Bv^3
5F07$$\"3ElmmmZvOLF0$\"3a#4xm2[g[\"F07$$\"3i******\\2goPF0$\"3@Icg<(>4
9#F07$$\"3UKL$eR<*fTF0$\"37Tik,.[zGF07$$\"3m******\\)Hxe%F0$\"3]]'e%om
OiQF07$$\"3ckm;H!o-*\\F0$\"3'oo%Qx3'3(\\F07$$\"3y)***\\7k.6aF0$\"3x?iM
'fdsL'F07$$\"3#emmmT9C#eF0$\"3a;MFUEJ&*yF07$$\"33****\\i!*3`iF0$\"3=k
\"y$Q@6!y*F07$$\"3%QLLL$*zym'F0$\"37l\"4&yB$e=\"F37$$\"3wKLL3N1#4(F0$
\"3!eYI?U[oU\"F37$$\"3Nmm;HYt7vF0$\"3'*R%=$y/6'p\"F37$$\"3Y*******p(G*
*yF0$\"3=_8Q#fA;(>F37$$\"3]mmmT6KU$)F0$\"3.Am1OFJABF37$$\"3fKLLLbdQ()F
0$\"3+S;sp\\?pEF37$$\"3[++]i`1h\"*F0$\"3Y&4@t)RPvIF37$$\"3W++]P?Wl&*F0
$\"3J#eZ42j3]$F37$$\"\"\"F*$\"\"%F*-%'COLOURG6&%$RGBG$\"#5F)$F*F*Fc[l-
%+AXESLABELSG6$Q\"x6\"Q!Fh[l-%%VIEWG6$;F(Fiz%(DEFAULTG" 1 2 0 1 10 0 
2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 20 "plot(h1(x),x=-1..1);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 617 617 617 {PLOTDATA 2 "6%-%'CURVESG6$7S7$$!\"\"\"\"!$!\"%F
*7$$!+<p0k&*!#5$!+nCM*\\$!\"*7$$!+r^u%=*F0$!+_OG*4$F37$$!+U%p\"e()F0$!
+&=+so#F37$$!+#4m(G$)F0$!+m3,6BF37$$!+@OS,zF0$!+(Q2K(>F37$$!+/R=0vF0$!
+a:+\"p\"F37$$!+P8#\\4(F0$!+7SdG9F37$$!+/siqmF0$!+F()H(=\"F37$$!+(y$pZ
iF0$!+;'=[v*F07$$!+$yaE\"eF0$!+ojnbyF07$$!+\">s%HaF0$!+wHD-kF07$$!+]$*
4)*\\F0$!+;-I%*\\F07$$!+]_&\\c%F0$!+!eI^!QF07$$!+]1aZTF0$!+t_&Q&GF07$$
!+/#)[oPF0$!+8zsS@F07$$!+$=exJ$F0$!+(\\63Y\"F07$$!+L2$f$HF0$!+DCF75F07
$$!+PYx\"\\#F0$!+CD^)='!#67$$!+L7i)4#F0$!+a$3rp$Fcq7$$!+P'psm\"F0$!+![
iQ&=Fcq7$$!+74_c7F0$!+WgSNz!#77$$!*3x%z#)F0$!+GSAqAFcr7$$!*?PQM%F0$!+Y
4ayK!#87$$!(\"zr)*F0$!+wK6[Q!#=7$$\")!o2J%F3$\"+=>B/KF^s7$$\")%Q#\\\")
F3$\"+3lwk@Fcr7$$\"*;*[H7F3$\"+_w>MuFcr7$$\"*qvxl\"F3$\"+9JPA=Fcq7$$\"
*`qn2#F3$\"+WW#Ge$Fcq7$$\"*cp@[#F3$\"+3KA<hFcq7$$\"*3'HKHF3$\"+Gv^35F0
7$$\"*xanL$F3$\"+\"3[g[\"F07$$\"*v+'oPF3$\"+=(>49#F07$$\"*S<*fTF3$\"+5
.[zGF07$$\"*&)Hxe%F3$\"+omOiQF07$$\"*.o-*\\F3$\"+!)3'3(\\F07$$\"*TO5T&
F3$\"+)edsL'F07$$\"*U9C#eF3$\"+cEJ&*yF07$$\"*1*3`iF3$\"+G@6!y*F07$$\"*
$*zym'F3$\"+xB$e=\"F37$$\"*^j?4(F3$\"+B%[oU\"F37$$\"*jMF^(F3$\"+z/6'p
\"F37$$\"*q(G**yF3$\"+#fA;(>F37$$\"*9@BM)F3$\"+NFJABF37$$\"*`v&Q()F3$
\"+n\\?pEF37$$\"*Ol5;*F3$\"+&)RPvIF37$$\"*/Uac*F3$\"+uI'3]$F37$$\"\"\"
F*$\"\"%F*-%'COLOURG6&%$RGBG$\"#5F)$F*F*Fc[l-%+AXESLABELSG6$Q\"x6\"Q!F
h[l-%%VIEWG6$;F(Fiz%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 35 "plot(g,x=-1..1);plot(g(x),x=-1..1);" }}{PARA 13 "" 1 
"" {GLPLOT2D 414 507 507 {PLOTDATA 2 "6%-%'CURVESG6$7gn7$$!\"\"\"\"!$
\"\"\"F*7$$!3!RLL$e%G?y*!#=$\"3!H+k%*z3i:*F07$$!3ommm;p0k&*F0$\"3eU+QJ
w(pO)F07$$!3E++vV5Su$*F0$\"3u))y4`!)yAxF07$$!3wKL$3<XZ=*F0$\"3%=!46RE`
;rF07$$!39***\\iId9(*)F0$\"3'[\\dcgk\"ykF07$$!3mmmmT%p\"e()F0$\"35h'QY
jQP)eF07$$!3&emmmwnMa)F0$\"3]W!p*RHmF`F07$$!3:mmm\"4m(G$)F0$\"3C+'*)QB
n>\"[F07$$!3)****\\i&[3:\")F0$\"3u_%*4M'GoL%F07$$!3\"QLL3i.9!zF0$\"3e#
[yq*px(*QF07$$!3\"ommT!R=0vF0$\"3sDA07%>G<$F07$$!3u****\\P8#\\4(F0$\"3
Bq%y310R`#F07$$!3+nm;/siqmF0$\"3!Q&y*oz1+)>F07$$!3[++](y$pZiF0$\"3E)\\
\\=*ziB:F07$$!33LLL$yaE\"eF0$\"3sNwvq$e:9\"F07$$!3hmmm\">s%HaF0$\"3k7P
&[i8-p)!#>7$$!3Q+++]$*4)*\\F0$\"34eDLn@]SiFhp7$$!39+++]_&\\c%F0$\"3PT*
3RqiDM%Fhp7$$!31+++]1aZTF0$\"3C'[b$)=?\"fHFhp7$$!3umm;/#)[oPF0$\"3**fV
csp#o,#Fhp7$$!3hLLL$=exJ$F0$\"3,xZGD[l67Fhp7$$!3*RLLLtIf$HF0$\"3Ae1u7V
!*Hu!#?7$$!3]++]PYx\"\\#F0$\"3;U(Q0k%4bQFgr7$$!3EMLLL7i)4#F0$\"3&*Q\")
fCvqR>Fgr7$$!3c****\\P'psm\"F0$\"3NVYGq:AFx!#@7$$!3')****\\74_c7F0$\"3
e3jp84v#\\#Fgs7$$!3)3LLL3x%z#)Fhp$\"31pg5gp1*p%!#A7$$!3KMLL3s$QM%Fhp$
\"3)*)Rx$e?OgN!#B7$$!3]^omm;zr)*Fgs$\"3gp$\\l1Xp\\*!#I7$$\"3%pJL$ezw5V
Fhp$\"3m!o\\6(\\<`MFht7$$\"3s*)***\\PQ#\\\")Fhp$\"3#z)G#[`*H5WFbt7$$\"
3GKLLe\"*[H7F0$\"3A*RwXMm]G#Fgs7$$\"3I*******pvxl\"F0$\"3Wy6ugYr_vFgs7
$$\"3#z****\\_qn2#F0$\"37h6zOg<g=Fgr7$$\"3U)***\\i&p@[#F0$\"3)>/!)QK'*
fz$Fgr7$$\"3B)****\\2'HKHF0$\"3_[GyN*zJR(Fgr7$$\"3ElmmmZvOLF0$\"3$)Hq$
3]W'R7Fhp7$$\"3i******\\2goPF0$\"3U\"fkL\"z1<?Fhp7$$\"3UKL$eR<*fTF0$\"
3W-WW\\+g%*HFhp7$$\"3m******\\)Hxe%F0$\"3k+K89P()HWFhp7$$\"3ckm;H!o-*
\\F0$\"3]R?YG?[,iFhp7$$\"3y)***\\7k.6aF0$\"3-0aI-Hys&)Fhp7$$\"3#emmmT9
C#eF0$\"3A$e6QbW#\\6F07$$\"33****\\i!*3`iF0$\"3Q**G11y*)G:F07$$\"3%QLL
L$*zym'F0$\"39]&R-)puw>F07$$\"3wKLL3N1#4(F0$\"3>;8X1\\#)HDF07$$\"3Nmm;
HYt7vF0$\"3YX)Q8)pg&=$F07$$\"3Y*******p(G**yF0$\"3!>.gK_.O*QF07$$\"3)H
LL3U/37)F0$\"3)Q<`i1o!\\VF07$$\"3]mmmT6KU$)F0$\"3?&e7*e'pL%[F07$$\"3a*
***\\P$[/a)F0$\"3#>9=#H`8?`F07$$\"3fKLLLbdQ()F0$\"3'\\Jl/Ji7$eF07$$\"3
amm\"zW?)\\*)F0$\"3!)z7rDc*eT'F07$$\"3[++]i`1h\"*F0$\"3s+_*z_DM/(F07$$
\"3Y++++PDj$*F0$\"3!Q3o30?ho(F07$$\"3W++]P?Wl&*F0$\"3)zL$f'pD=P)F07$$
\"3A++v=5s#y*F0$\"3iyKB'3-)e\"*F07$F+F+-%'COLOURG6&%$RGBG$\"#5F)$F*F*F
b^l-%+AXESLABELSG6$Q\"x6\"Q!Fg^l-%%VIEWG6$;F(F+%(DEFAULTG" 1 2 0 1 10 
0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}{PARA 13 "" 
1 "" {GLPLOT2D 436 486 486 {PLOTDATA 2 "6%-%'CURVESG6$7gn7$$!\"\"\"\"!
$\"\"\"F*7$$!+g%G?y*!#5$\"+1)3i:*F07$$!+<p0k&*F0$\"+Lw(pO)F07$$!+X5Su$
*F0$\"+d!)yAxF07$$!+r^u%=*F0$\"+SE`;rF07$$!+0tXr*)F0$\"+-Y;ykF07$$!+U%
p\"e()F0$\"+O'QP)eF07$$!+lxYV&)F0$\"+OHmF`F07$$!+#4m(G$)F0$\"+Ns'>\"[F
07$$!+b[3:\")F0$\"+J'GoL%F07$$!+@OS,zF0$\"+(*px(*QF07$$!+/R=0vF0$\"+7%
>G<$F07$$!+P8#\\4(F0$\"+g]!R`#F07$$!+/siqmF0$\"+(z1+)>F07$$!+(y$pZiF0$
\"+\"*ziB:F07$$!+$yaE\"eF0$\"+q$e:9\"F07$$!+\">s%HaF0$\"+@O@!p)!#67$$!
+]$*4)*\\F0$\"+n@]SiFhp7$$!+]_&\\c%F0$\"+/FcUVFhp7$$!+]1aZTF0$\"+)=?\"
fHFhp7$$!+/#)[oPF0$\"+sp#o,#Fhp7$$!+$=exJ$F0$\"+D[l67Fhp7$$!+L2$f$HF0$
\"+4V!*Hu!#77$$!+PYx\"\\#F0$\"+PY4bQFgr7$$!+L7i)4#F0$\"+BvqR>Fgr7$$!+P
'psm\"F0$\"+h:AFx!#87$$!+74_c7F0$\"+54v#\\#Fgs7$$!*3x%z#)F0$\"+`p1*p%!
#97$$!*?PQM%F0$\"+J?OgN!#:7$$!(\"zr)*F0$\"+,D%p\\*!#A7$$\")!o2J%!\"*$
\"+0^<`MFht7$$\")%Q#\\\")Fbu$\"+*e*H5WFbt7$$\"*;*[H7Fbu$\"+dj1&G#Fgs7$
$\"*qvxl\"Fbu$\"+hYr_vFgs7$$\"*`qn2#Fbu$\"+bg<g=Fgr7$$\"*cp@[#Fbu$\"+4
j*fz$Fgr7$$\"*3'HKHFbu$\"+')*zJR(Fgr7$$\"*xanL$Fbu$\"+1XkR7Fhp7$$\"*v+
'oPFbu$\"+8z1<?Fhp7$$\"*S<*fTFbu$\"+h+g%*HFhp7$$\"*&)Hxe%Fbu$\"+9P()HW
Fhp7$$\"*.o-*\\Fbu$\"+L?[,iFhp7$$\"*TO5T&Fbu$\"+')Gys&)Fhp7$$\"*U9C#eF
bu$\"+cXC\\6F07$$\"*1*3`iFbu$\"+/y*)G:F07$$\"*$*zym'Fbu$\"+wpuw>F07$$
\"*^j?4(Fbu$\"+4\\#)HDF07$$\"*jMF^(Fbu$\"+$)pg&=$F07$$\"*q(G**yFbu$\"+
BNg$*QF07$$\"+?W!37)F0$\"+k!o!\\VF07$$\"*9@BM)Fbu$\"+b'pL%[F07$$\"+N$[
/a)F0$\"+B`8?`F07$$\"*`v&Q()Fbu$\"+-BEJeF07$$\"+X/#)\\*)F0$\"+<c*eT'F0
7$$\"*Ol5;*Fbu$\"+?bUVqF07$$\"++PDj$*F0$\"+^+7'o(F07$$\"*/Uac*Fbu$\"+0
d#=P)F07$$\"+?5s#y*F0$\"+\"4-)e\"*F07$F+F+-%'COLOURG6&%$RGBG$\"#5F)$F*
F*Fc^l-%+AXESLABELSG6$Q\"x6\"Q!Fh^l-%%VIEWG6$;F(F+%(DEFAULTG" 1 2 0 1 
10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "g1:=diff(g,x);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#g1G,$*&\"\"%\"\"\")%\"xG\"\"$F(F(" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 33 "g1(1);subs(x=1,g);subs(x=1,g(x));" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
,$*&\"\"%\"\"\")-%\"xG6#F&\"\"$F&F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$)-\"\"\"6#F&\"\"%F&" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "gg1:=x->diff(g,x);\n" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$gg1Gj+6#%\"xG6\"6$%)operatorG%&arro
wGF(-%%diffG6$%\"gG9$F(F(F(6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 7 "gg1(1);" }}{PARA 8 "" 1 "" {TEXT -1 88 "Error, (in gg1
) invalid input: diff received 1, which is not valid for its 2nd argum
ent\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "f1:=D(f);D(g);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f1Gj+6#%\"xG6\"6$%)operatorG%&arrow
GF(,$*&\"\"%\"\"\")9$\"\"$F/F/F(F(F(6#\"\"!" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,$*(\"\"%\"\"\"-%\"DG6#%\"xGF&)F*\"\"$F&F&" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "f1(1);D(f)(1);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"%" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "(D@@2)(f);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#j+6#%\"xG6\"6$%)operatorG%&arrowGF&,$*&\"#7\"\"\")9$
\"\"#F-F-F&F&F&6#\"+@fE8?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 
"f2(x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&\"#7\"\"\")%\"xG\"\"#F&
F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "plot(D(f),x=-1..1);" 
}}{PARA 8 "" 1 "" {TEXT -1 129 "Error, (in plot) invalid plotting of p
rocedures, perhaps you mean plot(proc (x) options operator, arrow; 4*x
^3 end proc,-1 .. 1)\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "p
lot(D(f)(x),x=-1..1);" }}{PARA 13 "" 1 "" {GLPLOT2D 617 617 617 
{PLOTDATA 2 "6%-%'CURVESG6$7S7$$!\"\"\"\"!$!\"%F*7$$!3ommm;p0k&*!#=$!3
QgL-nCM*\\$!#<7$$!3wKL$3<XZ=*F0$!3A]b2_OG*4$F37$$!3mmmmT%p\"e()F0$!3'p
v)Q%=+so#F37$$!3:mmm\"4m(G$)F0$!3A^6ol3,6BF37$$!3\"QLL3i.9!zF0$!3a=f\\
'Q2K(>F37$$!3\"ommT!R=0vF0$!3AUtUa:+\"p\"F37$$!3u****\\P8#\\4(F0$!3[xT
]7SdG9F37$$!3+nm;/siqmF0$!3yK*ops)H(=\"F37$$!3[++](y$pZiF0$!3i*oxth=[v
*F07$$!33LLL$yaE\"eF0$!3SczKqjnbyF07$$!3hmmm\">s%HaF0$!3t7mSwHD-kF07$$
!3Q+++]$*4)*\\F0$!3'Gh2s@+V*\\F07$$!39+++]_&\\c%F0$!3L](e%z080QF07$$!3
1+++]1aZTF0$!3A,W'GFbQ&GF07$$!3umm;/#)[oPF0$!3!G4uM\"zsS@F07$$!3hLLL$=
exJ$F0$!3OG<!y\\63Y\"F07$$!3*RLLLtIf$HF0$!3N@CpDCF75F07$$!3]++]PYx\"\\
#F0$!37(y9%GD^)='!#>7$$!3EMLLL7i)4#F0$!3MX`Ec$3rp$Fcq7$$!3c****\\P'psm
\"F0$!3op\\'=[iQ&=Fcq7$$!3')****\\74_c7F0$!32t#4I01a$z!#?7$$!3)3LLL3x%
z#)Fcq$!3E2'37.C-F#Fcr7$$!3KMLL3s$QM%Fcq$!3;x0;l4ayK!#@7$$!3]^omm;zr)*
F^s$!3WYQdbS6[Q!#E7$$\"3%pJL$ezw5VFcq$\"30`u`D=B/KF^s7$$\"3s*)***\\PQ#
\\\")Fcq$\"3!)y0H)[mZ;#Fcr7$$\"3GKLLe\"*[H7F0$\"3NhY$Hi(>MuFcr7$$\"3I*
******pvxl\"F0$\"3f%*Hu8JPA=Fcq7$$\"3#z****\\_qn2#F0$\"37eJ\"yTCGe$Fcq
7$$\"3U)***\\i&p@[#F0$\"3MJ6wCKA<hFcq7$$\"3B)****\\2'HKHF0$\"3Upv,Bv^3
5F07$$\"3ElmmmZvOLF0$\"3a#4xm2[g[\"F07$$\"3i******\\2goPF0$\"3@Icg<(>4
9#F07$$\"3UKL$eR<*fTF0$\"37Tik,.[zGF07$$\"3m******\\)Hxe%F0$\"3]]'e%om
OiQF07$$\"3ckm;H!o-*\\F0$\"3'oo%Qx3'3(\\F07$$\"3y)***\\7k.6aF0$\"3x?iM
'fdsL'F07$$\"3#emmmT9C#eF0$\"3a;MFUEJ&*yF07$$\"33****\\i!*3`iF0$\"3=k
\"y$Q@6!y*F07$$\"3%QLLL$*zym'F0$\"37l\"4&yB$e=\"F37$$\"3wKLL3N1#4(F0$
\"3!eYI?U[oU\"F37$$\"3Nmm;HYt7vF0$\"3'*R%=$y/6'p\"F37$$\"3Y*******p(G*
*yF0$\"3=_8Q#fA;(>F37$$\"3]mmmT6KU$)F0$\"3.Am1OFJABF37$$\"3fKLLLbdQ()F
0$\"3+S;sp\\?pEF37$$\"3[++]i`1h\"*F0$\"3Y&4@t)RPvIF37$$\"3W++]P?Wl&*F0
$\"3J#eZ42j3]$F37$$\"\"\"F*$\"\"%F*-%'COLOURG6&%$RGBG$\"#5F)$F*F*Fc[l-
%+AXESLABELSG6$Q\"x6\"Q!Fh[l-%%VIEWG6$;F(Fiz%(DEFAULTG" 1 2 0 1 10 0 
2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "25 0 0" 0 }{VIEWOPTS 1 1 0 1 
1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }