LimitedPrecisionReal.st
changeset 24229 9e72879e5365
parent 24203 5907279a90ef
child 24264 45aec98294cc
equal deleted inserted replaced
24228:31bd39f0a432 24229:9e72879e5365
  1502    "redefined since reals are kludgy (ByteArry)"
  1502    "redefined since reals are kludgy (ByteArry)"
  1503 
  1503 
  1504    ^ 0
  1504    ^ 0
  1505 ! !
  1505 ! !
  1506 
  1506 
  1507 
       
  1508 !LimitedPrecisionReal methodsFor:'special access'!
  1507 !LimitedPrecisionReal methodsFor:'special access'!
  1509 
  1508 
  1510 partValues:aBlock
  1509 partValues:aBlock
  1511     "invoke aBlock with sign, exponent and abs(mantissa)"
  1510     "invoke aBlock with sign, exponent and abs(mantissa)"
  1512 
  1511 
  1518     "
  1517     "
  1519      1.0 partValues:[:sign :exp :mantissa | Transcript showCR:'%1/%2/%3' with:sign with:exp with:mantissa].
  1518      1.0 partValues:[:sign :exp :mantissa | Transcript showCR:'%1/%2/%3' with:sign with:exp with:mantissa].
  1520      2.0 partValues:[:sign :exp :mantissa | Transcript showCR:'%1/%2/%3' with:sign with:exp with:mantissa].
  1519      2.0 partValues:[:sign :exp :mantissa | Transcript showCR:'%1/%2/%3' with:sign with:exp with:mantissa].
  1521      -1.0 partValues:[:sign :exp :mantissa | Transcript showCR:'%1/%2/%3' with:sign with:exp with:mantissa].
  1520      -1.0 partValues:[:sign :exp :mantissa | Transcript showCR:'%1/%2/%3' with:sign with:exp with:mantissa].
  1522      -2.0 partValues:[:sign :exp :mantissa | Transcript showCR:'%1/%2/%3' with:sign with:exp with:mantissa].
  1521      -2.0 partValues:[:sign :exp :mantissa | Transcript showCR:'%1/%2/%3' with:sign with:exp with:mantissa].
       
  1522 
       
  1523      1.0 asShortFloat partValues:[:sign :exp :mantissa | Transcript showCR:'%1/%2/%3' with:sign with:exp with:mantissa].
       
  1524      1.0 asLongFloat partValues:[:sign :exp :mantissa | Transcript showCR:'%1/%2/%3' with:sign with:exp with:mantissa].
       
  1525      1.0 asLargeFloat partValues:[:sign :exp :mantissa | Transcript showCR:'%1/%2/%3' with:sign with:exp with:mantissa].
  1523     "
  1526     "
  1524 
  1527 
  1525     "Created: / 26-05-2019 / 03:11:28 / Claus Gittinger"
  1528     "Created: / 26-05-2019 / 03:11:28 / Claus Gittinger"
  1526     "Modified (comment): / 26-05-2019 / 10:59:46 / Claus Gittinger"
  1529     "Modified (comment): / 29-05-2019 / 03:49:20 / Claus Gittinger"
  1527 ! !
  1530 ! !
  1528 
  1531 
  1529 !LimitedPrecisionReal methodsFor:'testing'!
  1532 !LimitedPrecisionReal methodsFor:'testing'!
  1530 
  1533 
  1531 isFinite
  1534 isFinite