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

begin

sy[i]:=0;

for j:=1 to n do

sy[i]:=sy[i] + stepin (yn[j], i);

end;

for i:=1 to 3 do

begin

sxy[i]:=0;

for j:=1 to n do

sxy[i]:=sxy[i] + yn[j] * stepin (xn[j], i);

end;

b[1]:=sy[1];

for j:=2 to k+1 do

matr[1,j]:=sx[j-1];

for i:=2 to k+1 do

b[i]:=sxy[i-1];

for i:=2 to k+1 do

for j:=1 to k+1 do

matr[i,j]:=sx[j+i-2];

matr[1,1]:=n;

{ МЕТОД ГАУСА РОЗВ'ЯЗАННЯ С.Л.А.Р. }

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

for i:=1 to k do

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

begin