Mathematik ??

[GLaforge]

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