¦X¦

|X| (абсолютное значение) — стандартное слово Каллисто. Вычисление модуля.

( x -- p )

p — абсолютная величина числа x, т.е. тоже значение числа, но непременно положительное.

Для нуля и положительных чисел p=x, для отрицательных чисел p=−x.

Детали реализации

Слово является «обёрткой» вокруг команды ЭКВМ К |x|.

FABS в стандарте ANS Forth

12.6.2.1474   FABS                           "f-abs"               FLOATING EXT
           ( F: r1 -- r2 ) or ( r1 -- r2 )
           r2 - абсолютное значение r1.

ABS в стандарте ANS Forth

6.1.0690   ABS                                 "abs"                       CORE
           ( n -- u )
           u - абсолютное значение n.

ABS в предыдущем стандарте Forth-83 (англ.)

     ABS          n -- u                        79          "absolute"
          u is the absolute value of n.  If n is -32,768 then u is the
          same value.  See:  "arithmetic, two's complement"

ABS в стандарте Forth-79 (англ.)

ABS            n1 -- n1                      108         "absolute"
    Leave the absolute value of a number.

ABS в fig-FORTH Release 1 glossary, май 1979 (англ.)

ABS           n  ---  u                        L0
       Leave the absolute value of n as u.

Реализация |X|

У Баранова-Ноздрунова приводится следующее описание слова |X| (стр. 28):

 : |X|   ( A ---> абс A )    ↑ 0< IF NEGATE THEN ;

История

В отличие от Форта-83, в Каллисто абсолютная величина -32768 равна 32768.

Ссылки

• См. слово ЗН
• Абсолютная величина в Википедии
• Слово ABS (abs) в стандарте ANS Forth (англ.)
• Слово FABS (f-abs) в стандарте ANS Forth (англ.)
• Слово ABS (abs) в черновике Forth 200x (англ.)
• Слово FABS (f-abs) в черновике Forth 200x (англ.)

У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.

Это заготовка статьи. Вы можете помочь проекту, дополнив её.