Робота VII Моделювання зображень поверхні
Загальне формулювання завдання
Побудувати на екрані поверхню згідно варіанта завдання.
При формуванні зображень необхідно виконати наступні умови:
Осі координат мають наступну орієнтацію: ОY - зліва направо, ОZ - знизу нагору, ОX -“перпендикулярно” до них, тобто вліво та вниз. Фон екрану білий, осі координат і числа на них – сині, лінії поверхні чорні. Зображення формується згідно методам проектування (паралельного та перспективного).
Методичні вказівки
При виконанні завдань використовуються як практичні навички, здобуті на попередніх етапах роботи за цим посібником, так і математичні основи побудов у 3D-просторі, що містяться у теоретичній частині посібника.
У Додатку А наведено приклад програми побудови поверхні методом паралельного проектування.
Варіанти завдань
Для x [-a; a]; y [-a; a] зобразити поверхню:
№1.
;
приблизний вигляд поверхні
№2.
;
приблизний вигляд поверхні
№3.
;
приблизний вигляд поверхні
№4.
;
приблизний вигляд поверхні
№5.
;
приблизний вигляд поверхні
№6.
;
приблизний вигляд поверхні
№7.
;
приблизний вигляд поверхні
№8.
;
приблизний вигляд поверхні
№9.
;
приблизний вигляд поверхні
№10.
;
приблизний вигляд поверхні
№11.
;
приблизний вигляд поверхні
№12.
;
приблизний вигляд поверхні
№13.
;
приблизний вигляд поверхні
№14.
;
приблизний вигляд поверхні
№15.
;
приблизний вигляд поверхні
№16.
;
приблизний вигляд поверхні
№17.
;
приблизний вигляд поверхні
№18.
;
приблизний вигляд поверхні
№19.
;
приблизний вигляд поверхні
№20.
;
приблизний вигляд поверхні
№21.
;
приблизний вигляд поверхні
№22.
;
приблизний вигляд поверхні
№23.
;
приблизний вигляд поверхні
№24.
;
приблизний вигляд поверхні
№25.
.
приблизний вигляд поверхні
Додаток а Приклади програмної реалізації графічних задач
ПРИКЛАД 1
Завдання: Ініціювати графічний режим роботи та вивести повідомлення про це, в разі необхідності обробити аварійну ситуацію.
program example1;
uses Graph;
var GraphDriver, GraphMode, ErrorCode: Integer;
begin
{ ініціація графічного режиму }
GraphDriver:=Detect;
InitGraph ( GraphDriver, GraphMode, 'C:\TP\DRIVERS' );
{ повернення коду помилки графічної операції }
ErrorCode :=GraphResult;
{ якщо перехід до графічного режиму не відбувся, вивести повідомлення про помилку та прокоментувати її}
if ErrorCode <> GrOk then
begin
Writeln ( 'graphics error : ', GraphErrorMsg ( ErrorCode) );
Writeln ( 'program aborted...' );
Halt ( 1 );
end;
{ малювання прямокутника на весь екран }
RectAngle ( 0, 0, GetMaxX, GetMaxY );
{ центрування текстових повідомлень }
SetTextJustify ( CenterText, CenterText );
{ настройка параметрів шрифту }
SetTextStyle ( DefaultFont, HorіzDir, 3 );
{ вивід текстового повідомлення }
OutTextXY ( GetMaxX div 4, GetMaxY div 4, 'The example graphmode');
OutTextXY ( GetMaxX div 2, GetMaxY div 2, 'Borland graphics interface (Bgi)');
{ очікування натискання <ENTER> }
Readln;
{ завершення роботи з графічним режимом }
CloseGraph;
end.
ПРИКЛАД 2
Завдання: Вивести на екран графік функції ρ=φ, для 0φ4π/3.
program exam2;
uses graph,crt;
var
gd,gm,errorcode,chx,nky,nkx,l,i,y0,x0,x,y:integer;
t:real;
s:string;
begin
gd:=detect;
initgraph(gd,gm,'');
setcolor(8);
setbkcolor(15);
chx:=getmaxx div 12;
nky:=5*chx;
l:=2*chx;
for i:=-4 to 4 do
begin
moveto(l,nky-(chx div 10));
lineto(l,nky+(chx div 10));
if i<>0 then
begin
str(i,s);
if i>0 then outtextxy(l-3,nky+(chx div 4),s)
else outtextxy(l-10,nky+(chx div 4),s);
end;
l:=l+chx;
end;
line(chx,nky,getmaxx-chx,nky);
l:=2*chx;
nkx:=6*chx;
t:=0;
x0:=getmaxx div 2;
y0:=5*chx;
moveto(x0,y0);
while t<=4*pi/3 do
begin
x:=round(t*cos(t)*chx);
y:=round(t*sin(t)*chx);
lineto(x0+x,y0-y);
t:=t+0.0001;
end;
while not keypressed do;
closegraph;
end.
Вид зображення на екрані:
