ARCSIN
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
Ссылки[править]
- Исходный текст слова ARCSIN в Каллисто Классик 1.0
- См. слова ARCCOS, ARCTG и SIN
- Слово FASIN (f-a-sine) в стандарте ANS Forth (англ.)
- Слово FASIN (f-a-sine) в черновике Forth 200x (англ.)
- Функция Arcsin на Википедии
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |