Fixed PMComplex class >> random

Author: olekscode

src/Math-Complex/PMComplex.class.st

@@ -102,9 +102,13 @@ PMComplex class >> one [
 
 { #category : #'*Math-Complex' }
 PMComplex class >> random [
-		"Answers a random number with abs between 0 and 1." 
-
-	^ self abs: 1.0 random arg: 2 * Float pi random
+	"Answers a random number with abs between 0 and 1." 
+	| random |
+	random := Random new.
+	
+	^ self
+		abs: random next
+		arg: 2 * (random nextBetween: 0 and: Float pi)
 ]
 
 { #category : #'instance creation' }

src/Math-Complex/PMComplex.extension.st

@@ -17,20 +17,24 @@ PMComplex >> productWithVector: aVector [
 	^ aVector collect: [ :each | each * self ]
 ]
 
-{ #category : #'*Math-Complex' }
-PMComplex class >> random [
-		"Answers a random number with abs between 0 and 1." 
-
-	^ self abs: 1.0 random arg: 2 * Float pi random
-]
-
 { #category : #'*Math-Complex' }
 PMComplex >> 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
 
 ]
 
+{ #category : #'*Math-Complex' }
+PMComplex class >> random [
+	"Answers a random number with abs between 0 and 1." 
+	| random |
+	random := Random new.
+	
+	^ self
+		abs: random next
+		arg: 2 * (random nextBetween: 0 and: Float pi)
+]
+
 { #category : #'*Math-Complex' }
 PMComplex >> subtractToPolynomial: aPolynomial [
 	^ aPolynomial addNumber: self negated