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

d[2,1]:=b[4]; d[2,2]:=2*b[8]; d[2,3]:=b[6];

d[3,1]:=b[5]; d[3,2]:=b[6]; d[3,3]:=2*b[9];

bd[1]:=-b[1]; bd[2]:=-b[2]; bd[3]:=-b[3];

for i:=1 to 3 do

begin d1[i,2]:=d[i,2]; d1[i,3]:=d[i,3];

d2[i,1]:=d[i,1]; d2[i,3]:=d[i,3];

d3[i,2]:=d[i,2]; d3[i,1]:=d[i,1];

d1[i,1]:=bd[i];d2[i,2]:=bd[i];d3[i,3]:=bd[i]; end;

xc[1]:=delta(d1)/delta(d);

xc[2]:=delta(d2)/delta(d);

xc[3]:=delta(d3)/delta(d);

ycen:=fy(xc[1],xc[2],xc[3]);

la[1]:=findl(-6,-2);

la[2]:=findl(-2,2);

la[3]:=findl(2,6);

for i:=1 to 3 do begin

ml[i]:=(b[6]*(b[7]-la[i])-0.5*b[4]*b[5])/(b[5]*(b[8]-la[i])-0.5*b[4]*b[6]);

nl[i]:=(-2*(b[7]-la[i])*(b[8]-la[i])+0.5*b[4]*b[4])/(b[5]*(b[8]-la[i])-0.5*b[4]*b[6]);

l[i]:=1/sqrt(1+sqr(ml[i])+sqr(nl[i]));

m[i]:=ml[i]*l[i];

n[i]:=nl[i]*l[i];

maximminim; end; end;

procedure TForm1.FormCreate(Sender: TObject);

var i,j:integer;

begin

x0[1]:=1; x0[2]:=175; x0[3]:=4;

ix[1]:=0.5; ix[2]:=25; ix[3]:=2;

y[1,1]:=24.99; y[1,2]:=22.61;y[1,3]:=26.99; y[1,4]:=39.61;

y[1,5]:=49.8; y[1,6]:=37.8; y[1,7]:=26.61; y[1,8]:=28.99;

y[1,9]:=35.8; y[1,10]:=37.61;y[1,11]:=27.99;y[1,12]:=24.18;

y[1,13]:=26.8; y[1,14]:=34.99;y[1,15]:=32.8;

y[2,1]:=25.51;y[2,2]:=23.89; y[2,3]:=26.89; y[2,4]:=39.51;

y[2,5]:=53.7; y[2,6]:=37.51; y[2,7]:=26.7; y[2,8]:=28.7;

y[2,9]:=38.89;y[2,10]:=37.32;y[2,11]:=33.51;y[2,12]:=28.7;

y[2,13]:=30.7; y[2,14]:=38.7;y[2,15]:=31.51;

xc2:=sqrt(8/15); d:=sqrt((15*xc2-8)/2);

ys:=y;

sgcod.Cells[0,1]:='Íóëåâîé óðîâåíü';

sgcod.Cells[0,2]:='Èíòåðâàë âàðüèðîâàíèÿ';

sgcod.Cells[0,3]:='Íèæíèé óðîâåíü';

sgcod.Cells[0,4]:='Âåðõíèé óðîâåíü';

sgcod.Cells[0,5]:='Êîäîâîå îáîçíà÷åíèå';

sgcod.Cells[1,0]:='Ñîäåðæ. Li,% ';

sgcod.Cells[2,0]:='T ñòàð., ãð.Ñ ';

sgcod.Cells[3,0]:=' t ñòàð., ÷. ';

for i:=1 to 3 do

begin sgcod.Cells[i,1]:=' '+floattostr(x0[i]);

sgcod.Cells[i,2]:=' '+floattostr(ix[i]);

sgcod.Cells[i,3]:=' '+floattostr(x0[i]-ix[i]);

sgcod.Cells[i,4]:=' '+floattostr(x0[i]+ix[i]);

end;

sgcod.Cells[1,5]:=' x1';

sgcod.Cells[2,5]:=' x2';

sgcod.Cells[3,5]:=' x3';

sgplan.Cells[1,0]:=' x0'; sgplan.Cells[2,0]:=' x1';

sgplan.Cells[3,0]:=' x2'; sgplan.Cells[4,0]:=' x3';

sgplan.Cells[5,0]:='x1^2-'+floattostrf(xc2,fffixed,3,2);

sgplan.Cells[6,0]:='x2^2-'+floattostrf(xc2,fffixed,3,2);

sgplan.Cells[7,0]:='x3^2-'+floattostrf(xc2,fffixed,3,2);

sgplan.Cells[8,0]:='x1x2'; sgplan.Cells[9,0]:='x1x3';

sgplan.Cells[10,0]:='x2x3'; sgplan.Cells[11,0]:=' y1';

sgplan.Cells[12,0]:=' y2'; sgplan.Cells[13,0]:=' yc';

for i:=1 to 15 do begin

if i<=8 then begin

if i mod 2 = 0 then x[1,i]:=1 else x[1,i]:=-1;

if ((i+1) div 2) mod 2 = 0 then x[2,i]:=1 else x[2,i]:=-1;

if ((i+3) div 4) mod 2 = 0 then x[3,i]:=1 else x[3,i]:=-1;

end

else begin

for j:=1 to 3 do

if i=7+2*j then x[j,i]:=-d

else if i=8+2*j then x[j,i]:=d

else x[j,i]:=0;

end;

x12[i]:=x[1,i]*x[2,i];

x23[i]:=x[2,i]*x[3,i];

x13[i]:=x[1,i]*x[3,i];

x[4,i]:=x12[i]; x[5,i]:=x13[i];

x[6,i]:=x23[i];

x[0,i]:=1;

for j:=1 to 3 do

x2[j,i]:=sqr(x[j,i])-xc2;

x[7,i]:=x2[1,i];

x[8,i]:=x2[2,i];

x[9,i]:=x2[3,i];

end;

for i:=1 to 15 do

begin sgplan.Cells[0,i]:=inttostr(i);

sgplan.Cells[1,i]:=' 1';

for j:=1 to 3 do begin

sgplan.Cells[j+1,i]:=' '+floattostr(x[j,i]);

sgplan.Cells[j+4,i]:=' '+floattostrf(x2[j,i],fffixed,5,3); end;

sgplan.Cells[8,i]:=' '+floattostr(x12[i]);

sgplan.Cells[9,i]:=' '+floattostr(x13[i]);

sgplan.Cells[10,i]:=' '+floattostr(x23[i]);

end;

xh[1]:=-1; xh[2]:=-1; xh[3]:=-1;

kk:=0;

end;

procedure TForm1.Button2Click(Sender: TObject);

var i:integer;

begin

kk:=kk+1;

for i:=1 to 15 do

sgplan.Cells[10+kk,i]:=floattostr(ys[kk,i]);

if kk>=2 then begin button2.Enabled:=false;

for i:=1 to 15 do begin

yc[i]:=(y[1,i]+y[2,i])/2;

ycs[i]:=(y[1,i]+y[2,i])/2;

sgplan.Cells[13,i]:=floattostr(ycs[i]);

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var k1,k2:integer; yk:real;

begin

randomize;

k1:=random(14)+1;

k2:=random(14)+1;

sgplan.Rows[16]:=sgplan.Rows[k1];

sgplan.Rows[k1]:=sgplan.Rows[k2];

sgplan.Rows[k2]:=sgplan.Rows[16];

yk:=ys[1,k1];

ys[1,k1]:=ys[1,k2];

ys[1,k2]:=yk;

yk:=ys[2,k1];

ys[2,k1]:=ys[2,k2];

ys[2,k2]:=yk;

end;

procedure TForm1.PageControl1Change(Sender: TObject);

var u,i,j,li:integer; sums,g,s2ad,fp,xx:real;

begin

if button2.Enabled=false then begin

sgvos.Cells[0,0]:=' u';

sgvos.Cells[1,0]:=' S2u';

sums:=0;

for u:=1 to 15 do

begin s2u[u]:=sqr(yc[u]-y[1,u])+sqr(yc[u]-y[2,u]);

sgvos.Cells[1,u]:=floattostrf(s2u[u],fffixed,5,3);

sgvos.Cells[0,u]:=inttostr(u);

sums:=sums+s2u[u];

end;

s2umax:=s2u[1];

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;

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

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|';

 Скачать реферат