|
Apprendre Maple Site dédié au logiciel de calcul formel Maple
|
Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
gasy72 Invité
|
Posté le: 29 Mai 2006 12:01 Sujet du message: pgcd de deux polynômes |
|
|
voici un petit procedure pour calculer le pgcd de deux polynomes:
ordonner les polynômes::
ordonner_poly:=proc(poly1,poly2)
if degree(poly2) > degree(poly1) then poly1, poly2
else poly2,poly1
fi
end;
algorithme d'euclide::
algo_euclide_poly:=proc(petitdegre,granddegre)
local
reste,liste_etapes,modulo,divise;
reste:=petitdegre;
modulo:=granddegre;
liste_etapes:=[[reste,modulo]]:
while reste<>0 do
divise:=modulo:
modulo:=reste:
reste:=prem(divise,modulo,x):
liste_etapes :=[op(liste_etapes), [reste,modulo]]
od;
array(liste_etapes),modulo:
end:
procedure de pgcd::
pgcd_poly:=proc(poly1,poly2)
local poly_non_unit;
poly_non_unit := algo_euclide_poly(ordonner_poly(poly1, poly2))[2];
sort(poly_non_unit/lcoeff(poly_non_unit))
end; |
|
Revenir en haut de page |
|
|
gasy72 Invité
|
Posté le: 29 Mai 2006 12:06 Sujet du message: application |
|
|
>x:='x';
p1:=(x-4)*(x+2)*(x-1);
p2:=(x-4)*(x-3)*(x-2)*(x-1)^2;
algo_euclide_poly(p1,p2);
donne:
matrix([[(x-4)*(x+2)*(x-1), (x-4)*(x-3)*(x-2)*(x-1)^2], [-240-60*x^2+300*x, (x-4)*(x+2)*(x-1)], [0, -240-60*x^2+300*x]]), -240-60*x^2+300*x
> pgcd_poly(x^4+2*x^3+3*x^2+2*x+1,4*x^3+6*x^2+6*x+2);
2
x + x + 1 |
|
Revenir en haut de page |
|
|
Henriette Dumans
Inscrit le: 15 Sep 2006 Messages: 1
|
Posté le: 15 Sep 2006 14:22 Sujet du message: |
|
|
Merci, gasy72 c justement ce que je cherchais
A+ |
|
Revenir en haut de page |
|
|
prof_simplet
Inscrit le: 12 Sep 2006 Messages: 86
|
Posté le: 23 Sep 2006 15:08 Sujet du message: |
|
|
Bonjour, vous savez aussi qu'il existe la commande gcd de Maple qui produit la mem chose.
Bon week-end. |
|
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.
|