Слово 1/X

Материал из ПМК вики
Перейти к: навигация, поиск

1/X (обратная величина, читается «один дробь икс») — традиционное слово Каллисто. Вычисление обратной величины.

1/X            ( x -- x1 )                     Обратная величина. x1 ← 1/x
Пример работы слова 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 ↔ ÷ ;

Ссылки[править]