From 44caf3e21c2d0bc647ed635c0d1efa04deab6737 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20M=C3=BCller?= <stefan.mueller@aksdb.de>
Date: Sun, 26 May 2024 19:57:10 +0200
Subject: [PATCH] Fixed comments

---
 UPolynomialRoots.pas | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/UPolynomialRoots.pas b/UPolynomialRoots.pas
index a8c13b1..fc244e5 100644
--- a/UPolynomialRoots.pas
+++ b/UPolynomialRoots.pas
@@ -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;