Слово √: различия между версиями
AtH (обсуждение | вклад) (→Ссылки) |
AtH (обсуждение | вклад) Нет описания правки |
||
| Строка 6: | Строка 6: | ||
== Ввод слова √ == | == Ввод слова √ == | ||
В [[Режим NUM|режиме NUM]] последовательно нажмите две клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша -|{{Серая клавиша|−}}]] | В [[Режим NUM|режиме NUM]] последовательно нажмите две клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша -|{{Серая клавиша|−}}]] | ||
== FSQRT в стандарте ANS Forth == | == FSQRT в стандарте ANS Forth == | ||
| Строка 26: | Строка 19: | ||
В [[Каллисто]] имя √ восходит к надписи на клавиатуре советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году. | В [[Каллисто]] имя √ восходит к надписи на клавиатуре советского ПМК [[«Электроника Б3-34»]], выпущенного в 1980 году. | ||
== Реализация == | |||
Слово √ является «обёрткой» вокруг команды ЭКВМ [[F SQRT|F √]]. | |||
Квадратный корень не определён для отрицательных чисел. Обработка этой ошибки производится [[Встроенная программа|встроенной программой]]. Например, последовательность слов {{Текст на индикаторе|-1 √}} вызывает [[аварийный останов]] [[Каллисто]] с сообщением «Неверный аргумент» в [[Строка комментариев|строке комментариев]]. Можно ввести с клавиатуры произвольное число в качестве значения «$\sqrt{-1}$» и вернуться в [[Каллисто]], нажав [[Клавиша С/П|{{Чёрная клавиша|С/П}}]]. Подробнее см. статью [[Авост Каллисто]]. | |||
В случае [[Авост Каллисто|аварийного останова]] рекомендуется произвести [[COLD|«холодную перезагрузку»]] [[Каллисто]] с удалением всех введённых слов, нажав последовательно клавиши [[Клавиша В/О|{{Чёрная клавиша|В/О}}]] [[Клавиша С/П|{{Чёрная клавиша|С/П}}]]. | |||
<pre> | |||
1606 ;#FSQRT | |||
1607 ; √ ( p −− p1 ) Квадратный корень. p1 := sqrt p | |||
1608 LSQRT: .DB 1,251 ; ( r −− sqrt r ) | |||
1609 .DW LX2 | |||
1610 SQRT: .DW JSQRT | |||
1611 JSQRT: PKRM03 FSQRT PKM03 KGOTO9 ; Обёртка вокруг FSQRT. | |||
</pre> | |||
== Ссылки == | == Ссылки == | ||
Версия от 12:46, 9 ноября 2017
√ (квадратный корень) — традиционное слово Каллисто. Извлечение квадратного корня.
√ ( p -- x ) Квадратный корень. x ← √p
x — корень второй степени из p. Аргумент p должен быть больше нуля либо равен нулю.
Ввод слова √
В режиме NUM последовательно нажмите две клавиши F −
FSQRT в стандарте ANS Forth
12.6.2.1618 FSQRT "f-square-root" FLOATING EXT
( F: r1 -- r2 ) or ( r1 -- r2 )
r2 - квадратный корень r1. Неопределенная ситуация существует, если
r1 - меньше нуля.
История
Впервые слово √ под именем SQRT появилось в Форте 1971-73 годах, когда Чак Мур перенёс транслятор на DEC PDP-11 в National Radio Astronomy Observatory (англ., Шарлотсвилл). Слово SQRT работало только с целыми числами и получало 16-битный результат из 32-битного аргумента.
В Форте FSP88 и MMSFORTH слово √ было известно под именем SQR
В Каллисто имя √ восходит к надписи на клавиатуре советского ПМК «Электроника Б3-34», выпущенного в 1980 году.
Реализация
Слово √ является «обёрткой» вокруг команды ЭКВМ F √.
Квадратный корень не определён для отрицательных чисел. Обработка этой ошибки производится встроенной программой. Например, последовательность слов -1 √ вызывает аварийный останов Каллисто с сообщением «Неверный аргумент» в строке комментариев. Можно ввести с клавиатуры произвольное число в качестве значения «$\sqrt{-1}$» и вернуться в Каллисто, нажав С/П . Подробнее см. статью Авост Каллисто.
В случае аварийного останова рекомендуется произвести «холодную перезагрузку» Каллисто с удалением всех введённых слов, нажав последовательно клавиши В/О С/П .
1606 ;#FSQRT 1607 ; √ ( p −− p1 ) Квадратный корень. p1 := sqrt p 1608 LSQRT: .DB 1,251 ; ( r −− sqrt r ) 1609 .DW LX2 1610 SQRT: .DW JSQRT 1611 JSQRT: PKRM03 FSQRT PKM03 KGOTO9 ; Обёртка вокруг FSQRT.
Ссылки
- Исходный текст слова √ в Каллисто Классик 1.0
- См. слова X² и Yˣ
- Квадратный корень на Википедии
- Слово FSQRT (f-square-root) в стандарте ANS Forth (англ.)
- Слово FSQRT (f-square-root) в черновике Forth 200x (англ.)
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |