ПОМОГИТЕ ПЛИЗ!!!
Построить аппроксимирующую зависимость для аналитического описания результатов 9 экспериментов, в каждом из которых на вход системы подается значение параметра Х, а на выходе регистрируется реакция У.
1 Выбрать вид функции.
2 Методом наименьших квадратов найти неизвестные коэффициенты избранной функции.
Х 0,1 0,2 0,3 0,4 0,5 0,6 0,7 0,8 0,9
У 34,5 18,7 15,1 11,3 12,44 11,9 6,7 4,3 2,0
program z3;
var x,y:array[1..9] of real;
i :byte; a,b,c,s1,s2,s3,s4,s5:real;
f:text;
begin
assign(f,'isx.dat'); reset(f) ;
for i:= 1 to 9 do read(f,x[i],y[i]);
s1:=0; s2:=0; s3:=0; s4:=0;
for i:=1 to 9 do
begin
s1:=s1+x[i];
s2:=s2+ln(y[i]);
s3:=s3+(x[i]*x[i]);
s4:=s4+x[i]*ln(y[i]);
s5:=s5+y[i];
end;
a:=(s4-s1*s2/9)/(s3-s1*s1/9);
b:=s2/9-a*s1/9;
a:=exp(a);
b:=exp(b);
writeln('a=',a,' b=',b);
writeln ( ' x y yras');
s1:=0; s2:=0; s3:=s5/9;
for i:=1 to 9 do
begin
s1:=s1+sqr(y[i]-b*exp(x[i]*ln(a)));
s2:=s2+sqr(y[i]-s3);
writeln(x[i]: 4: 4, ' ',y[i]: 4: 4,' ',
b*exp (x [i] *ln (a) ) : 4 : 4) ;
end;
s4:=sqrt(1-s1/s2);
writeln('h=',s4);
end.