ppmencode.m

这是一个关于在无线光通信中

function [PPMseqOUT]=PPMencode(numbits,bits)
framelength=16;
%samplepoints=10;
PPMseq=zeros(1,numbits*framelength/log2(framelength));
for nb=1:numbits/log2(framelength)
    mbits=bits(1+(nb-1)*log2(framelength):log2(framelength)+(nb-1)*log2(framelength));
    seq(nb)=bi2de(mbits,'left-msb');
end
for k = 1 : length(seq)
    index = 1 + (k-1)*framelength;
    index = index + seq(k);
    PPMseq(index) = 1;
        
end 

%PPMseqOUT1=zeros(1,samplepoints*length(PPMseq));
%for k=1:length(PPMseq)
    %for j=1:samplepoints
        %PPMseqOUT1((k-1)*samplepoints+j)=PPMseq(k);
    %end
%end
%PPMseqOUT= PPMseqOUT1;
PPMseqOUT= PPMseq;