{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 112 "avance:=proc(A,B,x, i) local U:\n U:=B-A:\n if x=0 then B+U fi:\n if x=1 then B+( -1)^i*[U[2],-U[1]] fi\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 139 "chemin:=proc(mot) local L,i,n:\n L:=[0,0],[1,0]:\n for i \+ to nops(mot) do\nn:=nops([L]):\nL:=L,avance(L[n-1],L[n],mot[i],i) od: \n[L]\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 179 "fib:=proc(n ) local a,b,i,c:\n a,b:=1,0:\n if n=1 then a\n elif n=2 then \+ b\n else\n for i to n-2 do c:=a: a:=b: b:=b,c od fi:\nb:=se q(b[i],i=1..nops([b])-1);\n[b]\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "n:=6:fi b(n);plot(chemin(fib(n)),color=red,axes=none,scaling=constrained);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7)\"\"!\"\"\"F$F$F%F$F%" }}{PARA 13 "" 1 "" {GLPLOT2D 309 315 315 {PLOTDATA 2 "6(-%'CURVESG6#7'7$$\"\"!F)F (7$$\"\"\"F)F(7$F+$!\"\"F)7$$\"\"#F)F.7$F1F(-%'COLOURG6&%$RGBG$\"*++++ \"!\")F(F(-%+AXESLABELSG6$Q!6\"F>-%*AXESSTYLEG6#%%NONEG-%(SCALINGG6#%, CONSTRAINEDG-%%VIEWG6$%(DEFAULTGFK" 1 2 0 1 10 0 2 6 1 1 1 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 8 "" 1 "" {TEXT -1 22 "Error, `]` unexpected \n" }}}}{MARK "5 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }