Курсовая работа: Вероятностные процессы и математическая статистика в автоматизированных системах

begin s:=0;

for i:=1 to 15 do

s:=s+sqr(x[l,i]);

sx:=s;

end;

function sxy(l:integer):real;

var s:real; i:integer;

begin s:=0;

for i:=1 to 15 do

s:=s+x[l,i]*yc[i];

sxy:=s;

end;

function f(l:integer):real;

var xx1,xx2,xx3:real;

begin

xx1:=x[1,l]; xx2:=x[2,l]; xx3:=x[3,l];

f:=b[0]+b[1]*xx1+b[2]*xx2+b[3]*xx3

+b[4]*xx1*xx2+b[5]*xx1*xx3+b[6]*xx2*xx3+

b[7]*xx1*xx1+b[8]*xx2*xx2+b[9]*xx2*xx2;

end;

function fy(xx1,xx2,xx3:real):real;

begin

fy:=b[0]+b[1]*xx1+b[2]*xx2+b[3]*xx3

+b[4]*xx1*xx2+b[5]*xx1*xx3+b[6]*xx2*xx3+

b[7]*xx1*xx1+b[8]*xx2*xx2+b[9]*xx2*xx2;

end;

function dlambda(lam:real):real;

begin dlambda:=(b[7]-lam)*((b[8]-lam)*(b[9]-lam)-0.25*b[6]*b[6])-

0.5*b[4]*(0.5*b[4]*(b[9]-lam)-0.25*b[5]*b[6])+