function [out]=de_puncturing(datain,length,rate);

if isequal(rate,[0 0 0 0 0])
     R=1/3;
elseif isequal(rate,[0 0 0 0 1])
     R=1/2;
elseif isequal(rate,[0 0 0 1 0])
     R=1/3;
elseif isequal(rate,[0 0 0 1 1])
     R=1/2;
elseif isequal(rate,[0 0 1 0 0])
     R=5/8;
elseif isequal(rate,[0 0 1 0 1])
     R=1/2;
elseif isequal(rate,[0 0 1 1 0])
     R=5/8;
elseif isequal(rate,[0 0 1 1 1])
     R=3/4;
end

if(R==1/3)
    dout=datain;
elseif(R==1/2)
    temp1=reshape(datain,2,length/2);
    temp2=[temp1(1,:);zeros(1,length/2);temp1(2,:)];
    temp=reshape(temp2,1,length*3/2);
elseif(R==5/8)
    temp=zeros(1,length*15/8);
    for i=1:length/8
        temp((i-1)*15+1)=datain((i-1)*8+1);
        temp((i-1)*15+2)=datain((i-1)*8+2);
        temp((i-1)*15+6)=datain((i-1)*8+3);
        temp((i-1)*15+7)=datain((i-1)*8+4);
        temp((i-1)*15+8)=datain((i-1)*8+5);
        temp((i-1)*15+12)=datain((i-1)*8+6);
        temp((i-1)*15+13)=datain((i-1)*8+7);
        temp((i-1)*15+14)=datain((i-1)*8+8);
    end
elseif(R==3/4)
    temp=zeros(1,length*9/4);
    for i=1:(length/4)
        temp((i-1)*9+1)=datain((i-1)*4+1);
        temp((i-1)*9+2)=datain((i-1)*4+2);
        temp((i-1)*9+6)=datain((i-1)*4+3);
        temp((i-1)*9+9)=datain((i-1)*4+4);
    end
end
out=temp;