{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 51 "xxx:=simplify(sum((1
+xi)^(t),t=1..N)/(1+iota)^(N));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$
xxxG*(),&\"\"\"F(%%iotaGF(,$%\"NG!\"\"F(,*),&F(F(%#xiGF(F+F(*&F.F(F0F(
F(F(F,F0F,F(F0F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "rrr:=si
mplify(diff(xxx,N),symbolic);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$rr
rG,$*(),&\"\"\"F)%%iotaGF),$%\"NG!\"\"F),.*&-%#lnG6#F(F)),&F)F)%#xiGF)
F,F)F)*(F0F)F3F)F5F)F)F0F-*&F0F)F5F)F-*&F3F)-F16#F4F)F-*(F3F)F9F)F5F)F
-F)F5F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "zzz:=simplify(
simplify(solve(rrr=0,N)),symbolic);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%$zzzG*&,&-%#lnG6#-F(6#,&\"\"\"F-%%iotaGF-F--F(6#,&-F(6#,&F-F-%#xiGF
-!\"\"F*F-F6F-F2F6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 302 "Xi:=
.01;\nfor Iota from 0.1 by 0.1 to 1 do\nprint(`______`);\nT:=evalf(sub
s(iota=Iota,xi=Xi,zzz));\nprint(`>>>`,Xi,Iota,evalf(T));\nx:=floor(T),
round(T),ceil(T);\nr:=seq(evalf(subs(iota=Iota,xi=Xi,N=x[i],xxx)),i=1.
.3);\nif max(r)=evalf(subs(iota=Iota,xi=Xi,N=x[2],xxx)) then print(ano
) else print(NE) fi;\nod;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#XiG$
\"\"\"!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%'______G" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"TG$\"+d<636!\")" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6&%$>>>G$\"\"\"!\"#$F%!\"\"$\"+d<636!\")" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"xG6%\"#6F&\"#7" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"rG6%$\"+Kgk%4%!\"*F&$\"+bmW\"3%F(" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%$anoG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%'______G" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"TG$\"+1D;Sc!\"*" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6&%$>>>G$\"\"\"!\"#$\"\"#!\"\"$\"+1D;Sc!\"*" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"xG6%\"\"&\"\"'F'" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"rG6%$\"+z#z/2#!\"*$\"++/!43#F(F)" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#%$anoG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%'______G" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"TG$\"+/Cl&)Q!\"*" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6&%$>>>G$\"\"\"!\"#$\"\"$!\"\"$\"+/Cl&)Q!\"*" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6%\"\"$\"\"%F'" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%\"rG6%$\"+(*3*HR\"!\"*$\"+We(eV\"F(F)" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#%$anoG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%'___
___G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"TG$\"+4W%o,$!\"*" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6&%$>>>G$\"\"\"!\"#$\"\"%!\"\"$\"+4W%o,$!\"*" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6%\"\"$F&\"\"%" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"rG6%$\"+([1`6\"!\"*F&$\"+]__n5F(" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#%$anoG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%'____
__G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"TG$\"+u+2(\\#!\"*" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6&%$>>>G$\"\"\"!\"#$\"\"&!\"\"$\"+u+2(\\#!\"*
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6%\"\"#F&\"\"$" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"rG6%$\"+mmmA!*!#5F&$\"+:[&y1*F(" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#%#NEG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%'____
__G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"TG$\"+h!)[]@!\"*" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6&%$>>>G$\"\"\"!\"#$\"\"'!\"\"$\"+h!)[]@!\"*" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6%\"\"#F&\"\"$" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"rG6%$\"+D\"y+$z!#5F&$\"+H@oruF(" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#%$anoG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%'____
__G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"TG$\"+)>_C!>!\"*" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6&%$>>>G$\"\"\"!\"#$\"\"(!\"\"$\"+)>_C!>!\"*" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6%\"\"\"\"\"#F'" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"rG6%$\"+qk%\"TG$\"+KB'er\"!\"*" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6&%$>>>G$\"\"\"!\"#$\"\")!\"\"$\"+KB'er\"!\"*
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6%\"\"\"\"\"#F'" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%\"rG6%$\"+7666c!#5$\"+T2uliF(F)" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#%$anoG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%'____
__G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"TG$\"+3'*=q:!\"*" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6&%$>>>G$\"\"\"!\"#$\"\"*!\"\"$\"+3'*=q:!\"*" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6%\"\"\"\"\"#F'" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"rG6%$\"+u%*y:`!#5$\"+0daBcF(F)" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#%$anoG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%'____
__G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"TG$\"+%Q]JX\"!\"*" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6&%$>>>G$\"\"\"!\"#$\"#5!\"\"$\"+%Q]JX\"!\"*" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG6%\"\"\"F&\"\"#" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"rG6%$\"++++]]!#5F&$\"+++Dv]F(" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#%#NEG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
44 "xxxx:=subs(N=floor(N),xxx)/(1+iota)^frac(N);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%%xxxxG**),&\"\"\"F(%%iotaGF(,$-%&floorG6#%\"NG!\"\"F(
,*),&F(F(%#xiGF(F+F(*&F1F(F3F(F(F(F/F3F/F(F3F/)F'-%%fracGF-F/" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "plot(subs(iota=.5,xi=.01,\{x
xx,xxxx\}),N=1..5,discont=true);" }}{PARA 13 "" 1 "" {GLPLOT2D 430 
430 430 {PLOTDATA 2 "6&-%'CURVESG6$7X7$$\"\"\"\"\"!$\"3^7\"F1$\"3r6NiK5b0sF-7$$\"3WLL$e'40j6F1$\"3RT:7M%zhL(F-7$
$\"3<++vQ&3d?\"F1$\"3#3Ou)3)HkZ(F-7$$\"3ommm6hO[7F1$\"3B(H_lBC)4wF-7$$
\"3#ommmW18H\"F1$\"3GewV&)HPPxF-7$$\"3xmmm\"yYUL\"F1$\"3w!\\t&*Rg$eyF-
7$$\"3+++vGI)pP\"F1$\"3;**\\_-KWszF-7$$\"3CLL$eF>(>9F1$\"3q:%e1V\"R!3)
F-7$$\"3kmm;>K'*)\\\"F1$\"3#H&R\"Q`9\\E)F-7$$\"3/++]Kd,\"e\"F1$\"3W0:U
sU`N%)F-7$$\"3gmm;fX(em\"F1$\"35(o@;5:8f)F-7$$\"3!*****\\U7Y]F1$\"3i%QV
>qst$*)F-7$$\"3#*******H,Q+?F1$\"3Ju))*\\'y+B!*F-7$$\"3)*******\\*3q3#
F1$\"3!RJ!35Ix#4*F-7$$\"3?+++q=\\q@F1$\"3+@$>,Qmb9*F-7$$\"3mmm;fBIYAF1
$\"3s`=#f1i>=*F-7$$\"30LLLj$[kL#F1$\"3zujBA>\"=@*F-7$$\"3?LLL`Q\"GT#F1
$\"3n/%4E(QPE#*F-7$$\"3o****\\s]k,DF1$\"3DQP&)QJtJ#*F-7$$\"3#HLLLvv-e#
F1$\"3$[)4^gitE#*F-7$$\"33++]sgamEF1$\"3nI)*)HYD9@*F-7$$\"3!)****\\cq+qsa\"*F-7$$\"3JLL$eDBJ
\"HF1$\"3'ec]f,'*p6*F-7$$\"3immmTc-)*HF1$\"3[,sY/[0p!*F-7$$\"3Mmm;f`@'
3$F1$\"3t33n%Qr=,*F-7$$\"3y****\\nZ)H;$F1$\"37#>!o#>9k&*)F-7$$\"3YmmmJ
y*eC$F1$\"3=&>_rLB5*))F-7$$\"3')******R^bJLF1$\"3^J'Q-\"p#z\"))F-7$$\"
3f*****\\5a`T$F1$\"3ScW'y*3ST()F-7$$\"3o****\\7RV'\\$F1$\"3o-L@r5-j')F
-7$$\"3k*****\\@fke$F1$\"370aA.JUr&)F-7$$\"3/LLL`4NnOF1$\"3O3N%[\\u`[)
F-7$$\"3#*******\\,s`PF1$\"3g(Qq/L\\**Q)F-7$$\"3[mm;zM)>$QF1$\"3m8S(34
01I)F-7$$\"3$*******pfa(*))\\Hs-pF-7$$\"\"&F*$\"3Kg;?\"eYXy'F
--%'COLOURG6&%$RGBG$\"*++++\"!\")$F*F*Fi\\l-F$6'7S7$$\"36+++/+++5F1$\"
3Z/GTALLLnF-7$$\"3a*G#*z:(z@5F1$\"3S\"[,\"=k3umF-7$$\"3WJA8XFwS5F1$\"3
,ENr(HgHi'F-7$$\"3iM*>9`\"4i5F1$\"3%eO5qOJfc'F-7$$\"35t\"[()phN3\"F1$
\"3=IBuf.-4lF-7$$\"3z%*)=@#)H\\5\"F1$\"3'*4;?>'pGX'F-7$$\"3USPz23uC6F1
$\"3Uy&GW^V7S'F-7$$\"3aoH'f$RDX6F1$\"3I02j$)GA[jF-7$$\"3a<*fCkok;\"F1$
\"3_V)Hsx]QH'F-7$$\"3kxS78`h(=\"F1$\"3!QhbF];,C'F-7$$\"3Q&ReJEn$47F1$
\"3kj#yH!GK&='F-7$$\"3`b%)e#RE&G7F1$\"3;Ys!)\\\"fu8'F-7$$\"3')R#*\\M]4
]7F1$\"3wDW*)\\!>S3'F-7$$\"39#)fKRAvr7F1$\"3jHi$ypF3.'F-7$$\"3I;!f\"pH
i#H\"F1$\"3+oa$o.3+)fF-7$$\"34i!*H\"fv:J\"F1$\"3)R3fW-IU$fF-7$$\"3eO/;
#47TL\"F1$\"3adl%RU^-)eF-7$$\"3y0x]kM?`8F1$\"3vnIH%z3\\$eF-7$$\"3'*4<7
p7Tv8F1$\"3kAgBeUg#y&F-7$$\"3u\"ys\"R*o]R\"F1$\"3t)pe!4spOdF-7$$\"3)y!
>z=lj;9F1$\"3#4!Q%R2\\no&F-7$$\"3N3w([&R4fRcF-7$$\"3Q7X
\"\\h-'e9F1$\"3?-W_rJ!3f&F-7$$\"3!p3KT\"3Gy9F1$\"3i\\P0HEPYbF-7$$\"3]:
1U5k]*\\\"F1$\"3'[D()o.W))\\&F-7$$\"3&eB>'RQb@:F1$\"3#Rd!p'Q1*\\aF-7$$
\"3OI!\\:>Y2a\"F1$\"3(*=;EM2m2aF-7$$\"3!4([UdWZh:F1$\"3#fV6v--CO&F-7$$
\"3u*)oL%y))Ge\"F1$\"3h8'))y6VgJ&F-7$$\"3t\"H>a_QQg\"F1$\"3!H1Ti#y2r_F
-7$$\"39K@8x%3Ti\"F1$\"3:\"fg4lLzA&F-7$$\"3[\"3xD![hY;F1$\"37/*ya+V/=&
F-7$$\"3OJ')*ptPom\"F1$\"3(oZ>]jQ\"Q^F-7$$\"3ofD*f.I%)o\"F1$\"3UMm&\\'
4N$4&F-7$$\"3m*pF\"oe*zq\"F1$\"3Ms\"yA$R5`]F-7$$\"383\\m!\\'QHr%fJ%[F-7$$\"3v9&**R*RRL=F1$\"3%o%F-7$$\"3q/ku`g6<>F1$\"3**>d*=Y3Bk%F-7$$\"3NO7F1$\"3,,kG#\\
k^g%F-7$$\"3#RdgWE`!e>F1$\"3+S'*4y&))ec%F-7$$\"35B)[!)4s#y>F1$\"3aI.c#
H5'GXF-7$$\"3))*****f*******>F1$\"3oR#ph*)))))[%F-7S7$$\"30+++1+++?F1$
\"3$RO;ZkmE-*F-7$$\"3+,^!*frz@?F1$\"3wL(>LzvK%*)F-7$$\"3q!=ppui2/#F1$
\"3)4*fK#zmZ())F-7$$\"3Mo:QPRDX@F1$\"3/P3C#)F-7$$\"3#)f))\\N]4]AF1$
\"3AiTbBbe_\")F-7$$\"3Qt*Q-C_lj;CF
1$\"3PrV0ePC?wF-7$$\"3W7*G^&R5!3:EgeCF1$
\"3Co'R$\\in\"\\(F-7$$\"3ij*=U\"3GyCF1$\"3H*=qEKR@V(F-7$$\"3#**eA/T1&*
\\#F1$\"3O*)HU45XotF-7$$\"3\"3-L&RQb@DF1$\"3]C1UeX(GI(F-7$$\"3jXgQ\">Y
2a#F1$\"3E/%*Q%QliC(F-7$$\"3Qt*yrXu9c#F1$\"3y=![hYEF1$\"3tyB**GOzTpF-7$$\"3_!GJjtPom
#F1$\"3u!4*ysd5&)oF-7$$\"3sR)Q_.I%)o#F1$\"3'[lF^H!4DoF-7$$\"31;dHne*zq
#F1$\"3+/p`r#f6x'F-7$$\"34itu*['QHFF1$\"3s*Rc]#fo7nF-7$$\"3?sTY)R8&\\F
F1$\"3#))\\,/BG\"emF-7$$\"33y$yt\"=bqFF1$\"3^Tc\")eOd,mF-7$$\"3k%))Rtr
?6z#F1$\"3_.V-ucuYlF-7$$\"3YYJP\\Wl7GF1$\"3Ckzo%pL)*['F-7$$\"3$)Qfm#*R
RLGF1$\"3F[nSc%)[NkF-7$$\"3eG9;rJgaGF1$\"3gDRBFKQ!Q'F-7$$\"3g#p]psOc(G
F1$\"3\"*zB#QJ+iK'F-7$$\"3YF/E!Qk\\*GF1$\"3];>Q+w\"oF'F-7$$\"3nSz2_g6<
HF1$\"3:h&[JM$p?iF-7$$\"3\\@NUr(Gp$HF1$\"3Q%pOSU?4<'F-7$$\"3)3OGEE`!eH
F1$\"3Xe()>*p!H=hF-7$$\"3'\\tNh4s#yHF1$\"3-nzt'zP$ogF-7$$\"3%******R**
*****HF1$\"3%))eWd76^,'F-7S7$$\"3A+++3+++IF1$\"3a#H,ayay1*F-7$$\"3D7z
\"=;(z@IF1$\"3#H>J=Km!))*)F-7$$\"3^Hh!)[FwSIF1$\"3wGA43U@>*)F-7$$\"3I-
K#\\`\"4iIF1$\"3akc=9FTU))F-7$$\"3sz'z?qhN3$F1$\"3;=E2H+xl()F-7$$\"3gc
%z_#)H\\5$F1$\"35\"z$f.7:!p)F-7$$\"379ez53uCJF1$\"3-McJbdi?')F-7$$\"3I
P4!)QRDXJF1$\"3)oydLGA#\\&)F-7$$\"3so\"G^kok;$F1$\"3qh2?k()*fZ)F-7$$\"
3CbJi:`h(=$F1$\"3Y^NP?Uj.%)F-7$$\"3IdM[lsO4KF1$\"3#)3qsOH%)H$)F-7$$\"3
]W-w%RE&GKF1$\"3ekwvBWQl#)F-7$$\"3wz%)\\O]4]KF1$\"3A)yi![gT$>)F-7$$\"3
Sk>:TAvrKF1$\"3y:'fQm#y@\")F-7$$\"3yK!=3(Hi#H$F1$\"3YeGKiKM`!)F-7$$\"3
>dk!Gfv:J$F1$\"3gxP%\\]$p\"*zF-7$$\"37Sv[$47TL$F1$\"3%=,F6aP$F1$\"3onxd-u\\(y(F-7$$
\"3YIA,S*o]R$F1$\"34W**))pQnDxF-7$$\"3(f\")e%>lj;MF1$\"3)H55>;3%ewF-7$
$\"3v;-QbRHvF-7$$
\"3OSeI93GyMF1$\"3YiIQX;OpuF-7$$\"3!RcC/T1&*\\$F1$\"3iX8tiVN0uF-7$$\"3
L0oWRQb@NF1$\"3u%z%)f[\\%RtF-7$$\"3*31B7>Y2a$F1$\"3my>\"pzcDG(F-7$$\"3
SvI$pXu9c$F1$\"3z)[MTR1;A(F-7$$\"3GzPn$y))Ge$F1$\"3sy7$fLu\"frF-7$$\"3
y$e)eC&QQg$F1$\"3[v7_y!>')4(F-7$$\"3dk#RhZ3Ti$F1$\"3_#oM(Qj^SqF-7$$\"3
1jTS,[hYOF1$\"3eEUFf,cwpF-7$$\"3WHRmNx$om$F1$\"3moZ&RR)e>pF-7$$\"3_>^[
M+V)o$F1$\"3OP\")[TBFfoF-7$$\"3pKPYme*zq$F1$\"3?j&*y:720oF-7$$\"30;)H)
)['QHPF1$\"3ofs$z,0ju'F-7$$\"3+>hY(R8&\\PF1$\"3g%e@E3u9p'F-7$$\"3'3<'H
;=bqPF1$\"3F+yVpijMmF-7$$\"3#>Svhr?6z$F1$\"3g!3\"H!pL&zlF-7$$\"3jGD7[W
l7QF1$\"3K$)=NzmLAlF-7$$\"3\"HOK8*RRLQF1$\"3!3DXWE>xY'F-7$$\"3k:IupJga
QF1$\"3Rx:R_!QBT'F-7$$\"3kX\"[asOc(QF1$\"3=b1KvP)yN'F-7$$\"3))p0oyV'\\
*QF1$\"3lg_+RPD3jF-7$$\"3>w%4/0;r\"RF1$\"3)*[*)H&R[=D'F-7$$\"3=1enp(Gp
$RF1$\"3O&>Y!*>E=?'F-7$$\"3%y9'zgK0eRF1$\"3g4#e$*)G$*[hF-7$$\"3;YEA%4s
#yRF1$\"3]RYM3)H()4'F-7$$\"3y*****>*******RF1$\"3#>)*=GcO_/'F-7S7$$\"3
%*******4+++SF1$\"3L,8>/1v+\")F-7$$\"3\\B2tjrz@SF1$\"3#ee\\Utr%H!)F-7$
$\"3LyIk]FwSSF1$\"3Y[2KJG'z'zF-7$$\"3!e$[nO:4iSF1$\"311(e\\O_$**yF-7$$
\"3/Lau.7q(F-7$$\"3)3#*>-%RDXTF1$\"3))HaQf7VPwF-7$$
\"3_$Hikkok;%F1$\"3Km'\\)pr,svF-7$$\"3]$psoJ:w=%F1$\"39f\\EW/P2vF-7$$
\"3E))fkmsO4UF1$\"3*)pNTV\"\\9W(F-7$$\"3aQh%eRE&GUF1$\"31+aBb_'QQ(F-7$
$\"3q*4)\\P]4]UF1$\"3tG2oXCd>tF-7$$\"3'\\&\\1UAvrUF1$\"3=>l7+*ybD(F-7$
$\"3!3aZ;(Hi#H%F1$\"3AQ@#GpQW>(F-7$$\"3>b,c$fv:J%F1$\"3QdJ-,SORrF-7$$
\"3b\"4^T47TL%F1$\"3Sh=>JLUuqF-7$$\"3!QEpiY.KN%F1$\"3)\\L&RSC()>qF-7$$
\"3#\\x;1F6aP%F1$\"3A^m'p!e%p&pF-7$$\"3sa>VS*o]R%F1$\"3DmMKter,pF-7$$
\"3BpAz>lj;WF1$\"3'RQ\")G=C;%oF-7$$\"31@:jbREnF-7$$\"3k;FR93GyWF1$\"3iH[2U)RFn'F-7$$\"
3KQlU5k]*\\%F1$\"3c]^gf!fbh'F-7$$\"3&)*eg$RQb@XF1$\"3ug(4^1$oclF-7$$\"
3gw+1\">Y2a%F1$\"3()[V3\"4ee]'F-7$$\"3WxrocWZhXF1$\"3)*zsMm\"39X'F-7$$
\"3]CAM$y))Ge%F1$\"3M8@f2Yj&R'F-7$$\"3\")HK4,:27\"z%F1$\"3UQn#\\v8y(eF-7$$\"3C6>(oWaE\"[F1$\"3#=mEb\"p
rEeF-7$$\"3+(y)***)RRL[F1$\"3]U]E`X#zx&F-7$$\"39.YKoJga[F1$\"3'zi$Ha)
\\%GdF-7$$\"3m)fXRsOc([F1$\"3_g&**3B.)zcF-7$$\"3I725xV'\\*[F1$\"3.l$yO
Lmaj&F-7$$\"3;75u[g6<\\F1$\"3q%Hl'Gn2&e&F-7$$\"3)34GzwGp$\\F1$\"3%QR " 0 "" {MPLTEXT 1 0 30 "A:=sub
s(iota=.001,xi=.01,xxx);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 202 "B:=dif
f(A,N);\nAA:=diff(xxx,N);\ntesteq(AA=rrr);\n BB:=subs(iota=.001,xi=.01
,AA);\nBB_:=subs(iota=.001,xi=.01,rrr);\ntesteq(B=BB);\ntesteq(B=BB_);
\ntesteq(BB=BB_);\nsolve(B=0);\nplot(simplify(BB/BB_),N=99..100);" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%\"AG,$*($\"\"\"\"\"#F()$\"%,5!\"$,$%\"NG!\"\"F(,&*&$\"$,\"!\"#F()F3F
/F(F($F4F5F0F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG,&*($\"+JL+&
***!#6\"\"\")$\"%,5!\"$,$%\"NG!\"\"F*,&*&$\"$,\"!\"#F*)F4F0F*F*$F5F6F1
F*F1*($\"+;M)\\+\"!\"*F*F+F*F7F*F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%#AAG,&**),&\"\"\"F)%%iotaGF),$%\"NG!\"\"F)-%#lnG6#F(F),*),&F)F)%#xiG
F)F,F)*&F2F)F4F)F)F)F-F4F-F)F4F-F-*(F'F),&*&F2F)-F/6#F3F)F)*(F2F)F9F)F
4F)F)F)F4F-F)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%#BBG,&**$\"\"\"\"\"#F()$\"%,5!\"$,$%\"NG!\"\"F
(-%#lnG6#F+F(,&*&$\"$,\"!\"#F()F6F/F(F($F7F8F0F(F0**$\"++++55!\"(F(F*F
(F9F(-F26#F6F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$BB_G,$*($\"\"\"
\"\"#F()$\"%,5!\"$,$%\"NG!\"\"F(,(*($\"$,\"!\"#F(-%#lnG6#F+F()F3F/F(F(
*&$F4F5F(F6F(F0*($F4F5F(F9F(-F76#F3F(F0F(F0" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%%trueG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%&falseG" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#%&falseG" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#^$$!+o\"*=.A!\"($\"+nXFdJF&" }}{PARA 13 "" 1 "" {GLPLOT2D 430 
430 430 {PLOTDATA 2 "6%-%'CURVESG6$7S7$$\"#**\"\"!$\"3].&4+++++\"!#<7$
$\"3GmmT:(z@!**!#;$\"3s0&4+++++\"F-7$$\"3uLe9ui2/**F1$\"3%z]4+++++\"F-
7$$\"3Qm;z_\"4i!**F1$\"3;5&4+++++\"F-7$$\"3Dm;aphN3**F1$\"3s6&4+++++\"
F-7$$\"3'R$e*=)H\\5**F1$\"3%R^4+++++\"F-7$$\"32n\"z/3uC\"**F1$\"3;;&4+
++++\"F-7$$\"3^+DJ$RDX\"**F1$\"3%z^4+++++\"F-7$$\"3(f;zR'ok;**F1$\"3Q?
&4+++++\"F-7$$\"3e+D1J:w=**F1$\"3;A&4+++++\"F-7$$\"3@LL3En$4#**F1$\"3Q
C&4+++++\"F-7$$\"38m;/RE&G#**F1$\"3;E&4+++++\"F-7$$\"3\"****\\K]4]#**F
1$\"3gG&4+++++\"F-7$$\"3f***\\PAvr#**F1$\"3gI&4+++++\"F-7$$\"3X***\\nH
i#H**F1$\"3/L&4+++++\"F-7$$\"3Gn\"z*ev:J**F1$\"3QM&4+++++\"F-7$$\"3&HL
$347TL**F1$\"3EP&4+++++\"F-7$$\"3(HLLjM?`$**F1$\"3#)Q&4+++++\"F-7$$\"3
k+D\"o7Tv$**F1$\"3ET&4+++++\"F-7$$\"3%QLLQ*o]R**F1$\"3/V&4+++++\"F-7$$
\"3H+D\"=lj;%**F1$\"3EX&4+++++\"F-7$$\"3#)*\\PaRY2a**F1$\"3od&4+++++\"F-7$$\"3)fm\"zXu9c**F1$\"3!
*f&4+++++\"F-7$$\"3W****\\y))Ge**F1$\"3!>c4+++++\"F-7$$\"3;+]i_QQg**F1
$\"3oj&4+++++\"F-7$$\"3a*\\7y%3Ti**F1$\"3!fc4+++++\"F-7$$\"3y**\\P![hY
'**F1$\"37o&4+++++\"F-7$$\"3!GLLQx$om**F1$\"3!*p&4+++++\"F-7$$\"3#)***
\\P+V)o**F1$\"3Ms&4+++++\"F-7$$\"3'f;zpe*zq**F1$\"3Mu&4+++++\"F-7$$\"3
!)***\\#\\'QH(**F1$\"37w&4+++++\"F-7$$\"3+Le9S8&\\(**F1$\"3My&4+++++\"
F-7$$\"3?+D1#=bq(**F1$\"3M!e4+++++\"F-7$$\"3QLL3s?6z**F1$\"3y#e4+++++
\"F-7$$\"3i+DJXaE\")**F1$\"3c%e4+++++\"F-7$$\"3?nmm*RRL)**F1$\"3c'e4++
+++\"F-7$$\"31n;a<.Y&)**F1$\"3+*e4+++++\"F-7$$\"3)G$e9tOc()**F1$\"3A\"
f4+++++\"F-7$$\"3W****\\Qk\\*)**F1$\"3w#f4+++++\"F-7$$\"3OL$3dg6<***F1
$\"3A&f4+++++\"F-7$$\"3;mmmxGp$***F1$\"3)pf4+++++\"F-7$$\"3#**\\7oK0e*
**F1$\"3?*f4+++++\"F-7$$\"3o+v=5s#y***F1$\"3)4g4+++++\"F-7$$\"$+\"F*$
\"3U.'4+++++\"F--%'COLOURG6&%$RGBG$\"#5!\"\"$F*F*F`[l-%+AXESLABELSG6$Q
\"N6\"Q!Fe[l-%%VIEWG6$;F(Fez%(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 65 "simplify(\nsimplify(BB,symboluic)/simplify(B,symbol
ic)\n,symbolic);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,$**$\"+P_d/5!\"*
\"\"\"-%$expG6#,$*&$\"+$)\\^Uz!#7F(%\"NGF(!\"\"F(,&*&$\"+&*[)f`)\"\"!F
(-F*6#,&*&$\"+yB%>H)!#8F(F1F(F(F " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5 1 0" 2 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }