refactor: Extract Method where a method instantiates a root finding algorithm with the desired precision.

Author: hemalvarambhia

src/Math-Polynomials/PMPolynomial.class.st

@@ -239,6 +239,15 @@ PMPolynomial >> reciprocal [
 	^ (PMPolynomial coefficients: #(1)) / self
 ]
 
+{ #category : #information }
+PMPolynomial >> rootFindingAlgorithmWith: precision [
+
+	| rootFinder |
+	rootFinder := PMNewtonZeroFinder new.
+	rootFinder desiredPrecision: precision.
+	^ rootFinder
+]
+
 { #category : #information }
 PMPolynomial >> roots [
 
@@ -249,19 +258,20 @@ PMPolynomial >> roots [
 PMPolynomial >> roots: aNumber [
 
 	| pol roots x rootFinder |
-	rootFinder := PMNewtonZeroFinder new.
-	rootFinder desiredPrecision: aNumber.
-	pol := self class coefficients: ( coefficients reverse collect: [ :each | each asFloat]).
+	rootFinder := self rootFindingAlgorithmWith: aNumber.
+	pol := self class coefficients:
+		       (coefficients reverse collect: [ :each | each asFloat ]).
 	roots := OrderedCollection new: self degree.
-	[ rootFinder setFunction: pol; setDerivative: pol derivative.
-	  x := rootFinder evaluate.
-	  rootFinder hasConverged
-		] whileTrue: [ roots add: x.
-					   pol := pol deflatedAt: x.
-					   pol degree > 0
-						 ifFalse: [ ^roots].
-					 ].
-	^roots
+	[
+	rootFinder
+		setFunction: pol;
+		setDerivative: pol derivative.
+	x := rootFinder evaluate.
+	rootFinder hasConverged ] whileTrue: [
+		roots add: x.
+		pol := pol deflatedAt: x.
+		pol degree > 0 ifFalse: [ ^ roots ] ].
+	^ roots
 ]
 
 { #category : #'double dispatching' }