Реферат: Метод Гурвица

for j:=1 to k do

V_b[i,j]:=al[j]*b_m[i]+(1-al[j])*b_b[i];

end;

{нахождения оптимальной стратегии и максимального выигрыша игрока В }

max_b:=V_b[1,1];

H_b:=1;

for i:=1 to n do

for j:=1 to k do

if V_b[i,j]>max_b then

begin

max_b:=V_b[i,j]; { максимальный выигрыш игрока B}

H_b:=i { оптимальная стратегия игрока B }

end;

{ нахождения наибольшего расчетного выигрыша одного из игроков }

if max_a=max_b then Panel6.Visible:=true

else

if max_a>max_b then

begin

Panel4.Visible:=true;

panel5.Visible:=false

end

else

begin

panel5.Visible:=true;

Panel4.Visible:=false

end;

label11.Caption:=FloatToStr(max_a);

label12.Caption:=FloatToStr(H_a);

label14.Caption:=FloatToStr(max_b);