{VERSION 6 1 "Windows XP" "6.1" }
{USTYLETAB {PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 
0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE 
"Dash Item" -1 16 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 
0 0 0 1 }1 1 0 -1 3 3 1 0 1 0 2 2 -1 3 }{PSTYLE "Heading 4" -1 20 1 
{CSTYLE "" -1 -1 "MS Serif" 1 12 0 0 0 0 1 0 0 2 2 2 0 0 0 1 }1 1 0 
-1 0 0 1 0 1 0 2 2 -1 1 }{PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 -1 "
MS Serif" 1 14 0 0 0 0 1 1 0 2 2 2 0 0 0 1 }1 1 0 -1 0 0 1 0 1 0 2 2 
-1 1 }{PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 
255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "A
uthor" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 0 0 0 0 2 2 2 0 0 
0 1 }3 1 0 -1 8 8 1 0 1 0 2 2 -1 1 }{PSTYLE "Heading 2" -1 4 1 
{CSTYLE "" -1 -1 "MS Serif" 1 16 0 0 0 0 0 1 0 2 2 2 0 0 0 1 }1 1 0 
-1 8 2 1 0 1 0 2 2 -1 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 
-1 "Courier" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 
0 2 2 -1 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "MS Serif" 1 
18 0 0 0 0 0 1 0 2 2 2 0 0 0 1 }1 1 0 -1 8 4 1 0 1 0 2 2 -1 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 0 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Plot" -1 13 
1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 
1 0 1 0 2 2 -1 1 }{PSTYLE "Line Printed Output" -1 6 1 {CSTYLE "" -1 
-1 "Courier" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 
0 2 2 -1 1 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 
0 0 0 1 1 2 2 2 0 0 0 1 }3 1 0 -1 12 12 1 0 1 0 2 2 -1 1 }{PSTYLE "Map
le Output" -1 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
 }3 3 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "List Item" -1 14 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 -1 3 
3 1 0 1 0 2 2 -1 5 }{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Ti
mes" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 -1 3 3 1 0 1 0 2 2 -1 2 }
{CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 0 1 0 2 1 2 0 0 0 
1 }{CSTYLE "2D Input" -1 19 "Times" 1 12 255 0 0 1 0 0 0 2 1 2 0 0 0 
1 }{CSTYLE "Hyperlink" -1 17 "MS Serif" 1 12 0 128 128 1 0 0 1 2 2 2 
0 0 0 1 }{CSTYLE "Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 
1 }{CSTYLE "2D Math" -1 2 "Times" 1 12 0 0 0 1 0 0 0 2 2 2 0 0 0 1 }
{CSTYLE "Dictionary Hyperlink" -1 45 "MS Serif" 1 12 147 0 15 1 0 0 1 
2 2 2 0 0 0 1 }{CSTYLE "Maple Input Placeholder" -1 201 "Courier" 1 
12 200 0 200 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 
1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }{CSTYLE "Page Number" -1 33 "Times
" 1 10 0 0 0 0 0 0 2 2 2 2 0 0 0 1 }{PSTYLE "_pstyle1" -1 200 1 
{CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 0 1 0 2 1 2 1 0 0 1 }1 1 0 
0 0 0 2 0 2 0 2 2 -1 1 }{CSTYLE "_cstyle1" -1 202 "Courier" 1 12 255 
0 0 1 0 1 0 2 1 2 0 0 0 1 }{PSTYLE "_pstyle2" -1 201 1 {CSTYLE "" -1 
-1 "Courier" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 
0 2 2 -1 1 }{CSTYLE "_cstyle2" -1 203 "Courier" 1 12 0 0 255 1 0 0 0 
2 2 2 0 0 0 1 }{PSTYLE "_pstyle3" -1 202 1 {CSTYLE "" -1 -1 "Courier" 
1 12 255 0 0 1 0 1 0 2 1 2 0 0 0 1 }0 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }
{PSTYLE "_pstyle4" -1 203 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 255 1 0 
0 0 2 2 1 0 0 0 1 }3 3 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{CSTYLE "_cstyle3"
 -1 204 "Times" 1 12 0 0 255 1 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "_cstyle4"
 -1 205 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }{PSTYLE "_pstyle5" -1 204 
1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }3 0 0 -1 -1 -1 
1 0 1 0 2 2 -1 1 }{CSTYLE "_cstyle5" -1 206 "Times" 0 1 0 0 0 0 0 0 0 
2 2 2 0 0 0 1 }{PSTYLE "_pstyle6" -1 205 1 {CSTYLE "" -1 -1 "" 0 1 0 
0 0 0 0 0 0 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{CSTYLE "_
cstyle6" -1 207 "Times" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }}
{SECT 0 {EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 36 "restart:with(plo
ttools):with(plots):" }{MPLTEXT 1 202 0 "" }}{PARA 201 "" 1 "" {TEXT 
203 49 "Warning, the name changecoords has been redefined" }{TEXT 203 
0 "" }}{PARA 201 "" 1 "" {TEXT 203 97 "Warning, the previous binding o
f the name arrow has been removed and it now has an assigned value" }
{TEXT 203 0 "" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 0 "" }}}
{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 200 "> \+
" 0 "" {MPLTEXT 1 202 12 "ini:=proc(a)" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 13 "\nlocal A,i,j;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 23 "\nA:=array(1..32,1..32):" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 22 "\nfor i from 1 to 32 do" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 
23 "\n for j from 1 to 32 do" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 88 
"\n  if i=14 and j=14 or i=14 and j=15 or i=14 and j=16 or i=14 and j=
17 or i=15 and j=13 " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 87 "\n  or \+
i=15 and j=18 or i=15 and j=13 or i=16 and j=13 or i=16 and j=15 or i=
16 and j=16" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 85 "\nor i=16 and j=
18 or i=17 and j=13 or i=17 and j=18 or i=18 and j=14 or i=18 and j=15
" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 84 "\nor i=18 and j=16 or i=18 \+
and j=17 or i=19 and j=14 or i=19 and j=17 then A[i,j]:=1;" }{MPLTEXT 
1 202 0 "" }{MPLTEXT 1 202 19 "\nelse A[i,j]:=0 fi:" }{MPLTEXT 1 202 
0 "" }{MPLTEXT 1 202 16 "\nod:od:evalm(A);" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 5 "\nend:" }{MPLTEXT 1 202 0 "" }}{PARA 202 "> " 0 "" 
{MPLTEXT 1 0 10 "A:=ini(1);" }{MPLTEXT 1 0 0 "" }}{PARA 203 "" 1 "" 
{XPPMATH 20 "6#>I\"AG6\"-I'matrixGF%6#7B7B\"\"!F+F+F+F+F+F+F+F+F+F+F+F
+F+F+F+F+F+F+F+F+F+F+F+F+F+F+F+F+F+F+F+F*F*F*F*F*F*F*F*F*F*F*F*7BF+F+F
+F+F+F+F+F+F+F+F+F+F+\"\"\"F-F-F-F+F+F+F+F+F+F+F+F+F+F+F+F+F+F+7BF+F+F
+F+F+F+F+F+F+F+F+F+F-F+F+F+F+F-F+F+F+F+F+F+F+F+F+F+F+F+F+F+7BF+F+F+F+F
+F+F+F+F+F+F+F+F-F+F-F-F+F-F+F+F+F+F+F+F+F+F+F+F+F+F+F+F.F,7BF+F+F+F+F
+F+F+F+F+F+F+F+F+F-F+F+F-F+F+F+F+F+F+F+F+F+F+F+F+F+F+F+F*F*F*F*F*F*F*F
*F*F*F*F*F*" }{TEXT 204 0 "" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 
202 0 "" }}}{EXCHG {PAGEBK }}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 
202 20 " successeur:=proc(A)" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 21 
"\n local B,C,i,j,test;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 2 "\n " 
}{MPLTEXT 1 202 22 "B:=array(1..32,1..32):" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 46 "\n  for i from 1 to 32 do for j from 1 to 32 do" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 53 "\n   if i=1 or i=32 or j=1 or \+
j=32 then B[i,j]:=0 else" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 90 "\n \+
  test:=A[i-1,j]+A[i,j+1]+A[i,j-1]+A[i-1,j+1]+A[i-1,j-1]+A[i+1,j+1]+A[
i+1,j]+A[i+1,j-1];" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 42 "\n   if A
[i,j]=1 and test=2 then B[i,j]:=1;" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 44 "\n   elif A[i,j]=1 and test=3 then B[i,j]:=1;" }{MPLTEXT 1 
202 0 "" }{MPLTEXT 1 202 44 "\n   elif A[i,j]=0 and test=3 then B[i,j]
:=1 " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 18 "\n   else B[i,j]:=0" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 10 "\n   fi:fi:" }{MPLTEXT 1 202 
0 "" }{MPLTEXT 1 202 9 "\n  od:od:" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 11 "\n evalm(B):" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 5 "\nend:" 
}{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 1 "\n" }{MPLTEXT 1 202 1 "\n" }}}
{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 24 "A:=ini(1):successeur(A);
" }{MPLTEXT 1 202 0 "" }}{PARA 203 "" 1 "" {XPPMATH 20 "6#-I'matrixG6
\"6#7B7B\"\"!F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F
)F)F)F(F(F(F(F(F(F(F(F(F(F(7BF)F)F)F)F)F)F)F)F)F)F)F)F)F)\"\"\"F+F)F)F
)F)F)F)F)F)F)F)F)F)F)F)F)F)7BF)F)F)F)F)F)F)F)F)F)F)F)F)F+F+F+F+F)F)F)F
)F)F)F)F)F)F)F)F)F)F)F)7BF)F)F)F)F)F)F)F)F)F)F)F)F+F)F)F)F)F+F)F)F)F)F
)F)F)F)F)F)F)F)F)F)7BF)F)F)F)F)F)F)F)F)F)F)F+F+F)F)F)F)F+F+F)F)F)F)F)F
)F)F)F)F)F)F)F)F-7BF)F)F)F)F)F)F)F)F)F)F)F)F+F+F+F+F+F+F)F)F)F)F)F)F)F
)F)F)F)F)F)F)7BF)F)F)F)F)F)F)F)F)F)F)F)F)F+F)F)F+F)F)F)F)F)F)F)F)F)F)F
)F)F)F)F)F(F(F(F(F(F(F(F(F(F(F(F(F(" }{TEXT 204 0 "" }}}{EXCHG {PARA 
200 "> " 0 "" {MPLTEXT 1 202 0 "" }}}{EXCHG {PAGEBK }{PARA 200 "> " 0 
"" {MPLTEXT 1 202 38 "Generation:=proc(n,A) option remember;" }
{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 9 "\nlocal B;" }{MPLTEXT 1 202 0 "
" }{MPLTEXT 1 202 67 "\nif n=0 then evalm(A); else B:=Generation(n-1,A
);successeur(B); fi:" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 5 "\nend;" 
}{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 1 "\n" }}{PARA 203 "" 1 "" 
{XPPMATH 20 "6#>I+GenerationG6\"f*6$I\"nGF%I\"AGF%6#I\"BGF%6#I)remembe
rGF%F%@%/9$\"\"!-I&evalmG6$I*protectedGF5I(_syslibGF%6#9%C$>8$-F$6$,&F
0\"\"\"!\"\"F?F8-I+successeurGF%6#F;F%F%F%" }{TEXT 204 0 "" }}}{EXCHG 
{PARA 200 "> " 0 "" {MPLTEXT 1 202 21 "Generation(3,ini(1));" }
{MPLTEXT 1 202 0 "" }}{PARA 203 "" 1 "" {XPPMATH 20 "6#-I'matrixG6\"6#
7B7B\"\"!F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F)F
)F(F(F(F(F(F(F(F(F(F(F(F(7BF)F)F)F)F)F)F)F)F)F)F)F)F)\"\"\"F)F)F+F)F)F
)F)F)F)F)F)F)F)F)F)F)F)F)7BF)F)F)F)F)F)F)F)F)F)F)F+F)F)F+F+F)F)F+F)F)F
)F)F)F)F)F)F)F)F)F)F)7BF)F)F)F)F)F)F)F)F)F)F)F+F)F)F)F)F)F)F+F)F)F)F)F
)F)F)F)F)F)F)F)F)F-7BF)F)F)F)F)F)F)F)F)F)F)F)F+F)F)F)F)F+F)F)F)F)F)F)F
)F)F)F)F)F)F)F)7BF)F)F)F)F)F)F)F)F)F)F)F)F+F+F+F+F+F+F)F)F)F)F)F)F)F)F
)F)F)F)F)F)F(F(F(F(F(F(F(F(F(F(F(F(F(" }{TEXT 204 0 "" }}}{EXCHG 
{PARA 200 "> " 0 "" {MPLTEXT 1 202 0 "" }}}{EXCHG {PAGEBK }{PARA 200 "
> " 0 "" {MPLTEXT 1 202 20 "Diagramme:=proc(n,A)" }{MPLTEXT 1 202 0 ""
 }{MPLTEXT 1 202 24 "\n local i,j,p,m,liste,C;" }{MPLTEXT 1 202 0 "" }
{MPLTEXT 1 202 14 "\nliste:=NULL; " }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 43 "\n C:=array(1..32,1..32):C:=Generation(n,A);" }{MPLTEXT 1 202 
0 "" }{MPLTEXT 1 202 44 "\nfor i from 1 to 32 do for j from 1 to 32 do
" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 78 "\n  if C[i,j]=1 then p:=rec
tangle([j-1,i+1],[j,i],color=red):liste:=liste,p:fi:" }{MPLTEXT 1 202 
0 "" }{MPLTEXT 1 202 8 "\n od:od:" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 
202 42 "\nplots[display](liste,view=[0..30,0..30]);" }{MPLTEXT 1 202 
0 "" }{MPLTEXT 1 202 5 "\nend:" }{MPLTEXT 1 202 0 "" }{MPLTEXT 1 202 
1 "\n" }{MPLTEXT 1 202 2 "\n " }{MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 
200 "> " 0 "" {MPLTEXT 1 202 60 "Diagramme(0,ini(1));Diagramme(1,ini(1
));Diagramme(2,ini(1));" }{MPLTEXT 1 202 0 "" }}{PARA 204 "" 1 "" 
{GLPLOT2D 400 400 400 {PLOTDATA 2 "65-%)POLYGONSG6$7&7$$\"#8\"\"!$\"#:
F*7$$\"#9F*F+7$F.F.7$F(F.-%&COLORG6&%$RGBG$\"#5!\"\"$F*F8F9-F$6$7&F-7$
F+F+7$F+F.F0F2-F$6$7&F=7$$\"#;F*F+7$FCF.F>F2-F$6$7&FB7$$\"#<F*F+7$FJF.
FEF2-F$6$7&7$$\"#7F*FC7$F(FCF'7$FQF+F2-F$6$7&7$FJFC7$$\"#=F*FC7$FZF+FI
F2-F$6$7&7$FQFJ7$F(FJFSFPF2-F$6$7&7$F.FJ7$F+FJ7$F+FC7$F.FCF2-F$6$7&F`o
7$FCFJ7$FCFCFaoF2-F$6$7&7$FJFJ7$FZFJFYFXF2-F$6$7&7$FQFZ7$F(FZF[oFjnF2-
F$6$7&7$FJFZ7$FZFZF\\pF[pF2-F$6$7&7$F($\"#>F*7$F.F[q7$F.FZFapF2-F$6$7&
F]q7$F+F[q7$F+FZF^qF2-F$6$7&Fbq7$FCF[q7$FCFZFcqF2-F$6$7&Fgq7$FJF[qFepF
hqF2-F$6$7&7$F($\"#?F*7$F.FarF]qFjpF2-F$6$7&7$FCFar7$FJFarF\\rFgqF2-%%
VIEWG6$;F9$\"#IF*F\\s" 1 2 2 0 10 1 2 6 1 4 2 1.0 45.0 45.0 1 0 "Curve
 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve
 8" "Curve 9" "Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "
Curve 15" "Curve 16" "Curve 17" "Curve 18" }}{TEXT 206 0 "" }}{PARA 
204 "" 1 "" {GLPLOT2D 400 400 400 {PLOTDATA 2 "69-%)POLYGONSG6$7&7$$\"
#9\"\"!F(7$$\"#:F*F(7$F,$\"#8F*7$F(F/-%&COLORG6&%$RGBG$\"#5!\"\"$F*F8F
9-F$6$7&F+7$$\"#;F*F(7$F>F/F.F2-F$6$7&7$F/F,7$F(F,F'7$F/F(F2-F$6$7&FE7
$F,F,F+F'F2-F$6$7&FJ7$F>F,F=F+F2-F$6$7&FN7$$\"#<F*F,7$FSF(F=F2-F$6$7&7
$$\"#7F*F>7$F/F>FD7$FZF,F2-F$6$7&7$FSF>7$$\"#=F*F>7$F]oF,FRF2-F$6$7&7$
$\"#6F*FS7$FZFSFY7$FdoF>F2-F$6$7&Ffo7$F/FSFfnFYF2-F$6$7&7$FSFS7$F]oFSF
\\oF[oF2-F$6$7&F`p7$$\"#>F*FS7$FepF>F\\oF2-F$6$7&7$FZF]o7$F/F]oF[pFfoF
2-F$6$7&7$FSF]o7$F]oF]oF`pF_pF2-F$6$7&7$FZFep7$F/FepF\\qF[qF2-F$6$7&Ff
q7$F(Fep7$F(F]oF\\qF2-F$6$7&Fjq7$F,Fep7$F,F]oF[rF2-F$6$7&F_r7$F>Fep7$F
>F]oF`rF2-F$6$7&Fdr7$FSFepF`qFerF2-F$6$7&Fir7$F]oFepFaqF`qF2-F$6$7&7$F
/$\"#?F*7$F(FbsFjqFfqF2-F$6$7&7$F>Fbs7$FSFbsFirFdrF2-%%VIEWG6$;F9$\"#I
F*F]t" 1 2 2 0 10 1 2 6 1 4 2 1.0 45.0 45.0 1 0 "Curve 1" "Curve 2" "C
urve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "C
urve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Curve
 16" "Curve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Curve 22"
 }}{TEXT 206 0 "" }}{PARA 204 "" 1 "" {GLPLOT2D 400 400 400 {PLOTDATA 
2 "6=-%)POLYGONSG6$7&7$$\"#8\"\"!$\"#9F*7$F+F+7$F+F(7$F(F(-%&COLORG6&%
$RGBG$\"#5!\"\"$F*F6F7-F$6$7&7$$\"#;F*F+7$$\"#<F*F+7$F?F(7$F<F(F0-F$6$
7&7$F($\"#:F*7$F+FGF-F'F0-F$6$7&7$F<FG7$F?FGF>F;F0-F$6$7&7$$\"#6F*F<7$
$\"#7F*F<7$FVFG7$FSFGF0-F$6$7&FU7$F(F<FFFXF0-F$6$7&7$F+F<7$FGF<7$FGFGF
IF0-F$6$7&F\\o7$F<F<FMF]oF0-F$6$7&7$F?F<7$$\"#=F*F<7$FgoFGFNF0-F$6$7&F
fo7$$\"#>F*F<7$F^pFGFioF0-F$6$7&7$FSF?7$FVF?FUFRF0-F$6$7&Fep7$F(F?FgnF
UF0-F$6$7&Fip7$F+F?F[oFgnF0-F$6$7&7$F<F?7$F?F?FeoFaoF0-F$6$7&Fbq7$FgoF
?FfoFeoF0-F$6$7&Ffq7$F^pF?F]pFfoF0-F$6$7&7$F+Fgo7$FGFgo7$FGF?F]qF0-F$6
$7&F_r7$F<FgoFaqF`rF0-F$6$7&7$FVF^p7$F(F^p7$F(Fgo7$FVFgoF0-F$6$7&7$F+F
^p7$FGF^pF_rF^rF0-F$6$7&F`s7$F<F^pFdrF_rF0-F$6$7&7$F?F^p7$FgoF^p7$FgoF
go7$F?FgoF0-F$6$7&7$FV$\"#?F*7$F(F`tFirFhrF0-F$6$7&Fbt7$F+F`tF_sFirF0-
F$6$7&7$F<F`t7$F?F`tFhsFdsF0-F$6$7&F[u7$FgoF`tFisFhsF0-%%VIEWG6$;F7$\"
#IF*Fcu" 1 2 2 0 10 1 2 6 1 4 2 1.0 45.0 45.0 1 0 "Curve 1" "Curve 2" 
"Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" 
"Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Cur
ve 16" "Curve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Curve 2
2" "Curve 23" "Curve 24" "Curve 25" "Curve 26" }}{TEXT 206 0 "" }}}
{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 0 "" }}}{EXCHG {PARA 200 "> \+
" 0 "" {MPLTEXT 1 202 43 "F:=proc(t) Diagramme(trunc(t),ini(1)); end;"
 }{MPLTEXT 1 202 0 "" }}{PARA 203 "" 1 "" {XPPMATH 20 "6#>I\"FG6\"f*6#
I\"tGF%F%F%F%-I*DiagrammeGF%6$-I&truncGI*protectedGF.6#9$-I$iniGF%6#\"
\"\"F%F%F%" }{TEXT 204 0 "" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 
202 63 "animate(F,[t],t=0..8,scaling=constrained, axes=none,frames=50)
;" }{MPLTEXT 1 202 0 "" }}{PARA 204 "" 1 "" {GLPLOT2D 400 400 400 
{PLOTDATA 2 "6&-%(ANIMATEG6T75-%)POLYGONSG6$7&7$$\"#8\"\"!$\"#:F.7$$\"
#9F.F/7$F2F27$F,F2-%&COLORG6&%$RGBG$\"#5!\"\"$F.F<F=-F(6$7&F17$F/F/7$F
/F2F4F6-F(6$7&FA7$$\"#;F.F/7$FGF2FBF6-F(6$7&FF7$$\"#<F.F/7$FNF2FIF6-F(
6$7&7$$\"#7F.FG7$F,FGF+7$FUF/F6-F(6$7&7$FNFG7$$\"#=F.FG7$FhnF/FMF6-F(6
$7&7$FUFN7$F,FNFWFTF6-F(6$7&7$F2FN7$F/FN7$F/FG7$F2FGF6-F(6$7&Fdo7$FGFN
7$FGFGFeoF6-F(6$7&7$FNFN7$FhnFNFgnFfnF6-F(6$7&7$FUFhn7$F,FhnF_oF^oF6-F
(6$7&7$FNFhn7$FhnFhnF`pF_pF6-F(6$7&7$F,$\"#>F.7$F2F_q7$F2FhnFepF6-F(6$
7&Faq7$F/F_q7$F/FhnFbqF6-F(6$7&Ffq7$FGF_q7$FGFhnFgqF6-F(6$7&F[r7$FNF_q
FipF\\rF6-F(6$7&7$F,$\"#?F.7$F2FerFaqF^qF6-F(6$7&7$FGFer7$FNFerF`rF[rF
6-%&TITLEG6#Q't~=~0.6\"75F'F>FCFJFQFYF[oF`oFgoF\\pFapFfpF[qFcqFhqF]rFa
rFhr-F^s6#Q+t~=~.16327Fas75F'F>FCFJFQFYF[oF`oFgoF\\pFapFfpF[qFcqFhqF]r
FarFhr-F^s6#Q+t~=~.32653Fas75F'F>FCFJFQFYF[oF`oFgoF\\pFapFfpF[qFcqFhqF
]rFarFhr-F^s6#Q+t~=~.48980Fas75F'F>FCFJFQFYF[oF`oFgoF\\pFapFfpF[qFcqFh
qF]rFarFhr-F^s6#Q+t~=~.65306Fas75F'F>FCFJFQFYF[oF`oFgoF\\pFapFfpF[qFcq
FhqF]rFarFhr-F^s6#Q+t~=~.81633Fas75F'F>FCFJFQFYF[oF`oFgoF\\pFapFfpF[qF
cqFhqF]rFarFhr-F^s6#Q+t~=~.97959Fas79-F(6$7&F4FB7$F/F,7$F2F,F6-F(6$7&F
BFI7$FGF,F^uF6F'F>FCFJFQFY-F(6$7&7$$\"#6F.FNF^oFT7$FhuFGF6F[oF\\p-F(6$
7&F`p7$F_qFN7$F_qFGFgnF6FapFfp-F(6$7&7$FUF_qF^qFepFdpF6F[qFcqFhqF]r-F(
6$7&F`r7$FhnF_qFjpFipF6FarFhr-F^s6#Q+t~=~1.1429Fas79F[uF`uF'F>FCFJFQFY
FduF[oF\\pF[vFapFfpF`vF[qFcqFhqF]rFdvFarFhr-F^s6#Q+t~=~1.3061Fas79F[uF
`uF'F>FCFJFQFYFduF[oF\\pF[vFapFfpF`vF[qFcqFhqF]rFdvFarFhr-F^s6#Q+t~=~1
.4694Fas79F[uF`uF'F>FCFJFQFYFduF[oF\\pF[vFapFfpF`vF[qFcqFhqF]rFdvFarFh
r-F^s6#Q+t~=~1.6327Fas79F[uF`uF'F>FCFJFQFYFduF[oF\\pF[vFapFfpF`vF[qFcq
FhqF]rFdvFarFhr-F^s6#Q+t~=~1.7959Fas79F[uF`uF'F>FCFJFQFYFduF[oF\\pF[vF
apFfpF`vF[qFcqFhqF]rFdvFarFhr-F^s6#Q+t~=~1.9592Fas7=-F(6$7&F5F4F_u7$F,
F,F6-F(6$7&FIFP7$FNF,FcuF6F'FJ-F(6$7&FjuFTFX7$FhuF/F6FQ-F(6$7&FfoFeoFA
F1F6-F(6$7&FeoF[pFFFAF6FY-F(6$7&FgnF_v7$F_qF/FjnF6FduF[o-F(6$7&F_oFcoF
foFWF6-F(6$7&FjoF_pFfnF[pF6F\\pF[v-F(6$7&FbqFgqFdoFcoF6-F(6$7&FgqF\\rF
joFdoF6F`vFcqFhqFdv-F(6$7&7$FUFerFdrF^qFcvF6FarFhr-F(6$7&F\\s7$FhnFerF
gvF`rF6-F^s6#Q+t~=~2.1224Fas7=F`xFdxF'FJFhxFQF\\yF_yFYFbyFduF[oFfyFiyF
\\pF[vF\\zF_zF`vFcqFhqFdvFbzFarFhrFfz-F^s6#Q+t~=~2.2857Fas7=F`xFdxF'FJ
FhxFQF\\yF_yFYFbyFduF[oFfyFiyF\\pF[vF\\zF_zF`vFcqFhqFdvFbzFarFhrFfz-F^
s6#Q+t~=~2.4490Fas7=F`xFdxF'FJFhxFQF\\yF_yFYFbyFduF[oFfyFiyF\\pF[vF\\z
F_zF`vFcqFhqFdvFbzFarFhrFfz-F^s6#Q+t~=~2.6122Fas7=F`xFdxF'FJFhxFQF\\yF
_yFYFbyFduF[oFfyFiyF\\pF[vF\\zF_zF`vFcqFhqFdvFbzFarFhrFfz-F^s6#Q+t~=~2
.7755Fas7=F`xFdxF'FJFhxFQF\\yF_yFYFbyFduF[oFfyFiyF\\pF[vF\\zF_zF`vFcqF
hqFdvFbzFarFhrFfz-F^s6#Q+t~=~2.9388Fas75F'FJFhxF\\yF_yFbyFduF[v-F(6$7&
7$FhuFhnFdpF^oFguF6-F(6$7&Fjp7$F_qFhnF^vF`pF6F`vFdvFbzFar-F(6$7&Fgr7$F
/FerFfqFaqF6-F(6$7&F]]lF[sF[rFfqF6FhrFfz-F^s6#Q+t~=~3.1020Fas75F'FJFhx
F\\yF_yFbyFduF[vFb\\lFf\\lF`vFdvFbzFarFj\\lF^]lFhrFfz-F^s6#Q+t~=~3.265
3Fas75F'FJFhxF\\yF_yFbyFduF[vFb\\lFf\\lF`vFdvFbzFarFj\\lF^]lFhrFfz-F^s
6#Q+t~=~3.4286Fas75F'FJFhxF\\yF_yFbyFduF[vFb\\lFf\\lF`vFdvFbzFarFj\\lF
^]lFhrFfz-F^s6#Q+t~=~3.5918Fas75F'FJFhxF\\yF_yFbyFduF[vFb\\lFf\\lF`vFd
vFbzFarFj\\lF^]lFhrFfz-F^s6#Q+t~=~3.7551Fas75F'FJFhxF\\yF_yFbyFduF[vFb
\\lFf\\lF`vFdvFbzFarFj\\lF^]lFhrFfz-F^s6#Q+t~=~3.9184Fas7CF>FCFQF\\yF_
yFY-F(6$7&7$$F;F.FNFguFju7$F]_lFGF6FduF[oF\\pF[v-F(6$7&F^v7$FerFN7$Fer
FGF_vF6Fb\\lFapFfpFf\\l-F(6$7&7$FhuF_qFcvFdpFe\\lF6F`vFcqFhqFdv-F(6$7&
Fgv7$F_qF_qFi\\lFjpF6FbzFarFj\\lF^]lFhrFfz-F(6$7&7$F,$\"#@F.7$F2F``lFg
rFdrF6-F(6$7&Fb`l7$F/F``lF]]lFgrF6-F(6$7&Ff`l7$FGF``lF[sF]]lF6-F(6$7&F
j`l7$FNF``lF\\sF[sF6-F^s6#Q+t~=~4.0816Fas7CF>FCFQF\\yF_yFYFi^lFduF[oF
\\pF[vF__lFb\\lFapFfpFf\\lFd_lF`vFcqFhqFdvFh_lFbzFarFj\\lF^]lFhrFfzF
\\`lFc`lFg`lF[al-F^s6#Q+t~=~4.2449Fas7CF>FCFQF\\yF_yFYFi^lFduF[oF\\pF[
vF__lFb\\lFapFfpFf\\lFd_lF`vFcqFhqFdvFh_lFbzFarFj\\lF^]lFhrFfzF\\`lFc`
lFg`lF[al-F^s6#Q+t~=~4.4082Fas7CF>FCFQF\\yF_yFYFi^lFduF[oF\\pF[vF__lFb
\\lFapFfpFf\\lFd_lF`vFcqFhqFdvFh_lFbzFarFj\\lF^]lFhrFfzF\\`lFc`lFg`lF[
al-F^s6#Q+t~=~4.5714Fas7CF>FCFQF\\yF_yFYFi^lFduF[oF\\pF[vF__lFb\\lFapF
fpFf\\lFd_lF`vFcqFhqFdvFh_lFbzFarFj\\lF^]lFhrFfzF\\`lFc`lFg`lF[al-F^s6
#Q+t~=~4.7347Fas7CF>FCFQF\\yF_yFYFi^lFduF[oF\\pF[vF__lFb\\lFapFfpFf\\l
Fd_lF`vFcqFhqFdvFh_lFbzFarFj\\lF^]lFhrFfzF\\`lFc`lFg`lF[al-F^s6#Q+t~=~
4.8980Fas73F'F>FCFJFQF\\yF_yFYFi^lF__l-F(6$7&7$FhuFerFezFcvFg_lF6-F(6$
7&Fiz7$F_qFerF[`lFgvF6-F(6$7&7$FUF``lF_`lFdrFezF6-F(6$7&F^al7$FhnF``lF
izF\\sF6-F(6$7&7$F2$\"#AF.7$F/F[dlFf`lFb`lF6-F(6$7&F]dl7$FGF[dlFj`lFf`
lF6-F^s6#Q+t~=~5.0612Fas73F'F>FCFJFQF\\yF_yFYFi^lF__lFgblF[clF_clFcclF
gclF^dl-F^s6#Q+t~=~5.2245Fas73F'F>FCFJFQF\\yF_yFYFi^lF__lFgblF[clF_clF
cclFgclF^dl-F^s6#Q+t~=~5.3878Fas73F'F>FCFJFQF\\yF_yFYFi^lF__lFgblF[clF
_clFcclFgclF^dl-F^s6#Q+t~=~5.5510Fas73F'F>FCFJFQF\\yF_yFYFi^lF__lFgblF
[clF_clFcclFgclF^dl-F^s6#Q+t~=~5.7143Fas73F'F>FCFJFQF\\yF_yFYFi^lF__lF
gblF[clF_clFcclFgclF^dl-F^s6#Q+t~=~5.8776Fas7'F[uF`uF'FJ-F^s6#Q+t~=~6.
0408Fas7'F[uF`uF'FJ-F^s6#Q+t~=~6.2041Fas7'F[uF`uF'FJ-F^s6#Q+t~=~6.3673
Fas7'F[uF`uF'FJ-F^s6#Q+t~=~6.5306Fas7'F[uF`uF'FJ-F^s6#Q+t~=~6.6939Fas7
'F[uF`uF'FJ-F^s6#Q+t~=~6.8571Fas7'F[uF`uF>FC-F^s6#Q+t~=~7.0204Fas7'F[u
F`uF>FC-F^s6#Q+t~=~7.1837Fas7'F[uF`uF>FC-F^s6#Q+t~=~7.3469Fas7'F[uF`uF
>FC-F^s6#Q+t~=~7.5102Fas7'F[uF`uF>FC-F^s6#Q+t~=~7.6735Fas7'F[uF`uF>FC-
F^s6#Q+t~=~7.8367Fas7'F[uF`uF>FC-F^s6#Q+t~=~8.0000Fas-%*AXESSTYLEG6#%%
NONEG-%%VIEWG6$;F=$\"#IF.Fdil-%(SCALINGG6#%,CONSTRAINEDG" 1 2 2 0 10 
1 2 6 1 1 1 1.0 45.0 45.0 1 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" 
"Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 10" "Curve 11
" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 17" "C
urve 18" }}{TEXT 206 0 "" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 
202 0 "" }}}{PARA 205 "" 0 "" {TEXT 207 0 "" }}{PARA 205 "" 0 "" 
{TEXT 207 0 "" }}{PARA 205 "" 0 "" {TEXT 207 0 "" }}{PARA 205 "" 0 "" 
{TEXT 207 0 "" }}{PARA 205 "" 0 "" {TEXT -1 0 "" }}}{MARK "0 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }