TG

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

TG (тангенс, читается «ти-джи») — традиционное слово Каллисто. Вычисление тангенса.

TG             ( x −− x1 )                          Вычисление тангенса. x1 := tg x
Пример работы слова TG

x1 — тангенс угла x. Единица измерения угла (градусы или радианы) задаётся словами DEGREES и RADIANS.

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

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

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

12.6.2.1625   FTAN                       "f-tan"                   FLOATING EXT
           ( F: r1 -- r2 ) or ( r1 -- r2 )
           r2 - тангенс угла r1 в радианах. Неопределенная ситуация существует 
           если cos(r1) нулевое.

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

В Форте FSP88M и MMSFORTH это слово известно под именем TAN

В Форте FSP88 было два слова TAND и TANR для вычисления тангенса в градусах и радианах.

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

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

В Каллисто 1.0 слово TG является «обёрткой» вокруг команды ЭКВМ F tg. Размерность аргумента задаётся R9045:

1721 ;#TG
1722 ; TG               ( x −− x1 )                          Тангенс. x1 := tg x
1723 LTG:            .DB     2
1724                 .TEXT   "TG"                    ; ( x −− tg x )
1725                 .DW     LCOS
1726 TG:             .DW     JTG
1727 JTG:            PKRM03 FTG PKM03  KGOTO9        ; Обёртка вокруг FTG.

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

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

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

CODE FTAN \ *
     FPTAN
     FDIVP ST(1), ST
     RET
END-CODE

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


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