«Основы теории информации и кодирования» (стр. 3 )

<center>

<table border="1">

<tr>

<td rowspan="2" width="<?echo floor(1/$m*100);?>%">

<b>A=</b>

</td>

<?

for ($i=$n;$i!=$k;$i--)

{

echo "\t\t\t<td width=\"".floor(1/$m*100)."%\" align=\"center\">\n\t\t\t a_$i\n\t\t\t</td>\n";

}

echo "\t\t </tr>\n\t\t <tr>\n";

for ($i=0;$i<$m;$i++)

{

echo "\n\t\t\t<td align=\"center\">\n\t\t\t ".$word[$i]."\n\t\t\t </td>\n";

}

echo "\t\t </tr>\n\t\t</table>\n\t </center>\n\n\t <b>Контрольные регистры:</b><br>\n";

for ($i=1;$i<=$k;$i++)

{

echo "\t e_".($i)." = ";

$flag=0;

for ($j=$n;$j!=$k;$j--)

{

if ($HMatrix[$k-$i+1][$n-$j+1]==1)

{

if ($flag==1) echo " + ";

echo $word[$n-$j];

$flag=1;

}

}

echo "= $e[$i]<br>\n";

}

?>

</td>

</tr>

<tr>

<td colspan="2">

<center>

<table>

<tr>

<td>

<b>Закодированное число:</b>

</td>

<?

for ($z=0;$z<$n;$z++)

{

echo "\t\t\t<td";

if ($z==$n-$error) { echo " bgcolor=\"lightgreen\""; }

elseif ($z>=$m) { echo " bgcolor=\"lightgrey\""; }

echo ">\n\t\t\t $A[$z]\n\t\t\t</td>";

}

?>

</tr>

</table>

</center>

</td>

</tr>

<tr>

<td colspan="2">

<center>

<h4>

Декодирование:

</h4>

</center>

</td>

</tr>

<tr>

<td colspan="2">

<br>Ошибка в <b><? echo $error;?></b> разряде.<br>

<?

$A[$n-$error]=myxor($A[$n-$error],1);

?>

<table>

<tr>

<td>

Число с ошибкой:

</td>

<?

for ($z=0;$z<$n;$z++)

{

echo "\t\t\t<td";

if ($z==$n-$error) { echo " bgcolor=\"pink\""; }

elseif ($z>=$m) { echo " bgcolor=\"lightgrey\""; }

echo ">\n\t\t\t $A[$z]\n\t\t\t</td>";

} for ($z=0;$z<$n;$z++)

?>

</tr>

</table>

<center>

<table border="1">

<tr>

<td rowspan="2">

<b>A=</b>

</td>

<?

// Вывод числа с ошибкой

for ($i=$n;$i!=$k;$i--)

{

echo "\t\t\t<td width=\"".floor(1/$n*100)."%\" align=\"center\">\n\t\t\t a_$i\n\t\t\t</td>\n";

}

for ($i=$k;$i!=0;$i--)

{

echo "\t\t\t<td width=\"".floor(1/$n*100)."%\" align=\"center\" bgcolor=\"lightgrey\">\n\t\t\t e_$i\n\t\t\t</td>\n";

}

echo "\t\t </tr>\n\t\t <tr>\n";

for ($i=0;$i<$n;$i++)

{

echo "\t\t\t<td align=\"center\"";

if ($i==$n-$error) { echo " bgcolor=\"pink\""; }

elseif ($i>=$m) { echo " bgcolor=\"lightgrey\""; }

echo ">\n\t\t\t ".$A[$i]."\n\t\t\t</td>\n";

}

echo "\t\t </tr>\n\t\t</table>\n\t </center>\n";

echo "\t <br><b>Рассчитываем контрольные разряды по пришедшему слову:</b><br>\n";

for ($i=1;$i<=$k;$i++)

{

echo "\t e'_".($i)." = ";

$flag=0;

for ($j=$n;$j!=$k;$j--)

{

if ($HMatrix[$k-$i+1][$n-$j+1]==1)

{

if ($flag==1) echo " + ";

echo $A[$n-$j];

$e1[$i]=myxor($e1[$i],$A[$n-$j]);

$flag=1;

}

}

echo "= $e1[$i]<br>\n";

}

echo "\t <br><b>Рассчитываем синдром:</b><br>\n";

for ($i=1;$i<=$k;$i++)

{

echo "\t s_$i = e_$i + e'_$i =". $A[$n-$i]." + $e1[$i] = ";

$s[$i]= myxor($A[$n-$i],$e1[$i]);

echo "$s[$i]<br>\n";

}

echo "\t <br><b>Синдром ошибки:</b><br>\n\t S = ";

for ($i=$k;$i>0;$i--) { echo $s[$i]; }

echo "\n\t <br><br><b>Ищем регистр с ошибкой, сравнивая значения синдрома со столбцами проверочной матрицы:</b><br>\n";

$i=1;

while($err==NULL)

{

$z=0;

for ($j=1;$j<=$k;$j++)

{

echo "\t s[$j]=".($s[$k-$j+1])." H[$j]=".($HMatrix[$j][$n-$i+1]);

if ($s[$k-$j+1]==$HMatrix[$j][$n-$i+1]) { echo " -- <font color=\"green\">значения синдрома и проверочной матрицы совпадают.</font><br>\n"; $z++; }

else

{

echo " -- <font color=\"red\">значения синдрома и проверочной матрицы не совпадают. Ошибка не в $i регистре. </font>\n\t <br>-------<br>\n";

break;

}

}

if ($z==$k) { $err=$i; }

$i++;

}

echo "\t <br><b>Ошибка произошла в ".$err." регистре.</b><br>\n";

?>

</td>

</tr>

<tr>

<td colspan="2">

<center>

<table border="1">

<tr>

<td>

Регистры:

</td>

<?

for ($i=$n;$i!=$k;$i--)

{

echo "\t\t\t<td width=\"".floor(1/$n*100)."%\" align=\"center\">\n\t\t\t a_$i\n\t\t\t</td>\n";

}

for ($i=$k;$i!=0;$i--)

{

echo "\t\t\t<td width=\"".floor(1/$n*100)."%\" align=\"center\" bgcolor=\"lightgrey\">\n\t\t\t e_$i\n\t\t\t</td>\n";

}

?>

</tr>

<tr>

<td>

Отправленное&nbsp;слово:

</td>

<?

for ($i=0;$i<$m;$i++)

{

echo "\t\t\t<td align=\"center\" bgcolor=\"lightgreen\">\n\t\t\t ".$word[$i]."\n\t\t\t</td>\n";

}

echo "\t\t\t<td colspan=\"$k\" bgcolor=\"lightgrey\">&nbsp;\n";

?>

</td>

</tr>

<tr>

<td>

Полученное&nbsp;слово:

</td>

<?

for ($i=0;$i<$n;$i++)

{

echo "\t\t\t<td align=\"center\"";

if ($i==$n-$error) { echo " bgcolor=\"pink\""; }

elseif ($i>=$m) { echo " bgcolor=\"lightgrey\""; }

echo ">\n\t\t\t ".$A[$i]."\n\t\t\t</td>\n";

}

?>

</tr>

<tr>

<td>

Последовательность&nbsp;ошибки:

</td>

<?

for ($i=0;$i<$n;$i++)

{

echo "\t\t\t<td align=\"center\"";

if ($i==$n-$error) { echo " bgcolor=\"pink\">\n\t\t\t 1\n\t\t\t</td>\n"; }

elseif ($i>=$m){ echo " bgcolor=\"lightgrey\">\n\t\t\t 0\n\t\t\t</td>\n"; }

else { echo ">\n\t\t\t 0\n\t\t\t</td>\n"; }

}

?>

</tr>

<?

$A[$n-$err]=myxor($A[$n-$err],1);

?>

<tr>

<td>

Исправленное&nbsp;слово:

</td>

<?

for ($i=0;$i<$n;$i++)

{

echo "\t\t\t<td align=\"center\"";

if ($i>=$m)

{

echo " bgcolor=\"lightgrey\">";

}

else { echo ">"; }

echo "\n\t\t\t ".$A[$i]."\n\t\t\t</td>\n";

}

?>

</tr>

<tr>

<td>

Искомое,&nbsp;отправленное&nbsp;слово:

</td>

<?

for ($i=0;$i<$m;$i++)

{

echo "\t\t\t<td align=\"center\" bgcolor=\"lightgreen\">\n\t\t\t ".$A[$i]."\n\t\t\t</td>\n";

}

echo "\t\t\t<td colspan=\"$k\" bgcolor=\"lightgrey\">&nbsp;\n";

?>

</td>

</tr>

</table>

</center>

</td>

</tr>

</table>

<p>

<a href="http://validator. w3.org/check? uri=referer">

<img src="http://www. w3.org/Icons/valid-html401" alt="Valid HTML 4.01 Transitional" height="31" width="88" border="0">

</a>

</p>

</body>

</html>