Apprendre Maple

[meriam]

Bonjour, je doit faire une procedure cmat:=proc(n) qui renvoie la matrice A et treminer la procedure par evalm(A)!
la matrice A est une matrice n+1,n+1 telle que:
1 1/2 0.....0
1/2 2 1/2 0...0
0 1/2 2 1/2 0..0
0
0
..
.
.
0 0 1/2 2 1/2
0 0 0 1/2 1

Bon ,je sais la martrice n'est pas tres claire!!
En fait la diagonale est (1,2,2,.....,2,1)
La "diagonale superieur" a la diagonale est pleine de 1/2 ainsi que la diagonale inferieur.
Bref,J'ai fait ceci:

cmat:=proc(n)
local i,j,A,n;
A matrix(n+1,n1,(i,j)->A[i,j]);
For i from 1 to n1 do
for j from 1 to n+1 do
if i+j=2 or i+j=2*(n+1) then
A[i,j]:=1;
else
A[i,j]:=2;
end if
for i from 2 to n+1 do
A[i,i-1]:=1/2;
A(i-1,i]:=1/2;
end do;
if i<>j or j=i-1 or j=i-2 then
A[i,j]:=0;
end if;
end do;
end do;
evalm(A);
end proc;




Je n'est pas pu tester cette procedure ,pouvez vous me dire s'il y a des fautes(je pense qu'il y en a!!!!!)
Merci
_________________
meriam

[meriam]

Merci ta procedure a l'air d'être géniale!! Je me doutais que ma procedure etait fausse ,pourrais tu me dire ce qu'il n'allait (si tu as le temps biensur) Merci!!!!!
_________________
meriam

[meriam]

Je te remercie infiniment de ta précision. Je suis vraiment navrée d'avoir abusé de ta gentilesse!!!!
encore merciiiiiiiiiiiiiiiiiiii,bye!!!!!
_________________
meriam