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

sgsb.Cells[3,0]:='b2'; sgsb.Cells[4,0]:='b3';

sgsb.Cells[5,0]:='b12'; sgsb.Cells[6,0]:='b13';

sgsb.Cells[7,0]:='b23'; sgsb.Cells[8,0]:='b11';

sgsb.Cells[9,0]:='b22'; sgsb.Cells[10,0]:='b33';

sgsb.Cells[0,1]:='S2bi'; sgsb.Cells[0,2]:='|bi|';

label16.Caption:=floattostrf(s2y,fffixed,7,3);

label18.Caption:=floattostrf(1.76,fffixed,7,3);

label21.Caption:='Íåçíà÷èìûå êîýôôèöèåíòû:';

li:=0;

for i:=0 to 9 do

if abs(b[i])<=db[i] then begin

li:=li+1;

label21.Caption:=label21.Caption+' b['+

inttostr(i)+']='+floattostrf(b[i],fffixed,7,4);

b[i]:=0;

end;

s2ad:=0;

for i:=1 to 15 do

s2ad:=s2ad+sqr(yc[i]-f(i))+2/(li*15);

fp:=s2ad/s2y;

label12.Caption:=floattostrf(s2y,fffixed,7,3);

label20.Caption:=floattostrf(s2ad,fffixed,7,3);

label25.Caption:=floattostrf(2.96,fffixed,7,3);

label26.Caption:=floattostrf(fp,fffixed,7,3);

if fp<=2.96 then

label27.Caption:=' Ìîäåëü àäåêâàòíà'

else

label27.Caption:=' Ìîäåëü íå àäåêâàòíà';

minmax;