ARCTG

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

ARCTG (арктангенс) — традиционное слово Каллисто. Вычисление Арктангенса.

ARCTG          ( x −− x1 )                          Вычисление Арктангенса. x1 := arctg x

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

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

В режиме ЛАТ последовательно нажмите клавиши $\mathrm{\overset{\leftarrow}{ШГ}}$  ×   С/П   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

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


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


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