Добавил:
Kurume
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:ОНИ / Гуменюк А.С / Цифровое моделирование систем передачи данных / GAS / GAS / (2)DISKR / DISKR2
.PAS Program Kvant_1_var_6; {Љў в®ў ЁҐ бЁЈ « }
Uses gnk,crt;
const
Na=5;
N=240;
T=30.0;
Ax:array[1..Na] of real=(0,T/18*3,T/18*9,T/18*13,T);
Ay:array[1..Na] of real=(4,-10,10,2,4);
V=0.9;
S=1.0;
KU:word=5;
M=3;
Ndis=N div(M+1);
var
X,Y,Yg,Yif,fo:array [1..N] of real;
Xdis,Ydis:array [1..Ndis] of real;
i,j,k:integer;
nul,C:word;
Ymax,Ymin,Q,V2:real;
Wg:real;{з бв®в б१ ЇаЁ бЈ« ¦Ёў ЁЁ}
Wdis:real;{— бв®в ЇаЁ ¤ЁбЄаҐвЁ§ жЁЁ Wdis=pi*N/(T*(M+1))в Є Їа®бв® Ґ ¬ҐпҐвбп}
Wif:real;{— бв®в ЇаЁ ў®ббв ®ў«ҐЁЁ}
err:real;
Begin
clrscr;
wdis:=pi*N/(t*(M+1));
gklf(T,Ax,Ay,X,Y); {ѓҐҐа жЁп Єгб®з®-«ЁҐ©®© д-ЁЁ ў X, Y }
writeln('’ Ў«Ёж ®иЁЎ®Є ў®ббв ®ў«ҐЁп');
write('Wба\Wў®бб ');
for j:=0 to 6 do begin {§ Ј®«®ў®Є}
wif:=pi*N/(t*(j+1)); {<<<----}
write(Wif:9:4);
end;
writeln;
writeln;
for j:=0 to 17 do begin {<<<------}
Wg:=pi*N/(t*(j+1)); {<<<-----}
flf(Wg,T,X,Y,Yg); {бЈ« ¦Ёў ЁҐ}
write(Wg:9:4,' ');
for k:=0 to 6 do begin {<<<-----}
wif:=pi*N/(t*(k+1)); {<<<------}
dis(M,X,Yg,Xdis,Ydis);{¤ЁбЄаҐвЁ§ жЁп}
idf(0,Wif,xdis,Ydis,X,Yif,fo);{‚®ббв ®ў«ҐЁҐ}
err:=0;
for i:=1 to N do err:=err+abs(Yif[i]-Yg[i]); {®иЁЎЄ }
err:=err/N;
write(err:9:4);
end;
writeln;
end;
write('W¤Ёб=',Wdis:-9:4);
readkey;
End.
Uses gnk,crt;
const
Na=5;
N=240;
T=30.0;
Ax:array[1..Na] of real=(0,T/18*3,T/18*9,T/18*13,T);
Ay:array[1..Na] of real=(4,-10,10,2,4);
V=0.9;
S=1.0;
KU:word=5;
M=3;
Ndis=N div(M+1);
var
X,Y,Yg,Yif,fo:array [1..N] of real;
Xdis,Ydis:array [1..Ndis] of real;
i,j,k:integer;
nul,C:word;
Ymax,Ymin,Q,V2:real;
Wg:real;{з бв®в б१ ЇаЁ бЈ« ¦Ёў ЁЁ}
Wdis:real;{— бв®в ЇаЁ ¤ЁбЄаҐвЁ§ жЁЁ Wdis=pi*N/(T*(M+1))в Є Їа®бв® Ґ ¬ҐпҐвбп}
Wif:real;{— бв®в ЇаЁ ў®ббв ®ў«ҐЁЁ}
err:real;
Begin
clrscr;
wdis:=pi*N/(t*(M+1));
gklf(T,Ax,Ay,X,Y); {ѓҐҐа жЁп Єгб®з®-«ЁҐ©®© д-ЁЁ ў X, Y }
writeln('’ Ў«Ёж ®иЁЎ®Є ў®ббв ®ў«ҐЁп');
write('Wба\Wў®бб ');
for j:=0 to 6 do begin {§ Ј®«®ў®Є}
wif:=pi*N/(t*(j+1)); {<<<----}
write(Wif:9:4);
end;
writeln;
writeln;
for j:=0 to 17 do begin {<<<------}
Wg:=pi*N/(t*(j+1)); {<<<-----}
flf(Wg,T,X,Y,Yg); {бЈ« ¦Ёў ЁҐ}
write(Wg:9:4,' ');
for k:=0 to 6 do begin {<<<-----}
wif:=pi*N/(t*(k+1)); {<<<------}
dis(M,X,Yg,Xdis,Ydis);{¤ЁбЄаҐвЁ§ жЁп}
idf(0,Wif,xdis,Ydis,X,Yif,fo);{‚®ббв ®ў«ҐЁҐ}
err:=0;
for i:=1 to N do err:=err+abs(Yif[i]-Yg[i]); {®иЁЎЄ }
err:=err/N;
write(err:9:4);
end;
writeln;
end;
write('W¤Ёб=',Wdis:-9:4);
readkey;
End.
Соседние файлы в папке (2)DISKR