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

for i:=1 to 15 do

if s2u[i]>s2umax then s2umax:=s2u[i];

label5.Caption:=floattostrf(s2umax,fffixed,7,3);

g:=s2umax/sums;

label7.Caption:=floattostrf(g,fffixed,7,3);

label9.Caption:=floattostrf(0.47,fffixed,7,3);

if g<=0.47 then begin

label10.Caption:=' Îïûòû'+#13+'âîñïðîèçâîäèìû';

s2y:=0;

for i:=1 to 15 do

s2y:=s2y+s2u[i]/15;

if b[0]=0 then begin

for i:=0 to 9 do

b[i]:=sxy(i)/sx(i);

sgb.Cells[i,1]:=floattostrf(b[i],fffixed,5,3);

for j:=1 to 3 do

b[0]:=b[0]-b[6+j]*xc2;

sgb.Cells[0,1]:=floattostrf(b[0],fffixed,5,3);

sgb.Cells[0,0]:='b0'; sgb.Cells[1,0]:='b1';

sgb.Cells[2,0]:='b2'; sgb.Cells[3,0]:='b3';

sgb.Cells[4,0]:='b12'; sgb.Cells[5,0]:='b13';

sgb.Cells[6,0]:='b23'; sgb.Cells[7,0]:='b11';

sgb.Cells[8,0]:='b22'; sgb.Cells[9,0]:='b33';

for i:=0 to 9 do

begin s2b[i]:=s2y/(2*sx(i));

db[i]:=1.76*s2b[i];

sgsb.Cells[i+1,1]:=floattostrf(s2b[i],fffixed,7,3);

sgsb.Cells[i+1,2]:=floattostrf(db[i],fffixed,7,3);

end;