|
Apprendre Maple Site dédié au logiciel de calcul formel Maple
|
Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
Foxtrot Invité
|
Posté le: 13 Avr 2006 10:13 Sujet du message: Division euclidienne de polynômes |
|
|
Salut, pour les gens intéressés, une procédure de division euclidienne du polynome A par B:
Code: |
> division:=proc(A::polynom,B::polynom,X::name)
> local A1,n,p,Q,Q1,R,k;
> if B=0 then
> error "le second argument doit être non nul"
> else
> A1:=A;Q:=0;
> n:=degree(A);p:=degree(B);
> for k from n by -1 to p do
> Q1:=coeff(A1,X,k)/coeff(B,X,p)*X^(k-p);
> Q:=Q+Q1;
> A1:=expand(A1-B*Q1);
> end do;
> end if;
> R:=A1;
> print(A=B*Q+R);
> [Q,R];
> end proc;
> division(X^5+X^4-X^3+X-1,X^3+X^2+2,X);
5 4 3 3 2 2 2
X + X - X + X - 1 = (X + X + 2) (X - 1) + X + 1 - X
2 2
[X - 1, X + 1 - X ]
|
A+ |
|
Revenir en haut de page |
|
|
ALS Invité
|
Posté le: 13 Avr 2006 11:47 Sujet du message: |
|
|
Merci Foxtrot pour cette procédure. |
|
Revenir en haut de page |
|
|
lol
Inscrit le: 05 Nov 2006 Messages: 4
|
Posté le: 05 Nov 2006 2:04 Sujet du message: |
|
|
En parlant des divisions euclidienne des polynômes , j'ai fait une procédure , mais quelqu'un pourrait-il me dire où est le problème car quand je le programme maple met beaucoup de temps pour m'afficher la réponse .Merci |
|
Revenir en haut de page |
|
|
prof_simplet
Inscrit le: 12 Sep 2006 Messages: 86
|
Posté le: 05 Nov 2006 10:38 Sujet du message: |
|
|
Salut lol, si tu nous montrais le code de ta procédure, ce serait mieux, non? |
|
Revenir en haut de page |
|
|
lol
Inscrit le: 05 Nov 2006 Messages: 4
|
Posté le: 05 Nov 2006 13:10 Sujet du message: |
|
|
voilà ma 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; |
|
Revenir en haut de page |
|
|
ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
|
Revenir en haut de page |
|
|
|
|
Vous ne pouvez pas poster de nouveaux sujets dans ce forum Vous ne pouvez pas répondre aux sujets dans ce forum Vous ne pouvez pas éditer vos messages dans ce forum Vous ne pouvez pas supprimer vos messages dans ce forum Vous ne pouvez pas voter dans les sondages de ce forum
|
Développé par phpBB © 2001, 2006 phpBB Group
Traduction par : phpBB-fr.com
Apprendre Maple - ©
- Alain Le Stang - Navigation optimisée pour une résolution 1024 x 768.
|