clear all;
%a=[  1  0  1  0  1  1  1 0 0  0 1  ];
%a=[0 1 1 0 1 1 0 1 1 1 1];
%n=length(a);
n=15;
k=11;
g=[1 0 0 1 1];
r=n-k;;
G=creatG(k,g);
H=creatH(k,G,r);
%t=[1 0 1 0 1 1 1 0 0 0  1  1 1 0 1 ];
t=[1 0 1 0 1 0 1 0 0 0  1  1 1 0 1 ];
Ht=H';
e=t*Ht;
e=mod(e,2);