SIN
SIN (синус, читается «сайн») — традиционное слово Каллисто. Вычисление синуса.
SIN ( x −− x1 ) Вычисление синуса. x1 := sin x
x1 — синус угла x. Единица измерения угла (градусы или радианы) задаётся словами DEGREES и RADIANS.
Ввод слова SIN[править]
В режиме ЛАТ последовательно нажмите три белые клавиши 1 7 4
FSIN в стандарте ANS Forth[править]
12.6.2.1614 FSIN "f-sine" FLOATING EXT
( F: r1 -- r2 ) or ( r1 -- r2 )
r2 - синус угла r1 в радианах.
История[править]
В Форте слово SIN одно из самых древних.
Впервые слово SIN появилось в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 в 1964 году (Национальная ускорительная лаборатория SLAC, Стэнфордский университет).
Разумеется, слово SIN вызывало библиотечную функцию.
Слово SIN также было в Форте FSP88M и MMSFORTH.
В Форте FSP88 было два слова SIND и SINR для вычисления синуса в градусах и радианах.
В Каллисто имя SIN восходит к надписи на клавиатуре советского ПМК «Электроника Б3-34», выпущенного в 1980 году.
Реализация[править]
В Каллисто 1.0 слово SIN является «обёрткой» вокруг команды ЭКВМ F sin. Размерность аргумента задаётся R9045:
1705 ;#SIN 1706 ; SIN ( x −− x1 ) Синус. x1 := sin x 1707 LSIN: .DB 3 1708 .TEXT "SIN" ; ( x −− sin x ) 1709 .DW LATG 1710 SIN: .DW JSIN 1711 JSIN: PKRM03 FSIN PKM03 KGOTO9 ; Обёртка вокруг FSIN.
Реализация из SP-Forth 4.20:
CODE FSIN
FSIN
RET
END-CODE
Ссылки[править]
- Исходный текст слова SIN в Каллисто Классик 1.0
- См. слова COS, TG и ARCSIN
- Слово FSIN (f-sine) в стандарте ANS Forth (англ.)
- Слово FSIN (f-sine) в черновике Forth 200x (англ.)
- Тригонометрические функции на Википедии
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |