5 Лаборатория машғулоти Оpтогpафик пpоекциялаш. Ишни бажаришдан мақсад



Download 163 Kb.
bet3/7
Sana03.03.2022
Hajmi163 Kb.
#479791
1   2   3   4   5   6   7
Bog'liq
ABROR AKA OYBEK

NATIJA USHBU TASVIRNI OLAMIZ



7- Лаборатория машғулоти


Марказий кичрайтирилган пpоекция.
Ишни бажаришдан мақсад: Компғютерга Turbo Pascal дастурлаш тили ёрдамида обoектни проекциясини ясаш дастурини тузиш, обoектни марказий кичрайтирилган пpоекциясини хосил қилишни ўрганиш.
Лаборатория ишини бажариш учун керакли жихозлар:
IBM русумли компғютер, Turbo Pascal дастурлаш мухити.


1. Назарий қисм:
Марказий кичрайтирилган пpоекция.

Обoектнинг марказий проекциясини қуйидаги тенглама ердамида олиш мумкин:


xp= d * x/z
yp= d * y/z
бу тенгламадаги d xp,yp координаталарига тегишли масштабни катталаштирувчи масофа хисобланади. Матрица кўринишида бу ўзгариш қуйидагича езилади:




1

0

0

0




0

1

0

0

Ммарк=

0

0

1

1/d




0

0

0

0

Яқиндаги обoектга нисбатан узоқдаги обoектнинг кичик кўринишининг сабаби Z га бўлиш фактоpидан келиб чиқади. Шунинг учун дастурда нолга бўлиш холатини кўриш мумкин. d кўпайтувчи А/B нисбатга тенг, бу ерда A - кузатувчи ситемаси ва текислик тасвири орасидаги масофа, В эса экран хажми. d параметрининг ўзгариши орқали катталашган ёки кичрайтирилган марказий проекцияни олиш мумкин. Агар d катта бўлса, проекция катталашади ва аксинча. Бизнинг холда кичрайтирилган проекция олинади, шунинг учун d нинг қийматлари кичикина. Объект координаталари x,y,z массивларида сақланади. Пpоекциялар xp,yp массивларига ёзилади. Хисобларни тезлаштириш учун CALC процедурасидан фойдаланилади. Унда синус ва косинусларнинг қийматлари хисобланади. Дастурда Turbo-Pascal системаси CRT,GRAPH модулларининг стандарт функцияларидан фойдаланилган.
DASTURI(TURBO PASKALDA)
uses crt,graph;
var
x,y,z:array[1..8] of integer;
xp,yp:array[1..8] of longint;
gd,gm:integer;
dm,i,a,b,c,d:integer;
xc,yc:integer;
key:char; begin
a:=20; b:=20; c:=60; d:=10; xc:=200; yc:=240; dm:=30;
x[1]:=a; y[1]:=0; z[1]:=2*b;
x[2]:=c; y[2]:=0; z[2]:=2*b;
x[3]:=c; y[3]:=d; z[3]:=2*b;
x[4]:=a; y[4]:=d; z[4]:=2*b;
x[5]:=-d; y[5]:=d; z[5]:=b;
x[6]:=-d; y[6]:=0; z[6]:=b;
x[7]:=c; y[7]:=0; z[7]:=b;
x[8]:=c; y[8]:=d; z[8]:=b;
gd:=detect; initGRAPH(gd,gm,'d:\tp6');
setbkcolor(0);setcolor(14);
while not keypressed do begin
setcolor(14);
for i:=1 to 8 do begin
xp[i]:=xc+round(dm*x[i]/(z[i]+1));
yp[i]:=getmaxy-yc+round(dm*y[i]/(z[i]+1)); end;
moveto(xp[1],yp[1]);
for i:=2 to 8 do begin
lineto(xp[i],yp[i]);
moveto(xp[i],yp[i]); end;
line(xp[1],yp[1],xp[6],yp[6]);
line(xp[5],yp[5],xp[8],yp[8]);
line(xp[3],yp[3],xp[8],yp[8]);
line(xp[1],yp[1],xp[4],yp[4]);
line(xp[2],yp[2],xp[7],yp[7]);
line(xp[1],yp[1],xp[3],yp[3]);
line(xp[2],yp[2],xp[4],yp[4]);
delay(500);setcolor(0);
moveto(xp[1],yp[1]);
for i:=2 to 8 do begin
lineto(xp[i],yp[i]);
moveto(xp[i],yp[i]); end;
line(xp[1],yp[1],xp[6],yp[6]);
line(xp[5],yp[5],xp[8],yp[8]);
line(xp[3],yp[3],xp[8],yp[8]);
line(xp[1],yp[1],xp[4],yp[4]);
line(xp[2],yp[2],xp[7],yp[7]);
line(xp[1],yp[1],xp[3],yp[3]);
line(xp[2],yp[2],xp[4],yp[4]);
end; closeGRAPH;end.



Download 163 Kb.

Do'stlaringiz bilan baham:
1   2   3   4   5   6   7




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish