interleave.asv

来自「短波信道抗多音干扰的性能分析及其仿真」· ASV 代码 · 共 24 行

function [interleave_outcome,alpha]=interleave(information)
%% generate the interleaved sequence
%% apply the random interleaving method
long=length(information);

for i=1:long
   test = 1;
   while (test == 1)
      alpha(i) = round( long*rand(1,1) );
      if ( alpha(i) <= long ) & ( alpha(i) > 0 )
         % check to see if we've already used this
         test = 0;
         for j = 1:(i-1)
            if (alpha(i) == alpha(j))
               test = 1;
            end
         end
       end
    end
end

for i=1:long
    interleave_outcome(i)=information(alpha(i));
end