[48] Moved the message to the Quaternion package as part of merging

the Extensions package with the aforementioned.

Author: hemalvarambhia

src/Math-Quaternion/Quaternion.class.st

@@ -55,6 +55,16 @@ Quaternion class >> qr: qr qi: qi qj: qj qk: qk [
 		qk: qk
 ]
 
+{ #category : #'*Math-Quaternion' }
+Quaternion class >> random [
+		"Answers a random quaternion with abs at most one."
+
+	^ (0.5 - Float random) 
+		i: (0.5 - Float random)
+		j: (0.5 - Float random)
+		k: (0.5 - Float random).
+]
+
 { #category : #'constants access' }
 Quaternion class >> zero [
 	^self 

src/Math-Quaternion/Quaternion.extension.st

@@ -31,6 +31,16 @@ Quaternion >> random [
 	^ self class random * self.
 ]
 
+{ #category : #'*Math-Quaternion' }
+Quaternion class >> random [
+		"Answers a random quaternion with abs at most one."
+
+	^ (0.5 - Float random) 
+		i: (0.5 - Float random)
+		j: (0.5 - Float random)
+		k: (0.5 - Float random).
+]
+
 { #category : #'*Math-Quaternion' }
 Quaternion >> subtractToPolynomial: aPolynomial [
 		"(c) Copyrights Didier BESSET, 1999, all rights reserved.