Fixed comments
This commit is contained in:
parent
1784e41c0f
commit
44caf3e21c
|
@ -114,8 +114,7 @@ begin
|
|||
Result := BisectIsolation(APolynomial, boundExp);
|
||||
end;
|
||||
|
||||
// This is adapted from
|
||||
// https://en.wikipedia.org/wiki/Real-root_isolation#Bisection_method
|
||||
// This is adapted from https://en.wikipedia.org/wiki/Real-root_isolation#Bisection_method
|
||||
class function TPolynomialRoots.BisectIsolation(constref APolynomial: TBigIntPolynomial; constref ABoundExp: Cardinal;
|
||||
const AFindIntegers: Boolean): TIsolatingIntervalArray;
|
||||
type
|
||||
|
@ -154,9 +153,6 @@ begin
|
|||
|
||||
varq := item.P.RevertOrderOfCoefficients.TranslateVariableByOne;
|
||||
v := varq.CalcSignVariations;
|
||||
//WriteLn;
|
||||
//WriteLn('var((x+1)^n*q(1/(x+1))): ', v);
|
||||
|
||||
if (v > 1)
|
||||
or ((v = 1) and AFindIntegers and (item.K < ABoundExp)) then
|
||||
begin
|
||||
|
@ -173,7 +169,6 @@ begin
|
|||
else if v = 1 then
|
||||
begin
|
||||
// Found isolating interval.
|
||||
//WriteLn('Found isolating interval (' + IntToStr(item.C) + ', ' + IntToStr(item.K) + ', 1).');
|
||||
iso.Add(CreateIsolatingInterval(item.C, item.K, 1, ABoundExp));
|
||||
end;
|
||||
end;
|
||||
|
|
Loading…
Reference in New Issue