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

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