Побудова кривих регресій методом парабол

matr[j,i]:= -matr[j,i]/matr[i,i];

for h:=i+1 to k+1 do

matr[j,h]:=matr[j,h]+matr[j,i]*matr[i,h];

b[j]:=b[j]+matr[j,i]*b[i];

end;

{ обернений хiд методу гауса }

for i:=k+1 downto 1 do

begin

s:=b[i];

for j:=i+1 to k+1 do s:=s-a[j]*matr[i,j];

a[i]:=s/matr[i,i];

end;

writeln ('Моменти:');

for i:=1 to k+1 do

writeln ('a[',i-1,']=',a[i]:0:4);

d:=sy[2]-a[1]*sy[1]-a[2]*sxy[1]-a[3]*sxy[2]-a[4]*sxy[3];

writeln ('Похибка:');

writeln ('d = ',d:0:4);writeln ('Enter для перегляду графiка');

repeat

chr:=readkey;

if ord(chr)=13 then break;

until false;

m:=50;v:=160;ex:=false;

repeat

gd:=detect;