Programme Von Koch de manière itérative

[XeloaX]

Bonjour à tous,

Je suis sur Mac, avec Maple 14.

J'ai écrit un programme en TD de maths info mais Maple me retourne une erreur que je n'arrive pas à expliquer (mon prof non plus) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
VonKoch:=proc(a,b,n);
varloc(K,M,P);
l:=nops(L);
for o from 1 to n do;
for i from 1 to l do;
L:=Triangle(a,b);
K[i]:=Triangle(L[i],L[i+1]);
M[n]:=[op(K[i]),op(K[i+1])];
P:=[op(M[o]),op(M[o+1])];
return P;
end for;
end proc;

Error, reserved word `for` unexpected

Le programme triangle auquel je fais appel est le suivant :

Code :

1
2
3
4
5
6
7
8
Triangle:=proc(a,b);
varloc(c,e,d,L);
c:=(1/3)*(b-a)+a;
d:=(2/3)*(b-a)+a;
e:=exp((Pi*I)/3)*(d-c)+c;
L:=[a,c,e,d,b];
return L;
end proc;

PS : le programme "Triangle" ne retourne aucune erreur.

Merci D'avance

XeloaX

[quentinh]

Tu es sûr que "end for" existe ? Personnellement j'aurais mis des "od" (il en faut deux d'ailleurs, car tu as deux boucles for)