ARCCOS

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

ARCCOS         ( x −− x1 )                          Вычисление Арккосинуса. x1 := arccos x

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

Ввод слова ARCCOS

В режиме ЛАТ последовательно нажмите клавиши  ШГ←   ×   С/П   С/П   5   1 

FACOS в стандарте ANS Forth

12.6.2.1476   FACOS                         "f-a-cos"              FLOATING EXT
           ( F: r1 -- r2 ) or ( r1 -- r2 )
           r2 - главный угол в радианах, чей косинус - r1. Неопределенная 
           ситуация существует, если |r1| больше единицы.

История

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

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

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

Реализация

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

1689 ;#ARCCOS
1690 ; ARCCOS           ( x −− x1 )                          Арккосинус. x1 := arccos x
1691 LACOS:          .DB     6
1692                 .TEXT   "ARCCOS"                ; ( x −− arccos x )
1693                 .DW     LASIN
1694 ACOS:           .DW     JACOS
1695 JACOS:          PKRM03 FARCCOS PKM03  KGOTO9    ; Обёртка вокруг FARCCOS.

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

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

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

CODE FACOS \ *
     FLD1
     FLD ST(1)
     FMUL ST, ST
     FSUBP ST(1), ST
     FSQRT
     FXCH
     FPATAN
     RET
END-CODE

Ссылки

• Исходный текст слова ARCCOS в Каллисто Классик 1.0
• См. слова ARCSIN, ARCTG и COS
• Слово FACOS (f-a-cos) в стандарте ANS Forth (англ.)
• Слово FACOS (f-a-cos) в черновике Forth 200x (англ.)
• Функция Arccos на Википедии

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

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