Исследование динамики движения ЛА в продольной плоскости с использованием не линейной модели, страница 4

line(x4,350,x41+60,y41-69);

line(0,450,x41-30,y41-69);

line(x4,450,x41+30,y41-69);

line(0,550,x41-10,y41-69);

line(x4,550,x41+10,y41-69);

line(0,650,x41,y41-69);

line(x4,650,x41,y41-69);

line(x41,750,x41,y41-69);

ellipse(x41,y41,0,180,500,70);

ellipse(x41,y41+30,0,180,500,70);

ellipse(x41,y41+60,0,180,500,70);

ellipse(x41,y41+90,0,180,550,70);

ellipse(x41,y41+120,0,180,600,70);

ellipse(x41,y41+150,0,180,650,70);

ellipse(x41,y41+180,0,180,700,70);

ellipse(x41,y41+210,0,180,750,70);

repeat

e:=e+1;

Putpixel(Random(x4),Random(y4)-270,White);

until e=2120;

x11:=60;

y11:=10;

setcolor(white);

s:=0;

d:=-1;

repeat

s:=s+1;

if s<=6 then begin

ellipse(round(x4/2-120),round(y4/2-170),0,360,x11-y11*s,x11);

end;

if s<=12 then begin d:=d+1;

ellipse(round(x4/2-120),round(y4/2-170),0,360,x11,x11-y11*d);

end;

line(round(x4/2-x11-120),round(y4/2-170),round(x4/2+x11-120),round(y4/2-170));

line(round(x4/2-120),round(y4/2-x11-170),round(x4/2-120),round(y4/2+x11-170));

until s=12;

setcolor(11);

for h:=1 to n-2 do begin

for i:=1 to 100 do begin

setcolor(11);

x14:=30+round(xm[h]/2);

y14:=y4-70-round(ym[h]/2);

x17:=30+round(xm[h+1]/2);

y17:=y4-70-round(ym[h+1]/2);

line(x14,y14,x17,y17);

x21:=round(30+(xm[h]+xm[h+1])/4);

y21:=round(y4-70-(ym[h]+ym[h+1])/4);

x23:=round((xm[h]-xm[h+1])/4);

y23:=round((ym[h]-ym[h+1])/4);

x22:=round(x21+(30*cos(TANGm[h])));

y22:=round(y21-(30*sin(TANGm[h])));

x24:=round(x21-(30*cos(TANGm[h])));

y24:=round(y21+(30*sin(TANGm[h])));

x28:=round(xm[n]/2);

y28:=y4-round(ym[n]/2)-70;

x29:=round(x24-(7*cos(TANGm[h]+pi/12)));

y29:=round(y24+(7*sin(TANGm[h]+pi/12)));

x30:=round(x24-(7*cos(TANGm[h]-pi/12)));

y30:=round(y24+(7*sin(TANGm[h]-pi/12)));

x27:=round(x21+(7*cos(TANGm[h]+de1)));

y27:=round(y21-(7*sin(TANGm[h]+de1)));

x37:=round(x21-(7*cos(TANGm[h]+de1)));

y37:=round(y21+(7*sin(TANGm[h]+de1)));

x31:=round(x24+(5*sin(TANGm[h])));

y31:=round(y24+(5*cos(TANGm[h])));

x32:=round(x24-(5*sin(TANGm[h])));

y32:=round(y24-(5*cos(TANGm[h])));

x33:=round(x31+(45*cos(TANGm[h])));

y33:=round(y31-(45*sin(TANGm[h])));

x34:=round(x32+(45*cos(TANGm[h])));

y34:=round(y32-(45*sin(TANGm[h])));

setcolor(white);

line(x24,y24,x22,y22);

line(x31,y31,x32,y32);

line(x31,y31,x33,y33);

line(x32,y32,x34,y34);

line(x22,y22,x34,y34);

line(x22,y22,x33,y33);

line(x24,y24,x29,y29);

line(x24,y24,x30,y30);

line(x29,y29,x30,y30);

setcolor(13);

line(x27,y27,x37,y37);

x41:=random(x4);

putpixel(x24-23,y24+20,4);

putpixel(x24-7,y24+10,4);

putpixel(x24-8,y24+21,14);

putpixel(x24-4,y24+29,4);

putpixel(x24-8,y24+21,4);

putpixel(x24-12,y24+27,14);

putpixel(x24-13,y24+10,4);

putpixel(x24-11,y24+18,14);

{utpixel(x41,y41,14);}

putpixel(x24-19,y24+23,4);

putpixel(x24-1,y24+3,14);

putpixel(x24-4,y24+19,4);

putpixel(x24-17,y24+9,14);

putpixel(x24-21,y24+20,4);

putpixel(x24-25,y24+17,4);

putpixel(x24-5,y24+21,14);

putpixel(x24-7,y24+9,4);

putpixel(x24-8,y24+41,4);

putpixel(x24-12,y24+17,14);

putpixel(x24-13,y24+1,4);

putpixel(x24-11,y24+13,14);

{utpixel(x41,y41,14);}

putpixel(x24-19,y24+13,4);

putpixel(x24-14,y24+3,14);

putpixel(x24-47,y24+19,4);

putpixel(x24-7,y24+9,14);

putpixel(x24-21,y24+10,4);

putpixel(x24-7,y24+30,4);

putpixel(x24-6,y24+21,14);

putpixel(x24-4,y24+29,4);

putpixel(x24-86,y24+21,4);

putpixel(x24-19,y24+17,14);

putpixel(x24-13,y24+10,4);

putpixel(x24-11,y24+38,14);

{utpixel(x41,y41,14);}

putpixel(x24-79,y24+23,4);

putpixel(x24-1,y24+3,14);

putpixel(x24-4,y24+19,4);

putpixel(x24-17,y24+9,14);

putpixel(x24-21,y24+20,4);

putpixel(x24-25,y24+17,4);

putpixel(x24-5,y24+21,14);

putpixel(x24-7,y24+9,4);

putpixel(x24-8,y24+41,4);

putpixel(x24-19,y24+17,14);

putpixel(x24-10,y24+1,4);

putpixel(x24-11,y24+17,14);

{utpixel(x41,y41,14);}

putpixel(x24-9,y24+23,4);

putpixel(x24-1,y24+3,14);

putpixel(x24-47,y24+19,4);

putpixel(x24-7,y24+15,14);

putpixel(x24-23,y24+20,0);

putpixel(x24-7,y24+10,0);

putpixel(x24-8,y24+21,0);

putpixel(x24-4,y24+29,0);

putpixel(x24-8,y24+21,0);

putpixel(x24-12,y24+27,0);

putpixel(x24-13,y24+10,0);

putpixel(x24-11,y24+18,0);

{utpixel(x41,y41,14);}

putpixel(x24-19,y24+23,0);

putpixel(x24-1,y24+3,0);

putpixel(x24-4,y24+19,0);

putpixel(x24-17,y24+9,0);

putpixel(x24-21,y24+20,0);

putpixel(x24-25,y24+17,0);

putpixel(x24-5,y24+21,0);

putpixel(x24-7,y24+9,0);

putpixel(x24-8,y24+41,0);

putpixel(x24-12,y24+17,0);