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

end;

function findl(xa,xb:real):real;

var c:real;

begin

repeat

c:=(xa+xb)/2;

if dlambda(xa)*dlambda(c)<0 then xb:=c

else xa:=c;

until abs(dlambda(xa)-dlambda(xb))<=0.001;

findl:=(xa+xb)/2;

end;

procedure maximminim;

var yt:array[1..2,1..2,1..2] of real; i,j,w:integer;

minim,maxim:real;

begin minim:=fy(1,1,1);

maxim:=fy(1,1,1);

for i:=-10 to 10 do

for j:=-10 to 10 do

for w:=-10 to 10 do

begin if fy(i/10,j/10,w/10)>=maxim then begin

maxim:=fy(i/10,j/10,w/10); xlocmax[1]:=i/10;

xlocmax[2]:=j/10; xlocmax[3]:=w/10; end;

if fy(i/10,j/10,w/10)<=minim then begin

minim:=fy(i/10,j/10,w/10);xlocmin[1]:=i/10;

xlocmin[2]:=j/10; xlocmin[3]:=w/10; end;

end;

ylocmin:=minim;

ylocmax:=maxim;

end;