Лаборатоные 2 семестр (паскаль) / 3d модуль PABC.NET / Пример построение 3д графика

uses LGraph3dABC,GraphAbc;
var flag:string;
i,j:integer;
hx,hy,x1,y1,x2,y2:real;
function z(x,y:real):real;
begin
z:=x*x/(2)+y*y/(2);
end;
begin

//создание осей
//-10 10 (первая пара) начало и конец оси X
//-10 10 (вторая пара) начало и конец оси Y
//0 100 начало и конец оси Z
//400 600 высота и ширина экрана на котором будет выводиться график
//40 отступы от краев экрана
//flag служебная переменная необходимая для дальнейшего построения графиков
drawXYZ(-10,10,-10,10,0,100,400,600,40,flag);

hx:=20/100; //шаг по оси X
hy:=20/100; //шаг по оси Y

for i:=1 to 100 do
begin
x1:=-10+(i-1)*hx; //x1
x2:=-10+i*hx; //x2
y1:=0;
y2:=0;
for j:=1 to 100 do
begin
y1:=-10+(j-1)*hy; //y1
y2:=-10+j*hy; //y2
//Вывод полигона
//flag служебная переменная
//x1,y1,z(x1,y1) - первая точка
//x2,y1,z(x2,y1) - вторая точка
//x1,y2,z(x1,y2) - третья точка
//x1,y2,z(x1,y2) - четвертая точка точка
drawPolygone(flag,x1,y1,z(x1,y1),x2,y1,z(x2,y1),x1,y2,z(x1,y2),x2,y2,z(x2,y2));

//построение точек плоскости
//x1 ,y1 , 5 координаты (x,y,z) точки
drawPoint(flag,x1,y1,50);
end;
end;

end.