Добавил:
Kurume
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:ОНИ / Гуменюк А.С / Цифровое моделирование систем передачи данных / GAS / GAS / (4)OPTIM / Копия L-GRAMMY
.PAS uses gnk,gnk2,fkt,crt;
const inf=6;{зЁб«® а §а冷ў ¤ў®Ёз®Ј® Ї®§ЁжЁ®®Ј® Є®¤ }
nuk:word=0; {®¬Ґа га®ўп Єў в®ў Ёп}
l=5; {¤«Ё L-Ја ¬¬л }
ms:real=0.0;
ss:real=0.5;
vs:real=0.7;
sp:real=0.5;
mp:real=0.0;
t0:real=0.4;
N=80;
T=40;
tf: char = 'F'; {Є«оз ¤«п Їа®жҐ¤га fpc Ё view: ®Ўа Ў®вЄ га®ўҐ© Єў в®ў Ёп}
reg: char = 'L';
len=6; {¬ ЄбЁ¬ «м®Ґ зЁб«® а §а冷ў нд䥪⨢®Ј® Є®¤ }
KU:word=20; {Є®«-ў® га®ўҐ© Єў в®ў Ёп}
Ax:array [0..4] of real=(0,10,20,30,40);
AY:array [0..4] of real=(-10,-10,10,-10,-10);
var x,y,Yk,YKout:array [1..N] of real;
arnuk, wp:array [1..N] of word;
wt:array[1..N,1..l] of word;
kod: array[1..N,1..len] of char;
bin: array[1..N,1..inf] of word;
pc:array[1..N,1..2] of word;
tree: array [1..N,1..3] of word;
Ymax,Ymin,Q,pk,t1, vpp, soi:real;
dif,realkol:word;
lkod: string;
i, j:integer;
begin
clrscr;
realkol:=0;
GKLF(T,Ax,Ay,x,y);
Ymin:=min(y);
Ymax:=max(y);
SAG(1,Vs,Ms,Ss,Ymin,Ymax,KU,Q);
rpt(t0,vs,ms,ss,pk,t1);
writeln('N=',n);
readln;
for i:=1 to N do
begin
KVN(KU,Q,Ymin,y[i],NUK,Yk[i]);
arnuk[i]:=nuk;
{ write(nuk,'= ');}
end;
seg('l',N,l,arnuk,wt);
fpc('f',N,l,wt,wp,pc,dif);
ftab(dif, pc, tree);
fpc('f',N,l,wt,wp,pc,dif);
fkod(N,DIF,len,pc,tree,kod);
readln ;
writeln('‘®®ЎйҐЁҐ Љ®«-ў® Љ®¤');
for i:=1 to dif do
writeln(pc[i,1]:5,' ',pc[i,2]:7,' ',kod[i]:7);
readkey;
fbin(N, dif, inf, pc, bin);
clrscr;
view(tf, reg, N, dif, l, len, inf, wt, wp, pc, kod, bin);
for i:=1 to N do
begin
tvk(dif, len, pc, kod, wp[i], lkod);
kan(1, lkod, t0, t1, pk, sp, mp);
dcf(reg, dif, l, len, N, i, lkod, q, ymin, wt, kod, wp, pc, ykout);
end;
stat(N, l, len, reg, kod, pc, wp);
vpp:=0.0;
soi:=0.0;
j:=0;
for i:=1 to N do
if yk[i]=ykout[i] then vpp:=vpp+1 else
begin
soi:=soi+abs(yk[i]-ykout[i]);
inc(j);
end;
soi:=soi/j;
vpp:=vpp/N;
Writeln('‚Ґа®пв®бвм Їа ўЁ«м®© ЇҐаҐ¤ зЁ б®®ЎйҐЁп: ', vpp:5:3);
Writeln('‘।пп ®иЁЎЄ ЁбЄ ¦ҐЁ© д®а¬л бЁЈ « : ', soi:5:3);
writeln('uroven edin: ',t1:3:3,' uroven nul: ',t0:3:3,' porog kvan: ',pk:3:3);
readkey;
{gra(3, 3, x, y, x, yk, '€б室 п', 'Љў в®ў п', '');
gra(3, 3, x, yk, x, ykout, 'Љў в®ў п ¤® ЇҐаҐ¤ зЁ', 'Љў в®ў п Ї®б«Ґ ЇҐаҐ¤ зЁ', '');}
end.
const inf=6;{зЁб«® а §а冷ў ¤ў®Ёз®Ј® Ї®§ЁжЁ®®Ј® Є®¤ }
nuk:word=0; {®¬Ґа га®ўп Єў в®ў Ёп}
l=5; {¤«Ё L-Ја ¬¬л }
ms:real=0.0;
ss:real=0.5;
vs:real=0.7;
sp:real=0.5;
mp:real=0.0;
t0:real=0.4;
N=80;
T=40;
tf: char = 'F'; {Є«оз ¤«п Їа®жҐ¤га fpc Ё view: ®Ўа Ў®вЄ га®ўҐ© Єў в®ў Ёп}
reg: char = 'L';
len=6; {¬ ЄбЁ¬ «м®Ґ зЁб«® а §а冷ў нд䥪⨢®Ј® Є®¤ }
KU:word=20; {Є®«-ў® га®ўҐ© Єў в®ў Ёп}
Ax:array [0..4] of real=(0,10,20,30,40);
AY:array [0..4] of real=(-10,-10,10,-10,-10);
var x,y,Yk,YKout:array [1..N] of real;
arnuk, wp:array [1..N] of word;
wt:array[1..N,1..l] of word;
kod: array[1..N,1..len] of char;
bin: array[1..N,1..inf] of word;
pc:array[1..N,1..2] of word;
tree: array [1..N,1..3] of word;
Ymax,Ymin,Q,pk,t1, vpp, soi:real;
dif,realkol:word;
lkod: string;
i, j:integer;
begin
clrscr;
realkol:=0;
GKLF(T,Ax,Ay,x,y);
Ymin:=min(y);
Ymax:=max(y);
SAG(1,Vs,Ms,Ss,Ymin,Ymax,KU,Q);
rpt(t0,vs,ms,ss,pk,t1);
writeln('N=',n);
readln;
for i:=1 to N do
begin
KVN(KU,Q,Ymin,y[i],NUK,Yk[i]);
arnuk[i]:=nuk;
{ write(nuk,'= ');}
end;
seg('l',N,l,arnuk,wt);
fpc('f',N,l,wt,wp,pc,dif);
ftab(dif, pc, tree);
fpc('f',N,l,wt,wp,pc,dif);
fkod(N,DIF,len,pc,tree,kod);
readln ;
writeln('‘®®ЎйҐЁҐ Љ®«-ў® Љ®¤');
for i:=1 to dif do
writeln(pc[i,1]:5,' ',pc[i,2]:7,' ',kod[i]:7);
readkey;
fbin(N, dif, inf, pc, bin);
clrscr;
view(tf, reg, N, dif, l, len, inf, wt, wp, pc, kod, bin);
for i:=1 to N do
begin
tvk(dif, len, pc, kod, wp[i], lkod);
kan(1, lkod, t0, t1, pk, sp, mp);
dcf(reg, dif, l, len, N, i, lkod, q, ymin, wt, kod, wp, pc, ykout);
end;
stat(N, l, len, reg, kod, pc, wp);
vpp:=0.0;
soi:=0.0;
j:=0;
for i:=1 to N do
if yk[i]=ykout[i] then vpp:=vpp+1 else
begin
soi:=soi+abs(yk[i]-ykout[i]);
inc(j);
end;
soi:=soi/j;
vpp:=vpp/N;
Writeln('‚Ґа®пв®бвм Їа ўЁ«м®© ЇҐаҐ¤ зЁ б®®ЎйҐЁп: ', vpp:5:3);
Writeln('‘।пп ®иЁЎЄ ЁбЄ ¦ҐЁ© д®а¬л бЁЈ « : ', soi:5:3);
writeln('uroven edin: ',t1:3:3,' uroven nul: ',t0:3:3,' porog kvan: ',pk:3:3);
readkey;
{gra(3, 3, x, y, x, yk, '€б室 п', 'Љў в®ў п', '');
gra(3, 3, x, yk, x, ykout, 'Љў в®ў п ¤® ЇҐаҐ¤ зЁ', 'Љў в®ў п Ї®б«Ґ ЇҐаҐ¤ зЁ', '');}
end.
Соседние файлы в папке (4)OPTIM