COS

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

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

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

x1 — косинус угла x. Единица измерения угла (градусы или радианы) задаётся словами DEGREES и RADIANS.

Ввод слова COS

В режиме ЛАТ последовательно нажмите три клавиши  С/П   5   1 

FCOS в стандарте ANS Forth

12.6.2.1493   FCOS                             "f-cos"             FLOATING EXT
           ( F: r1 -- r2 ) or ( r1 -- r2 )
           r2 - косинус угла r1 в радианах.

История

Слово COS также было в Форте FSP88M и MMSFORTH.

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

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

Реализация

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

1713 ;#COS
1714 ; COS              ( x −− x1 )                          Косинус. x1 := cos x
1715 LCOS:           .DB     3
1716                 .TEXT   "COS"                   ; ( x −− cos x )
1717                 .DW     LSIN
1718 COS:            .DW     JCOS
1719 JCOS:           PKRM03 FCOS PKM03  KGOTO9       ; Обёртка вокруг FCOS.

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

CODE FCOS
       FCOS
       RET
END-CODE

Ссылки


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