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

gas / KOSNHOR2

.PAS
Скачиваний:
14
Добавлен:
15.06.2014
Размер:
1.83 Кб
Скачать
Uses gnk,crt;
const
DS=0.3;
DKU=5;
KU0=5;
Na=6;
N=200;
T=60.0;
ay:array [1..Na] of real=(0,-5,11,11,-7,7,-7,11,-11,0);{(0,8,8,-8,-8,0);}
ax:array [1..Na] of real=(0,4,8,13,19,25,35,45,55,60);{(6,15,27,45,57,66);}

V=0.9;
M=1.0;
S:real=0;
KU:word=0;
var
X,Y,YK,YP,YPK:array [1..N] of real;
i:integer;
nul,C:word;
Ymax,Ymin,Q,V2:real;
E: real;
j,k:integer;
Begin
gklf(T,Ax,Ay,X,Y);
Ymin:=min(Y);
Ymax:=max(Y);
clrscr;
writeln('’ Ў«Ёж  ®иЁЎ®Є ¤«п ЇҐаҐ¤ зЁ ­ҐЇаҐалў­®Ј® бЁЈ­ « :');
write('KU\S ');
for i:=0 to 6 do
begin
S:=DS*i;
write(S:1:1,' ');
end;
writeln;
for j:=0 to 10 do begin
KU:=KU0+j*DKU;
write(KU:2, ' ');
for k:=0 to 6 do begin
S:=DS*k;
sag(1,V,M,S,Ymin,Ymax,KU,Q);
for i:=1 to N do begin
kvn(KU,Q,Ymin,Y[i],nul,YK[i]);
YP[i]:=YK[i]+gauss(M,S);
end;
for i:=1 to N do begin
kvn(KU,Q,Ymin,YP[i],nul,YPK[i]);
end;
E:=0;
for i:=1 to N do
begin
E:=E+sqr(abs(Y[i]-YPK[i]));
end;
E:=(sqrt(E)/N);
write((E):2:6, ' ');
end;
writeln;
end;
readkey;
clrscr;
writeln('’ Ў«Ёж  ®иЁЎ®Є ¤«п ЇҐаҐ¤ зЁ Єў ­в®ў ­­®Ј® бЁЈ­ « :');
write('KU\S ');
for i:=0 to 6 do
begin
S:=DS*i;
write(S:1:1,' ');
end;
writeln;
for j:=0 to 10 do begin
KU:=KU0+j*DKU;
write(KU:2, ' ');
for k:=0 to 6 do begin
S:=DS*k;
sag(1,V,M,S,Ymin,Ymax,KU,Q);
for i:=1 to N do begin
kvn(KU,Q,Ymin,Y[i],nul,YK[i]);
YP[i]:=YK[i]+gauss(M,S);
end;
for i:=1 to N do begin
kvn(KU,Q,Ymin,YP[i],nul,YPK[i]);
end;
E:=0;
for i:=1 to N do
begin
E:=E+sqr(abs(YK[i]-YPK[i]));
end;
E:=(sqrt(E)/N);
write((E):2:6, ' ');
end;
writeln;
end;

while keypressed do readkey;
readkey;
End.
Соседние файлы в папке gas