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

C_B,C_A:array [1..10,1..10] of integer; { платёжная матрица игрока А,В}

a_b,a_m,b_b,b_m:array[1..10] of integer; {наибольший наименьший выигрыш иг. А,В}

al:array[1..10] of real; {массив альфа}

V_A,V_B:array[1..10,1..10]of real; {Расчётные выигрыши иг. А,В }

max_a:real; { Наибольший выигрыш игрока А}

max_b:real; { Наибольший выигрыш игрока В}

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

h_b:integer; { Оптимальная стратегия игрока В}

m:Integer; { Количество стратегий игрока А}

n:Integer; { Количество стратегий игрока В}

k:Integer; { Количество статистических коэффициентов}

I,J:Integer;

implementation

uses Unit2;

{$ R *. DFM }

{ вывод коэф., матрицы С_А}

procedure WW_A;

begin

form1.c_s.Colcount:=n+1;

form1.c_s.Rowcount:=m+1;

form1.tabliza.Rowcount:=m+1;

for i :=1 to m do

begin

form1.tabliza.Cells[0,i]:='A'+intToStr(i);

form1.C_S.Cells[0,i]:='A'+intToStr(i);

for j :=1 to n do

begin

form1.C_S.Cells[j,0]:='B'+intToStr(j);

form1.C_S.Cells[j,i]:=intToStr(C_A[i,j]);