COS: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) |
||
| (не показано 27 промежуточных версий этого же участника) | |||
| Строка 1: | Строка 1: | ||
'''COS''' — | '''COS''' (косинус, читается «кос») — традиционное слово [[Каллисто]]. Вычисление косинуса. | ||
COS ( x −− x1 ) Вычисление косинуса. x1 := cos x | |||
Вычисление косинуса. | [[Файл:CallistoSinCosTg.png|thumb|right|264px|Пример работы слова COS]] | ||
x1 — косинус угла x. Единица измерения угла ([[градус]]ы или [[радиан]]ы) задаётся словами [[DEGREES]] и [[RADIANS]]. | |||
== Ввод слова COS == | |||
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите три клавиши [[Клавиша С/П|{{Чёрная клавиша|С/П}}]] [[Клавиша 5|{{Серая клавиша|5}}]] [[Клавиша 1|{{Серая клавиша|1}}]] | |||
== FCOS в стандарте ANS Forth == | == FCOS в стандарте ANS Forth == | ||
| Строка 11: | Строка 12: | ||
r2 - косинус угла r1 в радианах. | r2 - косинус угла r1 в радианах. | ||
== История == | |||
Слово COS также было в Форте FSP88M и MMSFORTH. | |||
В Форте FSP88 было два слова COSD и COSR для вычисления косинуса в градусах и радианах. | |||
В [[Каллисто]] имя 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> | |||
== Ссылки == | == Ссылки == | ||
* [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.2.1493 | * {{Исходник|COS|COS}} | ||
* [http:// | * См. слова [[SIN]], [[TG]] и [[ARCCOS]] | ||
* Слово [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 ''(англ.)'' | |||
* [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 Тригонометрические функции на Википедии] | |||
{{заготовка}} | {{заготовка}} | ||
[[Категория:Слова Каллисто]] | [[Категория:Слова Каллисто]] | ||
[[Категория: | [[Категория:Примитивы]] | ||
[[Категория:Тригонометрия Каллисто]] | |||
[[Категория:Одноместные операции Каллисто]] | [[Категория:Одноместные операции Каллисто]] | ||
[[Категория:Адаптированные слова]] | |||
[[Категория:Традиционные слова]] | |||
Текущая версия от 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 (англ.)
- Тригонометрические функции на Википедии
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |