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

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:=l

abel21.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;

memo2.lines.add('Êîîðäèíèòû öåíòðà ïîâåðõíîñòè');

memo2.lines.add(' xc1='+floattostrf(xc[1],fffixed,5,3)+

' xc2='+floattostrf(xc[2],fffixed,5,3)+

' xc3='+floattostrf(xc[3],fffixed,5,3)+

' yc='+floattostrf(ycen,fffixed,5,3) );

if ((la[1]<0) and (la[2]<0) and (la[3]<0)) or

((la[1]>0) and (la[2]>0) and (la[3]>0))

then memo2.lines.add(' Ïîâåðõíîñòü, èìåþùàÿ ýêñòðåìóì')

else memo2.lines.add(' Ïîâåðõíîñòü òèïà ìèíèìàêñà');

memo2.lines.add(' Ëîêàëüíûé ýêñòðåìóì');

memo2.lines.add(' xmax1='+floattostrf(xlocmax[1],fffixed,5,1)+

' xmax2='+floattostrf(xlocmax[2],fffixed,5,1)+

' xmax3='+floattostrf(xlocmax[3],fffixed,5,1)+

' Ymax='+floattostrf(ylocmax,fffixed,5,4));

memo2.lines.add(' xmin1='+floattostrf(xlocmin[1],fffixed,5,1)+

' xmin2='+floattostrf(xlocmin[2],fffixed,5,1)+

' xmin3='+floattostrf(xlocmin[3],fffixed,5,1)+

' Ymin='+floattostrf(ylocmin,fffixed,5,4));

end; end

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

for i:=0 to 9 do

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

end; end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

var xxx:real;

begin series1.Clear; series2.Clear; series3.Clear;

case radiogroup1.ItemIndex of

0: begin groupbox7.Visible:=true;

label28.Caption:='x2='; label29.Caption:='x3=';

label30.Caption:='x2='; label31.Caption:='x3=';

label32.Caption:='x2='; label33.Caption:='x3=';

label34.Caption:='x1=';

xp2[1]:=strtofloat(edit1.text); xp3[1]:=strtofloat(edit2.text);

xp2[2]:=strtofloat(edit3.text); xp3[2]:=strtofloat(edit4.text);

xp2[3]:=strtofloat(edit5.text); xp3[3]:=strtofloat(edit6.text);

xxx:=-1;

while xxx<=1 do

begin series1.AddXY(xxx,fy(xxx,xp2[1],xp3[1]));

series2.AddXY(xxx,fy(xxx,xp2[2],xp3[2]));

series3.AddXY(xxx,fy(xxx,xp2[3],xp3[3]));

xxx:=xxx+0.01; end;

memo3.Clear;

memo3.Lines.Add('Ëèíèè ðåãðåññèè:');

memo3.Lines.Add('y= '+floattostrf(fy(0,xp2[1],xp3[1]),fffixed,4,2)+

' + '+floattostrf(b[1]+b[4]*xp2[1]+b[5]*xp3[1],fffixed,4,2)+

'*x1 + '+floattostrf(b[7],fffixed,4,2)+'*x1^2');

memo3.Lines.Add('y= '+floattostrf(fy(0,xp2[2],xp3[2]),fffixed,4,2)+

' + '+floattostrf(b[1]+b[4]*xp2[2]+b[5]*xp3[2],fffixed,4,2)+

'*x1 + '+floattostrf(b[7],fffixed,4,2)+'*x1^2');

memo3.Lines.Add('y= '+floattostrf(fy(0,xp2[3],xp3[3]),fffixed,4,2)+

' + '+floattostrf(b[1]+b[4]*xp2[3]+b[5]*xp3[3],fffixed,4,2)+

'*x1 + '+floattostrf(b[7],fffixed,4,2)+'*x1^2');

end;

1: begin groupbox7.Visible:=true;

label28.Caption:='x1='; label29.Caption:='x3=';

label30.Caption:='x1='; label31.Caption:='x3=';

label32.Caption:='x1='; label33.Caption:='x3=';

label34.Caption:='x2=';

xp1[1]:=strtofloat(edit1.text); xp3[1]:=strtofloat(edit2.text);

xp1[2]:=strtofloat(edit3.text); xp3[2]:=strtofloat(edit4.text);

xp1[3]:=strtofloat(edit5.text); xp3[3]:=strtofloat(edit6.text);

xxx:=-1;

while xxx<=1 do

begin series1.AddXY(xxx,fy(xp1[1],xxx,xp3[1]));

series2.AddXY(xxx,fy(xp1[2],xxx,xp3[2]));

series3.AddXY(xxx,fy(xp1[3],xxx,xp3[3]));

xxx:=xxx+0.01;

end;

memo3.Clear;

memo3.Lines.Add('Ëèíèè ðåãðåññèè:');

memo3.Lines.Add('y= '+floattostrf(fy(xp1[1],0,xp3[1]),fffixed,4,2)+

' + '+floattostrf(b[2]+b[4]*xp1[1]+b[6]*xp3[1],fffixed,4,2)+

'*x2 + '+floattostrf(b[8],fffixed,4,2)+'*x2^2');

memo3.Lines.Add('y= '+floattostrf(fy(xp1[2],0,xp3[2]),fffixed,4,2)+

' + '+floattostrf(b[2]+b[4]*xp1[2]+b[6]*xp3[2],fffixed,4,2)+

'*x2 + '+floattostrf(b[8],fffixed,4,2)+'*x2^2');

memo3.Lines.Add('y= '+floattostrf(fy(xp1[3],0,xp3[3]),fffixed,4,2)+

' + '+floattostrf(b[2]+b[4]*xp1[3]+b[6]*xp3[3],fffixed,4,2)+

'*x2 + '+floattostrf(b[8],fffixed,4,2)+'*x2^2');

end;

2: begin groupbox7.Visible:=true;

label28.Caption:='x1='; label29.Caption:='x2=';

label30.Caption:='x1='; label31.Caption:='x2=';

label32.Caption:='x1='; label33.Caption:='x2=';

label34.Caption:='x3=';

xp1[1]:=strtofloat(edit1.text); xp2[1]:=strtofloat(edit2.text);

xp1[2]:=strtofloat(edit3.text); xp2[2]:=strtofloat(edit4.text);

xp1[3]:=strtofloat(edit5.text); xp2[3]:=strtofloat(edit6.text);

xxx:=-1;

while xxx<=1 do

begin series1.AddXY(xxx,fy(xp1[1],xp2[1],xxx));

series2.AddXY(xxx,fy(xp1[2],xp2[2],xxx));

series3.AddXY(xxx,fy(xp1[3],xp2[3],xxx));

xxx:=xxx+0.01; end;

memo3.Clear;

memo3.Lines.Add('Ëèíèè ðåãðåññèè:');

memo3.Lines.Add('y= '+floattostrf(fy(xp1[1],xp2[1],0),fffixed,4,2)+

'+'+floattostrf(b[3]+b[5]*xp1[1]+b[6]*xp2[1],fffixed,4,2)+

x3 + '+floattostrf(b[9],fffixed,4,2)+'*x3^2');

memo3.Lines.Add('y= '+floattostrf(fy(xp1[2],xp2[2],0),fffixed,4,2)+

+ '+floattostrf(b[3]+b[5]*xp1[2]+b[6]*xp2[2],fffixed,4,2)+

x3 + '+floattostrf(b[9],fffixed,4,2)+'*x3^2');

memo3.Lines.Add('y= '+floattostrf(fy(xp1[3],xp2[3],0),fffixed,4,2)+

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