arqinterleaver.m

turbo 码matlab编译码程序

function I=ARQinterleaver(K)
% c.berrou almost regular permutation
P=43;
C=4;
B1=1;
B2=1;
B3=1;
for j=1:K
    if mod(j-1,C)==0
        Q=0;
        I(j)=mod(P*(j-1)+Q,K);
    else if mod(j-1,C)==1
            Q=4*B1;
            I(j)=mod(P*(j-1)+Q,K);
        else if mod(j-1,C)==2
                Q=4*P+4*B2;
                I(j)=mod(P*(j-1)+Q,K);
            else if mod(j-1,C)==3
                    Q=4*P+4*B3;
                    I(j)=mod(P*(j-1)+Q,K);
                end
            end
        end
    end
end
% for j=1:K
%     C_inter(j)=C_information(I(j));  
% end
% flag=0;
% for j=1:K
%     for i=1:K
%         if I(j)==I(i)& j~=i
%             flag=flag+1;
%         end
%     end
% end

% for j=1:K
%   
%     if mod(j-1,C)==0
%         Q=0;
%         E(j)=mod(P*(j-1)+Q,K);
%     else if mod(j-1,C)==1
%             Q=4*B1;
%             F(j)=mod(P*(j-1)+Q,K);
%         else  if mod(j-1,C)==2
%                 Q=4*P+4*B2;
%                 G(j)=mod(P*(j-1)+Q,K);
%             else if mod(j-1,C)==3
%                     Q=4*P+4*B3;
%                     H(j)=mod(P*(j-1)+Q,K);
%                 end
%             end
%         end
%     end
% end