Листинг 7. Расчет эффективной информационной емкости кодов Хемминга для слов различной длины.

main()

{

    int a;

    int _pow = 1;

    int old_pow = 1;

    int N, old_N = 1;

    printf( "* * * hamming code efficiency test * * * by Kris Kaspersky "

           " BLOCK_SIZE    FUEL UP   EFFICIENCY "

           "----------------------------------- ");

    for (a = 0; a < MAX_POW; a++)

    {

           N = _pow - old_pow - 1 + old_N;

           printf("%8d   %8d   %8.1f%% ",_pow, N, (float) N/_pow*100);

           // NEXT

           old_pow = _pow; _pow = _pow * 2; old_N = N;

    } printf("----------------------------------- ");

}

Листинг 8. Результат расчета эффективной информационной емкости кодов Хемминга для слов различной длины.