SIN

Материал из ПМК вики
Перейти к навигации Перейти к поиску
Версия для печати больше не поддерживается и может содержать ошибки обработки. Обновите закладки браузера и используйте вместо этого функцию печати браузера по умолчанию.

SIN (синус, читается «сайн») — традиционное слово Каллисто. Вычисление синуса.

SIN            ( x −− x1 )                          Вычисление синуса. x1 := sin x
Пример работы слова SIN

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

Ссылки


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