rlldecode.m

rll(run length limited) code for channel simulate

%RLLdecode(in)
%   This function decodes a string of bits encoded with
%   the function RLLencode.

function out = RLLdecode(in);

load codebook n d allwords totalwords

p = length(de2bi(totalwords)) - 1;
q = n + d;
rate = p/q;
chain = zeros(1,rate*length(in));

for i = 0:(length(in)/q)-1
    lookup = in(q*i+1:q*(i+1));
    for j = 1 : (2^p)
        if allwords(j,1:n) == lookup(1:n)
            coded = fliplr(de2bi((j-1) + 2^(p)));
            coded(1) = [];   
        end
    end
    chain(p*i+1:p*(i+1)) = coded;
end

out = chain;