Replaced all senders to equalsTo: with closeTo: and deprecated the methods

Author: olekscode

src/Math-AutomaticDifferenciation/PMDualNumber.class.st

@@ -133,6 +133,13 @@ PMDualNumber >> asInteger [
 	^ value asInteger
 ]
 
+{ #category : #comparing }
+PMDualNumber >> closeTo: aDualNumber [
+
+	^ (value closeTo: aDualNumber value) and: [ 
+		  eps closeTo: aDualNumber eps ]
+]
+
 { #category : #'mathematical functions' }
 PMDualNumber >> conjugated [
 	^ self class
@@ -158,8 +165,11 @@ PMDualNumber >> eps: aNumber [
 { #category : #comparing }
 PMDualNumber >> equalsTo: aDualNumber [
 
-	^ (value closeTo: aDualNumber value) and: [ 
-		  eps closeTo: aDualNumber eps ]
+	self
+		deprecated: 'Use closeTo: instead'
+		transformWith: '`@rec equalsTo: `@arg' -> '`@rec closeTo: `@arg'.
+
+	^ self closeTo: aDualNumber 
 ]
 
 { #category : #testing }

src/Math-AutomaticDifferenciation/PMHyperDualNumber.class.st

@@ -96,6 +96,14 @@ PMHyperDualNumber >> arcTan [
 		yourself
 ]
 
+{ #category : #comparing }
+PMHyperDualNumber >> closeTo: aHyperDualNumber [
+
+	^ (super closeTo: aHyperDualNumber) and: [ 
+		  (eps2 closeTo: aHyperDualNumber eps2) and: [ 
+			  eps1eps2 closeTo: aHyperDualNumber eps1eps2 ] ]
+]
+
 { #category : #'mathematical functions' }
 PMHyperDualNumber >> cos [
 	^ super cos
@@ -127,9 +135,11 @@ PMHyperDualNumber >> eps2: anEps2 [
 { #category : #comparing }
 PMHyperDualNumber >> equalsTo: aHyperDualNumber [
 
-	^ (super equalsTo: aHyperDualNumber) and: [ 
-		  (eps2 closeTo: aHyperDualNumber eps2) and: [ 
-			  eps1eps2 closeTo: aHyperDualNumber eps1eps2 ] ]
+	self
+		deprecated: 'Use closeTo: instead'
+		transformWith: '`@rec equalsTo: `@arg' -> '`@rec closeTo: `@arg'.
+
+	^ self closeTo: aHyperDualNumber
 ]
 
 { #category : #'mathematical functions' }

src/Math-Core/SequenceableCollection.extension.st

@@ -1,12 +1,20 @@
 Extension { #name : #SequenceableCollection }
 
 { #category : #'*Math-Core' }
-SequenceableCollection >> equalsTo: aSequenceableCollection [
-
-	"^ self = aSequenceableCollection "
+SequenceableCollection >> closeTo: aSequenceableCollection [
 
 	self
 		with: aSequenceableCollection
 		do: [ :a :b | (a closeTo: b) ifFalse: [ ^ false ] ].
 	^ true
 ]
+
+{ #category : #'*Math-Core' }
+SequenceableCollection >> equalsTo: aSequenceableCollection [
+	
+	self
+		deprecated: 'Use closeTo: instead'
+		transformWith: '`@rec equalsTo: `@arg' -> '`@rec closeTo: `@arg'.
+
+	^ self closeTo: aSequenceableCollection
+]

src/Math-Matrix/PMMatrix.class.st

@@ -483,10 +483,12 @@ PMMatrix >> elementwiseProductWithMatrix: aMatrix [
 
 { #category : #'as yet unclassified' }
 PMMatrix >> equalsTo: aMatrix [
-	self rows 
-			with: aMatrix rows  
-			do: [:a :b| (a equalsTo: b) ifFalse: [ ^false ] ].
-	^ true 
+
+	self
+		deprecated: 'Use closeTo: instead'
+		transformWith: '`@rec equalsTo: `@arg' -> '`@rec closeTo: `@arg'.
+	
+	^ self closeTo: aMatrix
 ]
 
 { #category : #'as yet unclassified' }

src/Math-Numerical/Number.extension.st

@@ -19,8 +19,12 @@ Number >> dividingPolynomial: aPolynomial [
 
 { #category : #'*Math-Numerical' }
 Number >> equalsTo: aNumber [
-		"compare to Float>>closeTo:"
-	^self relativelyEqualsTo: aNumber upTo: PMFloatingPointMachine new defaultNumericalPrecision
+		
+	self
+		deprecated: 'Use closeTo: instead'
+		transformWith: '`@rec equalsTo: `@arg' -> '`@rec closeTo: `@arg'.
+		
+	^ self closeTo: aNumber
 ]
 
 { #category : #'*Math-Numerical' }

src/Math-Numerical/PMNewtonZeroFinder.class.st

@@ -49,7 +49,7 @@ PMNewtonZeroFinder >> computeInitialValues [
 	derivativeBlock isNil
 		ifTrue: [ derivativeBlock := self defaultDerivativeBlock].
 	n := 0.
-	[ (derivativeBlock value: result) equalsTo: 0]
+	[ (derivativeBlock value: result) closeTo: 0]
 		whileTrue: [ n := n + 1.
 					 n > maximumIterations
 						ifTrue: [ self error: 'Function''s derivative seems to be zero everywhere'].

src/Math-ODE/PMAB2Solver.class.st

@@ -34,7 +34,7 @@ PMAB2Solver >> firstStepperClass [
 { #category : #solving }
 PMAB2Solver >> lastStepPrevState: prevState endTime: endTime [
 	"catch partial or full step at end"
-	(lastTime equalsTo: endTime )
+	(lastTime closeTo: endTime )
 	ifFalse:
 		[state := stepper 
 			lastStep: state 

src/Math-ODE/PMAB3Solver.class.st

@@ -21,7 +21,7 @@ PMAB3Solver class >> stepperClass [
 { #category : #'as yet unclassified' }
 PMAB3Solver >> lastStepPrevState: prevState prevPrevState: prevPrevState endTime: endTime [
 	"catch partial or full step at end"
-	(lastTime equalsTo: endTime )
+	(lastTime closeTo: endTime )
 	ifFalse:
 		[state := stepper 
 			lastStep: state 

src/Math-ODE/PMAB4Solver.class.st

@@ -21,7 +21,7 @@ PMAB4Solver class >> thirdStepperClass [
 { #category : #'as yet unclassified' }
 PMAB4Solver >> lastStepPrevState: prevState prevPrevState: prevPrevState initState:initState endTime: endTime [
 	"catch partial or full step at end"
-	(lastTime equalsTo: endTime )
+	(lastTime closeTo: endTime )
 	ifFalse:
 		[state := stepper 
 			lastStep: state 

src/Math-ODE/PMAM3Solver.class.st

@@ -34,7 +34,7 @@ PMAM3Solver >> firstStepperClass [
 { #category : #'as yet unclassified' }
 PMAM3Solver >> lastStepPrevState: prevState endTime: endTime [
 	"catch partial or full step at end"
-	(lastTime equalsTo: endTime )
+	(lastTime closeTo: endTime )
 	ifFalse:
 		[state := stepper 
 			lastStep: state