Fixed broken polynomial degree in bisection algorithm

2024-05-25 02:37:34 +02:00 · 2024-05-25 02:37:34 +02:00 · 748964c871
parent fa5616f3cc
commit 748964c871
1 changed files with 1 additions and 1 deletions
--- a/UPolynomialRoots.pas
+++ b/UPolynomialRoots.pas
@ -112,11 +112,11 @@ begin
  Result := TIsolatingIntervals.Create;
  stack := TWorkStack.Create;

-  n := item.P.Degree;
  item.C := 0;
  item.K := 0;
  item.P := APolynomial.ScaleVariable(ABound);
  stack.Push(item);
+  n := item.P.Degree;

  while stack.Count > 0 do
  begin