{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 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 48 "xxx:=simplify(sum(x* (1+eta)*(1+xi)^i,i=0..N-1));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$xxx G**%\"xG\"\"\",&F'F'%$etaGF'F',&),&F'F'%#xiGF'%\"NGF'F'!\"\"F'F-F/" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "f:=unapply(xxx,x,eta,xi,N); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGj+6&%\"xG%$etaG%#xiG%\"NG6\" 6$%)operatorG%&arrowGF+**9$\"\"\",&F1F19%F1F1,&),&F1F19&F19'F1F1!\"\"F 1F7F9F+F+F+6&\"\"!F;F;F;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "rce:=f(x,0,Xi,N)=f(x,eta,xi,N);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% $rceG/*(%\"xG\"\"\",&),&F(F(%#XiGF(%\"NGF(F(!\"\"F(F,F.**F'F(,&F(F(%$e taGF(F(,&),&F(F(%#xiGF(F-F(F(F.F(F5F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "solve(rce,Xi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%' RootOfG6#,.*&%#xiG\"\"\"),&F)F)%#_ZGF)%\"NGF)!\"\"F(F)*&F,F)),&F)F)F(F )F-F)F)F,F.*(F,F)%$etaGF)F0F)F)*&F,F)F3F)F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "F:=unapply(rce,x,eta,xi,Xi,N);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"FGj+6'%\"xG%$etaG%#xiG%#XiG%\"NG6\"6$%)operatorG% &arrowGF,/*(9$\"\"\",&),&F3F39'F39(F3F3!\"\"F3F7F9**F2F3,&F3F39%F3F3,& ),&F3F39&F3F8F3F3F9F3F@F9F,F,F,6'\"\"!FBFBFBFB" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 36 "g:=X->fsolve(F(1,0.5,X,Xi,12*7),Xi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gGj+6#%\"XG6\"6$%)operatorG%&arrowGF(-%' fsolveG6$-%\"FG6'\"\"\"$\"\"&!\"\"9$%#XiG\"#%)F7F(F(F(6#\"\"!" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "plots[pointplot]([seq([x/100 .,g(x/100)],x=0.1..75)],style=line);" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6$-%'CURVESG6#7go7$$\"+++++5!#7$\"+dsW65!#67$ $\"+++++6F-$\"+)=$)>#>F-7$$\"+++++@F-$\"+v!oh&GF-7$$\"+++++JF-$\"+a%[) 3QF-7$$\"+++++TF-$\"+^/QvZF-7$$\"+++++^F-$\"+.z)>v&F-7$$\"+++++hF-$\"+ Kg!et'F-7$$\"+++++rF-$\"+dqvCxF-7$$\"+++++\")F-$\"+Fhn $\"+!G%>s>Fhn7$$\"++++5?Fhn$\"+DH^s?Fhn7$$\"++++5@Fhn$\"+8&[G<#Fhn7$$ \"++++5AFhn$\"+[')>tAFhn7$$\"++++5BFhn$\"+l8ctBFhn7$$\"++++5CFhn$\"+Q] $RZ#Fhn7$$\"++++5DFhn$\"+3$=Vd#Fhn7$$\"++++5EFhn$\"+L+ruEFhn7$$\"++++5 FFhn$\"+W#4^x#Fhn7$$\"++++5GFhn$\"+9^^vGFhn7$$\"++++5HFhn$\"+Op#f(HFhn 7$$\"++++5IFhn$\"+)4Wj2$Fhn7$$\"++++5JFhn$\"+ngwwJFhn7$$\"++++5KFhn$\" +%Q#>xKFhn7$$\"++++5LFhn$\"+TEixLFhn7$$\"++++5MFhn$\"+#[c!yMFhn7$$\"++ ++5NFhn$\"+%f$\\yNFhn7$$\"++++5OFhn$\"+'pL*yOFhn7$$\"++++5PFhn$\"+UlPz PFhn7$$\"++++5QFhn$\"+4>#)zQFhn7$$\"++++5RFhn$\"++'p-)RFhn7$$\"++++5SF hn$\"+O%>23%Fhn7$$\"++++5TFhn$\"+e7<\"=%Fhn7$$\"++++5UFhn$\"+?\\i\"G%F hn7$$\"++++5VFhn$\"+#H!3#Q%Fhn7$$\"++++5WFhn$\"+bs`#[%Fhn7$$\"++++5XFh n$\"+,d*He%Fhn7$$\"++++5YFhn$\"+JbX$o%Fhn7$$\"++++5ZFhn$\"+cm\"Ry%Fhn7 $$\"++++5[Fhn$\"+#**yV)[Fhn7$$\"++++5\\Fhn$\"+mC%[)\\Fhn7$$\"++++5]Fhn $\"+1qI&3&Fhn7$$\"++++5^Fhn$\"+]Dx&=&Fhn7$$\"++++5_Fhn$\"+R!RiG&Fhn7$$ \"++++5`Fhn$\"+=kq'Q&Fhn7$$\"++++5aFhn$\"+PY<([&Fhn7$$\"++++5bFhn$\"+ \\Ok(e&Fhn7$$\"++++5cFhn$\"+7M6)o&Fhn7$$\"++++5dFhn$\"+&)Qe)y&Fhn7$$\" ++++5eFhn$\"+J]0*)eFhn7$$\"++++5fFhn$\"+;o_*)fFhn7$$\"++++5gFhn$\"+1#* ***3'Fhn7$$\"++++5hFhn$\"+s@Z!>'Fhn7$$\"++++5iFhn$\"+'oX4H'Fhn7$$\"+++ +5jFhn$\"+?(>9R'Fhn7$$\"++++5kFhn$\"+^U*=\\'Fhn7$$\"++++5lFhn$\"+b#pBf 'Fhn7$$\"++++5mFhn$\"+5Z%Gp'Fhn7$$\"++++5nFhn$\"+(f?Lz'Fhn7$$\"++++5oF hn$\"+%*oz$*oFhn7$$\"++++5pFhn$\"+'etU*pFhn7$$\"++++5qFhn$\"+`1v%4(Fhn 7$$\"++++5rFhn$\"+\"3G_>(Fhn7$$\"++++5sFhn$\"+aeq&H(Fhn7$$\"++++5tFhn$ \"+eR='R(Fhn7$$\"++++5uFhn$\"+!Qim\\(Fhn-%&STYLEG6#%%LINEG" 1 6 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 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "g(2./100);" }}{PARA 8 "" 1 "" {TEXT -1 37 "Error, (in fsolve) invalid arguments\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "h:=X->fsolve(F(1,0.5,0.01,Xi,X),Xi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hGj+6#%\"XG6\"6$%)operatorG%&arrowGF(-%'fsolveG6$-% \"FG6'\"\"\"$\"\"&!\"\"$F2!\"#%#XiG9$F8F(F(F(6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "A:=plots[pointplot]([seq([X,h(X)],X=2..12 *10)],style=line):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "B:=pl ot(0.01,X=2..12*10):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "plo ts[display](A,B);" }}{PARA 13 "" 1 "" {GLPLOT2D 355 355 355 {PLOTDATA 2 "6&-%'CURVESG6$7cr7$$\"\"#\"\"!$\"++++:5!\"*7$$\"\"$F*$\"+IZ9\"[%!#5 7$$\"\"%F*$\"+fx5))GF37$$\"\"&F*$\"+I9jT@F37$$\"\"'F*$\"+\\x54%y8/)FW7$$\"#8F*$\"+C) fAV(FW7$$\"#9F*$\"+^cz=pFW7$$\"#:F*$\"+/I5!['FW7$$\"#;F*$\"+2Z'45'FW7$ $\"#F*$\"+YI;?_FW7$$\"#?F*$ \"+\\pF*)\\FW7$$\"#@F*$\"+.[!=y%FW7$$\"#AF*$\"+;&fVf%FW7$$\"#BF*$\"+vq vMFW7$$\"#KF*$\"+2DN\"R$FW7$$\"#LF*$\"+xv !GJ$FW7$$\"#MF*$\"+V:2RKFW7$$\"#NF*$\"+EnrpJFW7$$\"#OF*$\"+8ZO/JFW7$$ \"#PF*$\"+F%zE/$FW7$$\"#QF*$\"+E9O%)HFW7$$\"#RF*$\"+yH9HHFW7$$\"#SF*$ \"+&*RywGFW7$$\"#TF*$\"+r&oq#GFW7$$\"#UF*$\"+1?!)zFFW7$$\"#VF*$\"+W#3[ t#FW7$$\"#WF*$\"+5x#>p#FW7$$\"#XF*$\"+Za,^EFW7$$\"#YF*$\"+L%R>h#FW7$$ \"#ZF*$\"+%>zXd#FW7$$\"#[F*$\"+)eC)QDFW7$$\"#\\F*$\"+wYd/DFW7$$\"#]F*$ \"+JotrCFW7$$\"#^F*$\"+^eASCFW7$$\"#_F*$\"+mK'*4CFW7$$\"#`F*$\"+rm(3Q# FW7$$\"#aF*$\"+^\"**GN#FW7$$\"#bF*$\"+n(ofK#FW7$$\"#cF*$\"+<\"G+I#FW7$ $\"#dF*$\"+FW7$$\"#tF*$\"+C![.(>FW 7$$\"#uF*$\"+*y\"zb>FW7$$\"#vF*$\"+BWjT>FW7$$\"#wF*$\"+1*fy#>FW7$$\"#x F*$\"+gIX9>FW7$$\"#yF*$\"+.&*R,>FW7$$\"#zF*$\"+#f&o))=FW7$$\"#!)F*$\"+ u$)Hw=FW7$$\"#\")F*$\"+]bAk=FW7$$\"##)F*$\"+GaX_=FW7$$\"#$)F*$\"+))o(4 %=FW7$$\"#%)F*$\"+[$z(H=FW7$$\"#&)F*$\"+NF&)==FW7$$\"#')F*$\"+Vu=3=FW7 $$\"#()F*$\"+CVx(z\"FW7$$\"#))F*$\"+YYg(y\"FW7$$\"#*)F*$\"+v+nx*>\\_;FW7$$\"$0 \"F*$\"+)oP^k\"FW7$$\"$1\"F*$\"+d:AQ;FW7$$\"$2\"F*$\"+Y)Q9j\"FW7$$\"$3 \"F*$\"+'z&yC;FW7$$\"$4\"F*$\"+)ye#=;FW7$$\"$5\"F*$\"+TV&=h\"FW7$$\"$6 \"F*$\"+'4pbg\"FW7$$\"$7\"F*$\"+<)*R*f\"FW7$$\"$8\"F*$\"+%QVLf\"FW7$$ \"$9\"F*$\"+)y'R(e\"FW7$$\"$:\"F*$\"+Drb\"e\"FW7$$\"$;\"F*$\"+#f@ed\"F W7$$\"$<\"F*$\"+%[(=q:FW7$$\"$=\"F*$\"+*=_Yc\"FW7$$\"$>\"F*$\"+$=8#f:F W7$$\"$?\"F*$\"+D!oQb\"FW-%&STYLEG6#%%LINEG-F$6$7S7$F($\"3-+++++++5!#> 7$$\"3mmmm\">k?d%!#n \"F`bmF`am7$$\"3,+](3T'*R\">F`bmF`am7$$\"3om;a\\*HV;#F`bmF`am7$$\"3$** *\\Pl1'QT#F`bmF`am7$$\"3kLL$ynL0n#F`bmF`am7$$\"3#om;pS6m*GF`bmF`am7$$ \"3K++]$Q@6:$F`bmF`am7$$\"3x****\\-kn1MF`bmF`am7$$\"3]++];5&Hl$F`bmF`a m7$$\"3#pmT&f>fwQF`bmF`am7$$\"3XLL$=nAD9%F`bmF`am7$$\"3yLLLn3!yO%F`bmF `am7$$\"3V+](Q'H&)HYF`bmF`am7$$\"3ULLLsM\"='[F`bmF`am7$$\"3@+](Q\"4J;^ F`bmF`am7$$\"3]+]ihEle`F`bmF`am7$$\"3&QL$3_3^6cF`bmF`am7$$\"3BM$3Zg8P% eF`bmF`am7$$\"3kmm\"HkvT4'F`bmF`am7$$\"3+n;a4`LajF`bmF`am7$$\"3;**\\7k ]!3e'F`bmF`am7$$\"3DnmT.')RDoF`bmF`am7$$\"3Y*****Hm(3yqF`bmF`am7$$\"32 ++v4YHDtF`bmF`am7$$\"3!4+v=/![kvF`bmF`am7$$\"3w***\\Uoa+$yF`bmF`am7$$ \"3eLLL7`oo!)F`bmF`am7$$\"3C++]UWZB$)F`bmF`am7$$\"39m;aj7Na&)F`bmF`am7 $$\"3!=++:hgn!))F`bmF`am7$$\"3ZK$3s8eU/*F`bmF`am7$$\"37+]P$[6DH*F`bmF` am7$$\"3\"QLLe]C_`*F`bmF`am7$$\"3M+](oaA$*y*F`bmF`am7$$\"3umm1;\\S.5!# :F`am7$$\"3nm;*puJ%G5F]imF`am7$$\"3]L37V8D`5F]imF`am7$$\"35++Iuz0w5F]i mF`am7$$\"3VL$et%p>-6F]imF`am7$$\"3qmmYcfdD6F]imF`am7$$\"37+vQcG]]6F]i mF`am7$$\"31+D@!3hV<\"F]imF`am7$Fd`mF`am-%'COLOURG6&%$RGBG$FT!\"\"$F*F *Fjjm-%+AXESLABELSG6$Q\"X6\"Q!F_[n-%%VIEWG6$;F(Fd`m%(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 37 "h:=X->solve(F(1,X,0.01,X i,10*12),Xi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hGj+6#%\"XG6\"6$% )operatorG%&arrowGF(-%&solveG6$-%\"FG6'\"\"\"9$$F2!\"#%#XiG\"$?\"F6F(F (F(6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "plots[pointpl ot]([seq([x/100.,g(x/100)],x=1..75)],style=line);\n[seq([x/100.,g(x/10 0)],x=1..75)];" }}{PARA 13 "" 1 "" {GLPLOT2D 479 479 479 {PLOTDATA 2 " 6$-%'CURVESG6#7go7$$\"+++++5!#6$\"+[$z(H=F*7$$\"+++++?F*$\"+-W$=w#F*7$ $\"+++++IF*$\"+#p')Gr$F*7$$\"+++++SF*$\"+;*=#yYF*7$$\"+++++]F*$\"+K@'R l&F*7$$\"+++++gF*$\"+JV;PmF*7$$\"+++++qF*$\"+xnnDwF*7$$\"+++++!)F*$\"+ ))*yzh)F*7$$\"+++++!*F*$\"+-,,8'*F*7$$F)!#5$\"+gK+h5FW7$$\"+++++6FW$\" +oJ&3;\"FW7$$\"+++++7FW$\"+jW\"3E\"FW7$$\"+++++8FW$\"+g7'3O\"FW7$$\"++ +++9FW$\"+1[(4Y\"FW7$$\"+++++:FW$\"+'HT6c\"FW7$$\"+++++;FW$\"+0/Nh;FW7 $$\"+++++FW$\"+cM ;i>FW7$$F/FW$\"+a-[i?FW7$$\"+++++@FW$\"+kU\"G;#FW7$$\"+++++AFW$\"+RI;j AFW7$$\"+++++BFW$\"+wX_jBFW7$$\"+++++CFW$\"+=s*QY#FW7$$\"+++++DFW$\"+$ ezUc#FW7$$\"+++++EFW$\"+40nkEFW7$$\"+++++FFW$\"+5!p]w#FW7$$\"+++++GFW$ \"+\\UZlGFW7$$\"+++++HFW$\"+/b)e'HFW7$$F4FW$\"+d@ImIFW7$$\"+++++JFW$\" +oOsmJFW7$$\"+++++KFW$\"+o&\\rE$FW7$$\"+++++LFW$\"+[%zvO$FW7$$\"+++++M FW$\"+YH,oMFW7$$\"+++++NFW$\"+W(\\%oNFW7$$\"+++++OFW$\"+f&*))oOFW7$$\" +++++PFW$\"+S@LpPFW7$$\"+++++QFW$\"+lsxpQFW7$$\"+++++RFW$\"+JZAqRFW7$$ F9FW$\"+gVnqSFW7$$\"+++++TFW$\"+!*f7rTFW7$$\"+++++UFW$\"+v%z:F%FW7$$\" +++++VFW$\"+\"oM?P%FW7$$\"+++++WFW$\"+!\\\"\\sWFW7$$\"+++++XFW$\"+#z\\ Hd%FW7$$\"+++++YFW$\"+)[4Mn%FW7$$\"+++++ZFW$\"+([qQx%FW7$$\"+++++[FW$ \"+1FLu[FW7$$\"+++++\\FW$\"+pgzu\\FW7$$F>FW$\"+10Ev]FW7$$\"+++++^FW$\" +`fsv^FW7$$\"+++++_FW$\"+\\B>w_FW7$$\"+++++`FW$\"+T'fmP&FW7$$\"+++++aF W$\"+yx7xaFW7$$\"+++++bFW$\"+9nfxbFW7$$\"+++++cFW$\"+.k1ycFW7$$\"+++++ dFW$\"+2o`ydFW7$$\"+++++eFW$\"+))y+zeFW7$$\"+++++fFW$\"+5'z%zfFW7$$FCF W$\"+T>&*zgFW7$$\"+++++hFW$\"+][U!='FW7$$\"+++++iFW$\"+5$)*3G'FW7$$\"+ ++++jFW$\"+%Hs8Q'FW7$$\"+++++kFW$\"+wn%=['FW7$$\"+++++lFW$\"+MK4(e(FW-%&STYLEG6#%%LINEG" 1 6 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}{PARA 12 "" 1 "" {XPPMATH 20 "6#7go7$$\"+++++5!#6$\"+[$z(H=F'7$$\"+++++?F'$\"+-W$=w# F'7$$\"+++++IF'$\"+#p')Gr$F'7$$\"+++++SF'$\"+;*=#yYF'7$$\"+++++]F'$\"+ K@'Rl&F'7$$\"+++++gF'$\"+JV;PmF'7$$\"+++++qF'$\"+xnnDwF'7$$\"+++++!)F' $\"+))*yzh)F'7$$\"+++++!*F'$\"+-,,8'*F'7$$F&!#5$\"+gK+h5FT7$$\"+++++6F T$\"+oJ&3;\"FT7$$\"+++++7FT$\"+jW\"3E\"FT7$$\"+++++8FT$\"+g7'3O\"FT7$$ \"+++++9FT$\"+1[(4Y\"FT7$$\"+++++:FT$\"+'HT6c\"FT7$$\"+++++;FT$\"+0/Nh ;FT7$$\"+++++FT$ \"+cM;i>FT7$$F,FT$\"+a-[i?FT7$$\"+++++@FT$\"+kU\"G;#FT7$$\"+++++AFT$\" +RI;jAFT7$$\"+++++BFT$\"+wX_jBFT7$$\"+++++CFT$\"+=s*QY#FT7$$\"+++++DFT $\"+$ezUc#FT7$$\"+++++EFT$\"+40nkEFT7$$\"+++++FFT$\"+5!p]w#FT7$$\"++++ +GFT$\"+\\UZlGFT7$$\"+++++HFT$\"+/b)e'HFT7$$F1FT$\"+d@ImIFT7$$\"+++++J FT$\"+oOsmJFT7$$\"+++++KFT$\"+o&\\rE$FT7$$\"+++++LFT$\"+[%zvO$FT7$$\"+ ++++MFT$\"+YH,oMFT7$$\"+++++NFT$\"+W(\\%oNFT7$$\"+++++OFT$\"+f&*))oOFT 7$$\"+++++PFT$\"+S@LpPFT7$$\"+++++QFT$\"+lsxpQFT7$$\"+++++RFT$\"+JZAqR FT7$$F6FT$\"+gVnqSFT7$$\"+++++TFT$\"+!*f7rTFT7$$\"+++++UFT$\"+v%z:F%FT 7$$\"+++++VFT$\"+\"oM?P%FT7$$\"+++++WFT$\"+!\\\"\\sWFT7$$\"+++++XFT$\" +#z\\Hd%FT7$$\"+++++YFT$\"+)[4Mn%FT7$$\"+++++ZFT$\"+([qQx%FT7$$\"+++++ [FT$\"+1FLu[FT7$$\"+++++\\FT$\"+pgzu\\FT7$$F;FT$\"+10Ev]FT7$$\"+++++^F T$\"+`fsv^FT7$$\"+++++_FT$\"+\\B>w_FT7$$\"+++++`FT$\"+T'fmP&FT7$$\"+++ ++aFT$\"+yx7xaFT7$$\"+++++bFT$\"+9nfxbFT7$$\"+++++cFT$\"+.k1ycFT7$$\"+ ++++dFT$\"+2o`ydFT7$$\"+++++eFT$\"+))y+zeFT7$$\"+++++fFT$\"+5'z%zfFT7$ $F@FT$\"+T>&*zgFT7$$\"+++++hFT$\"+][U!='FT7$$\"+++++iFT$\"+5$)*3G'FT7$ $\"+++++jFT$\"+%Hs8Q'FT7$$\"+++++kFT$\"+wn%=['FT7$$\"+++++lFT$\"+MK4(e(FT" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 61 "subs(x=1,eta=.5700000000,Xi=.5778536807,xi=0.01,N=1 0*12,rce);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/$\"+^ON95\"#:$\"+Dug6O! \"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "h:=unapply(F(x,eta,x i,Xi,N),eta);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hGj+6#%$etaG6\"6$ %)operatorG%&arrowGF(/*(%\"xG\"\"\",&),&F/F/%#XiGF/%\"NGF/F/!\"\"F/F3F 5**F.F/,&F/F/9$F/F/,&),&F/F/%#xiGF/F4F/F/F5F/F " 0 "" {MPLTEXT 1 0 51 "R:=eta->fsolve(subs(x=1,xi=0 .01,N=12*5,h(eta)),Xi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"RGj+6#% $etaG6\"6$%)operatorG%&arrowGF(-%'fsolveG6$-%%subsG6&/%\"xG\"\"\"/%#xi G$F4!\"#/%\"NG\"#g-%\"hG6#9$%#XiGF(F(F(6#\"\"!" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 75 "subs(x=0,R(x/100));seq(R(x/100),x=0);R(0/100); R(0);R(0.01/100);R(.1);R(.5);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+;h\"4.\"!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%#XiGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+-+++5!# 6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+-+++5!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+s5J+5!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+;!* 3$H\"!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+_::0A!#6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "A:=NULL;\nfor x from 0 to 100 do\nA :=A,[x/100.,R(x/100)]\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "x:=0;\nR(x/100)\n;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG\"\"! " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%#XiGF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "\nA;_plots[pointplot]([A],style=line\n);" }} {PARA 12 "" 1 "" {XPPMATH 20 "6aq7$$\"\"!F%/%#XiGF'7$$\"+++++5!#6$\"+; h\"4.\"F+7$$\"+++++?F+$\"+I?VeIF+7$$\"+++++IF+$\"+.tv]TF+7$$\"+++++SF+ $\"+P1%4!\\F+7$$\"+++++]F+$\"+5Q`taF+7$$\"+++++gF+$\"+(y\"[PfF+7$$\"++ +++qF+$\"+@T:GjF+7$$\"+++++!)F+$\"+uh3mmF+7$$\"+++++!*F+$\"+B*[U'pF+7$ $F*!#5$\"+mONJsF+7$$\"+++++6FX$\"+P4`tuF+7$$\"+++++7FX$\"+vqD&p(F+7$$ \"+++++8FX$\"+h&**)**yF+7$$\"+++++9FX$\"+J\\0!4)F+7$$\"+++++:FX$\"+1sw n#)F+7$$\"+++++;FX$\"+VTnM%)F+7$$\"+++++FX$\"+v!pF)))F+7$$F0FX$\"+gXo**F+7$$\"+++++HFX$\"+'= ,:+\"FX7$$F5FX$\"+,E!3,\"FX7$$\"+++++JFX$\"+Y^$)>5FX7$$\"+++++KFX$\"+1 chG5FX7$$\"+++++LFX$\"+1#fr.\"FX7$$\"+++++MFX$\"+(zza/\"FX7$$\"+++++NF X$\"+=+f`5FX7$$\"+++++OFX$\"+J9]h5FX7$$\"+++++PFX$\"+\\YAp5FX7$$\"++++ +QFX$\"+F%pn2\"FX7$$\"+++++RFX$\"+jZ9%3\"FX7$$F:FX$\"+m*e84\"FX7$$\"++ +++TFX$\"+L(>%)4\"FX7$$\"+++++UFX$\"+,UL06FX7$$\"+++++VFX$\"+2!4@6\"FX 7$$\"+++++WFX$\"+G.v=6FX7$$\"+++++XFX$\"+GRED6FX7$$\"+++++YFX$\"+#>b;8 \"FX7$$\"+++++ZFX$\"+e\"Hz8\"FX7$$\"+++++[FX$\"+]04W6FX7$$\"+++++\\FX$ \"+*zV,:\"FX7$$F?FX$\"+qI4c6FX7$$\"+++++^FX$\"+&GU>;\"FX7$$\"+++++_FX$ \"+P^pn6FX7$$\"+++++`FX$\"+5^Nt6FX7$$\"+++++aFX$\"+(\\D*y6FX7$$\"+++++ bFX$\"+5%4W=\"FX7$$\"+++++cFX$\"+'z4)*=\"FX7$$\"+++++dFX$\"+Y%H^>\"FX7 $$\"+++++eFX$\"+45P+7FX7$$\"+++++fFX$\"++q`07FX7$$FDFX$\"+5)H1@\"FX7$$ \"+++++hFX$\"+5H\"FX7$$\"+++++zFX$\"+ir(fH\"FX7$$FNFX$\"+3;(**H\"FX7$$\" +++++\")FX$\"+:X#RI\"FX7$$\"+++++#)FX$\"+@o$yI\"FX7$$\"+++++$)FX$\"+M% 48FX7$$\"+++++') FX$\"+5x4B8FX7$$\"+++++()FX$\"+0+#oK\"FX7$$\"+++++))FX$\"+$p10L\"FX7$$ \"+++++*)FX$\"+:&eTL\"FX7$$FSFX$\"+%=wxL\"FX7$$\"+++++\"*FX$\"+\"Rg8M \"FX7$$\"+++++#*FX$\"+2=\"\\M\"FX7$$\"+++++$*FX$\"+!3J%[8FX7$$\"+++++% *FX$\"+R)=>N\"FX7$$\"+++++&*FX$\"+%pv`N\"FX7$$\"+++++'*FX$\"+OA!)e8FX7 $$\"+++++(*FX$\"+S!*>i8FX7$$\"+++++)*FX$\"+hmcl8FX7$$\"+++++**FX$\"+Uc !*o8FX7$$F*!\"*$\"+0l@s8FX" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#-&%'_plo tsG6#%*pointplotG6$7aq7$$\"\"!F,/%#XiGF.7$$\"+++++5!#6$\"+;h\"4.\"F27$ $\"+++++?F2$\"+I?VeIF27$$\"+++++IF2$\"+.tv]TF27$$\"+++++SF2$\"+P1%4!\\ F27$$\"+++++]F2$\"+5Q`taF27$$\"+++++gF2$\"+(y\"[PfF27$$\"+++++qF2$\"+@ T:GjF27$$\"+++++!)F2$\"+uh3mmF27$$\"+++++!*F2$\"+B*[U'pF27$$F1!#5$\"+m ONJsF27$$\"+++++6Fin$\"+P4`tuF27$$\"+++++7Fin$\"+vqD&p(F27$$\"+++++8Fi n$\"+h&**)**yF27$$\"+++++9Fin$\"+J\\0!4)F27$$\"+++++:Fin$\"+1swn#)F27$ $\"+++++;Fin$\"+VTnM%)F27$$\"+++++Fin$\"+v!pF)))F27$$F7Fin$\"+gXo**F27$$\"+++++HF in$\"+'=,:+\"Fin7$$F5Fin7$$\" +++++KFin$\"+1chG5Fin7$$\"+++++LFin$\"+1#fr.\"Fin7$$\"+++++MFin$\"+(zz a/\"Fin7$$\"+++++NFin$\"+=+f`5Fin7$$\"+++++OFin$\"+J9]h5Fin7$$\"+++++P Fin$\"+\\YAp5Fin7$$\"+++++QFin$\"+F%pn2\"Fin7$$\"+++++RFin$\"+jZ9%3\"F in7$$FAFin$\"+m*e84\"Fin7$$\"+++++TFin$\"+L(>%)4\"Fin7$$\"+++++UFin$\" +,UL06Fin7$$\"+++++VFin$\"+2!4@6\"Fin7$$\"+++++WFin$\"+G.v=6Fin7$$\"++ +++XFin$\"+GRED6Fin7$$\"+++++YFin$\"+#>b;8\"Fin7$$\"+++++ZFin$\"+e\"Hz 8\"Fin7$$\"+++++[Fin$\"+]04W6Fin7$$\"+++++\\Fin$\"+*zV,:\"Fin7$$FFFin$ \"+qI4c6Fin7$$\"+++++^Fin$\"+&GU>;\"Fin7$$\"+++++_Fin$\"+P^pn6Fin7$$\" +++++`Fin$\"+5^Nt6Fin7$$\"+++++aFin$\"+(\\D*y6Fin7$$\"+++++bFin$\"+5%4 W=\"Fin7$$\"+++++cFin$\"+'z4)*=\"Fin7$$\"+++++dFin$\"+Y%H^>\"Fin7$$\"+ ++++eFin$\"+45P+7Fin7$$\"+++++fFin$\"++q`07Fin7$$FKFin$\"+5)H1@\"Fin7$ $\"+++++hFin$\"+5H\"Fin7$$\"+++++zFin$ \"+ir(fH\"Fin7$$FUFin$\"+3;(**H\"Fin7$$\"+++++\")Fin$\"+:X#RI\"Fin7$$ \"+++++#)Fin$\"+@o$yI\"Fin7$$\"+++++$)Fin$\"+M%48Fin7$$\"+++++')Fin$\"+5x4B8Fin7$$ \"+++++()Fin$\"+0+#oK\"Fin7$$\"+++++))Fin$\"+$p10L\"Fin7$$\"+++++*)Fin $\"+:&eTL\"Fin7$$FZFin$\"+%=wxL\"Fin7$$\"+++++\"*Fin$\"+\"Rg8M\"Fin7$$ \"+++++#*Fin$\"+2=\"\\M\"Fin7$$\"+++++$*Fin$\"+!3J%[8Fin7$$\"+++++%*Fi n$\"+R)=>N\"Fin7$$\"+++++&*Fin$\"+%pv`N\"Fin7$$\"+++++'*Fin$\"+OA!)e8F in7$$\"+++++(*Fin$\"+S!*>i8Fin7$$\"+++++)*Fin$\"+hmcl8Fin7$$\"+++++**F in$\"+Uc!*o8Fin7$$F1!\"*$\"+0l@s8Fin/%&styleG%%lineG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "plots[pointplot]([seq([x/100.,R(x/100)],x =1..100)],style=line\n);" }}{PARA 13 "" 1 "" {GLPLOT2D 479 479 479 {PLOTDATA 2 "6$-%'CURVESG6#7`q7$$\"+++++5!#6$\"+;h\"4.\"F*7$$\"+++++?F *$\"+I?VeIF*7$$\"+++++IF*$\"+.tv]TF*7$$\"+++++SF*$\"+P1%4!\\F*7$$\"+++ ++]F*$\"+5Q`taF*7$$\"+++++gF*$\"+(y\"[PfF*7$$\"+++++qF*$\"+@T:GjF*7$$ \"+++++!)F*$\"+uh3mmF*7$$\"+++++!*F*$\"+B*[U'pF*7$$F)!#5$\"+mONJsF*7$$ \"+++++6FW$\"+P4`tuF*7$$\"+++++7FW$\"+vqD&p(F*7$$\"+++++8FW$\"+h&**)** yF*7$$\"+++++9FW$\"+J\\0!4)F*7$$\"+++++:FW$\"+1swn#)F*7$$\"+++++;FW$\" +VTnM%)F*7$$\"+++++FW$\"+v!pF)))F*7$$F/FW$\"+gXo**F*7$$\"+++++HFW$\"+'=,:+\"FW7$$F4FW$\"+,E! 3,\"FW7$$\"+++++JFW$\"+Y^$)>5FW7$$\"+++++KFW$\"+1chG5FW7$$\"+++++LFW$ \"+1#fr.\"FW7$$\"+++++MFW$\"+(zza/\"FW7$$\"+++++NFW$\"+=+f`5FW7$$\"+++ ++OFW$\"+J9]h5FW7$$\"+++++PFW$\"+\\YAp5FW7$$\"+++++QFW$\"+F%pn2\"FW7$$ \"+++++RFW$\"+jZ9%3\"FW7$$F9FW$\"+m*e84\"FW7$$\"+++++TFW$\"+L(>%)4\"FW 7$$\"+++++UFW$\"+,UL06FW7$$\"+++++VFW$\"+2!4@6\"FW7$$\"+++++WFW$\"+G.v =6FW7$$\"+++++XFW$\"+GRED6FW7$$\"+++++YFW$\"+#>b;8\"FW7$$\"+++++ZFW$\" +e\"Hz8\"FW7$$\"+++++[FW$\"+]04W6FW7$$\"+++++\\FW$\"+*zV,:\"FW7$$F>FW$ \"+qI4c6FW7$$\"+++++^FW$\"+&GU>;\"FW7$$\"+++++_FW$\"+P^pn6FW7$$\"+++++ `FW$\"+5^Nt6FW7$$\"+++++aFW$\"+(\\D*y6FW7$$\"+++++bFW$\"+5%4W=\"FW7$$ \"+++++cFW$\"+'z4)*=\"FW7$$\"+++++dFW$\"+Y%H^>\"FW7$$\"+++++eFW$\"+45P +7FW7$$\"+++++fFW$\"++q`07FW7$$FCFW$\"+5)H1@\"FW7$$\"+++++hFW$\"+5H\"FW7$ $\"+++++zFW$\"+ir(fH\"FW7$$FMFW$\"+3;(**H\"FW7$$\"+++++\")FW$\"+:X#RI \"FW7$$\"+++++#)FW$\"+@o$yI\"FW7$$\"+++++$)FW$\"+M%48FW7$$\"+++++')FW$\"+5x4B8FW7$$\"+ ++++()FW$\"+0+#oK\"FW7$$\"+++++))FW$\"+$p10L\"FW7$$\"+++++*)FW$\"+:&eT L\"FW7$$FRFW$\"+%=wxL\"FW7$$\"+++++\"*FW$\"+\"Rg8M\"FW7$$\"+++++#*FW$ \"+2=\"\\M\"FW7$$\"+++++$*FW$\"+!3J%[8FW7$$\"+++++%*FW$\"+R)=>N\"FW7$$ \"+++++&*FW$\"+%pv`N\"FW7$$\"+++++'*FW$\"+OA!)e8FW7$$\"+++++(*FW$\"+S! *>i8FW7$$\"+++++)*FW$\"+hmcl8FW7$$\"+++++**FW$\"+Uc!*o8FW7$$F)!\"*$\"+ 0l@s8FW-%&STYLEG6#%%LINEG" 1 6 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 "23 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }