www.pudn.com > RS_BCM_255_223_4[1].Matlab.rar > encode_87.m, change:2007-04-14,size:373b


%(8,7)ı
function [output] = encode_87(input)
n=length(input)/7;
u=zeros(1,n*8);
j=1;
for i=1:7:n*7
   u(j)=input(i);
   u(j+1)=input(i+1);
   u(j+2)=input(i+2);
   u(j+3)=input(i+3);
   u(j+4)=input(i+4);
   u(j+5)=input(i+5);
   u(j+6)=input(i+6);
   u(j+7)=mod(input(i)+input(i+1)+input(i+2)+input(i+3)+input(i+4)+input(i+5)+input(i+6),2);
   j=j+8;
end
output=u;