Точечный метод построения графика

Составим программу построения графика функции у = cos(x) для х [0; 2π], используя точечный метод.

Из условия задачи следует, что X_min = 0, Х_тax= 2π. В этих пределах функция cos х меняется от -1 до 1. Поэтому Y_min = -1, Y_max = 1.

Выберем следующие границы графического окна:

X_gmin=10; X_gmax=400; Y_gmin= 300; Y_gmax=40.

График строится в виде последовательности точек с математическими координатами

X_i = X_min + i ∙ h; Y_i =cos(X_i); i = 0,...,390.

Шаг hвыбирается минимально возможным, соответствующим шагу графической сетки:

Приведенные выше формулы перевода декартовых координат в экранные примут вид:

Вместе с графиком функции строятся оси координат. Строить их будем с помощью команды рисования линии line. Ось X имеет координату Y_g= 170, ось Y — координату X_g = 10.

Uses Graph;

Var Driver,Mode: Integer;

X: Real; Xg,Yg,I: Integer;

Begin {Инициализация графического режима}

Driver:=Detect;

InitGraph(Driver,Mode,'C:\TP\BGI'

);

SetColor(White);{белый цвет линий}

SetBkColor(DarcGray);{задан темно-серый цвет фона}

Line(10,170,400,170); {строит ось X}

Line(10,20,10,320); {строит ось Y}

{Построение графика функции желтыми точками}

x:=0;

For I:=0 To 390 Do

Begin

Xg:=10+Round(195/(Pi)*(X));

Yg:=170-Round(130*cos(X));

PutPixel(Xg,Yg,Yellow);

X:=X+Pi/195

End;

{Разметка осей, запись функции}

OutTextXY(15,30,'Y');

OutTextXY(405,170,'X');

OutTextXY(190,40,'Y=COS(X)');

ReadLn; {задержка экрана}

CloseGraph; {выход из графики}

End.

Рисунок 1

Дата добавления: 2015-07-20