#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 06 Jun 2019 18:02:23 +0200
changeset 24262 dc3f1cc84694
parent 24261 471fee9a83c6
child 24263 9b19f063bb70
#REFACTORING by cg class: Number class added: #eDigits #piDigits
Number.st
--- a/Number.st	Thu Jun 06 18:02:06 2019 +0200
+++ b/Number.st	Thu Jun 06 18:02:23 2019 +0200
@@ -730,6 +730,16 @@
     "Modified: / 16-06-2017 / 11:04:49 / cg"
 !
 
+eDigits
+    "return th printString of the irrational number e,
+     with enough digits so that instances with different precision can read from it"
+
+    "/ number asked from wolfram 
+    ^ '2.71828182845904523536028747135266249775724709369995957496696762772407663035354759457138217852516642742746'
+
+    "Created: / 06-06-2019 / 16:58:50 / Claus Gittinger"
+!
+
 epsilon
     "return the maximum relative spacing of instances of mySelf
      (i.e. the value-delta of the least significant bit)"
@@ -782,6 +792,18 @@
     ^ self subclassResponsibility
 
     "Modified (format): / 16-06-2017 / 11:00:42 / cg"
+!
+
+piDigits
+    "return th printString of the irrational number pi,
+     with enough digits so that instances with different precision can read from it"
+
+    "/ number asked from wolfram 
+    "/ ^ '3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491298336733624406566430860213949463952247371907021798609437027705392171762931767523846748184676694051320005681271452635608277857713427577896091736371787214684409012249534301465495853710507922796892589235420199561121290219608640344181598136297747713099605187072113499999983729780499510597317328160963185950244594553469083026425223082533446850352619311881710100031378387528865875332083814206171776691473035982534904'
+    "/ rounded to 100 digits
+    ^ '3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117068'
+
+    "Created: / 06-06-2019 / 17:08:17 / Claus Gittinger"
 ! !
 
 !Number class methodsFor:'constants & defaults'!
@@ -963,7 +985,6 @@
     "
 ! !
 
-
 !Number class methodsFor:'private'!
 
 readMantissaAndScaleFrom:aStream radix:radix
@@ -1060,7 +1081,6 @@
     ^ self == Number
 ! !
 
-
 !Number methodsFor:'Compatibility-Squeak'!
 
 asSmallAngleDegrees
@@ -1967,10 +1987,6 @@
     ^ self
 ! !
 
-
-
-
-
 !Number methodsFor:'printing & storing'!
 
 displayOn:aGCOrStream
@@ -3613,7 +3629,6 @@
     "
 ! !
 
-
 !Number class methodsFor:'documentation'!
 
 version