equal
deleted
inserted
replaced
516 Abstract subclasses must redefine this again." |
516 Abstract subclasses must redefine this again." |
517 |
517 |
518 ^ self == ArithmeticValue |
518 ^ self == ArithmeticValue |
519 ! ! |
519 ! ! |
520 |
520 |
|
521 |
521 !ArithmeticValue methodsFor:'arithmetic'! |
522 !ArithmeticValue methodsFor:'arithmetic'! |
522 |
523 |
523 * something |
524 * something |
524 "return the product of the receiver and the argument." |
525 "return the product of the receiver and the argument." |
525 |
526 |
1080 |
1081 |
1081 ^ self asFloat asLongFloat "/ subclassResponsibility |
1082 ^ self asFloat asLongFloat "/ subclassResponsibility |
1082 |
1083 |
1083 "Modified: / 17.4.1996 / 12:21:35 / cg" |
1084 "Modified: / 17.4.1996 / 12:21:35 / cg" |
1084 "Created: / 7.9.2001 / 13:39:31 / cg" |
1085 "Created: / 7.9.2001 / 13:39:31 / cg" |
1085 ! |
|
1086 |
|
1087 asQuadFloat |
|
1088 "return a quadFloat with same value" |
|
1089 |
|
1090 "WARNING: could loose precision here, if not redefined in concrete classes which |
|
1091 have more than float precision (i.e. LargeIntegers and Fractions)" |
|
1092 |
|
1093 ^ self asFloat asQuadFloat "/ subclassResponsibility |
|
1094 |
|
1095 "Created: / 07-06-2019 / 02:28:54 / Claus Gittinger" |
|
1096 ! |
1086 ! |
1097 |
1087 |
1098 asScaledDecimal:scale |
1088 asScaledDecimal:scale |
1099 "return a fixedPoint approximating the receiver's value" |
1089 "return a fixedPoint approximating the receiver's value" |
1100 |
1090 |