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

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