Float.st
changeset 22560 929729f056e7
parent 22559 ff1a09a98286
child 22578 c31e7ac76ff5
equal deleted inserted replaced
22559:ff1a09a98286 22560:929729f056e7
  1706         self error:'nEpsilon argument must be an integer'.
  1706         self error:'nEpsilon argument must be an integer'.
  1707     ].
  1707     ].
  1708     ^ aNumber isAlmostEqualToFromFloat:self nEpsilon:nE
  1708     ^ aNumber isAlmostEqualToFromFloat:self nEpsilon:nE
  1709 
  1709 
  1710     "
  1710     "
  1711         67329.234 isAlmostEqualTo:67329.23400000001 nEpsilon:1
  1711         67329.234 isAlmostEqualTo:67329.23400000001 nEpsilon:1 
  1712         1.0 isAlmostEqualTo:1.0001 nEpsilon:1
  1712         1.0 isAlmostEqualTo:1.0001 nEpsilon:1                  
  1713         1.0 isAlmostEqualTo:-1.0 nEpsilon:1
  1713         1.0 isAlmostEqualTo:-1.0 nEpsilon:1       
  1714         1 isAlmostEqualTo:1.000000000000001 nEpsilon:1
  1714         1 isAlmostEqualTo:1.000000000000001 nEpsilon:1  
  1715         1 isAlmostEqualTo:1.000000000000001 nEpsilon:10
  1715         1 isAlmostEqualTo:1.000000000000001 nEpsilon:10  
  1716         1.0 isAlmostEqualTo:1 nEpsilon:1
  1716         1.0 isAlmostEqualTo:1 nEpsilon:1
  1717         1.0 isAlmostEqualTo:1 asFraction nEpsilon:1
  1717         1.0 isAlmostEqualTo:1 asFraction nEpsilon:1
  1718     "
  1718     "
  1719 !
  1719 !
  1720 
  1720