Информатика -продвинутый курс



         

РАБОТА С ГРАФИКОЙ - часть 5


В программе также определяются величины tl=(xl-x0)/(b-a) и t2=(yl-y0)/(2m), которые означают масштабы по осям Х и Y соответственно.

График рассматриваемой функции представлен на двух отрезках [а, b] и [-0.1,0.1]. Чтобы построить график другой функции, достаточно задать ее аналитический вид в описании функции (function f).

Программа 32

program grafik;

uses crt, graph;

var gd,gm, errCode : integer; a,b : real; n : integer;

function f(x:real):real;

begin if x<>0

then f:=x*x*sin(l/x);

end;

procedure grafun(xO,xl,yO,yl,n :word;a,b;real);

var h,m,x, tl,t2 : real; i, u,v,xv,yv : word;

begin

h:=(b-a)/n; (поиск максимума f(x)} m:=abs(f (a));

for i:=l to n do if m<abs(f(a+i*h)) then m:=abs(f(a+i*h)) ;

tl:=(xl-x0)/(b-a);

t2:=(yl-y0)/(2*m); (построение координатных осей)

setfillstyle(l,15); bar(x0-5,y0-5,xl+5,yl+5) ;

xv:=round(x0-a*tl); yv:=round((yO+yl)/2) ;

setcolor(l); line(xv,y0,xv,yl);

 line(xO,yv,xl.yv) ;

 Moveto(xO,yv-round(f(a) *t2)); (установка курсора в начало графика}

setcolor(3); (построение

графика) for i:=l to n do begin x:=a+i*h; u:=x0+round((x-a)*tl);

v:=yv-round(f(x)*t2); lineto(u,v);

end;

end; (конец

процедуры

} begin

clrscr; write ('введи a,b и

n : '); readln(a,b,n); gd^Detect;

 InitGraph (gd,gm, ' ' ) ;

errCode:=GraphResult ;

 if errCode = grOk then begin

grafun(100,500,50,300,n,a,b);

grafun(550,620,10,100,200,-0.1,0.1);

repeat until keypressed; CloseGraph;

end else writeln( "ezzCode=' ,errCode)

end.

Для изображения поверхностей, определяемых функцией двух переменных z=f(x,y), можно использовать разные способы. Одним из них является метод построения семейства одномерных графиков функции z=f(x.y) от одной переменной х или у различных фиксированных значениях другой. Это может быть хорошей тренировкой для самостоятельной работы по освоению графики.

Построение движущихся изображений.

Особую ценность в графике представляет организация движения фрагментов рисунка. Наиболее просто это сделать по следующему плану:




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