Слово ×: различия между версиями
AtH (обсуждение | вклад) (→Ссылки) |
AtH (обсуждение | вклад) |
||
(не показано 48 промежуточных версий этого же участника) | |||
Строка 1: | Строка 1: | ||
'''×''' (умножение) — | '''×''' (умножить, умножение) — традиционное слово [[Каллисто]]. Умножение [[Десятичное число|десятичных чисел]]. | ||
× ( | × ( y x -- x1 ) Умножить. x1 ← y × x | ||
[[Файл:TwoPiMulDot.png|thumb|right|264px|Пример работы слова ×]] | |||
Слово × умножает y на x, кладя на [[Стек данных|стек]] произведение x1. | |||
== Ввод слова × == | == Ввод слова × == | ||
В [[Режим NUM|режиме NUM]] нажмите [[Клавиша ×|белую клавишу {{Серая клавиша|×}}]] | В [[Режим NUM|режиме NUM]] нажмите [[Клавиша ×|белую клавишу {{Серая клавиша|×}}]] | ||
== | == ∗ и F∗ в стандарте ANS Forth == | ||
<PRE> | |||
6.1.0090 ∗ "star" CORE | 6.1.0090 ∗ "star" CORE | ||
( n1|u1 n2|u2 -- n3|u3 ) | ( n1|u1 n2|u2 -- n3|u3 ) | ||
Умножает n1|u1 на n2|u2, возвращает n3|u3. | Умножает n1|u1 на n2|u2, возвращает n3|u3. | ||
12.6.1.1410 F∗ "f-star" FLOATING | 12.6.1.1410 F∗ "f-star" FLOATING | ||
( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 ) | ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 ) | ||
Умножает r1 на r2, возвращает r3. | Умножает r1 на r2, возвращает r3. | ||
</PRE> | |||
== История == | |||
В Форте слово × записывается, как [[Символ ∗|звёздочка "∗"]] и является одним из самых древних сохранившихся слов Форта. | |||
Впервые оно появилось в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 в 1964 году ([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 Стэнфордский университет]). | |||
В 1970 году слово × работало в 2К×48бит версии Форта на Burroughs B-5500. | |||
В отличии от Форта, каллистянское слово × способно перемножать не только целые числа, но также [[Десятичное число|десятичные дроби и числа с плавающей запятой]]. Имя × наследует советским ПМК. | |||
== ∗ в предыдущем стандарте Forth-83 (англ.) == | === ∗ в предыдущем стандарте Forth-83 (англ.) === | ||
∗ w1 w2 -- w3 79 "times" | ∗ w1 w2 -- w3 79 "times" | ||
w3 is the least-significant 16 bits of the arithmetic | w3 is the least-significant 16 bits of the arithmetic | ||
product of w1 times w2. | product of w1 times w2. | ||
== ∗ в стандарте Forth-79 (англ.) == | === ∗ в стандарте Forth-79 (англ.) === | ||
∗ n1 n2 -- n3 138 "times" | ∗ n1 n2 -- n3 138 "times" | ||
Leave the arithmetic product of n1 times n2. | Leave the arithmetic product of n1 times n2. | ||
== ∗ в fig-FORTH Release 1 glossary, май 1979 (англ.) == | === ∗ в fig-FORTH Release 1 glossary, май 1979 (англ.) === | ||
∗ n1 n2 --- prod L0 | ∗ n1 n2 --- prod L0 | ||
Leave the signed product of two signed numbers. | Leave the signed product of two signed numbers. | ||
== Реализация == | |||
Слово × является «обёрткой» вокруг команды ЭКВМ [[×]], вызывающей переполнение при результате, по модулю больше либо равном 10<sup>100</sup>. | |||
Обработка этой ошибки производится [[Встроенная программа|встроенной программой]]. Например, последовательность слов {{Текст на индикаторе|1E50 ↑ ×}} вызывает [[аварийный останов]] [[Каллисто]] с сообщением «Переполнение» в [[Строка комментариев|строке комментариев]]. Можно ввести с клавиатуры произвольное число в качестве значения «10<sup>100</sup>» и вернуться в [[Каллисто]], нажав [[Клавиша С/П|{{Чёрная клавиша|С/П}}]]. Подробнее см. статью [[Авост Каллисто]]. | |||
В случае [[Авост Каллисто|аварийного останова]] рекомендуется произвести [[COLD|«холодную перезагрузку»]] [[Каллисто]] с удалением всех введённых слов, нажав последовательно клавиши [[Клавиша В/О|{{Чёрная клавиша|В/О}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]]. | |||
Слово × также может использоваться для умножения целых чисел, как в Форте. В этом случае произведение x3 — также целое число, если его модуль не превышает 10<sup>12</sup>. | |||
<pre> | |||
1349 ;#Times | |||
1350 ; × ( y x −− x1 ) Умножить. x1 := y×x | |||
1351 LSTAR: .DB 1,179 ; "∗" Символ умножения на МК−161. | |||
1352 .DW LSUB ; ( a b −− a∗b ) | |||
1353 STAR: .DW JSTAR ; Произведение чисел y и x. | |||
1354 JSTAR: RM3 MB 1 + MA M3 | |||
1355 KRMA KRMB ∗ KMA ; Обёртка вокруг ∗ | |||
1356 KGOTO9 | |||
</pre> | |||
Реализации из SP-Forth 4.20: | |||
<pre> | |||
CODE * ( n1|u1 n2|u2 -- n3|u3 ) \ 94 | |||
\ Перемножить n1|u1 и n2|u2 и получить произведение n3|u3. | |||
IMUL DWORD [EBP] | |||
LEA EBP, 4 [EBP] | |||
RET | |||
END-CODE | |||
</pre> | |||
<pre> | |||
CODE F* \ * DE C9 | |||
FMULP ST(1), ST(0) | |||
RET | |||
END-CODE | |||
</pre> | |||
=== Советская реализация === | |||
Слово × в ФОРТ-ЕС и FORTH ИТЭФ называлось ∗ и работало только с целыми числами. Определялось оно также одинаково, через [[примитив]] M∗ | |||
Вот описания и определения этих двух слов в ядре ФОРТ-ЕС: | |||
<PRE> | |||
M* T N1,N2->D ПРОИЗВЕДЕНИЕ ДВОЙНОЙ ДЛИНЫ N1 И N2 18 | |||
* N1,N2->N3 ПРОИЗВЕДЕНИЕ ЧИСЕЛ N1 И N2 18 | |||
Экран номер 18 | |||
( 03.10.84 М* M/ * /MOD / MOD */MOD */) | |||
CODE M* ( N1,N2->D) RH1 SECOND LH, RW1 FIRST MH, 2PUTRW1 B, | |||
: * ( N1,N2->N3) M* DROP ; | |||
</PRE> | |||
Определения этих двух слов в FORTH ИТЭФ: | |||
<PRE> | |||
HEAD 202Q,'M',252Q,MSTAR ; M* | |||
POP AX | |||
POP CX | |||
IMUL CX | |||
PUSH AX | |||
PUSH DX | |||
NEXT | |||
... | |||
HEAD 201Q,,252Q,STAR,$COL ; * | |||
DW MSTAR,DROP,SEMI | |||
</PRE> | |||
== Ссылки == | == Ссылки == | ||
* См. слова [[2×]], [[÷ | * {{Исходник|Times|×}} | ||
* См. слова [[2×]], [[Слово ÷|÷]], [[Слово −|−]], [[Слово +|+]] | |||
* См. также [[Символ с кодом 179|символ ×]] | |||
* [http://ru.wikipedia.org/wiki/%D0%A3%D0%BC%D0%BD%D0%BE%D0%B6%D0%B5%D0%BD%D0%B8%D0%B5 Умножение на Википедии] | * [http://ru.wikipedia.org/wiki/%D0%A3%D0%BC%D0%BD%D0%BE%D0%B6%D0%B5%D0%BD%D0%B8%D0%B5 Умножение на Википедии] | ||
* Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0090 ∗ (star)] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1410 | * Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0090 ∗ (star)] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1410 F∗ (f-star)] в стандарте ANS Forth ''(англ.)'' | ||
* Слова [http:// | * Слова [http://forth-standard.org/standard/core/Times ∗ (star)] и [http://forth-standard.org/standard/float/FTimes F∗ (f-star)] в черновике Forth 200x ''(англ.)'' | ||
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\02.WYPOLNENIE%20ARIFMETITESKIH%20OPERAZIJ ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»] | |||
* [http://www.forth.com/starting-forth/sf2/sf2.html How to Get Results] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)'' | |||
{{заготовка}} | {{заготовка}} | ||
[[Категория:Слова Каллисто]] | [[Категория:Слова Каллисто]] | ||
[[Категория:Примитивы]] | |||
[[Категория:Арифметические операции Каллисто]] | [[Категория:Арифметические операции Каллисто]] | ||
[[Категория:Слова, способные вызывать авост Каллисто]] | [[Категория:Слова, способные вызывать авост Каллисто]] | ||
[[Категория:Традиционные слова]] | |||
[[Категория:Адаптированные слова]] |
Текущая версия от 17:32, 10 ноября 2017
× (умножить, умножение) — традиционное слово Каллисто. Умножение десятичных чисел.
× ( y x -- x1 ) Умножить. x1 ← y × x
Слово × умножает y на x, кладя на стек произведение x1.
Ввод слова ×[править]
В режиме NUM нажмите белую клавишу ×
∗ и F∗ в стандарте ANS Forth[править]
6.1.0090 ∗ "star" CORE ( n1|u1 n2|u2 -- n3|u3 ) Умножает n1|u1 на n2|u2, возвращает n3|u3. 12.6.1.1410 F∗ "f-star" FLOATING ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 ) Умножает r1 на r2, возвращает r3.
История[править]
В Форте слово × записывается, как звёздочка "∗" и является одним из самых древних сохранившихся слов Форта.
Впервые оно появилось в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 в 1964 году (Национальная ускорительная лаборатория SLAC, Стэнфордский университет).
В 1970 году слово × работало в 2К×48бит версии Форта на Burroughs B-5500.
В отличии от Форта, каллистянское слово × способно перемножать не только целые числа, но также десятичные дроби и числа с плавающей запятой. Имя × наследует советским ПМК.
∗ в предыдущем стандарте Forth-83 (англ.)[править]
∗ w1 w2 -- w3 79 "times" w3 is the least-significant 16 bits of the arithmetic product of w1 times w2.
∗ в стандарте Forth-79 (англ.)[править]
∗ n1 n2 -- n3 138 "times" Leave the arithmetic product of n1 times n2.
∗ в fig-FORTH Release 1 glossary, май 1979 (англ.)[править]
∗ n1 n2 --- prod L0 Leave the signed product of two signed numbers.
Реализация[править]
Слово × является «обёрткой» вокруг команды ЭКВМ ×, вызывающей переполнение при результате, по модулю больше либо равном 10100.
Обработка этой ошибки производится встроенной программой. Например, последовательность слов 1E50 ↑ × вызывает аварийный останов Каллисто с сообщением «Переполнение» в строке комментариев. Можно ввести с клавиатуры произвольное число в качестве значения «10100» и вернуться в Каллисто, нажав С/П . Подробнее см. статью Авост Каллисто.
В случае аварийного останова рекомендуется произвести «холодную перезагрузку» Каллисто с удалением всех введённых слов, нажав последовательно клавиши В/О С/П .
Слово × также может использоваться для умножения целых чисел, как в Форте. В этом случае произведение x3 — также целое число, если его модуль не превышает 1012.
1349 ;#Times 1350 ; × ( y x −− x1 ) Умножить. x1 := y×x 1351 LSTAR: .DB 1,179 ; "∗" Символ умножения на МК−161. 1352 .DW LSUB ; ( a b −− a∗b ) 1353 STAR: .DW JSTAR ; Произведение чисел y и x. 1354 JSTAR: RM3 MB 1 + MA M3 1355 KRMA KRMB ∗ KMA ; Обёртка вокруг ∗ 1356 KGOTO9
Реализации из SP-Forth 4.20:
CODE * ( n1|u1 n2|u2 -- n3|u3 ) \ 94 \ Перемножить n1|u1 и n2|u2 и получить произведение n3|u3. IMUL DWORD [EBP] LEA EBP, 4 [EBP] RET END-CODE
CODE F* \ * DE C9 FMULP ST(1), ST(0) RET END-CODE
Советская реализация[править]
Слово × в ФОРТ-ЕС и FORTH ИТЭФ называлось ∗ и работало только с целыми числами. Определялось оно также одинаково, через примитив M∗
Вот описания и определения этих двух слов в ядре ФОРТ-ЕС:
M* T N1,N2->D ПРОИЗВЕДЕНИЕ ДВОЙНОЙ ДЛИНЫ N1 И N2 18 * N1,N2->N3 ПРОИЗВЕДЕНИЕ ЧИСЕЛ N1 И N2 18 Экран номер 18 ( 03.10.84 М* M/ * /MOD / MOD */MOD */) CODE M* ( N1,N2->D) RH1 SECOND LH, RW1 FIRST MH, 2PUTRW1 B, : * ( N1,N2->N3) M* DROP ;
Определения этих двух слов в FORTH ИТЭФ:
HEAD 202Q,'M',252Q,MSTAR ; M* POP AX POP CX IMUL CX PUSH AX PUSH DX NEXT ... HEAD 201Q,,252Q,STAR,$COL ; * DW MSTAR,DROP,SEMI
Ссылки[править]
- Исходный текст слова × в Каллисто Классик 1.0
- См. слова 2×, ÷, −, +
- См. также символ ×
- Умножение на Википедии
- Слова ∗ (star) и F∗ (f-star) в стандарте ANS Forth (англ.)
- Слова ∗ (star) и F∗ (f-star) в черновике Forth 200x (англ.)
- ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ в книге Л.Броуди «Начальный курс программирования на языке Форт»
- How to Get Results в книге Leo Brodie Starting Forth (англ.)
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |