Remove unused temporaries

Author: jecisc

src/Math-ODE/PMExplicitStepper.class.st

@@ -33,9 +33,9 @@ PMExplicitStepper >> doStep: aState time: t [
 { #category : #stepping }
 PMExplicitStepper >> doStep: aState time: t stepSize: timeStep [
 	"This method should take one step from inState at time t of size dt, and modify the state, then answer it. The default implementation here is Euler Method. Subclasses should override"
-	| dxdt |
+
 	self stepSize: timeStep.
-	^ self doStep: aState  time:  t.
+	^ self doStep: aState time: t
 ]
 
 { #category : #stepping }

src/Math-Tests-ArbitraryPrecisionFloat/PMArbitraryPrecisionFloatTest.class.st

@@ -162,14 +162,7 @@ PMArbitraryPrecisionFloatTest >> testArcCos [
 	"seconds"
 
 	<timeout: 10>
-	| badArcCos |
-	badArcCos := self
-		checkDoublePrecisionSerieVsFloat: self inverseTrigonometricSerie
-		forFunction: #arcCos.
-	"badArcCos isEmpty
-		ifFalse: [ Transcript
-				cr;
-				show: 'bad arcCos for ' , badArcCos printString ]"
+	self checkDoublePrecisionSerieVsFloat: self inverseTrigonometricSerie forFunction: #arcCos
 ]
 
 { #category : #'testing-trigonometry' }
@@ -183,14 +176,7 @@ PMArbitraryPrecisionFloatTest >> testArcSin [
 	"seconds"
 
 	<timeout: 10>
-	| badArcSin |
-	badArcSin := self
-		checkDoublePrecisionSerieVsFloat: self inverseTrigonometricSerie
-		forFunction: #arcSin.
-"	badArcSin isEmpty
-		ifFalse: [ Transcript
-				cr;
-				show: 'bad arcSin for ' , badArcSin printString ]"
+	self checkDoublePrecisionSerieVsFloat: self inverseTrigonometricSerie forFunction: #arcSin
 ]
 
 { #category : #'testing-trigonometry' }
@@ -204,15 +190,9 @@ PMArbitraryPrecisionFloatTest >> testArcTan [
 	"seconds"
 
 	<timeout: 10>
-	| badArcTan serie |
+	| serie |
 	serie := (-50 to: 50) collect: [ :e | (e / 10) asFloat ].
-	badArcTan := self
-		checkDoublePrecisionSerieVsFloat: serie
-		forFunction: #arcTan.
-"	badArcTan isEmpty
-		ifFalse: [ Transcript
-				cr;
-				show: 'bad arcTan for ' , badArcTan printString ]"
+	self checkDoublePrecisionSerieVsFloat: serie forFunction: #arcTan
 ]
 
 { #category : #'testing-trigonometry' }
@@ -397,16 +377,7 @@ PMArbitraryPrecisionFloatTest >> testCos [
 	"seconds"
 
 	<timeout: 30>
-	| badCos |
-	badCos := self
-		checkDoublePrecisionSerieVsFloat: self trigonometricSerie
-		forFunction: #cos.
-"	badCos isEmpty
-		ifFalse: [ Transcript
-				cr;
-				show:
-					'bad cos for angles (degrees) '
-						, (badCos collect: [ :i | i radiansToDegrees rounded ]) printString ]"
+	self checkDoublePrecisionSerieVsFloat: self trigonometricSerie forFunction: #cos
 ]
 
 { #category : #'testing-hyperbolic' }
@@ -788,16 +759,7 @@ PMArbitraryPrecisionFloatTest >> testSin [
 	"seconds"
 
 	<timeout: 30>
-	| badSin |
-	badSin := self
-		checkDoublePrecisionSerieVsFloat: self trigonometricSerie
-		forFunction: #sin.
-"	badSin isEmpty
-		ifFalse: [ Transcript
-				cr;
-				show:
-					'bad sin for angles (degrees) '
-						, (badSin collect: [ :i | i radiansToDegrees rounded ]) printString ]"
+	self checkDoublePrecisionSerieVsFloat: self trigonometricSerie forFunction: #sin
 ]
 
 { #category : #'testing-trigonometry' }
@@ -878,16 +840,7 @@ PMArbitraryPrecisionFloatTest >> testTan [
 	"seconds"
 
 	<timeout: 30>
-	| badTan |
-	badTan := self
-		checkDoublePrecisionSerieVsFloat: self trigonometricSerie
-		forFunction: #tan.
-"	badTan isEmpty
-		ifFalse: [ Transcript
-				cr;
-				show:
-					'bad tan for angles (degrees) '
-						, (badTan collect: [ :i | i radiansToDegrees rounded ]) printString ]"
+	self checkDoublePrecisionSerieVsFloat: self trigonometricSerie forFunction: #tan
 ]
 
 { #category : #'testing-hyperbolic' }

src/Math-Tests-Complex/PMComplexNumberTest.class.st

@@ -546,13 +546,13 @@ PMComplexNumberTest >> testNew [
 { #category : #'testing - expressing complex numbers' }
 PMComplexNumberTest >> testNormalizedFractionsOfComplexNumbersCannotBeWritten [
 
-	| z w numerator denominator |
+	| z w numerator |
 	z := 1 + 2 i.
 	w := 3 + 4 i.
 	numerator := z * w complexConjugate.
-	denominator := w squaredNorm.
-	
-	self should: [ Fraction numerator: numerator denominator: w squaredNorm ] raise: Exception.
+	w squaredNorm.
+
+	self should: [ Fraction numerator: numerator denominator: w squaredNorm ] raise: Exception
 ]
 
 { #category : #'testing - close to' }

src/Math-Tests-KDTree/PMNNStoreTest.class.st

@@ -176,16 +176,14 @@ PMNNStoreTest >> testNewFrom [
 { #category : #tests }
 PMNNStoreTest >> testWithAll [
 
-	| n array |
+	| n |
 	n := PMNNStore withAll: #( 2 5 4 ).
-	self
-		assert: n completeData
-		equals: #( #( nil 2 ) #( nil 5 ) #( nil 4 ) ).
+	self assert: n completeData equals: #( #( nil 2 ) #( nil 5 ) #( nil 4 ) ).
 	n sortFor: nil. "calling sortFor: is necessary with withAll:"
 	self assert: n data equals: #( 2 4 5 ).
 	self assert: n isFull.
-	n add: #(3 6) copy. 
-	
+	n add: #( 3 6 ) copy.
+
 	"one has to be a bit carefull when one uses 
 				 PMNNStore withAll:, as sortfor: changes this data. 
 				 n add: #(3 6) is not possible here!"

src/Math-Tests-Polynomials/PMPolynomialTest.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #PMPolynomialTest,
 	#superclass : #TestCase,
-	#category : 'Math-Tests-Polynomials'
+	#category : #'Math-Tests-Polynomials'
 }
 
 { #category : #comparing }
@@ -56,11 +56,11 @@ PMPolynomialTest >> testPolynomialDivision [
 { #category : #'function evaluation' }
 PMPolynomialTest >> testPolynomialDivisionBug [
 	"identify an error when trying to create a zero dividend"
-	| pol1 pol2 polynomial |
-	pol1 := PMPolynomial coefficients: #(2 -3 1).
-	pol2 := PMPolynomial coefficients: #(-6 23 -20 3 -1 1).
-	self shouldnt: [polynomial := pol1 / pol2] raise: Error.
-	
+
+	| pol1 pol2 |
+	pol1 := PMPolynomial coefficients: #( 2 -3 1 ).
+	pol2 := PMPolynomial coefficients: #( -6 23 -20 3 -1 1 ).
+	self shouldnt: [ pol1 / pol2 ] raise: Error
 ]
 
 { #category : #arithmetic }