Как упростить платежную матрицу?

Question

[Алексей Овсянкин]

Вообщем нужно упростить платежную матрицу. Свести ее к размеру 2 на 2. Получилось лишь упростить по строкам (код ниже). Ни как не могу упростить по столбцам.

Код

procedure TForm2.Button2Click(Sender: TObject);
begin
 n:=SG.RowCount-1;
  m:=sg.ColCount-1;

  for i:=1 to n do
    for j:=1 to m do
      arplat[i,j]:=strtoint(SG.Cells[j,i]);
  //создание матрицы выигрышей
 //логический массив упрощенных строк игрока
 for i := 1 to 4 do
  arupr[i]:=0;
 //сравнивание строк платежной матрицы
 r:=4;
 for i := 1 to 3 do
 begin
 k:=0;
 r:=r-1;
  for j := 1 to r do
  begin
  k:=k+1;
  s:=0;
   for t := 1 to 4 do
   begin
    if (arplat[i,t]>=arpla
t[i+k,t]) then
    s:=s+1;
   end;
  if s=4 then arupr[i+k]:=1;
  if s=0 then arupr[i]:=1;
  end;
 end;
//определение размерности упрощенной матрицы
 s:=0;
 for i := 1 to 4 do
  if arupr[i]=0 then s:=s+1;
 St
ringGrid1.RowCount:=s+1;
 //заполнение упрощенной матрицы
k:=0;
 for i := 1 to 4 do
 begin
  if arupr[i]=0  then
  begin
   k:=k+1;
   StringGrid1.Cells[0,k]:='А'+inttostr(i);
   for j := 1 to 4 do
    StringGrid1.Cells[j,k]:=inttostr(arplat[i,j]);
  end;
 end;
end;

Comments

[Алексей Овсянкин]

Должно получится {5,6} {6,4}.

Answer 1

[kalapanga]

Ну, если я правильно помню, то теперь всё то же самое нужно проделать над полученной матрицей только по столбцам.

Comments

[Алексей Овсянкин]

Я тоже так думаю. Но вот что выходит

Вот код может я что-то где-то не правильно пишу для упрощения по столбцам.
n:=StringGrid1.RowCount-1;
m:=StringGrid1.ColCount-1;
for i:=1 to n do
for j:=1 to m do
arplat2[i,j]:=strtoint(StringGrid1.Cells[j,i]);
//логический массив упрощенных строк 1 игрока
for i := 1 to n do
arupr[i]:=0;
//сравнивание столбцов платежной матрицы
for i := 1 to 4 do
begin
k:=0;
for j := 1 to 4 do
begin
k:=k+1;
s:=0;
for t := 1 to 4 do
begin
if (arplat2[t,i]>=arplat2[i,t+k]) then
s:=s+1;
end;
if s=4 then arupr[i+k]:=1;
if s=0 then arupr[i]:=1;
end;
end;
//arupr[1]:=1;
//определение размерности упрощенной матрицы
s:=0;
for i := 1 to 4 do
if arupr[i]=0 then s:=s+1;
StringGrid1.ColCount:=s+1;
//заполнение упрощенной матрицы
k:=0;
for i := 1 to 4 do
begin
if arupr[i]=0 then
begin
k:=k+1;
StringGrid1.Cells[0,k]:='А'+inttostr(i);
for j := 1 to 4 do
StringGrid1.Cells[j,k]:=inttostr(arplat2[i,j]);
end;
end;
end;

[Алексей Овсянкин]

я по первой кнопке упрощаю матрицу по строкам..потом по второй кнопке перезаписываю массив новыми значениями со стрингрида. И проделываю то же самое. Столбец 7 5 почему то не удаляется.

[kalapanga]

Алексей Овсянкин, И хотелось бы Вам что-то подсказать, но ведь совершенно невозможно Ваш код читать. Куча однобуквенных переменных, границы циклов - то числа, то переменные. Процедура Button2Click - это какой "баттон" из Ваших трёх? И т.д. Возможно ошибка, если она есть, где-то в этом и кроется.
Советую Вам просто терпеливо пройтись по Вашей программе пошагово отладчиком. И ловить, где ожидаемое Вами поведение разойдётся с реальным.