Apprendre Maple

[meriam]

Bonjour ,
J'ai encore un problme de matrice .Je dois ecrire une procedure csmb:=proc(f,n,a,b) qui renvoie un vecteur V colone ou ligne de taille n+1 et terminer par evalm(V).Resultat voulu:
V=(-3/h*f ââ`¬Ëoe (a) + 3/h^2(f(x1)-f(x0)) , .....,3/h^2*(f(xi)-2*f(xi-1+f(xi-2)),....,3/h^2(f(xn)-2f(xn-1)+f(xn-2)),3/h * f ââ`¬Ëoe(b)-3/h^2(f(xn)-f(xn-1)))



J'ai fais ceci:

Csmb :=proc(f,n,a,b)
Local i,j,x,Y,V,h;
X: = [seq(evalf(a+h*j),j=0..n)];
Y: = [seq(evalf(f(a+h*j),j=0..n))];
V:=vector(1..n+1,[v[j]]);
For j from 1 to n+1 do
If j=1 then
V[j]:=((-3/h)*(D(f)(X[0]))+(3/(h^2))*((Y[j])-(y[j-1]));
Else
If j=n+1 then
V[j]:=((-3/h^2))* ((Y[j-1])-(Y[j-2]))+(3/h)*(D(f)(X[n]));
Else
V[j]:=((-3/h^2))*((Y[j])-2*(Y[j-1])+(y[j-2]));
End if ;
End if ;
End do ;
Evalm(v);
End proc:
Csmb(x->x+1,2,-1,1);
Mais je ne sait pas si ca marche?Pouvez m'aider merci!!
_________________
meriam

[meriam]

Bonjour,
Je te remercie ca fait une semaine que je suis sur cette procedure et j'ai failli "péter les plombs".Ca va me permettre de passer a la suite.Je te remercie donc de ton aide si précieuse!!!!!!!
MerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerciMerci......
_________________
meriam