10ˣ
10ˣ (десять в степени икс) — традиционное слово Каллисто. Вычисление десятичного антилогарифма.
10ˣ ( x −− p ) Вычисление десятичного антилогарифма. p := 10^x
Возводит десять в степень x, возвращает p. Аргумент x должен быть меньше ста.
Ввод слова 10ˣ
В режиме NUM последовательно нажмите четыре клавиши 1 0 F 0
FALOG в стандарте ANS Forth
12.6.2.1484 FALOG "f-a-log" FLOATING EXT
( F: r1 -- r2 ) or ( r1 -- r2 )
Возводит десять в степень r1, возвращает r2.
История
В MMSFORTH это слово называлось 10^
В Каллисто имя 10ˣ восходит к надписи на клавиатуре советского ПМК «Электроника Б3-34», выпущенного в 1980 году.
Реализация
Слово 10ˣ является «обёрткой» вокруг команды ЭКВМ F 10x, вызывающей переполнение при аргументах, больше либо равных 100.
Обработка этой ошибки производится встроенной программой. Например, последовательность слов 100 10ˣ вызывает аварийный останов Каллисто с сообщением «Переполнение» в строке комментариев. Можно ввести с клавиатуры произвольное число в качестве значения «10100» и вернуться в Каллисто, нажав С/П . Подробнее см. статью Авост Каллисто.
В случае аварийного останова рекомендуется произвести «холодную перезагрузку» Каллисто с удалением всех введённых слов, нажав последовательно клавиши В/О С/П .
1562 ; ∗∗∗ Примитивы МК−161 ∗∗∗ 1563 ;#FALOG 1564 ; 10ˣ ( x −− p ) Десятичный антилогарифм. p := 10ˣ 1565 LEXP10: .DB 3 1566 .TEXT "10" ; ( x −− 10^x ) 1567 .DB 190 ; 10^X 1568 .DW LMAX 1569 EXP10: .DW JEXP10 1570 JEXP10: PKRM03 F10^X PKM03 KGOTO9 ; Обёртка вокруг F10^X.
Ссылки
- Исходный текст слова 10ˣ в Каллисто Классик 1.0
- См. слова Eˣ, Yˣ и LG
- Показательная функция в Википедии
- Слово FALOG (f-a-log) в стандарте ANS Forth (англ.)
- Слово FALOG (f-a-log) в черновике Forth 200x (англ.)
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |