Fix precisions

Author: jecisc

src/Math-Tests-ODE/PMBDF4StepperTest.class.st

@@ -44,54 +44,43 @@ PMBDF4StepperTest >> testSimpleSystem2 [
 
 { #category : #'tests-stepping' }
 PMBDF4StepperTest >> testSimpleSystem3 [
+
 	| solver stepper system dt |
 	dt := 0.5.
 	system := PMImplicitSystem block: [ :x :t | 2 * t * x ].
 	stepper := PMBDF4Stepper onSystem: system.
 	solver := PMBDF4Solver new
-		stepper: stepper;
-		system: system;
-		dt: dt.
-	self
-		assert:
-			((solver
-				solve: system
-				startState: 1
-				startTime: 0
-				endTime: 0.5) closeTo: 1.75).
-	self
-		assert:
-			((solver
-				solve: system
-				startState: 1
-				startTime: 0
-				endTime: 1.0) closeTo: 3.75).
-	self
-		assert:
-			((solver
-				solve: system
-				startState: 1
-				startTime: 0
-				endTime: 1.5) closeTo: 11.0227).
-	self
-		assert:
-			((solver
-				solve: system
-				startState: 1
-				startTime: 0
-				endTime: 2.0) closeTo: 43.2181).
-	self
-		assert:
-			((solver
-				solve: system
-				startState: 1
-				startTime: 0
-				endTime: 2.3) closeTo: 132.2771).
-	self
-		assert:
-			((solver
-				solve: system
-				startState: 1
-				startTime: 0
-				endTime: 2.5) closeTo: 224.881)
+		          stepper: stepper;
+		          system: system;
+		          dt: dt.
+	self assert: ((solver
+			  solve: system
+			  startState: 1
+			  startTime: 0
+			  endTime: 0.5) closeTo: 1.75).
+	self assert: ((solver
+			  solve: system
+			  startState: 1
+			  startTime: 0
+			  endTime: 1.0) closeTo: 3.75).
+	self assert: ((solver
+			  solve: system
+			  startState: 1
+			  startTime: 0
+			  endTime: 1.5) closeTo: 11.0227).
+	self assert: ((solver
+			  solve: system
+			  startState: 1
+			  startTime: 0
+			  endTime: 2.0) closeTo: 43.2181).
+	self assert: ((solver
+			  solve: system
+			  startState: 1
+			  startTime: 0
+			  endTime: 2.3) closeTo: 132.2771).
+	self assert: ((solver
+			  solve: system
+			  startState: 1
+			  startTime: 0
+			  endTime: 2.5) closeTo: 224.881 precision: 0.001)
 ]

src/Math-Tests-ODE/PMRungeKuttaStepperTest.class.st

@@ -6,17 +6,15 @@ Class {
 
 { #category : #'tests-stepping' }
 PMRungeKuttaStepperTest >> testDoStepTimeStepSize1 [
+
 	| stepper sys dt |
 	sys := PMExplicitSystem block: [ :x :t | x * t ].
 	stepper := PMRungeKuttaStepper onSystem: sys.
 	dt := 0.1.
-	self assert: ((stepper doStep: 0 time: 10 stepSize: dt) closeTo: 0.0).
-	self
-		assert: ((stepper doStep: 10 time: 0 stepSize: dt) closeTo: 10.05).
-	self
-		assert: ((stepper doStep: 1 time: 1 stepSize: dt) closeTo: 1.1107).
-	self
-		assert: ((stepper doStep: 10 time: 1 stepSize: dt) closeTo: 11.1071)
+	self assert: ((stepper doStep: 0 time: 10 stepSize: dt) closeTo: 0.0 precision: 0.01).
+	self assert: ((stepper doStep: 10 time: 0 stepSize: dt) closeTo: 10.05 precision: 0.01).
+	self assert: ((stepper doStep: 1 time: 1 stepSize: dt) closeTo: 1.1107 precision: 0.01).
+	self assert: ((stepper doStep: 10 time: 1 stepSize: dt) closeTo: 11.1071 precision: 0.01)
 ]
 
 { #category : #'tests-stepping' }

src/Math-Tests-ODE/PMTrapezoidStepperTest.class.st

@@ -26,17 +26,15 @@ PMTrapezoidStepperTest >> testDoStepTime [
 
 { #category : #'tests-stepping' }
 PMTrapezoidStepperTest >> testDoStepTimeStepSize1 [
+
 	| stepper sys dt |
 	sys := PMImplicitSystem block: [ :x :t | x * t ].
 	stepper := PMTrapezoidStepper onSystem: sys.
 	dt := 0.1.
-	self assert: ((stepper doStep: 0 time: 10 stepSize: dt) closeTo: 0.0).
-	self
-		assert: ((stepper doStep: 10 time: 0 stepSize: dt) closeTo: 10.05).
-	self
-		assert: ((stepper doStep: 1 time: 1 stepSize: dt) closeTo: 1.1111).
-	self
-		assert: ((stepper doStep: 10 time: 1 stepSize: dt) closeTo: 11.11)
+	self assert: ((stepper doStep: 0 time: 10 stepSize: dt) closeTo: 0.0 precision: 0.01).
+	self assert: ((stepper doStep: 10 time: 0 stepSize: dt) closeTo: 10.05 precision: 0.01).
+	self assert: ((stepper doStep: 1 time: 1 stepSize: dt) closeTo: 1.11 precision: 0.01).
+	self assert: ((stepper doStep: 10 time: 1 stepSize: dt) closeTo: 11.11 precision: 0.01)
 ]
 
 { #category : #'tests-stepping' }