Faktorisierung von Polynomen < Maple < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 15:41 Fr 15.01.2010 | | Autor: | Dani13 |
| Aufgabe | Die quadratfreie Faktorisierung von Polynomen über Zp: diesen algorithmus sollte in in maple implementieren:
[Dateianhang nicht öffentlich] |
Hallo, ich bin Maple anfängerin (und auch programmieranfängerin), was man vermutlich bei dem Code da merkt, jedenfalls hab ich jetzt mal das versucht:
faktorisierung := proc(b::polynom,x::symbol)
local i, f, h1, h, f1, g, l, F;
F:=1;
f1:=diff(f,x);
if f1 = 0
then [mm] f=f^1/2 [/mm]
else
g:=gcd(f,f1) ; h=f/g
end if;
for i while h <> 1 do
h1:=gcd(h,g); l:=h/h1;
if l<>1 then
[mm] F=F*l^i [/mm] end if;
h=h1; g=g/h1 end do;
g*F
end proc:
nach 4 stunden die ich daran gesessen bin, weiss ich nun wirklich nicht mehr weiter und hoffe sehr irgendjemand kann mir helfen das zu verbessern...
ganz lieben dank schon im voraus
dani
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
Dateianhänge:
Anhang Nr. 1 (Typ: jpg) [nicht öffentlich]
|
|
|
