Редактирование: Слово /−/
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 1: | Строка 1: | ||
'''/−/''' (обратный знак, смена знака) — | '''/−/''' (обратный знак, смена знака) — стандартное слово [[Каллисто]]. Смена знака числа. | ||
/−/ ( x -- x1 ) Смена знака. x1 ← −x | /−/ ( x -- x1 ) Смена знака. x1 ← −x | ||
x1 — число, противоположное x, то есть нуль минус x. | x1 — число, противоположное x, то есть нуль минус x. | ||
Строка 8: | Строка 8: | ||
В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]] [[Клавиша -|{{Серая клавиша|−}}]] [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]] | В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]] [[Клавиша -|{{Серая клавиша|−}}]] [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]] | ||
== | == Детали реализации == | ||
Слово /−/ является «обёрткой» вокруг [[Команда /−/|команды ЭКВМ /−/ («смена знака»)]]. | |||
== FNEGATE в стандарте ANS Forth == | |||
12.6.1.1567 FNEGATE "f-negate" FLOATING | 12.6.1.1567 FNEGATE "f-negate" FLOATING | ||
( F: r1 -- r2 ) or ( r1 -- r2 ) | ( F: r1 -- r2 ) or ( r1 -- r2 ) | ||
r2 - отрицание r1. | r2 - отрицание r1. | ||
== | == NEGATE в стандарте ANS Forth == | ||
6.1.1910 NEGATE CORE | |||
( n1 -- n2 ) | |||
Отрицание n1, возвращает его арифметическую инверсию n2. | |||
См.: 6.1.1720 INVERT, 6.1.0270 0=. | |||
== NEGATE в предыдущем стандарте Forth-83 (англ.) == | |||
NEGATE n1 -- n2 79 | NEGATE n1 -- n2 79 | ||
n2 is the two's complement of n1, i.e, the difference of | n2 is the two's complement of n1, i.e, the difference of | ||
zero less n1. | zero less n1. | ||
== NEGATE в стандарте Forth-79 (англ.) == | |||
NEGATE n -- -n 177 | NEGATE n -- -n 177 | ||
Leave the two's complement of a number, i.e., the difference | Leave the two's complement of a number, i.e., the difference | ||
of zero less n. | of zero less n. | ||
== MINUS в fig-FORTH Release 1 glossary, май 1979 (англ.) == | |||
MINUS n1 --- n2 L0 | MINUS n1 --- n2 L0 | ||
Leave the two's complement of a number. | Leave the two's complement of a number. | ||
== | == История == | ||
Слово /−/ является одним из самых древних слов Форта. Впервые оно появилось в 1964 году под именем MINUS в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 ([https://ru.wikipedia.org/wiki/%D0%9D%D0%B0%D1%86%D0%B8%D0%BE%D0%BD%D0%B0%D0%BB%D1%8C%D0%BD%D0%B0%D1%8F_%D1%83%D1%81%D0%BA%D0%BE%D1%80%D0%B8%D1%82%D0%B5%D0%BB%D1%8C%D0%BD%D0%B0%D1%8F_%D0%BB%D0%B0%D0%B1%D0%BE%D1%80%D0%B0%D1%82%D0%BE%D1%80%D0%B8%D1%8F_SLAC Национальная ускорительная лаборатория SLAC], [https://ru.wikipedia.org/wiki/%D0%A1%D1%82%D1%8D%D0%BD%D1%84%D0%BE%D1%80%D0%B4%D1%81%D0%BA%D0%B8%D0%B9_%D1%83%D0%BD%D0%B8%D0%B2%D0%B5%D1%80%D1%81%D0%B8%D1%82%D0%B5%D1%82 Стэнфордский университет]). | |||
Из CURVE имя MINUS перешло в fig-Форт и оттуда в Форт ИТЭФ (1988 год), но во все стандарты Форта (включая Форт-79) слово /−/ вошло под именем NEGATE | |||
В Форте FSP88M слово /−/ известно под именем NEG | |||
Имя /−/ в [[Каллисто]] взято от советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году. | |||
== Реализация /−/ == | |||
Слово /−/ в [[Каллисто]] является [[примитив]]ом, но при необходимости его можно определить через [[Слово 0|ноль]] и [[Слово −|вычитание]]: | |||
: /−/ ( r -- -r ) 0 ↔ − ; | |||
Вот его | Слово /−/ в ФОРТ-ЕС называлось NEGATE и было [[примитив]]ом. Вот его определение: | ||
<PRE> | <PRE> | ||
Экран номер 17 | Экран номер 17 | ||
( 31.03.86 NEGATE ABS + - 1+ 1- 2+ 2- +! 1+! ) | ( 31.03.86 NEGATE ABS + - 1+ 1- 2+ 2- +! 1+! ) | ||
CODE NEGATE ( W1->M2) RH1 PULL, RW1 RW1 LCR, PUTRW1 B, END-CODE | CODE NEGATE ( W1->M2) RH1 PULL, RW1 RW1 LCR, PUTRW1 B, END-CODE | ||
</PRE> | </PRE> | ||
== Ссылки == | == Ссылки == | ||
* См. также слова [[Слово NOT|NOT]] и [[0=]] | |||
* См. также слова [[NOT]] и [[0=]] | |||
* [https://ru.wikipedia.org/wiki/%D0%9F%D1%80%D0%BE%D1%82%D0%B8%D0%B2%D0%BE%D0%BF%D0%BE%D0%BB%D0%BE%D0%B6%D0%BD%D0%BE%D0%B5_%D1%87%D0%B8%D1%81%D0%BB%D0%BE Противоположное число на Википедии] | * [https://ru.wikipedia.org/wiki/%D0%9F%D1%80%D0%BE%D1%82%D0%B8%D0%B2%D0%BE%D0%BF%D0%BE%D0%BB%D0%BE%D0%B6%D0%BD%D0%BE%D0%B5_%D1%87%D0%B8%D1%81%D0%BB%D0%BE Противоположное число на Википедии] | ||
* Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.1910 NEGATE] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1567 FNEGATE (f-negate)] в стандарте ANS Forth ''(англ.)'' | * Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.1910 NEGATE] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1567 FNEGATE (f-negate)] в стандарте ANS Forth ''(англ.)'' | ||
* Слова [http:// | * Слова [http://www.forth200x.org/documents/html3/core/NEGATE.html NEGATE] и [http://www.forth200x.org/documents/html3/floating/FNEGATE.html FNEGATE (f-negate)] в черновике Forth 200x ''(англ.)'' | ||
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\05.OPERAZII%20NAD%20ZELYMI%20TISLAMI ОПЕРАЦИИ НАД ЦЕЛЫМИ ЧИСЛАМИ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»] | * [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\05.OPERAZII%20NAD%20ZELYMI%20TISLAMI ОПЕРАЦИИ НАД ЦЕЛЫМИ ЧИСЛАМИ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»] | ||
* [http://www.forth.com/starting-forth/sf5/sf5.html The Philosophy of Fixed Point] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)'' | * [http://www.forth.com/starting-forth/sf5/sf5.html The Philosophy of Fixed Point] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)'' | ||
Строка 114: | Строка 73: | ||
[[Категория:Арифметические операции Каллисто]] | [[Категория:Арифметические операции Каллисто]] | ||
[[Категория:Одноместные операции Каллисто]] | [[Категория:Одноместные операции Каллисто]] | ||
[[Категория: | [[Категория:Описание бета-версии Каллисто]] | ||