Programme maple sur les avalanches

Bonjour,
je voudrai réaliser une modélisation d'avalanche sur maple mais je bloque...
voila un début de programme, la boucle ne marche pas, et je ne la comprends pas..
le but étant de créer un profil d'une pente enneigée, puis d'augmenter aléatoirement les coefficients de la matrice... et de faire chuter la neige, sur les cofficients du dessous de la matrice, quand le coefficient atteint une certaine valeur....

restart;
with(plots):with(linalg):
n:=5:
m:=5:
regle[-1]:=6;
regle[0]:=4;
regle[1]:=2;

A:=matrix(m,n,(i,j)-> if i<5*n/10 and i>2*n/10 and j<7*n/10 and j>3*n/10 then 100 else 0 fi);
A:=[Typesetting:-mtable(Typesetting:-mtr(Typesetting:-mtd(0, rowalign = "",

B[o]:=matrix(n,n,(i,j)-> if A[i,j]>sol[i,j] then A[i,j] else sol[i,j] fi);

for k to m do B[k]:=matrix(n,n,(i,j)->B[k-1][i,j]);
for i from n-1 to 2 by -1 do;
for j from 2 to n-1 do; chute:=0:
for n from 1 to -1 by 1 do; ordre:=rand(1..2):
positions:=[[0,1,-1][0,-1,1]]:
for v in positions [ordre] do
if B[k-1][i,j]-chute-B[k-1][i+u,j+v]>regle[u] and B[k-1][i,j]-chute>sol[i,j] then B[k][i+u,j+v]:=B[k-1][i+u,j+v]+1:
chute:=chute+1 fi;

Mersi de votre aide

Configuration: Windows XP
Internet Explorer 7.0