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

x23:=50+round(tm[h+1]*100);

y23:=y4-30-round(xm[h+1]/2);

line(x21,y21,x23,y23);

x31:=50+round(tm[h]*100);

y31:=y4-30-round(ym[h]/2);

x33:=50+round(tm[h+1]*100);

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

line(x31,y31,x33,y33);

end;

o:=readkey;

if o<>'E' then  break ;

until o='E';

CloseGraph;

end;

end;

Procedure Red2;

Var

d,m,e,h,p,s,x4,y4,x7,y7,i4,z7,x31,y31,x32,y32,x33,y33,x37,y37,x38,y38,x39,y39,y41,y42:integer;

F: array [1..100] of integer;

o,b:char;

begin

Clrscr;

d:=detect;

InitGraph(d,m, 'C:\tp7');

e:=GraphResult;

if e<>grOk then

writeln(GraphErrorMsg(e))

else

begin

x4:=GetMaxX;

y4:=GetMaxY;

setcolor(5);

line(0,y4-30,x4,y4-30);

line(30,0,30,y4);

x7:=round(tm[n]*100/4);

setcolor(3);

outtextxy(17,25,'TTa');

setcolor(4);

outtextxy(47,25,'TANG');

setcolor(7);

outtextxy(87,25,'ALFA');

setcolor(9);

outtextxy(127,25,'OMEGAZ');

setcolor(5);

outtextxy(x4-27,y4-25,'t,c');

outtextxy(20,y4-25,'');

outtextxy(30+x7,y4-25,'');

outtextxy(30+2*x7,y4-25,'');

outtextxy(30+3*x7,y4-25,'');

outtextxy(27,0,'^');

outtextxy(x4-10,y4-33,'>');

y7:=round(TANGm[34]/4);

outtextxy(0,y4-y7-30,'');

outtextxy(0,y4-2*y7-30,'');

outtextxy(0,y4-3*y7-30,'');

outtextxy(0,y4-4*y7-30,'');

z7:=round(4);

outtextxy(35,y4-z7-30,'');

outtextxy(35,y4-2*z7-30,'');

outtextxy(35,y4-3*z7-30,'');

outtextxy(35,y4-4*z7-30,'');

setcolor(4);

repeat

for h:=1 to n-2 do begin

x31:=30+round(tm[h]*100);

y31:=y4-30-round(TTam[h]*100);

x32:=30+round(tm[h+1]*100);

y32:=y4-30-round(TTam[h+1]*100);

y33:=y4-30-round(TANGm[h]*100);

y37:=y4-30-round(TANGm[h+1]*100);

y38:=y4-30-round(ALFAm[h]*100);

y39:=y4-30-round(ALFAm[h+1]*100);

y41:=y4-30-round(wz1m[h]*100);

y42:=y4-30-round(wz1m[h+1]*100);

setcolor(3);

line(x31,y31,x32,y32);

{line(30,y4-30-round({(nxm[1])*200+70)1.951*50),30+round(Lm[1]/1700),y4-30-round(nxm[1]*50));}

setcolor(4);

line(x31,y33,x32,y37);

{line(30,y4-30-round({(nym[1])*200+20)0.488*50),30+round(Lm[1]/1700),y4-30-round(nym[1]*50));}

setcolor(7);

line(x31,y38,x32,y39);

setcolor(9);

line(x31,y41,x32,y42);

end;

o:=readkey;

if o<>'E' then  break ;

until o='E';

CloseGraph;

end;

end;

Procedure Red4;

Var

d,m,e,h,p,s,x4,y4,x7,y7,i4,z7,x11,y11,x12,y12:integer;

F: array [1..100] of integer;

o,b:char;

begin

Clrscr;

d:=detect;

InitGraph(d,m, 'C:\tp7');

e:=GraphResult;

if e<>grOk then

writeln(GraphErrorMsg(e))

else

begin

x4:=GetMaxX;

y4:=GetMaxY;

setcolor(5);

line(0,y4-30,x4,y4-30);

line(30,0,30,y4);

x7:=round((tm[n-1])*100/4);

outtextxy(30,y4-25,'');

outtextxy(30+x7,y4-25,'');

outtextxy(30+2*x7,y4-25,'');

outtextxy(30+3*x7,y4-25,'');

outtextxy(27,0,'^');

y7:=round(m0/4);

outtextxy(x4-7,y4-33,'>');

outtextxy(0,y4-z7-30,'');

outtextxy(0,y4-2*z7-30,'');

outtextxy(0,y4-3*z7-30,'');

outtextxy(0,y4-4*z7-30,'');

setcolor(4);

repeat

for h:=1 to n do begin

{if Hm[h]>=10 then begin

{tm[n+1]:=tm[n]; Hm[n+1]:=Hm[n];

line(round(tm[h-1])*15+30,y4-round(Hm[h-1]/15)-30,round(tm[h]*15)+30,y4-round(Hm[h]/15)-30);

x11:=50+round(mm[h]);

y11:=y4-30-round(tm[h]*100);

x12:=50+round(mm[h+1]);

y12:=y4-30-round(tm[h+1]*100);

line(x11,y11,x12,y12);

line(50,y4-30-round(mm[1]),50+round(tm[2]*10),y4-30-round(mm[2]));

end;

o:=readkey;

if o<>'E' then  break ;

until o='E';

CloseGraph;

end;

end;

Procedure Red7;

Var

d,m,g,e,h,p,s,j,x4,y4,x7,y7,i4,x14,y14,x17,y17,x21,y21,x22,y22,x23,y23,x24,y24:integer;

x31,y31,x32,y32,x33,y33,x34,y34,x41,y41,x42,y42,x11,y11,x37,y37,x27,y27,x28,y28,x29,y29,x30,y30:integer;

F: array [1..100] of integer;

o,b:char;

begin

Clrscr;

d:=detect;

InitGraph(d,m, 'C:\tp7');

e:=GraphResult;

if e<>grOk then

writeln(GraphErrorMsg(e))

else

begin

x4:=GetMaxX;

y4:=GetMaxY;

setcolor(7);

{line(0,y4,x4,y4);

line(0,0,0,y4);}

{line(0,y4-30,x4,y4-30);

line(30,0,30,y4);

x7:=round(tm[n]*100/4);

outtextxy(20,y4-25,'0');

outtextxy(30+x7,y4-25,'');

outtextxy(30+2*x7,y4-25,'');

outtextxy(30+3*x7,y4-25,'');

outtextxy(27,0,'^');

outtextxy(40,0,'H,km');

outtextxy(x4-10,y4-33,'>');

outtextxy(x4-40,y4-47,'t,c');

y7:=round((Vmax)/5);

outtextxy(0,y4-y7-30,'');

outtextxy(0,y4-2*y7-30,'');

outtextxy(0,y4-3*y7-30,'');

outtextxy(0,y4-4*y7-30,'');

outtextxy(0,y4-5*y7-30,'');}

setcolor(green);

repeat

x41:=round(x4/2);

y41:=round(y4/2+40);

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

line(0,250,x41-90,y41-70);

line(x4,250,x41+90,y41-70);

line(0,350,x41-60,y41-69);