SIN: различия между версиями
AtH (обсуждение | вклад) (→Ссылки) |
AtH (обсуждение | вклад) |
||
| (не показаны 2 промежуточные версии этого же участника) | |||
| Строка 6: | Строка 6: | ||
== Ввод слова SIN == | == Ввод слова SIN == | ||
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите три белые клавиши [[Клавиша 1|{{Серая клавиша|1}}]] [[Клавиша 7|{{Серая клавиша|7}}]] [[Клавиша 4|{{Серая клавиша|4}}]] | В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите три белые клавиши [[Клавиша 1|{{Серая клавиша|1}}]] [[Клавиша 7|{{Серая клавиша|7}}]] [[Клавиша 4|{{Серая клавиша|4}}]] | ||
== FSIN в стандарте ANS Forth == | == FSIN в стандарте ANS Forth == | ||
| Строка 27: | Строка 24: | ||
В [[Каллисто]] имя SIN восходит к надписи на клавиатуре советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году. | В [[Каллисто]] имя SIN восходит к надписи на клавиатуре советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году. | ||
== Реализация == | |||
В [[Каллисто|Каллисто 1.0]] слово SIN является «обёрткой» вокруг команды ЭКВМ [[F SIN|F sin]]. Размерность аргумента задаётся [[R9045]]: | |||
<pre> | |||
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. | |||
</pre> | |||
Реализация из SP-Forth 4.20: | |||
<pre> | |||
CODE FSIN | |||
FSIN | |||
RET | |||
END-CODE | |||
</pre> | |||
== Ссылки == | == Ссылки == | ||
| Строка 41: | Строка 57: | ||
[[Категория:Тригонометрия Каллисто]] | [[Категория:Тригонометрия Каллисто]] | ||
[[Категория:Одноместные операции Каллисто]] | [[Категория:Одноместные операции Каллисто]] | ||
[[Категория:Адаптированные слова]] | |||
[[Категория:Традиционные слова]] | |||
Текущая версия от 17:31, 10 ноября 2017
SIN (синус, читается «сайн») — традиционное слово Каллисто. Вычисление синуса.
SIN ( x −− x1 ) Вычисление синуса. x1 := sin x
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
Ссылки[править]
- Исходный текст слова SIN в Каллисто Классик 1.0
- См. слова COS, TG и ARCSIN
- Слово FSIN (f-sine) в стандарте ANS Forth (англ.)
- Слово FSIN (f-sine) в черновике Forth 200x (англ.)
- Тригонометрические функции на Википедии
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |