¦X¦: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) Нет описания правки |
||
Строка 1: | Строка 1: | ||
'''|X|''' (абсолютное значение) — стандартное слово [[Каллисто]]. | '''|X|''' (абсолютное значение) — стандартное слово [[Каллисто]]. Вычисление модуля. | ||
( x -- p ) | |||
p — абсолютная величина числа x, т.е. тоже значение числа, но непременно положительное. | |||
Для нуля и положительных чисел p=x, для отрицательных чисел p=-x. | |||
== Детали реализации == | |||
Слово является «обёрткой» вокруг команды ЭКВМ [[K ABS|К |x|]]. | Слово является «обёрткой» вокруг команды ЭКВМ [[K ABS|К |x|]]. | ||
== FABS в стандарте ANS Forth == | == FABS в стандарте ANS Forth == | ||
Строка 10: | Строка 13: | ||
( F: r1 -- r2 ) or ( r1 -- r2 ) | ( F: r1 -- r2 ) or ( r1 -- r2 ) | ||
r2 - абсолютное значение r1. | r2 - абсолютное значение r1. | ||
== ABS в стандарте ANS Forth == | == ABS в стандарте ANS Forth == | ||
Строка 16: | Строка 18: | ||
( n -- u ) | ( n -- u ) | ||
u - абсолютное значение n. | u - абсолютное значение n. | ||
== ABS в предыдущем стандарте Forth-83 (англ.) == | == ABS в предыдущем стандарте Forth-83 (англ.) == | ||
Строка 22: | Строка 23: | ||
u is the absolute value of n. If n is -32,768 then u is the | u is the absolute value of n. If n is -32,768 then u is the | ||
same value. See: "arithmetic, two's complement" | same value. See: "arithmetic, two's complement" | ||
== ABS в стандарте Forth-79 (англ.) == | == ABS в стандарте Forth-79 (англ.) == | ||
ABS n1 -- n1 108 "absolute" | ABS n1 -- n1 108 "absolute" | ||
Leave the absolute value of a number. | Leave the absolute value of a number. | ||
== ABS в fig-FORTH Release 1 glossary, май 1979 (англ.) == | == ABS в fig-FORTH Release 1 glossary, май 1979 (англ.) == | ||
ABS n --- u L0 | ABS n --- u L0 | ||
Leave the absolute value of n as u. | Leave the absolute value of n as u. | ||
== Реализация |X| == | == Реализация |X| == | ||
Строка 38: | Строка 36: | ||
: |X| ( A ---> абс A ) ↑ 0< IF NEGATE THEN ; | : |X| ( A ---> абс A ) ↑ 0< IF NEGATE THEN ; | ||
== История == | |||
В отличие от Форта-83, в [[Каллисто]] абсолютная величина -32768 равна 32768. | |||
== Ссылки == | == Ссылки == | ||
* [http://ru.wikipedia.org/wiki/%D0%90%D0%B1%D1%81%D0%BE%D0%BB%D1%8E%D1%82%D0%BD%D0%B0%D1%8F_%D0%B2%D0%B5%D0%BB%D0%B8%D1%87%D0%B8%D0%BD%D0%B0 Абсолютная величина в Википедии] | |||
* [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0690 Слово ABS (abs) в стандарте ANS Forth] ''(англ.)'' | * [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0690 Слово ABS (abs) в стандарте ANS Forth] ''(англ.)'' | ||
* [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.2.1474 Слово FABS (f-abs) в стандарте ANS Forth] ''(англ.)'' | * [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.2.1474 Слово FABS (f-abs) в стандарте ANS Forth] ''(англ.)'' | ||
Строка 51: | Строка 52: | ||
[[Категория:Арифметические операции Каллисто]] | [[Категория:Арифметические операции Каллисто]] | ||
[[Категория:Одноместные операции Каллисто]] | [[Категория:Одноместные операции Каллисто]] | ||
[[Категория: | [[Категория:Описание бета-версии Каллисто]] |
Версия от 13:17, 24 октября 2015
|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 (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |