{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 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 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 21 "restart:\nwith(plots ):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has \+ been redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "H := x \+ -> r*x/(1+x)^b;\ndH :=x -> r*(1+x-b*x)/(1+x)^(1+b);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"HGR6#%\"xG6\"6$%)operatorG%&arrowGF(*&*&%\"rG\"\" \"9$F/F/),&F/F/F0F/%\"bG!\"\"F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%#dHGR6#%\"xG6\"6$%)operatorG%&arrowGF(*&*&%\"rG\"\"\",(F/F/9$F/*&% \"bGF/F1F/!\"\"F/F/),&F/F/F1F/,&F/F/F3F/F4F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 149 "r := 10.0;\nb := 5;\nn := 16:\nx0 := 1/(b-1) ;\nxmax := 1.2*H(x0);\np := evalf(r^(1/b)-1);\nevalf(dH(p));\nxc := ev alf(1/(b-1));\nxc1 := H(xc);\nxc2 := H(xc1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG$\"$+%!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% \"bG\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G#\"\"\"\"\"%" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%%xmaxG$\"+++;KR!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pG$\"+0\"z74\"!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$!+^(=\"4;!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#xc G$\"+++++D!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$xc1G$\"+,+!oF$!\"* " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$xc2G$\"+lkTg\"*!#6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 223 "pic := \{plot(\{H(x),x\}, x=0..xma x,color = black,thickness=2)\}:\nfor i from 1 to n do\n x1:= H( x0):\n pic := pic union \{plot([[x0,x0],[x0,x1],[x1,x1]], color = black,thickness=2)\}:\n x0:=x1:\nod:\ndisplay(pic);" }} {PARA 13 "" 1 "" {GLPLOT2D 378 378 378 {PLOTDATA 2 "66-%'CURVESG6%7%7$ $\"36+++!)>R5@!#=F(7$F($\"33+++?*\\1C$!#<7$F,F,-%'COLOURG6&%$RGBG\"\"! F4F4-%*THICKNESSG6#\"\"#-F$6%7%7$$\"3!*******QVbXKF.F=7$F=$\"3:+++9.*= T*!#>7$F@F@F0F5-F$6%7%7$$\"3;+++++!oF$F.FH7$FH$\"3q*****zZ;/;*FB7$FKFK F0F5-F$6%7%FM7$FK$\"3y*****f*)4SO#F.7$FRFRF0F5-F$6%7%FT7$FR$\"31+++T:% \\>#F*7$FYFYF0F5-F$6%7%F/7$F,$\"3y*****4(o8_%*FB7$FjnFjnF0F5-F$6%7do7$ $F4F4Fao7$$\"31+++3'ooN&!#?$\"3G#GB+Gmi3#F*7$$\"3-++g@PPr5FB$\"3oUgH#e CJ1%F*7$$\"3>++S#egqg\"FB$\"3#4]Ott6d$fF*7$$\"3-++?VuuU@FB$\"3T')y?jd \"*3xF*7$$\"3Q++![;@T@$FB$\"3'\\%*\\*zeb(4\"F.7$$\"3/++S')[\\&G%FB$\"3 +$4w[Al(*Q\"F.7$$\"3S+++3'ooN&FB$\"3#\\]y>`c1l\"F.7$$\"3v++gHBCGkFB$\" 3G:Z;:d2$)=F.7$$\"3U++?^gh*\\(FB$\"3)z[1gB1'*3#F.7$$\"33++!Gx*)4d)FB$ \"3%y$>?mYfsAF.7$$\"34+?f'GQN/\"F*$\"3i%R&H&pJ6a#F.7$$\"30+S!ffx*H7F*$ \"3IThQQmiaFF.7$$\"3++g@0pT;9F*$\"39Is;!yt9#HF.7$$\"34+!GX@cGg\"F*$\"3 k*3aV]2)[IF.7$$\"3;+!GprED\"=F*$\"3G#\\hpm?B:$F.7$$\"3B+!G$>s>A?F*$\"3 '3&pNBP!3A$F.7$$\"3E+!G0ZKq7#F*$\"3?1e]?[&QC$F.7$$\"3I+!GBMwKF.7$$\"3;++se&)f_EF*$\"3#*yX (f_Z@F$F.7$$\"3M+g,E(G\"eFF*$\"3y$Q*H\"*3#RE$F.7$$\"3_+?J$*)eO'GF*$\"3 =![&RE61_KF.7$$\"3K+S!zA>Z2$F*$\"3yL(e8>r)=KF.7$$\"3o+g\\i&zdG$F*$\"3/ #Hr6PU^<$F.7$$\"3K+S#e'R*eq$F*$\"3e*=?>#))*[1$F.7$$\"3)***>:p$3g7%F*$ \"35La\"o&3AMHF.7$$\"3D+gpH!3]!\\F*$\"3[tK&['f4nEF.7$$\"3D+!on0<;r&F*$ \"3UN2T$)GC'Q#F.7$$\"37+?VmK\"ea'F*$\"3:iPBP2Y6@F.7$$\"3)3+s#)>MtP(F*$ \"3=$3[hVuA'=F.7$$\"3Y,Se$obEB)F*$\"3$RFellpVj\"F.7$$\"3K+!3MJBg)*)F*$ \"3KK3MgI*pX\"F.7$$\"3c,?&*Ho8M)*F*$\"3ILi]hF`\"G\"F.7$$\"3'***z?yKdo5 F.$\"3tt<(GF@&G6F.7$$\"33+[)yKS1:\"F.$\"3'H86K**p.+\"F.7$$\"3,+_:r];D7 F.$\"3#zi`#QcX$)*)F*7$$\"3?+74*>#y88F.$\"3I,c+*)Q[CzF*7$$\"39+3QID&))Q \"F.$\"3G!o#=U3jnEYF*7$$\"3O++'p&))H.=F.$\"3SjW0Y$*emTF*7$$\"3O+WT&ow1)=F.$ \"3gK`PB+H#z$F*7$$\"31+SyE\"RT'>F.$\"3At4&f\"z^LMF*7$$\"3M+_nYJ$30#F.$ \"3vQm0)zIQ5$F*7$$\"30+K%ea+j7#F.$\"3_^4`V6%z%GF*7$$\"31+;W/u!y?#F.$\" 3wm'*3B$Q+g#F*7$$\"3))*fD['>,#H#F.$\"3G&R8i147P#F*7$$\"3=+#z$*p*QuBF.$ \"3#p]>'\\*z3<#F*7$$\"3/+SM$R%4aCF.$\"3KH\"[CD]l*>F*7$$\"3'**f8n'GfUDF .$\"3G=u2YYwA=F*7$$\"37+[;\"o7@i#F.$\"3]$*=M#p#H#o\"F*7$$\"3J+gDcq,2FF .$\"3K80%*p#yna\"F*7$$\"3/++ORI&Ry#F.$\"3phqLzpYN9F*7$$\"3M+)[.Rk!oGF. $\"3ti3G/=*[K\"F*7$$\"3!**Rymh1s%HF.$\"3SDKbP!H.B\"F*7$$\"3<+)))p/L*HI F.$\"3g%=cb%*f-9\"F*7$$\"37+?j`K\"36$F.$\"39$p;([R(*f5F*7$$\"33++SMt[& >$F.$\"3jhmqEp(H$)*FB7$$\"3k+G$z`QqF$F.$\"3wjwra*G&e\"*FB7$$\"3[+kCAkV gLF.$\"3jECf`zFB7$$\"3n+;7cJ9>NF .$\"3yXL(>V3#ouFB7$$\"3W+3-vqC1OF.$\"3#pMjXK;j&pFB7$$\"3M+wXeQ:%o$F.$ \"3'*4:[Ee%\\`'FB7$$\"3g+/zQ(=sw$F.$\"3p]&px\\c+7'FB7$$\"3g+)3\"GCsYQF .$\"3uwvG4$3Kv&FB7$$\"35+++++;KRF.$\"3m3&H\">`'*)Q&FBF0F5-F$6%7SF`o7$F arFar7$FesFes7$FcuFcu7$FawFaw7$F[xF[x7$F`xF`x7$FexFex7$FjxFjx7$F_yF_y7 $FdyFdy7$FiyFiy7$F^zF^z7$FczFcz7$FhzFhz7$F][lF][l7$Fb[lFb[l7$Fg[lFg[l7 $F\\\\lF\\\\l7$Fa\\lFa\\l7$Ff\\lFf\\l7$F[]lF[]l7$F`]lF`]l7$Fe]lFe]l7$F j]lFj]l7$F_^lF_^l7$Fd^lFd^l7$Fi^lFi^l7$F^_lF^_l7$Fc_lFc_l7$Fh_lFh_l7$F ]`lF]`l7$Fb`lFb`l7$Fg`lFg`l7$F\\alF\\al7$FaalFaal7$FfalFfal7$F[blF[bl7 $F`blF`bl7$FeblFebl7$FjblFjbl7$F_clF_cl7$FdclFdcl7$FiclFicl7$F^dlF^dl7 $FcdlFcdl7$FhdlFhdl7$F]elF]el7$FbelFbelF0F5-F$6%7%F\\o7$Fjn$\"35+++>%f pS#F.7$F]ilF]ilF0F5-F$6%7%F_il7$F]il$\"3-++++8Y(4#F*7$FdilFdilF0F5-F$6 %7%7$$\"3A+++O7f*Q#F.F[jl7$F[jl$\"30+++u[AO@F*7$F^jlF^jlF0F5-F$6%7%F`j l7$F^jlF=F " 0 "" {MPLTEXT 1 0 20 "a := evalf( 3^(3/2));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG$\"+CC:'>&!\"*" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "g := z -> -a*z^18 + 4+a^3 + \+ 12*a^2*z + 12*a*z^2 +4*z ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gGR6 #%\"zG6\"6$%)operatorG%&arrowGF(,.*&%\"aG\"\"\")9$\"#=F/!\"\"\"\"%F/*$ )F.\"\"$F/F/*(\"#7F/)F.\"\"#F/F1F/F/*(F9F/F.F/)F1F;F/F/*&F4F/F1F/F/F(F (F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "g(a);\nplot(g(z), z= a..2*a);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$!+.nPiR\"\"%" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7W7$$\"35+ ++CC:'>&!#<$!3c,g+.nPiR!\"%7$$\"3_@I]fPT4`F*$!3pa\\2@KWTeF-7$$\"3KH\"> >%='zS&F*$!31RKK!yyO8)F-7$$\"3tM#=uY*y=bF*$!3s1:Y*fY=<\"!\"$7$$\"3$f)* f.t^.j&F*$!31aD2.n/!o\"F=7$$\"3x%3Stv$QTdF*$!31CUZIFq(Q#F=7$$\"3$4TR%f YKWeF*$!3wB-V@$exG$F=7$$\"3?5N*4+94&fF*$!3QpOF%y]=b%F=7$$\"33*Q10&)[61 'F*$!3DTyy$o'*QL'F=7$$\"3qP)eaQ5OQ'F*$!3].`\"o*z=5;F[o7$$\"3)RUbQL%o&\\' F*$!3vCL(=!Hd-AF[o7$$\"3*Gbc@Z=#3mF*$!3+S5Ch0b+IF[o7$$\"3sW%yk'fm;nF*$ !3]2&**R$y1ASF[o7$$\"3i\\$y2oY^\"oF*$!3+)zs^!ozE_F[o7$$\"3bd&R`x\\A$pF *$!3+1#f)RFg-rF[o7$$\"3S-6(oX^9.(F*$!3+U34%Q\"es\"*F[o7$$\"3mbah&fYo9( F*$!3![9xofQ&H7!\"\"7$$\"3S%*zNY3**[sF*$!3SSNpx'ote\"Fdq7$$\"3_7aTy#f5 O(F*$!3g()>w')4A#4#Fdq7$$\"3Wp'4w#\\xnuF*$!3S==,'fk4r#Fdq7$$\"3gJrL7:7 zvF*$!3SU=$p2>&QNFdq7$$\"33\\)edVs8o(F*$!3!3s)>@l\"Q]%Fdq7$$\"3M9\"*Gq Qm\"z(F*$!3?F\"Rz*eP@eFdq7$$\"3^%3BRnDi!zF*$!3!3E%zYHbqvFdq7$$\"3)Rah2 1_f+)F*$!3gh:;?)4n[*Fdq7$$\"3LA2k!HfO6)F*$!3/zw$)yll17\"\"!7$$\"3mUfE) RJ\\A)F*$!3Wtf67T#>a\"Fbt7$$\"3<-i3Z%*yL$)F*$!3+;!G6Z_O&>Fbt7$$\"3E(Q' p1_6R%)F*$!3c#))*GA>@\\CFbt7$$\"3SwI>0:1c&)F*$!3![)e(*=XqPJFbt7$$\"3)G 5*ybH9h')F*$!3gDgJM1'Fbt7$$\"3+1b\\;e:')*)F*$!3Si5;%)3+'e(Fbt7$$ \"3)*HsI.$Q24*F*$!3%ev-q-xDM*Fbt7$$\"3k5$*4Or0+#*F*$!3;CpFu2ae6\"\"\"7 $$\"3a%*p\"oFOpI*F*$!3['R<)*zuiU\"Few7$$\"3&=<0@$)G)=%*F*$!395R;CfeoY]V4Y(*F*$!3Y[eT\"3T1F$Few7$$\"3m[8I%yBl%)*F*$!3^+KcZ'fM$RF ew7$$\"3/=r$*[sih**F*$!3gycK`$>([[Few7$$\"3mT,W?-J,5!#;$!3>X/5yE2?`Few 7$$\"3Mrl)frdk+\"F\\z$!3i*>(p[5ZMeFew7$$\"30LN')>g%>,\"F\\z$!3)\\LE4') *[MkFew7$$\"3w%\\SPKMu,\"F\\z$!3QK_)HceC4(Few7$$\"3^UD%3L(oA5F\\z$!3G` ^+xmK\"y(Few7$$\"33!fWzLSz-\"F\\z$!3h3Nd5!\\I`)Few7$$\"31&Hs9T&eL5F\\z $!3LR\"fRX'3<%*Few7$$\"3/+++&[I#R5F\\z$!3/2O7#G8(Q5\"\"#-%'COLOURG6&%$ RGBG$\"#5Fdq$FbtFbtFi\\l-%+AXESLABELSG6$Q\"z6\"Q!6\"-%%VIEWG6$;$\"+CC: '>&!\"*$\"+&[I#R5!\")%(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 92 "r := 40:\nb := 5:\nn := 50:\nx0 := evalf(1/(b-1));\nf or i from 1 to n do\n x0:= H(x0);\nod;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+++++D!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %#x0G$\"+,+!oF$!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+lkTg \"*!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+$*)4SO#!\"*" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+[:%\\>#!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+2*\\_D$!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+12&HL*!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\" +U7f*Q#!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+g[AO@!#5" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+KVbXK!\"*" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#x0G$\"+n.*=T*!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%#x0G$\"+%3A6S#!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+w> R5@!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+9*\\1C$!\"*" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+Dp8_%*!#6" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#x0G$\"+L%fpS#!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+p7Y(4#!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+_R /QK!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+N)3OZ*!#6" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+#Gi+T#!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+2xi!4#!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+&[DmB$!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+ \"z@`[*!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+R:v6C!\"*" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+9*=p3#!#5" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#x0G$\"+8O%eB$!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+ldy\"\\*!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+ sFo7C!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+Wy([3#!#5" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+\"p4aB$!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+\"\\v`\\*!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+?'*>8C!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%#x0G$\"+$3YP3#!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+qz;N K!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+9fP(\\*!#6" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+Yv[8C!\"*" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#x0G$\"+If6$3#!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%#x0G$\"+OI.NK!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+EG \\)\\*!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+v#[OT#!\"*" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+hUw#3#!#5" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#x0G$\"+Hw&\\B$!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+zq6*\\*!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$ \"+&4QPT#!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+rxc#3#!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+ia\"\\B$!\"*" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%#x0G$\"+xhY*\\*!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+B$)y8C!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%#x0G$\"+-zX#3#!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+v=*[ B$!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G$\"+^9m*\\*!#6" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 8 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }