TG
TG (тангенс, читается «ти-джи») — традиционное слово Каллисто. Вычисление тангенса.
TG ( x −− x1 ) Вычисление тангенса. x1 := tg x
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
Ссылки
- Исходный текст слова TG в Каллисто Классик 1.0
- См. слова SIN, COS и ARCTG
- Слово FTAN (f-tan) в стандарте ANS Forth (англ.)
- Слово FTAN (f-tan) в черновике Forth 200x (англ.)
- Тригонометрические функции на Википедии
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |