[Athen]

как определить способность кода исправлять ошибки, если вводится какое-то число n и n двоичных кодовых комбинаций? На выходе нужно вывести кратность ошибок, которые можно исправить.

Может кто хотя бы знает как вообще определять эту кратность? И кодовое расстояние складывается из всех кодовых комбинаций или считается по каждой?

[Aristarh Dark]

Не ясна задача, можно немного подробностей?

[Rokuell]

Чтобы посчитать кодовое расстояние двух кодовых комбинаций надо сложить их по модулю 2. Кодовое расстояние кода ( d ) - минимальное кодовое расстояние , рассчитанное для всех пар кодовых комбинаций.
Тогда кратность обнаруживаемых ошибок ( r ) будет: r <= d-1
Кратность исправляемых ошибок ( s ) будет: s <= (d-1)/2

[Athen]

получается мне нужно складывать попарно по модулю 2 все комбинации и для каждой пары находить свое кодовое расстояние d и s?

[Rokuell]

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

получается мне нужно складывать попарно по модулю 2 все комбинации и для каждой пары находить свое кодовое расстояние d и s?

Нет, я же написал, что нужно - считаешь кодовое расстояние для всех пар, из полученных значений выбираешь минимальное - это и есть кодовое расстояние кода ( d )

[Athen]

ааа понятно

[Athen]

ладно... вроде разобралась с программой.. только теперь вопрос как работать с двоичным кодом в Делфи? есть ли такой специальный тип данных для этого?

[Athen]

вот что у меня получилось... вроде работало сначала, а теперь не хочет.. в чем ошибка?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

function DoXOR(StrIn, Key : String) : String; var   i, l_In, l_Key : Integer; begin   Result := '';   l_In  := Length(StrIn);   l_Key := Length(Key);   if (l_In > 0) and (l_Key > 0) then     for i := 0 to l_In - 1 do begin       Result := Result + IntToStr(StrToInt(StrIn[i + 1]) xor StrToInt(Key[1 + (i mod l_Key)]));     end; end;   procedure TForm1.Button1Click(Sender: TObject); var n,i,k,dmin,s,l,dd,m,m1:integer;   a:array [1..100] of string; d: string; begin n:=UpDown1.Position; dmin:=1000000; dd:=0; for i:=1 to n do  begin    a[i]:=Memo1.Lines.Strings[i];  end; for m:=1 to n do  if Length(a[m])<>Length(a[m-1]) then    begin     Memo1.Clear;     messagebox(0, pchar('Вводите кодовые комбинации одинаковой длины!'),pchar('ВНИМАНИЕ!'),mb_iconinformation+mb_ok);     Close;     Form1.Close;    end;  for i:=1 to n-1 do    for k:=2 to n do     begin      if i<>k then       begin        d:=DoXOR(a[i],a[k]);        Memo1.Lines.Add('d=: '+d);        for l:=1 to Length(d) do         begin          if StrToInt(d[i])=1 then dd:=dd+1;          if dd<dmin then dmin:=dd;          dd:=0;         end;       end;     end;      s:= (dmin-1) div 2;    Memo1.Lines.Add('--- Кратность ошибок, которые можно исправить <= '+IntToStr(s)); end;

[Rokuell]

Ты используешь переменную от другого цикла.
Может быть вместо

Код:

1 2 3 4 5 6

for l:=1 to Length(d) do  begin   if StrToInt(d[<font color="Red">i</font>])=1 then dd:=dd+1;   if dd<dmin then dmin:=dd;   dd:=0;  end;

Надо

Код:

1 2 3 4 5 6

for l:=1 to Length(d) do <font color="Blue">// ведь здесь переменная l</font>  begin   if StrToInt(d[<font color="SeaGreen">l</font>])=1 then dd:=dd+1;   if dd<dmin then dmin:=dd;   dd:=0;  end;

[Athen]

о да! точно!! спасибо!
и еще плюс вот это из того цикла убрать надо:

Код:

1 2	if dd<dmin then dmin:=dd; dd:=0;

теперь работает вроде бы!

[Rokuell]

Немного подправил:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

function DoXOR(StrIn, Key : String) : String; var   i, l_In, l_Key : Integer; begin   Result := '';   l_In  := Length(StrIn);   l_Key := Length(Key);   if (l_In > 0) and (l_Key > 0) then   for i := 1 to l_In do     <font color="Blue">// т.к в строке только '0' или '1' переводим каждый символ в соотв. ему код с пом. ф-ии Ord     // вычитая код 48 ( это код символа '0' ) получаем 0 или 1 , делаем xor и переводим обратно в символ</font>    Result := Result + Char( ((Ord(StrIn[i])-48) xor (Ord(Key[i])-48)) + 48 ); end;   procedure TForm1.Button1Click(Sender: TObject); var n,i,k,dmin,s,l,dd,m,m1:integer;   a:array [1..100] of string; d: string; begin n:=UpDown1.Position; dmin:=MAXINT; <font color="Blue">// так проще</font> for i:=1 to n do a[i]:=Memo1.Lines.Strings[i]; for m:=1 to n do  if Length(a[m])<>Length(a[m-1]) then    begin     Memo1.Clear;     messagebox(0, pchar('Вводите кодовые комбинации одинаковой длины!'),pchar('ВНИМАНИЕ!'),mb_iconinformation+mb_ok);     Close; <font color="Blue">// кстати, можно вместо закрытия формы просто делать выход из процудуры вызывая Exit;</font>     <font color="blue">// Form1.Close; - это тоже самое что и Close т.к. по умолчанию вызывается метод твоей формы</font>    end;  for i:=1 to n-1 do    for k:=i+1 to n do <font color="blue">// достаточно начинать с i+1 чтобы потом не проверять равенство индексов</font>     begin       dd:=0; <font color="blue">// сначала приравниваем к нулю, чтобы потом использовать в цикле</font>       d:=DoXOR(a[i],a[k]);       Memo1.Lines.Add('d=: '+d);       for l:=1 to Length(d) do        begin         if StrToInt(d[i])=1 then dd:=dd+1;              end;      if dd<dmin then dmin:=dd; <font color="blue">// ищем минимальное кодовое расстояние</font>     end;      s:= (dmin-1) div 2;    Memo1.Lines.Add('--- Кратность ошибок, которые можно исправить <= '+IntToStr(s)); end;

[Athen]

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