H=[1 1 0 1 1 0 0 1 0 0;0 1 1 0 1 1 1 0 0 0;0 0 0 1 0 0 0 1 1 1;1 1 0 0 0 1 1 0 1 0;0 0 1 0 0 1 0 1 0 1];
d=zeros(1,5);
disp(H)
fprintf('\n')
for i = 1:1:5
d(i)=input('Enter bit:');
end
fprintf('\n')
disp('Data word')
disp(d)
fprintf('\n')
A=[0 0 0 0 0 ;0 0 0 0 0;0 0 0 0 0;0 0 0 0 0;0 0 0 0 0];
B=[0 0 0 0 0 ;0 0 0 0 0;0 0 0 0 0;0 0 0 0 0;0 0 0 0 0];
for i= 1:1:5
for j= 1:1:5
A(i,j)= H(i,j);
end
end
fprintf('\n');
disp('A:');
disp(A);
fprintf('\n');
for i= 1:1:5
for j= 6:1:10
B(i,j-5)= H(i,j);
end
end
fprintf('\n');
disp('B:');
disp(B);
fprintf('\n');
disp('Inverse of B:');
Binv=mod(inv(B),2);
disp(Binv);
Ptrans = mod(((Binv*A)*transpose(d)),2);
fprintf('\n');
disp('Transpose of P:');
disp(Ptrans);
fprintf('\n');
disp('P:');
P=transpose(Ptrans);
disp(P);
c=[d P];
fprintf('\n');
disp('C:');
disp(c);
disp('Enter the recieved word');
fprintf('\n');
r=zeros(1,10);
for i = 1:1:10
r(i)=input('Enter bit: ');
end
disp('c * Htrans is');
disp(mod(((c)*(transpose(H))),2));
fprintf('\n');
disp('Recieved word');
disp(r);
fprintf('\n');
S=mod((r*(transpose(H))),2);
disp('Syndrome: ');
disp(S);
