One more batch of #defaultNumericalPrecision removed

Author: jecisc

src/Math-Core-Process/PMIterativeProcess.class.st

@@ -125,9 +125,9 @@ PMIterativeProcess >> precision [
 { #category : #information }
 PMIterativeProcess >> precisionOf: aNumber1 relativeTo: aNumber2 [
 
-	^aNumber2 > PMFloatingPointMachine new defaultNumericalPrecision
-		ifTrue: [ aNumber1 / aNumber2]
-		ifFalse:[ aNumber1]
+	^ aNumber2 > Float defaultComparisonPrecision
+		  ifTrue: [ aNumber1 / aNumber2 ]
+		  ifFalse: [ aNumber1 ]
 ]
 
 { #category : #information }

src/Math-Numerical/PMOneVariableFunctionOptimizer.class.st

@@ -9,8 +9,9 @@ Class {
 
 { #category : #information }
 PMOneVariableFunctionOptimizer class >> defaultPrecision [
-		"Private"
-	^PMFloatingPointMachine new defaultNumericalPrecision * 10
+	"Private"
+
+	^ Float defaultComparisonPrecision * 10
 ]
 
 { #category : #information }

src/Math-Numerical/PMSimplexOptimizer.class.st

@@ -9,8 +9,9 @@ Class {
 
 { #category : #information }
 PMSimplexOptimizer class >> defaultPrecision [
-		"Private"
-	^PMFloatingPointMachine new defaultNumericalPrecision * 1000
+	"Private"
+
+	^ Float defaultComparisonPrecision * 1000
 ]
 
 { #category : #operation }

src/Math-Tests-Numerical/PMNumericalMethodsTestCase.class.st

@@ -842,15 +842,15 @@ PMNumericalMethodsTestCase >> testOptimizeSimplex [
 
 	| fBlock simplex educatedGuess result |
 	fBlock := [ :x | (x * x) negated exp ].
-	educatedGuess := #(0.5 1.0 0.5) asPMVector.
+	educatedGuess := #( 0.5 1.0 0.5 ) asPMVector.
 	simplex := PMSimplexOptimizer maximizingFunction: fBlock.
 	simplex initialValue: educatedGuess.
 	simplex desiredPrecision: 1.0e-6.
 	result := simplex evaluate.
 	self assert: simplex precision < 1.0e-6.
-	self assert: (result at: 1) abs < 1.0e-6.
-	self assert: (result at: 2) abs < 1.0e-6.
-	self assert: (result at: 3) abs < 1.0e-6
+	self assert: (result at: 1) closeTo: 0.
+	self assert: (result at: 2) closeTo: 0.
+	self assert: (result at: 3) closeTo: 0
 ]
 
 { #category : #statistics }