warrence
/
AdventOfCode2023
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed broken polynomial degree in bisection algorithm

This commit is contained in:
Stefan Müller 2024-05-25 02:37:34 +02:00
parent fa5616f3cc
commit 748964c871
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
UPolynomialRoots.pas
View File

@ -112,11 +112,11 @@ begin
Result := TIsolatingIntervals.Create; Result := TIsolatingIntervals.Create;
stack := TWorkStack.Create; stack := TWorkStack.Create;
n := item.P.Degree;
item.C := 0; item.C := 0;
item.K := 0; item.K := 0;
item.P := APolynomial.ScaleVariable(ABound); item.P := APolynomial.ScaleVariable(ABound);
stack.Push(item); stack.Push(item);
n := item.P.Degree;
while stack.Count > 0 do while stack.Count > 0 do
begin begin