Fix close to computation with precision of HyperDualNumber

jecisc · jecisc · commit 882ce3ad4671 · 2023-03-14T11:36:07.000+01:00
diff --git a/src/Math-AutomaticDifferenciation/PMHyperDualNumber.class.st b/src/Math-AutomaticDifferenciation/PMHyperDualNumber.class.st
@@ -104,6 +104,13 @@ PMHyperDualNumber >> closeTo: aHyperDualNumber [
 			  eps1eps2 closeTo: aHyperDualNumber eps1eps2 ] ]
 ]
 
+{ #category : #comparing }
+PMHyperDualNumber >> closeTo: aHyperDualNumber precision: aPrecision [
+
+	^ (super closeTo: aHyperDualNumber asFloat precision: aPrecision) and: [
+		  (eps2 closeTo: aHyperDualNumber eps2 precision: aPrecision) and: [ eps1eps2 closeTo: aHyperDualNumber eps1eps2 precision: aPrecision ] ]
+]
+
 { #category : #'mathematical functions' }
 PMHyperDualNumber >> cos [
 	^ super cos
