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

for j :=2 to n do

begin

if C_a[i,j]<a_m[i] then a_m[i]:=C_a[i,j];

if C_a[i,j]>a_b[i] then a_b[i]:=C_a[i,j];

end;

{вычисления расчетных выигрышей игрока A }

for j :=1 to k do

V_a[i,j]:=al[j]*a_m[i]+(1-al[j])*a_b[i];

end;

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

max_a:=V_a[1,1];

H_A:=1;

for i :=1 to m do

for j :=1 to k do

if V_a[i,j]>max_A then

begin

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

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

end;

{расчет наименьших и наибольших выигрышей игрока В}

for i:=1 to n do

begin

b_m[i]:=C_b[i,1]; {массив наименьшии выигрыш }

b_b[i]:=C_b[i,1]; {массив наибольшии выигрыш}

for j:=2 to m do

begin

if C_b[i,j]<b_m[i] then b_m[i]:=C_b[i,j];

if C_b[i,j]>b_b[i] then b_b[i]:=C_b[i,j];

end;