pun.asv

来自「802.11a phy layer protocol by myself」· ASV 代码 · 共 35 行

function DataCon=pun(DataScr,Rate)
code=convenc(DataScr,poly2trellis(7,[133 171])); %% g0=1
for i=1:(length(code)/2)
    A(i)=code(i*2-1);
    B(i)=code(i*2);
end
if mod(Rate,9)==0          %% 9/18/36/54Mbits/s r=3/4
        j=1;
        for i=1:length(A)
            switch mod(i,3)
                 case 1
                     DataCon(j)=A(i);j=j+1;
                     DataCon(j)=B(i);j=j+1;
                 case 2
                     DataCon(j)=A(i);j=j+1;
                 case 0
                     DataCon(j)=B(i);j=j+1;
            end
        end
elseif Rate==48             %% 48Mbits/s r=2/3
        j=1;
        for i=1:length(A)
            if mod(i,2)==1
                DataCon(j)=A(i);j=j+1;
                DataCon(j)=B(i);j=j+1;
            else 
                DataCon(j)=A(i);j=j+1;
            end
        end
 else                      %% 6Mbits/s r=1/2
     DataCon=code;
end