Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

gas / (3)POMEX / VART1

.PAS
Скачиваний:
15
Добавлен:
15.06.2014
Размер:
1.79 Кб
Скачать
uses gnk,gnk2,crt;

const MKOSys:word=11;
k:word=2;
nuk:word=0;
inf:word=4;
vs:real=0.9;
ms:real=0;
ss:real=0.5;
v0:real=0.9;
s0:real=0.5;
m0:real=0;

N=2000;
T=80;
KU:word=15;

var Ax,Ay:array [0..5] of real;
x,y,Yk,YKout:array [1..N] of real;
Ymax,Ymin,Q:real;

mas:masarray;
mop,mt1,mt2:intarray;
mat:binarray;
opz:binarray1;
mvk, mdv, ki, kk, kp:binarray2;
a, b:integer;
i, j:integer;
mj, kj:integer;
ir, kc1:word;
t0, t1, pk, skrip,sum:real;
d:integer;
npr,nrs:word;
krip, kri:word;

begin
clrscr;
{­ бва®©Є  га®ў­п 1 Ё Ї®а®Ј  Єў ­в®ў ­Ёп}


{Ї®бв஥­ЁҐ в Ў«Ёжл ®Ї®§­ ў вҐ«Ґ©}
opd4(mas,mop,nrs,npr,k,inf,1);

kj:=inf+1;
mj:=npr+1;

{Ї®бв஥­ЁҐ Є®¤Ёаго饩 в Ў«Ёжл}
mtab4(mas,inf,mop,mat,k,1);

j:=0;
writeln('* INF= ',inf);
writeln('* NRS= ',nrs);
writeln('* NPR= ',npr);
b:=0;
Ax[0]:=0.001;Ay[0]:=4;
Ax[1]:=22.22;Ay[1]:=10;
Ax[2]:=35.55;Ay[2]:=4;
Ax[3]:=40;Ay[3]:=-4;
Ax[4]:=53.33;Ay[4]:=-10;
Ax[5]:=80;Ay[5]:=4;
GKLF(T,Ax,Ay,x,y);
Ymin:=min(y);
Ymax:=max(y);
t1:=1;
t0:=0;

writeln('t1 ”®а¬  ЁбЄ ¦. а §а Їа ў. ЇҐаҐ¤');
for j:=1 to 5 do begin
kc1:=0;skrip:=0;sum:=0;

SAG(1,Vs,Ms,Ss,Ymin,Ymax,KU,Q);
PK:=AVER(Vs,Ms,Ss);

for i:=1 to N do begin
KVN(KU,Q,Ymin,y[i],NUK,Yk[i]);
dvk(NUK,inf,mdv);

KDR(MAT,MDV,KP,MJ,KJ,NRS,INF);

KAN(kp,ki,mvK,NRS,MKOSys,t0,t1,pk,s0,m0,ir);

isp4(kp,ki,mat,mj,kj,NRS,mop,kk,krip,kri);
skrip:=skrip+krip;
fillchar(MvK,sizeof(mvk),' ');
pvb(MAT,Kk,MvK,MdV,KJ,KC1,NRS);
BVUK(MVK,YKout,INF,i,Q,Ymin);
SUM:=SUM+abs(YK[i]-YKout[i]);
end;
writeln(t1:4:1,' ', sum/n:2:3,skrip/n:15:3,1-kc1/n:20:3);

t1:=t1+0.2;
end;

end.
Соседние файлы в папке (3)POMEX