interleaving.m

802.11a phy layer protocol by myself

function DataInt=interleaving(Nbpsc,Ncbps,DataScr)
s=max(Nbpsc/2,1);
k=0:Ncbps-1;               %% k=[0 1 2 3 ....Ncbps-1];
i=(Ncbps/16)*mod(k,16)+floor(k/16);%% to get first index i
j=s*floor(i/s)+mod((i+Ncbps-floor(16*i/Ncbps)),s);%% to get second index j
DataInt(j+1)=DataScr;      %% reshape data