кодирование/декодирование кода хемминга

[Чайничек.]

обращаюсь ко всем, кто имел дело с кодами хемминга. может у кого то сохранились исходники для кодирования и декодирования кода хемминга (9,5) или (15,11)?

[Sciv]

Погугли по запросу "Код Хэмминга исходники" - в инете полно информации. Можно даже для начала поиском по форуму воспользоваться, прежде чем к гуглю обращаться - наверняка Вы не первый с таким вопросом.

[Abstraction]

Ну, не сохранились, но всегда же можно написать?

#define GetBit(buf, pos) (buf[(pos)/8] & (1 << (7-((pos)%8))))
#define SetBitOne(buf, pos) (buf[(pos)/8] |= (1 << (7-((pos)%8))))
#define SetBitZero(buf, pos) (buf[(pos)/8] &= (0xFF ^ (1 << (7-((pos)%8)))))
#define SetBit(buf, pos, value) ((value) ? SetBitOne(buf, pos) : (SetBitZero(buf, pos)))
#define IsDegreeOf2(x) (!((x)^((x)-1)^(2*(x)-1)))

void HammingEncode(const char* inBuf, char* outBuf, size_t length){
	size_t outCur=1;
	for(size_t i=1; i<=length; ++i, ++outCur){
		while(IsDegreeOf2(outCur)) ++outCur;
		SetBit(outBuf, outCur, GetBit(inBuf, i) ? 1 : 0);
	}
	size_t outLength = outCur-1;
	for(size_t c=1; c<=outLength; c<<=1){
		int acc=0;
		for(size_t j=c+1; j<=outLength; ++j)
			if((j & c) != 0) acc^= GetBit(outBuf, j) ? 1 : 0;
		SetBit(outBuf, c, acc);
	}
}

bool HammingDecode(const char* inBuf, char* outBuf, size_t inLength){
	size_t error=0;
	for(size_t c=1; c<=inLength; c<<=1){
		int acc=0;
		for(size_t j=c; j<=inLength; ++j)
			if((j & c) != 0) acc^= (GetBit(inBuf, j) ? 1 : 0);
		if(acc!=0) error ^= c;
	}

	size_t outCur=1;
	for(size_t i=1; i<=inLength; ++i, ++outCur){
		while(IsDegreeOf2(i)) ++i;
		if(error==i) SetBit(outBuf, outCur, GetBit(inBuf, i) ? 0 : 1);
		else SetBit(outBuf, outCur, GetBit(inBuf, i) ? 1 : 0);
	}
	
	return error==0;
}

[Чайничек.]

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

Погугли по запросу "Код Хэмминга исходники" - в инете полно информации. Можно даже для начала поиском по форуму воспользоваться, прежде чем к гуглю обращаться - наверняка Вы не первый с таким вопросом.

Искала везде, где только можно. Ничего рабочего не нашлось. Теорию я понимаю, а вот с программированием беда

[Чайничек.]

это что за язык? Си? По какому алгоритму вы делали?

[Sciv]

Искала везде, где только можно. Ничего рабочего не нашлось

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

[Abstraction]

Сообщение от Чайничек.

это что за язык? Си? По какому алгоритму вы делали?

Язык - C++. Алгоритм... какой алгоритм? Описание кода Хэмминга, фактически. Смотрите:

//inBuf - исходный битовый массив, outBuf - результирующий, length - число бит в исходном массиве
void HammingEncode(const char* inBuf, char* outBuf, size_t length){
	size_t outCur=1;
        //Вначале переносим биты исходного массива...
	for(size_t i=1; i<=length; ++i, ++outCur){
                //...оставляя незаполненными позиции, соответствующие степеням 2
		while(IsDegreeOf2(outCur)) ++outCur;
                //Простое копирование из исходного массива в результирующий
		SetBit(outBuf, outCur, GetBit(inBuf, i) ? 1 : 0);
	}

        //Теперь запоминаем, где закончился результирующий массив (он длиннее исходного)
	size_t outLength = outCur-1;
        //И идём по незаполненным позициям...
	for(size_t c=1; c<=outLength; c<<=1){
                //...подсчитывая контрольный бит
		int acc=0;
                //Для всех тех битов за контрольным,...
		for(size_t j=c+1; j<=outLength; ++j)
                        //...в двоичной записи номера которых единица на нужном месте
			if((j & c) != 0) acc^= GetBit(outBuf, j) ? 1 : 0;
                //Записываем контрольный бит
		SetBit(outBuf, c, acc);
	}
}

[Чайничек.]

компилятор выдает 32 ошибки в коде ...

[Abstraction]

Сообщение от Чайничек.

компилятор выдает 32 ошибки в коде ...

И? У меня всё работало (MSVS 2010). Какие ошибки, я по юзерпику не определю.

[zero125]

1) 2.23 Определить контрольные и информационные биты в заданном двоичном сообщении методом Хемминга.
2)Запишите на языке Pascal программу с использованием процедур (функций) для решения задачи 2.23. Оформите решение как фрагмент полу-ченных результатов.