%
function code_out=code(input_seq,s)
% 這是一個用于編碼的函數
% 能將輸入序列input_seq生成s類型的編碼
% s包括 ook,ppm和dppm三種類型
%

N=length(input_seq);
switch s
    
    case 'ook'
         code_out=input_seq;
         
         
    case 'dppm'
         for i=1:4:N 
            packet=[input_seq(i),input_seq(i+1),input_seq(i+2),input_seq(i+3)]; 
            L=packet(4)*2^3+packet(3)*2^2+packet(2)*2+packet(1)*1;     
            d=zeros(1,L+1);
            d(L+1)=1;
            code=d;
                if i==1      
                    code_out=code;
                else
                    code_out=cat(2,code_out,code);
                end
         end
         
         
    case 'ppm'
        for i=1:4:N 
            packet=[input_seq(i),input_seq(i+1),input_seq(i+2),input_seq(i+3)];  
            L=packet(4)*2^3+packet(3)*2^2+packet(2)*2+packet(1)*1;     
            d=zeros(1,16);
            d(L+1)=1;
            code=d;
                if i==1      
                    code_out=code;
                else
                    code_out=cat(2,code_out,code);
                end
        end
    
end
code_out;