LimitedPrecisionReal.st
changeset 8202 2a6c8d1e26cb
parent 8184 705588500fcf
child 8395 6bd97113cb4c
--- a/LimitedPrecisionReal.st	Tue Mar 16 00:33:11 2004 +0100
+++ b/LimitedPrecisionReal.st	Tue Mar 16 09:52:06 2004 +0100
@@ -388,52 +388,6 @@
 
 !LimitedPrecisionReal methodsFor:'coercing & converting'!
 
-asFixedPoint
-    "return the receiver as fixedPoint number.
-     Q: what should the scale be here ?"
-
-    ^ self asFraction asFixedPoint
-
-    "
-     0.3 asFixedPoint
-     0.5 asFixedPoint
-     (1/5) asFloat asFixedPoint 
-     (1/3) asFloat asFixedPoint 
-     (2/3) asFloat asFixedPoint 
-     (1/8) asFloat asFixedPoint
-     3.14159 asFixedPoint
-     0.0000001 asFraction
-     0.0000001 asFixedPoint
-    "
-
-    "Modified: / 25.10.1997 / 15:36:54 / cg"
-!
-
-asFixedPoint:scale
-    "return the receiver as fixedPoint number with the given
-     number of post-decimal-digits."
-
-    ^ self asFraction asFixedPoint:scale
-
-    "
-     0.3 asFixedPoint:4     
-     0.3 asFixedPoint:3     
-     0.3 asFixedPoint:2     
-     0.3 asFixedPoint:1     
-     0.3 asFixedPoint:0
-
-     0.5 asFixedPoint:3     
-     (1/5) asFloat asFixedPoint:1  
-     (1/8) asFloat asFixedPoint:1  
-     1.0 asFixedPoint:2 
-     3.14159 asFixedPoint:2       
-     3.14159 asFixedPoint:3       
-     (3.14159 asFixedPoint:2) asFixedPoint:5  
-    "
-
-    "Modified: / 5.8.1998 / 13:29:51 / cg"
-!
-
 asFloat
     ^ Float fromLimitedPrecisionReal:self
 !
@@ -1018,7 +972,7 @@
 !LimitedPrecisionReal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.58 2004-03-12 18:49:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.59 2004-03-16 08:52:06 stefan Exp $'
 ! !
 
 LimitedPrecisionReal initialize!