Получить все возможные значения двоичной матрицы

[clone]

Здравствуйте, помогите с алгоритмом на дельфи :

Допустим у меня есть матрица 2х2 из нее я получаю:

function GetValueStr(const param: integer): string;
begin
     case param of
          0: Result:='0,0';
          1: Result:='1,1';
          2: Result:='0,1';
          3: Result:='1,0'; 
     end;          
end;

function GetValueIdx(const value: string): integer;
begin
     case value of
          '0,0': Result:= 0;
          '1,1': Result:= 1;
          '0,1': Result:= 2;
          '1,0': Result:= 3; 
     end;          
end;

помогите реализовать это в цикле допустим с матрицей 10х10

[BDA]

Приведите пример хотя бы для матрицы 3x3 (можно не кодом, а саму матрицу, заполненную номерами), а то по матрице 2x2 непонятен алгоритм нумерации ячеек матрицы.

[digitalis]

Не допустим.
Годы (а может, столетия) понадобятся, чтобы сгенерировать и вывести 2^100 вариантов.
Ну а если времени - вагон - могу предложить простой алгоритм: в цикле от 0 до 2^100 - 1 разряды переменной, являющегося параметром цикла, разложить по строкам и столбцам.
Делов-то...

[clone]

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

function GetValueStr(const param: integer): string;
begin
     case param of
          0: Result:='0,0,0';
          1: Result:='1,1,1';
          2: Result:='1,1,0';
          3: Result:='0,1,1';
          4: Result:='1,0,1';
          5: Result:='0,1,0';
          ...etc
     end;          
end;

[digitalis]

Нормально, партизан! Ясности - убавилось в разы.
Но какой бы алгоритм ни был выдумыван - всё равно все варианты матрицы 10*10 ( при условии расчёта одного варианта в течение 1мс ) будут считаться 4.0197 * 10^19 лет. У нашей бедной Вселенной нет такого ресурса времени
-----------
Глубоко вникать в эту бессмысленную задачу не стал, но мне почему-то кажется, что при n=3 будет не 6, а 8 вариантов вектора, а вариантов матрицы - 512 соответственно.

[clone]

ну например если не ошибаюсь у одной линии матрицы 10х10 будет всего 100 вариантов, я же имею ввиду всего два значения 0 и 1, хотя может и побоьше, точно не скажу

мне нужно пройти по матрице линиями, и получить в индексы все возможные значения линии и на оборот

[digitalis]

У матриц нет "линий", есть строки и столбцы. В одной строке (или столбце) матрицы 10*10 будет
1024 вариантов её заполнения 0 и 1.
Не, усё! Я охреневаю! Ухожу с темы, пока не сбрендил.
А наоборот пишется слитно, только чур - об этом никому!

[clone]

...а ну вот! если брать байт то там 8 бит 256 значений значит одна линия матрицы 8х8 будет 256 значений ...эти 256 мне инадо получить в цикле в индексы

Сообщение от digitalis

У матриц нет "линий", есть строки и столбцы. В одной строке (или столбце) матрицы 10*10 будет
1'048'576 вариантов её заполнения 0 и 1.
Не, усё! Я охреневаю! Ухожу с темы, пока не сбрендил.
А наоборот пишется слитно, только чур - об этом никому!

спасибо учту...

[BDA]

Сообщение от clone

там 8 бит 256 значений

Можно конвертировать число-индекс в битовую строку желаемой длины:

function GetValueStr(const param, len: integer): string;
var
  i: integer;
  pStr: PChar;
begin
  SetLength(result, 2 * len - 1);
  pStr := PChar(Pointer(result));
  pStr[0] := Chr(Ord('0') + param and 1);
  for i := 1 to len - 1 do
  begin
    pStr[2 * i - 1] := ',';
    pStr[2 * i] := Chr(Ord('0') + (param shr i) and 1);
  end;
end;

function GetValueIdx(const value: string): integer;
var
  i, len: integer;
begin
  len := length(value);
  result := 0;
  i := len;
  while i >= 0 do
  begin
    result := result shl 1 + Ord(value[i]) - Ord('0');
    Dec(i, 2);
  end;
end;

[clone]

Сообщение от BDA

Можно конвертировать число-индекс в битовую строку желаемой длины:

function GetValueStr(const param, len: integer): string;
var
  i: integer;
  pStr: PChar;
begin
  SetLength(result, 2 * len - 1);
  pStr := PChar(Pointer(result));
  pStr[0] := Chr(Ord('0') + param and 1);
  for i := 1 to len - 1 do
  begin
    pStr[2 * i - 1] := ',';
    pStr[2 * i] := Chr(Ord('0') + (param shr i) and 1);
  end;
end;

function GetValueIdx(const value: string): integer;
var
  i, len: integer;
begin
  len := length(value);
  result := 0;
  i := len;
  while i >= 0 do
  begin
    result := result shl 1 + Ord(value[i]) - Ord('0');
    Dec(i, 2);
  end;
end;

спасибо...пойду разбираться...