Merge pull request #295 from jecisc/remove-method-extension-in-their-own-class

Some methods are extensions of their own class. This PR removes that.

Author: olekscode

src/Math-Complex/PMComplexNumber.class.st

@@ -100,7 +100,7 @@ PMComplexNumber class >> one [
 	^ self real: 1 imaginary: 0
 ]
 
-{ #category : #'*Math-Complex' }
+{ #category : #information }
 PMComplexNumber class >> random [
 	"Answers a random number with abs between 0 and 1." 
 	| random |
@@ -246,7 +246,7 @@ PMComplexNumber >> adaptToInteger: rcvr andSend: selector [
 	^ rcvr asComplex perform: selector with: self
 ]
 
-{ #category : #'*Math-Complex' }
+{ #category : #'double dispatch' }
 PMComplexNumber >> addPolynomial: aPolynomial [
 	^ aPolynomial addNumber: self
 ]
@@ -510,7 +510,7 @@ PMComplexNumber >> divideSecureBy: anObject [
 	^ anObject adaptToComplex: self andSend: #/.
 ]
 
-{ #category : #'*Math-Complex' }
+{ #category : #'double dispatch' }
 PMComplexNumber >> dividingPolynomial: aPolynomial [
 	^ aPolynomial timesNumber: 1 / self
 ]
@@ -613,7 +613,7 @@ PMComplexNumber >> printOn: aStream [
 
 ]
 
-{ #category : #'*Math-Complex' }
+{ #category : #'double dispatch' }
 PMComplexNumber >> productWithVector: aVector [
 	"Answers a new vector product of the receiver with aVector."
 
@@ -662,7 +662,7 @@ PMComplexNumber >> raisedToInteger: operand [
 	^ result
 ]
 
-{ #category : #'*Math-Complex' }
+{ #category : #information }
 PMComplexNumber >> random [
 	"analog to Number>>random. However, the only bound is that the abs of the produced complex is less than the length of the receive. The receiver effectively defines a disc within which the random element can be produced."
 	^ self class random * self
@@ -751,7 +751,7 @@ PMComplexNumber >> squaredNorm [
 	^real * real + (imaginary * imaginary)
 ]
 
-{ #category : #'*Math-Complex' }
+{ #category : #'double dispatch' }
 PMComplexNumber >> subtractToPolynomial: aPolynomial [
 	^ aPolynomial addNumber: self negated
 ]
@@ -779,7 +779,7 @@ PMComplexNumber >> tanh [
 	^self i tan i negated
 ]
 
-{ #category : #'*Math-Complex' }
+{ #category : #'double dispatch' }
 PMComplexNumber >> timesPolynomial: aPolynomial [
 	^ aPolynomial timesNumber: self
 ]

src/Math-Complex/PMComplexNumber.extension.st

@@ -55,7 +55,7 @@ PMQuaternion class >> qr: qr qi: qi qj: qj qk: qk [
 		qk: qk
 ]
 
-{ #category : #'*Math-Quaternion' }
+{ #category : #information }
 PMQuaternion class >> random [
 	"Answers a random quaternion with abs at most one."
 
@@ -169,7 +169,7 @@ PMQuaternion >> adaptToInteger: rcvr andSend: selector [
 	^ rcvr asQuaternion perform: selector with: self
 ]
 
-{ #category : #'*Math-Quaternion' }
+{ #category : #'double dispatch' }
 PMQuaternion >> addPolynomial: aPolynomial [
 	^aPolynomial addNumber: self
 ]
@@ -233,7 +233,7 @@ PMQuaternion >> cosh [
 	^(self exp + self negated exp) / 2
 ]
 
-{ #category : #'*Math-Quaternion' }
+{ #category : #'double dispatch' }
 PMQuaternion >> dividingPolynomial: aPolynomial [
 	^aPolynomial timesNumber: (1 / self)
 ]
@@ -387,7 +387,7 @@ PMQuaternion >> printOn: aStream [
 	self storeOn: aStream
 ]
 
-{ #category : #'*Math-Quaternion' }
+{ #category : #'double dispatch' }
 PMQuaternion >> productWithVector: aVector [
 		"Answers a new vector product of the receiver with aVector."
 	^aVector collect: [ :each | each * self]
@@ -463,7 +463,7 @@ PMQuaternion >> raisedToInteger: operand [
 	^ result
 ]
 
-{ #category : #'*Math-Quaternion' }
+{ #category : #information }
 PMQuaternion >> random [
 	"analog to Number>>random. The resulting quaternion will have abs at most that of the receiver"
 	^ self class random * self.
@@ -568,7 +568,7 @@ PMQuaternion >> storeOn: aStream [
 	aStream nextPut: $)
 ]
 
-{ #category : #'*Math-Quaternion' }
+{ #category : #'double dispatch' }
 PMQuaternion >> subtractToPolynomial: aPolynomial [
 	^aPolynomial addNumber: self negated
 ]
@@ -609,7 +609,7 @@ PMQuaternion >> timesNumber: multiplier [
 	^ self class qr: (qr * multiplier) qi: (qi * multiplier) qj: (qj * multiplier)  qk: (qk * multiplier).
 ]
 
-{ #category : #'*Math-Quaternion' }
+{ #category : #'double dispatch' }
 PMQuaternion >> timesPolynomial: aPolynomial [
 	^aPolynomial timesNumber: self
 ]