{VERSION 2 3 "IBM INTEL NT" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 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 }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 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 32 "IMAFA 2002-2003 TD 5: Divi dendes" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "restart; with(plo ttools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "r:=0.1:sigma:= 0.3:n:=8:k:=5:delta_t:=1/n:up:=exp(sigma*sqrt(delta_t)):down:=1/up:S0: =100:Div:=S0*0.03:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "S:=pr oc(i,j1,j2) option remember;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "if \+ i=0 then S0:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "else if i " 0 "" {MPLTEXT 1 0 39 " then if j1=0 then S(i- 1,0,0)*down:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 " else S(i- 1,j1-1,0)*up fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 " else if i= k #donc j2=0" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 53 " then if \+ j1=0 then S(i-1,0,0)*down - Div " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 " else S(i-1,j1-1,0)*up - Div fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 " else # donc i>k" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 " if j2=0 then S(i-1,j1,0)*down" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 " else S(i-1,j1,j2-1) *up fi;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}{PARA 12 "" 1 " " {XPPMATH 20 "6#>%\"SG:6%%\"iG%#j1G%#j2G6\"6#%)rememberGF*@%/9$\"\"!% #S0G@%2F/%\"kG@%/9%F0*&-F$6%,&F/\"\"\"!\"\"FF<*&-F$6%F;F7,&FLF " 0 " " {MPLTEXT 1 0 37 "Arbre:=proc(i,j1,j2) option remember;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "if i=n then # on ne fait rien!" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "else if i>=k then line([i,S(i,j1,j2)],[i+1,S( i,j1,j2)*up])" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 " , Arbre(i+1,j1,j2+1)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 60 " \+ ,line([i,S(i,j1,j2)],[i+1,S(i,j1,j2)*down])" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 " ,Arbre(i+1,j1,j2)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 " else # donc j2=0" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 " line([i,S(i,j1,0)],[i+1,S(i,j1,0)*up])" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 " ,Arbre(i+1,j1+1,0)" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 " ,line([i,S(i,j1,0)],[i+1,S (i,j1,0)*down])" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " ,Arbre( i+1,j1,0)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " fi:" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 3 "fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&ArbreG:6%%\"iG%#j1G%#j2G6\"6#%)re memberGF*@%/9$%\"nGF*@%1%\"kGF/6&-%%lineG6$7$F/-%\"SG6%F/9%9&7$,&F/\" \"\"F@F@*&F9F@%#upGF@-F$6%F?F<,&F=F@F@F@-F66$F87$F?*&F9F@%%downGF@-F$6 %F?F " 0 "" {MPLTEXT 1 0 42 "dessin:=Arbre(0,0):plots[display](dessin);" }}{PARA 13 "" 1 " " {INLPLOT "6jjl-%'CURVESG6#7$7$\"\"!$\"$+\"F(7$$\"\"\"F($\"+y_*=6\"! \"(-F$6#7$F+7$$\"\"#F($\"+46JO7F0-F$6#7$F47$$\"\"$F($\"+&[[YP\"F0-F$6# 7$F<7$$\"\"%F($\"+f^YG:F0-F$6#7$FD7$$\"\"&F($\"+$>$\\*p\"F0-F$6#7$7$FM $\"+$>$\\p;F07$$\"\"'F($\"+)f,j&=F0-F$6#7$FW7$$\"\"(F($\"+\")H,k?F0-F$ 6#7$Fin7$$\"\")F($\"+)Gm\\H#F0-F$6#7$Fin7$FboFZ-F$6#7$FW7$FjnFU-F$6#7$ F]pFio-F$6#7$F]p7$Fbo$\"+,U[,:F0-F$6#7$FT7$FXFep-F$6#7$FjpF]pF^pFap-F$ 6#7$Fjp7$Fjn$\"+[FQ]8F0-F$6#7$FaqFdp-F$6#7$Faq7$Fbo$\"+[t[97F0-F$6#7$F D7$FMF?-F$6#7$7$FM$\"+&[[YM\"F07$FX$\"+,$3^\\\"F0-F$6#7$Fgr7$Fjn$\"+gQ Si;F0-F$6#7$F]s7$Fbo$\"+.!>%[=F0-F$6#7$F]s7$FboFhr-F$6#7$Fgr7$FjnFer-F $6#7$F]tFis-F$6#7$F]t7$Fbo$\"+_,L47F0-F$6#7$Fdr7$FXFet-F$6#7$FjtF]tF^t Fat-F$6#7$Fjt7$Fjn$\"+U&Hw3\"F0-F$6#7$FauFdt-F$6#7$Fau7$Fbo$\"+!RiI(*F]v-F$6#7$F\\w7$FXF ]y-F$6#7$FbyFexFfxFix-F$6#7$Fby7$Fjn$\"+h`*4v)F]v-F$6#7$FiyF\\y-F$6#7$ Fiy7$Fbo$\"+E8MqyF]v-F$6#7$F47$F=F.-F$6#7$FhzFavFbvFarFjrF`sFfsFjsF^tF atFgtF[uF^tFatF^uFduFguFevFivFbwFhwF^xFbxFfxFixF_yFcyFfxFixFfyF\\zF_z- F$6#7$Fhz7$FEF)-F$6#7$F_[lFhvFivFbwFhwF^xFbxFfxFixF_yFcyFfxFixFfyF\\zF _z-F$6#7$F_[l7$FM$\"+GFl$**)F]v-F$6#7$7$FM$\"+GFl$p)F]v7$FX$\"+<9Vm'*F ]v-F$6#7$F_\\l7$Fjn$\"+Xf![2\"F0-F$6#7$Fe\\l7$Fbo$\"+b;2&>\"F0-F$6#7$F e\\l7$FboF`\\l-F$6#7$F_\\l7$FjnF]\\l-F$6#7$Fe]lFa]l-F$6#7$Fe]l7$Fbo$\" +d$p(=yF]v-F$6#7$F\\\\l7$FXF]^l-F$6#7$Fb^lFe]lFf]lFi]l-F$6#7$Fb^l7$Fjn $\"+P'H>.(F]v-F$6#7$Fi^lF\\^l-F$6#7$Fi^l7$Fbo$\"+8LFCjF]v-F$6#7$F+7$F5 F)-F$6#7$Fh_lFhzFizFbvFarFjrF`sFfsFjsF^tFatFgtF[uF^tFatF^uFduFguFevFiv FbwFhwF^xFbxFfxFixF_yFcyFfxFixFfyF\\zF_zF\\[lF`[lFivFbwFhwF^xFbxFfxFix F_yFcyFfxFixFfyF\\zF_zFc[lFi[lFb\\lFh\\lF^]lFb]lFf]lFi]lF_^lFc^lFf]lFi ]lFf^lF\\_lF__l-F$6#7$Fh_l7$F=Fg[l-F$6#7$F_`lF_[lF`[lFivFbwFhwF^xFbxFf xFixF_yFcyFfxFixFfyF\\zF_zFc[lFi[lFb\\lFh\\lF^]lFb]lFf]lFi]lF_^lFc^lFf ]lFi]lFf^lF\\_lF__l-F$6#7$F_`l7$FE$\"+R*y&)3)F]v-F$6#7$Ff`lFf[lFi[lFb \\lFh\\lF^]lFb]lFf]lFi]lF_^lFc^lFf]lFi]lFf^lF\\_lF__l-F$6#7$Ff`l7$FM$ \"+/qeusF]v-F$6#7$7$FM$\"+/qeupF]v7$FX$\"+c.,bxF]v-F$6#7$Fhal7$Fjn$\"+ %RfFi)F]v-F$6#7$F^bl7$Fbo$\"+fag(e*F]v-F$6#7$F^bl7$FboFial-F$6#7$Fhal7 $FjnFfal-F$6#7$F^clFjbl-F$6#7$F^cl7$Fbo$\"+V8qsiF]v-F$6#7$Feal7$FXFfcl -F$6#7$F[dlF^clF_clFbcl-F$6#7$F[dl7$Fjn$\"+c(\\9k&F]v-F$6#7$FbdlFecl-F $6#7$Fbdl7$Fbo$\"+'*Rst]F]v-F$6#7$F'7$F,Fg[l-F$6#7$FaelFh_lFi_lFizFbvF arFjrF`sFfsFjsF^tFatFgtF[uF^tFatF^uFduFguFevFivFbwFhwF^xFbxFfxFixF_yFc yFfxFixFfyF\\zF_zF\\[lF`[lFivFbwFhwF^xFbxFfxFixF_yFcyFfxFixFfyF\\zF_zF c[lFi[lFb\\lFh\\lF^]lFb]lFf]lFi]lF_^lFc^lFf]lFi]lFf^lF\\_lF__lF\\`lF`` lF`[lFivFbwFhwF^xFbxFfxFixF_yFcyFfxFixFfyF\\zF_zFc[lFi[lFb\\lFh\\lF^]l Fb]lFf]lFi]lF_^lFc^lFf]lFi]lFf^lF\\_lF__lFc`lFi`lFi[lFb\\lFh\\lF^]lFb] lFf]lFi]lF_^lFc^lFf]lFi]lFf^lF\\_lF__lF\\alFbalF[blFablFgblF[clF_clFbc lFhclF\\dlF_clFbclF_dlFedlFhdl-F$6#7$Fael7$F5Fg`l-F$6#7$FhelF_`lF``lF` [lFivFbwFhwF^xFbxFfxFixF_yFcyFfxFixFfyF\\zF_zFc[lFi[lFb\\lFh\\lF^]lFb] lFf]lFi]lF_^lFc^lFf]lFi]lFf^lF\\_lF__lFc`lFi`lFi[lFb\\lFh\\lF^]lFb]lFf ]lFi]lF_^lFc^lFf]lFi]lFf^lF\\_lF__lF\\alFbalF[blFablFgblF[clF_clFbclFh clF\\dlF_clFbclF_dlFedlFhdl-F$6#7$Fhel7$F=F`al-F$6#7$F_flFf`lFi`lFi[lF b\\lFh\\lF^]lFb]lFf]lFi]lF_^lFc^lFf]lFi]lFf^lF\\_lF__lF\\alFbalF[blFab lFgblF[clF_clFbclFhclF\\dlF_clFbclF_dlFedlFhdl-F$6#7$F_fl7$FE$\"+E4^Ul F]v-F$6#7$FfflF_alFbalF[blFablFgblF[clF_clFbclFhclF\\dlF_clFbclF_dlFed lFhdl-F$6#7$Fffl7$FM$\"+Br5%)eF]v-F$6#7$7$FM$\"+Br5%e&F]v7$FX$\"+UB%*3 iF]v-F$6#7$Fhgl7$Fjn$\"+qOp.pF]v-F$6#7$F^hl7$Fbo$\"+(R%=wwF]v-F$6#7$F^ hl7$FboFigl-F$6#7$Fhgl7$FjnFfgl-F$6#7$F^ilFjhl-F$6#7$F^il7$Fbo$\"+E?:A ]F]v-F$6#7$Fegl7$FXFfil-F$6#7$F[jlF^ilF_ilFbil-F$6#7$F[jl7$Fjn$\"+G\" \\n^%F]v-F$6#7$FbjlFeil-F$6#7$Fbjl7$Fbo$\"+4t?iSF]v" 2 738 439 439 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }