a

clear all
N=10;
n=7;
m=3;
[H,G]=hammgen(m);
x=randi(N,n-m);
y=mod(x*G,2);
y1=mod(y+randerr(N,n),2);
matl=eye(n);
errvec=matl*H.';
y2=mod(y1*H.',2);
for indx =1:N
for indx1=1:n
if(y2(indx,:)==errvec(indx1,:))
y1(indx,:)=mod(y1(indx,:)+mat1(indx1,:),2);
end
end
end
x_dec=y1(:,m+1:end);
s=find(x~=x_dec)