--- a/LargeFloat.st	Fri Nov 12 13:09:17 2004 +0100
+++ b/LargeFloat.st	Fri Nov 12 13:24:19 2004 +0100
@@ -38,7 +38,7 @@
 documentation
 "
     Experimental Code.
-    The implementation is neither complete nor tuned for performance - Still being developed.
+    The implementation is neither complete nor tuned for performance - still being developed.
 
     This class provides arbitrary precision floats. These are represented as:
       exponent,
@@ -240,6 +240,14 @@
     "
 ! !
 
+!LargeFloat class methodsFor:'queries'!
+
+radix
+   "answer the radix of a LargeFloats exponent"
+
+    ^ 2 
+! !
+
 !LargeFloat methodsFor:'accessing'!
 
 exponent
@@ -674,6 +682,21 @@
     "
 ! !
 
+!LargeFloat methodsFor:'queries'!
+
+epsilon
+   "answer the radix of a LargeFloats exponent"
+
+    |p|
+
+    p := precision.
+    p isFinite ifTrue:[
+        ^ self class radix asFloat raisedTo:(1 - p)
+    ].
+    "/ mhmh - what should we use here ???
+    ^ LongFloat epsilon
+! !
+
 !LargeFloat methodsFor:'testing'!
 
 isFinite
@@ -712,7 +735,7 @@
 !LargeFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeFloat.st,v 1.6 2003-08-13 13:11:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeFloat.st,v 1.7 2004-11-12 12:23:46 cg Exp $'
 ! !
 
 LargeFloat initialize!