Язык Форт и его реализации


         

Используя описанные вспомогательные средства, можно


Используя описанные вспомогательные средства, можно задавать векторы со значениями интересующих нас функций. Работая с простыми значениями, будем пользоваться их описанием через слово QUAN. Пусть наша функция в обычной записи имеет вид: y = sin 3x + sin 120x. Зададим ее определение через введенные инструментальные определения, выбрав 100 в качестве масштабного множителя:

70 VQUAN U : U! ( -> УСТАНОВКА ВЕКТОРА U) В-РАЗМ U 0 DO 3 I * SIN 120 I * SIN + 100 / I TO U LOOP ; U!

При желании можно проверить правильность установки значений, распечатав их как числа:

: B-? ( -> РАСПЕЧАТКА ВЕКТОРА) >IN @ >R [COMPILE] В-РАЗМ R> >IN ! ' SWAP 0 DO I OVER EXECUTE 8 .R LOOP DROP ; B-? U

В результате будет напечатан следующий текст:

0 93 -78 15 109 -62 30 124 -47 45 138 -34 58 151 -21 70 162 -10 80 172 0 89 179 4 95 185 9 98 188 11 100 188 10 98 186 7 95 181 2 89 177 -4 80 166 -14 70 155 -25 58 143 -38 45 129 -52 30 114 -67 15 99 -83 0 83 -99 -15 67 -114 -30 52 -129 -45 OK

Для построения графика определим список слов PLOT (график) и в нем ряд вспомогательных переменных:

VOCABULARY PLOT PLOT DEFINITIONS QUAN RHO 4 TO RHO ( ШИРИНА СТОЛБЦА ДЛЯ Y-КООРД.) QUAN MU0 16 TO MU0 ( МАКСИМАЛЬНАЯ ВЫСОТА ОКНА) QUAN NU0 64 RHO - TO NU0 ( МАКСИМАЛЬНАЯ ШИРИНА ОКНА) QUAN WSTA ( АДРЕС НАЧАЛА ОКНА) QUAN MU ( ТЕКУЩАЯ ВЫСОТА ОКНА) QUAN NU ( ТЕКУЩАЯ ШИРИНА ОКНА) QUAN WX ( X-КООРДИНАТА ОКНА) QUAN WY ( Y-КООРДИНАТА ОКНА) QUAN KAPPA ( ЧИСЛО ЗНАЧЕНИЙ СИГНАЛА) QUAN LAMBDA ( ДИАПАЗОН ЗНАЧЕНИЙ СИГНАЛА) QUAN MA ( МАКСИМАЛЬНОЕ ЗНАЧЕНИЕ СИГН.) QUAN MIN0 ( МИНИМАЛЬНОЕ ЗНАЧЕНИЕ В ОКНЕ) QUAN VAL ( ВЕКТОР СИГНАЛА)

Пусть прямоугольный экран терминала, на котором строится график, содержит MU0 строк по NU0 литер каждая. Первые RH0 позиций в каждой строке занимает надпечатка ее координаты по оси ординат. Общий размер графика определяется значениями LAMBDA (диапазон значений функций) и KAPPA (число значений). Этот прямоугольник может как умещаться целиком на экране терминала, так и заметно превышать его.

Содержание  Назад  Вперед





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий