LG

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

LG (десятичный логарифм) — традиционное слово Каллисто. Вычисление десятичного логарифма.

LG             ( p −− x )                           Вычисление десятичного логарифма. x := lg p

x — логарифм p по основанию 10. Аргумент p должен быть больше нуля.

Ввод слова LG[править]

В режиме ЛАТ последовательно нажмите две клавиши     БП 

FLOG в стандарте ANS Forth[править]

12.6.2.1557   FLOG                     "f-log"                     FLOATING EXT
           ( F: r1 -- r2 ) or ( r1 -- r2 )
           r2 - десятичный логарифм r1. Неопределенная ситуация существует 
           если r1 меньше или равно нулю.

История[править]

В MMSFORTH это слово называлось LOG10

В Каллисто имя LG восходит к надписи на клавиатуре советского ПМК «Электроника Б3-34», выпущенного в 1980 году.

Реализация[править]

Слово LG является «обёрткой» вокруг команды ЭКВМ F lg.

Десятичный логарифм не определён для нуля и отрицательных чисел. Обработка этой ошибки производится встроенной программой. Например, последовательность слов  0 LG  вызывает аварийный останов Каллисто с сообщением «Переполнение» в строке комментариев. Можно ввести с клавиатуры произвольное число в качестве значения «логарифма 0» и вернуться в Каллисто, нажав  С/П . Подробнее см. статью Авост Каллисто.

В случае аварийного останова рекомендуется произвести «холодную перезагрузку» Каллисто с удалением всех введённых слов, нажав последовательно клавиши  В/О   С/П .

1581 ;#LG
1582 ; LG               ( p −− x )                           Десятичный логарифм. x := lg p
1583 LLG:            .DB     2
1584                 .TEXT   "LG"                    ; ( x −− lg x )
1585                 .DW     LEXPE
1586 LG:             .DW     JLG
1587 JLG:            PKRM03 FLG PKM03  KGOTO9        ; Обёртка вокруг Flg.

Реализация из SP-Forth 4.20:

CODE FLOG ( F: r1 -- r2 ) \ *
       FLDLG2
       FXCH
       FYL2X
       RET
END-CODE

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


  Nopictures-icon.png У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.


  Stub-icon-48px.png Это заготовка статьи. Вы можете помочь проекту, дополнив её.