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

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


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