Циклические коды и контрольные суммы

% msg = [1 1 1 0 0 0 1 1]
msg = input('input msg.....\n');
% poly = [1 1 0 0 1 1]
poly = input('input patern.....\n');
[M N] = size(poly);
mseg = [msg zeros(1,N-1)];
[q r] = deconv(mseg,poly);
r = abs(r);
for i = 1:length(r)
    a = r(i);
    if (mod(a,2) ==0)
        r(i) = 0;
    else
        r(i) = 1;
    end
end
crc = r(length(msg)+1:end)
frame = bitxor(mseg,r)

crc = r(length(msg)+1:end)

deconv(mseg,poly);

msg = input('input msg.....:','s');
msg = strnum(msg);

clear, clc
 
% msg = input('input msg.....: ','s');
% msg = str2num(msg);
% poli = input('input patern...: ','s');
% poli = str2num(poli);
msg = [1 1 1 0 0 0 1 1]
poli = [1 1 0 0 1 1]
N = length(poli);
mseg = [msg zeros(1,N-1)]; % дополняем нулями
[q r] = deconv(mseg,poli); % деление многочленов
r = abs(r); % остаток от деления 
r = mod(r,2) % делим по модулю 2
 
crc = r(length(msg)+1:end) % берем часть после сообщения и до конца
frame = bitxor(mseg,r) % побитовое исключающее или сообщения и остатка
% таким образом вначале идет сообщение msg, а за ним контрольная сумма crc
% которые вместе образуют frame

s = input('input msg.....: ','s');
for i = 1:length(s)
    msg(i) = str2num(s(i));
end
s = input('input patern...: ','s');
for i = 1:length(s)
    poli(i) = str2num(s(i));
end