ARCTG
ARCTG (арктангенс) — традиционное слово Каллисто. Вычисление Арктангенса.
ARCTG ( x −− x1 ) Вычисление Арктангенса. x1 := arctg x
x1 — главный угол, чей тангенс равен x. Единица измерения угла (градусы или радианы) задаётся словами DEGREES и RADIANS.
Ввод слова ARCTG[править]
В режиме ЛАТ последовательно нажмите клавиши ШГ← × С/П 2 БП
FATAN в стандарте ANS Forth[править]
12.6.2.1488 FATAN "f-a-tan" FLOATING EXT
( F: r1 -- r2 ) or ( r1 -- r2 )
r2 - главный угол в радианах, чей тангенс - r1.
История[править]
В Форте слово ARCTG одно из самых древних. Впервые оно появилось в 1964 году под именем ATAN в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 в 1964 году (Национальная ускорительная лаборатория SLAC, Стэнфордский университет).
Разумеется, слово ATAN в 1964 году вызывало библиотечную функцию.
Снова слово ATAN появилось в Форте 1971-73 годах, когда Чак Мур перенёс транслятор на DEC PDP-11 в National Radio Astronomy Observatory (англ., Шарлотсвилл). Это новое слово ATAN определяло угол по его синусу и косинусу, будучи обратным к слову SIN.COS и точно указывая квадрант. Функции ATAN и SIN.COS работали с фиксированной запятой — 14 или 30 бит справа от двоичной запятой.
В Форте FSP88M и MMSFORTH слово ARCTG было известно под именем ATN
В Форте FSP88 было два слова ATND и ATNR для вычисления арктангенса в градусах и радианах.
В Каллисто имя ARCTG восходит к надписи на клавиатуре советского ПМК «Электроника Б3-34», выпущенного в 1980 году.
Реализация[править]
В Каллисто 1.0 слово ARCTG является «обёрткой» вокруг команды ЭКВМ F arctg. Размерность результата задаётся R9045:
1697 ;#ARCTG 1698 ; ARCTG ( x −− x1 ) Арктангенс. x1 := arctg x 1699 LATG: .DB 5 1700 .TEXT "ARCTG" ; ( x −− arctg x ) 1701 .DW LACOS 1702 ATG: .DW JATG 1703 JATG: PKRM03 FARCTG PKM03 KGOTO9 ; Обёртка вокруг FARCTG.
Реализация из SP-Forth 4.20:
CODE FATAN \ *
FLD1
FPATAN
RET
END-CODE
Ссылки[править]
- Исходный текст слова ARCTG в Каллисто Классик 1.0
- См. слова ARCSIN, ARCCOS и TG
- Слово FATAN (f-a-tan) в стандарте ANS Forth (англ.)
- Слово FATAN (f-a-tan) в черновике Forth 200x (англ.)
- Функция Arctg на Википедии
|
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |