Слово 1/X
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 ↔ ÷ ;