Построение графиков функций

Изображение кривых графиков различных функций выполняется оператором PSET, который рисует точку с заданными координатами заданного цвета. Совокупность таких точек, изображённых с помощью оператора цикла с маленьким шагом приращения позволяет получить сплошные кривые линии (точки сливаются в линию). Чем меньше шаг, тем больше сливание точек, но тем больше время выполнения программы построения графиков.

Если кривых на графике несколько, то можно для построения каждой из них организовать свой цикл вычисления координат [x,y] точек кривых и их рисования оператором PSET(x,y), но проще в одном цикле по аргументу х вычислять значение сначала первой функции у₁=f₁(x) и нарисовать её с помощью PSET(x,y), затем вычислить при том же х значение второй

функции у₂=f₂(x) и нарисовать её и т.д. Такой вариант построения графика двух функций рассмотрен в примере 5.

Пример 5 Построить график функций y = 2sinx и y = x² - 2x

на интервале по оси х от -9 до 9 и по оси у –-5 до 9. Изобразить оси координат Х и У и риски на них через 1, вывести в верхней части название графика.

REM Построение графика функций y = 2sinx, y = x^2 - 2x.

SCREEN 12

COLOR 13 ' цвет текста - фиолетовый

WINDOW (-9, -9) – (9, 9) ' размеры окна для графика

LINE (-9, 0) – (9, 0), 14 ' ось Х, цвет 14 - желтый

LINE (0, -5) – (0, 9), 14 ' ось У, цвет 14 – желтый

FOR x = -9 TO 9 ' цикл для рисования рисок на оси Х

LINE (x, 0) – (x,.2), 14 ' риски на оси Х, цвет 14 - желтый

NEXT x

FOR y = -5 TO 9 ' цикл для рисования рисок на оси У

LINE (0, y) – (.2, y), 14 ' риски на оси У, цвет 14 - желтый

NEXT y

LOCATE 16, 78 'курсор в позицию [16,78]

PRINT "x" 'вывод названия оси Х

LOCATE 16, 39 'курсор в позицию [16,39]

PRINT "0" 'вывод "0" в начало координат

LOCATE 1, 37 ' курсор в позицию [1,37]

PRINT "y" ' вывод названия оси У

FOR x = -9 TO 9 STEP.01 ' цикл для рисования линий графика

y = 2*SIN(x) ' выч-е первого У для Х= -9 до 9 с шагом 0,01

PSET (x, y), 10 ' рисов-е точки [X,Y] для у=2sinх, цв. - зелёный

y = x^2 – 2*x ' выч-е второго У для Х= -9 до 9 с шагом 0,01

PSET (x, y), 11 ' рисов-е т.[X,Y] для у=x^2 – 2sinx, цв. - голубой

NEXT x

LOCATE 4, 5 ' курсор в позицию [4,5]

PRINT "Графики функций y=2sinx и y=x^2-2x" 'вывод назв. граф

END