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

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


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