COS: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) |
||
(не показаны 4 промежуточные версии этого же участника) | |||
Строка 3: | Строка 3: | ||
[[Файл:CallistoSinCosTg.png|thumb|right|264px|Пример работы слова COS]] | [[Файл:CallistoSinCosTg.png|thumb|right|264px|Пример работы слова COS]] | ||
x1 — косинус угла x. Единица измерения угла ([[градус]]ы или [[радиан]]ы) задаётся словами [[DEGREES]] и [[RADIANS]]. | x1 — косинус угла x. Единица измерения угла ([[градус]]ы или [[радиан]]ы) задаётся словами [[DEGREES]] и [[RADIANS]]. | ||
== Ввод слова COS == | == Ввод слова COS == | ||
Строка 21: | Строка 18: | ||
В [[Каллисто]] имя COS восходит к надписи на клавиатуре советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году. | В [[Каллисто]] имя COS восходит к надписи на клавиатуре советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году. | ||
== Реализация == | |||
В [[Каллисто|Каллисто 1.0]] слово COS является «обёрткой» вокруг команды ЭКВМ [[F COS|F cos]]. Размерность аргумента задаётся [[R9045]]: | |||
<pre> | |||
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. | |||
</pre> | |||
Реализация из SP-Forth 4.20: | |||
<pre> | |||
CODE FCOS | |||
FCOS | |||
RET | |||
END-CODE | |||
</pre> | |||
== Ссылки == | == Ссылки == | ||
* {{Исходник|COS|COS}} | * {{Исходник|COS|COS}} | ||
* См. слова [[ | * См. слова [[SIN]], [[TG]] и [[ARCCOS]] | ||
* Слово [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.2.1493 FCOS (f-cos)] в стандарте ANS Forth ''(англ.)'' | * Слово [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.2.1493 FCOS (f-cos)] в стандарте ANS Forth ''(англ.)'' | ||
* Слово [http://forth-standard.org/standard/float/FCOS FCOS (f-cos)] в черновике Forth 200x ''(англ.)'' | * Слово [http://forth-standard.org/standard/float/FCOS FCOS (f-cos)] в черновике Forth 200x ''(англ.)'' | ||
* [https://ru.wikipedia.org/wiki/%D0%A2%D1%80%D0%B8%D0%B3%D0%BE%D0%BD%D0%BE%D0%BC%D0%B5%D1%82%D1%80%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B8%D0%B5_%D1%84%D1%83%D0%BD%D0%BA%D1%86%D0%B8%D0%B8 Тригонометрические функции на Википедии] | |||
Строка 35: | Строка 51: | ||
[[Категория:Тригонометрия Каллисто]] | [[Категория:Тригонометрия Каллисто]] | ||
[[Категория:Одноместные операции Каллисто]] | [[Категория:Одноместные операции Каллисто]] | ||
[[Категория:Адаптированные слова]] | |||
[[Категория:Традиционные слова]] |
Текущая версия от 17:31, 10 ноября 2017
COS (косинус, читается «кос») — традиционное слово Каллисто. Вычисление косинуса.
COS ( x −− x1 ) Вычисление косинуса. x1 := cos x
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
Ссылки[править]
- Исходный текст слова COS в Каллисто Классик 1.0
- См. слова SIN, TG и ARCCOS
- Слово FCOS (f-cos) в стандарте ANS Forth (англ.)
- Слово FCOS (f-cos) в черновике Forth 200x (англ.)
- Тригонометрические функции на Википедии
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |