Ich bitte euch nochmals mir zu helfen, ist wirklich wichtig. Also bitte Quelltext(Ansatz) zum lösen der kubische Gleichung oder mir würde auch ein Ansatz zum lösen der polynomdivision genügen-da ich schon das Problem mit der Bisektion gelöst bekommen habe.
Delphi-Quellcode:
x1:=-100;x2:=100;
repeat
x3:=(x1+x2)/2;
y1:=a*x1*x1*x1+b*x1*x1+c*x1+d;
y2:=a*x2*x2*x2+b*x2*x2+c*x2+d;
y3:=a*x3*x3*x3+b*x3*x3+c*x3+d;
if (y1<0) and (y3>0) and (y2>0) then
begin x1:=x1;x2:=x3;
end;
if (y1<0) and (y3<0) and (y2>0) then
begin x1:=x3;x2:=x2;
end;
if (y1>0) and (y3>0) and (y2<0) then
begin x1:=x2;x2:=x3;
end;
if (y1>0) and (y3<0) and (y2<0) then
begin x1:=x3;x2:=x1;
end;
until abs(y3)<0.000000001;
Aus diesem bekomme ich nun eine Nullstellen,hiermit könnt ich dann Polynomdivison durchführen- nur wie?
cu