ARCSIN

Материал из ПМК вики
Версия от 17:47, 10 ноября 2017; AtH (обсуждение | вклад) (→‎Реализация)
(разн.) ← Предыдущая версия | Текущая версия (разн.) | Следующая версия → (разн.)
Перейти к навигации Перейти к поиску

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

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

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

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

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

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

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

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

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

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

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

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

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

1681 ;#ARCSIN
1682 ; ARCSIN           ( x −− x1 )                          Арксинус. x1 := arcsin x
1683 LASIN:          .DB     6
1684                 .TEXT   "ARCSIN"                ; ( x −− arcsin x )
1685                 .DW     LRAD
1686 ASIN:           .DW     JASIN
1687 JASIN:          PKRM03 FARCSIN PKM03  KGOTO9    ; Обёртка вокруг FARCSIN.

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

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

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

CODE FASIN
     FLD1
     FLD ST(1)
     FMUL ST, ST
     FSUBP ST(1), ST
     FSQRT
     FPATAN
     RET
END-CODE

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


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


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