Слово 1/X: различия между версиями
AtH (обсуждение | вклад) (Новая страница: «'''1/X''' — стандартное слово Каллисто. {{нет иллюстраций}} {{заготовка}} Категория:Слова К…») |
AtH (обсуждение | вклад) Нет описания правки |
||
(не показана 31 промежуточная версия этого же участника) | |||
Строка 1: | Строка 1: | ||
'''1/X''' — | '''1/X''' (обратная величина, читается «один дробь икс») — традиционное слово [[Каллисто]]. Вычисление обратной величины. | ||
1/X ( x -- x1 ) Обратная величина. x1 ← 1/x | |||
[[Файл:CallistoPowSqr.png|thumb|right|264px|Пример работы слова 1/X]] | |||
x1 — число, обратное x. Аргумент x должен быть отличен от нуля. | |||
== Ввод слова 1/X == | |||
В [[Режим NUM|режиме NUM]] последовательно нажмите клавиши [[Клавиша 1|{{Серая клавиша|1}}]] [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ÷|{{Серая клавиша|÷}}]] [[Клавиша Р-ГРД-Г|{{Чёрная клавиша|Р-ГРД-Г}}]] [[Клавиша 0|{{Серая клавиша|0}}]] | |||
Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]]. | |||
== История == | |||
Слово 1/X использовалось в MMSFORTH | |||
В [[Каллисто]] имя 1/X восходит к надписи на клавиатуре советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году. | |||
== Реализация == | |||
Слово является «обёрткой» вокруг команды ЭКВМ [[F 1⁄x]]. | |||
Обратная величина для нуля не определена. Обработка этой ошибки производится [[Встроенная программа|встроенной программой]]. Например, последовательность слов {{Текст на индикаторе|0 1/X}} вызывает [[аварийный останов]] [[Каллисто]] с сообщением «Деление на ноль» в [[Строка комментариев|строке комментариев]]. Можно ввести с клавиатуры произвольное число в качестве значения «1/0» и вернуться в [[Каллисто]], нажав [[Клавиша С/П|{{Чёрная клавиша|С/П}}]]. Подробнее см. статью [[Авост Каллисто]]. | |||
В случае [[Авост Каллисто|аварийного останова]] рекомендуется произвести [[COLD|«холодную перезагрузку»]] [[Каллисто]] с удалением всех введённых слов, нажав последовательно клавиши [[Клавиша В/О|{{Чёрная клавиша|В/О}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]]. | |||
Для повышения быстродействия слово 1/X в [[Каллисто|Каллисто 1.0]] сделано [[примитив]]ом: | |||
<pre> | |||
1613 ;#OneDivX | |||
1614 ; 1/X ( x −− x1 ) Обратная величина. x1 := 1/x | |||
1615 LONEX: .DB 3 | |||
1616 .TEXT "1/X" ; ( r −− 1/r ) | |||
1617 .DW LSQRT | |||
1618 ONEX: .DW JONEX | |||
1619 JONEX: PKRM03 F1/X PKM03 KGOTO9 ; Обёртка вокруг F1/x. | |||
</pre> | |||
При необходимости его можно определить через [[Слово ÷|деление]]: | |||
: 1/X ( r -- 1/r ) 1 ↔ ÷ ; | |||
== Ссылки == | |||
* {{Исходник|OneDivX|1/X}} | |||
* См. слова [[Слово ÷|÷]] и [[Yˣ]] | |||
* [http://ru.wikipedia.org/wiki/%D0%9E%D0%B1%D1%80%D0%B0%D1%82%D0%BD%D0%BE%D0%B5_%D1%87%D0%B8%D1%81%D0%BB%D0%BE Обратное число на Википедии] | |||
[[Категория:Слова Каллисто]] | [[Категория:Слова Каллисто]] | ||
[[Категория:Примитивы]] | |||
[[Категория:Математические функции Каллисто]] | |||
[[Категория:Одноместные операции Каллисто]] | |||
[[Категория:Слова, способные вызывать авост Каллисто]] | |||
[[Категория:Традиционные слова]] |
Текущая версия от 12:48, 9 ноября 2017
1/X (обратная величина, читается «один дробь икс») — традиционное слово Каллисто. Вычисление обратной величины.
1/X ( x -- x1 ) Обратная величина. x1 ← 1/x
x1 — число, обратное x. Аргумент x должен быть отличен от нуля.
Ввод слова 1/X[править]
В режиме NUM последовательно нажмите клавиши 1 F ÷ Р-ГРД-Г 0
Для возврата в режим NUM нажмите синюю клавишу P .
История[править]
Слово 1/X использовалось в MMSFORTH
В Каллисто имя 1/X восходит к надписи на клавиатуре советского ПМК «Электроника Б3-34», выпущенного в 1980 году.
Реализация[править]
Слово является «обёрткой» вокруг команды ЭКВМ F 1⁄x.
Обратная величина для нуля не определена. Обработка этой ошибки производится встроенной программой. Например, последовательность слов 0 1/X вызывает аварийный останов Каллисто с сообщением «Деление на ноль» в строке комментариев. Можно ввести с клавиатуры произвольное число в качестве значения «1/0» и вернуться в Каллисто, нажав С/П . Подробнее см. статью Авост Каллисто.
В случае аварийного останова рекомендуется произвести «холодную перезагрузку» Каллисто с удалением всех введённых слов, нажав последовательно клавиши В/О С/П .
Для повышения быстродействия слово 1/X в Каллисто 1.0 сделано примитивом:
1613 ;#OneDivX 1614 ; 1/X ( x −− x1 ) Обратная величина. x1 := 1/x 1615 LONEX: .DB 3 1616 .TEXT "1/X" ; ( r −− 1/r ) 1617 .DW LSQRT 1618 ONEX: .DW JONEX 1619 JONEX: PKRM03 F1/X PKM03 KGOTO9 ; Обёртка вокруг F1/x.
При необходимости его можно определить через деление:
: 1/X ( r -- 1/r ) 1 ↔ ÷ ;