equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1988 by Claus Gittinger |
2 COPYRIGHT (c) 1988 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
897 epsilon |
895 epsilon |
898 "return the maximum relative spacing of instances of mySelf |
896 "return the maximum relative spacing of instances of mySelf |
899 (i.e. the value-delta of the least significant bit)" |
897 (i.e. the value-delta of the least significant bit)" |
900 |
898 |
901 Epsilon isNil ifTrue:[ |
899 Epsilon isNil ifTrue:[ |
902 Epsilon := self computeEpsilon. |
900 Epsilon := self computeEpsilon. |
903 ]. |
901 ]. |
904 ^ Epsilon |
902 ^ Epsilon |
|
903 |
|
904 " |
|
905 Float epsilon -> 1.11022302462516E-16 |
|
906 ShortFloat epsilon -> 5.960464e-08 |
|
907 LongFloat epsilon -> 5.42101086242752217E-20 |
|
908 QuadFloat epsilon -> |
|
909 " |
905 |
910 |
906 "Modified (comment): / 22-06-2017 / 13:44:12 / cg" |
911 "Modified (comment): / 22-06-2017 / 13:44:12 / cg" |
907 ! |
912 ! |
908 |
913 |
909 exponentCharacter |
914 exponentCharacter |