Apprendre Maple

[lol]

bonjour à tous ,
voilà j'ai une procédure pr le calcul d'une division de polynôme , mais maple chercher mais trouve pas, quelqu'un peut-il me dire où est le prob : voici la procédure :
division:=proc(f,g);

a:=f;

b:=g;

c:=-1;

d:=-1;

while a<>0 do

a:=diff(a,x);

c:=c+1;

end do ;

while b<>0 do

b:=diff(b,x);

d:=d+1;

end do;

n:=c;

p:=d;

q:=0;

r:=f;

e:=lcoeff(g);

while r<>0 and n>=d do

M:=lcoeff(r)*e^(-1)*x^(r-d);

q:=q+M;

r:=r-g*M;

print(f=b*q+r);

end do;

end proc;

[ALS]

Bonjour, effectivement ça plante la machine, je pense que c'est du à une mauvaise initialisation de r avant la boucle while.
Voici une procédure qui fonctionne bien:

[mouss33]

bonjour tout le monde
deja je tiens a m'escuser car mon message s'est posté 2 fois en réponse a d'autre message et je ne sais pas pourquoi!
ensuite,je vous écris car je ne comprend pas pourquoi ma procédure ne marche pas.en fait on prend les matrice A (n lignes,m colonnes) et C (n lignes et 1 colonnes)
on me demande de déterminer une procédure qui prend comme argument les matrices A et C et qui renvoi soit le system admet au moins une solution, soit le systeme n'a pas de solution.faire tourner votre procédure sur des system de types différents.

voila ce que j'ai fait
>with(LinearAlgebra);
>pivot:=proc(A,C)
local n,m;
n:=RowDimension(A);m:=ColumnDimension(A);
A:=matrix(n,m);C:=matrix(n,1);
if Rank(A)<n then print(`pas de solution`)
else if Rank(A)=n then print(`le systeme admet une unique solution`)
end if;
end if;
end proc;

ensuite j'ai rentré une matrice A et C
>A := matrix([[2, -1, 3], [3, 1, -1], [5, -2, 1]]);
>C := matrix([[9], [7], [5]]);

pivot(A,C);

le probleme c'est que on m'affiche :Error, (in LinearAlgebra:-RowDimension) expects its 1st argument, A, to be of type Matrix, but received A.
et je ne comprend pas ce qu'il ne va pas!
quelqu'un pourrais m'aider!

[mouss33]

bon j'ai effectuer une modification et maintenant, j'ai un autre mesage d'erreur.en fait , j'ai juste changer la position de A:=matrix(n,m);C:=matrix(n,1);
je l'ai placé juste avant n:=RowDimension(A);m:=ColumnDimension(A);
ensuite j'ai rentré les 2 matrices et quand j'utilise la procédure, le nouveau message d'erreur est :Error, (in matrix) 1st and 2nd arguments (dimensions) must be non negative integers
cela veut dire que le 1er et le 2ieme argument ne doivent pas etre des entiers négatif mais je ne vois pas comment remédier a ce probleme!
j'espere que quelqu'un pourra me débloquer!

[prof_simplet]

Bonjour, quand tu utilises le package LinearAlgebra, mets des majuscules pour Matrix, contrairement au package linalg où on écrit en minuscules matrix. J'ai aussi supprimé une ligne qui n'avait rien à faire:
A:=matrix(n,m);C:=matrix(n,1);

[mouss33]

merci beaucoup!effectivement, ca marche!