codeset.m

802.15 dsss 物理协议层方针代码

%Spreading code site
function c=codeset(varargin)
% choose the spectrum spreading code from length 24,12,6,4,3,2,1, and
% different piconets.
%
% Arguments: pico_num - the piconet number
% code_length - the length of spreading code.
%
% Usage: B=codeset(num,length);
%
if (nargin < 1) 
    error('not enough input arguments')
end
if (nargin>2)
    error('too much input arguments')
end
if (nargin==2)
    if varargin{1}<1||varargin{1}>12
        error('the piconet number must be a number between 1 to 12')
    else
        if varargin{2}==24
code24=[-1, 0, 1, -1, -1, -1, 1, 1, 0, 1, 1, 1, 1, -1, 1, -1, 1, 1, 1, -1, 1, -1, -1, 1;
-1, -1, -1, -1, 1, -1, 1, -1, 1, -1, -1, 1, -1, 1, 1, -1, -1, 1, 1, 0, -1, 0, 1, 1;
-1, 1, -1, -1, 1, -1, -1, 1, -1 , 0 -1, 0, -1, -1, 1, 1, 1, -1, 1, 1, 1, -1, -1, -1;
0, -1, -1, -1, -1, -1, -1, 1, 1, 0, -1, 1, 1, -1, 1, -1, -1, 1, 1, -1, 1, -1, 1, -1;
-1, 1, -1, 1, 1, -1, 1, 0, 1, 1, 1, -1, -1, 1, 1, -1, 1, 1, 1, -1, -1, -1, 0, -1;
0, -1, -1, 0, 1, -1, -1, 1, -1, -1, 1, 1, 1, 1, -1, -1, 1, -1, 1, -1, 1, 1, 1, 1];
           if varargin{1}>6
              pico_num=varargin{1}-6;
           else 
              pico_num=varargin{1};
           end

    c=code24(pico_num,:);
       
        end
        if varargin{2}==12
code12=[0, -1,-1,-1, 1, 1, 1,-1, 1, 1,-1, 1;
-1, 1,-1,-1, 1,-1,-1,-1, 1, 1, 1, 0;
0, -1, 1,-1,-1, 1,-1,-1,-1, 1, 1, 1;
-1,-1,-1, 1, 1, 1,-1, 1, 1,-1, 1, 0;
-1,-1,-1, 1, 1, 1,-1, 1, 1,-1, 1, 0;
0, -1,-1,-1, 1, 1, 1,-1, 1, 1,-1, 1];
           if varargin{1}>6
              pico_num=varargin{1}-6;
           else 
              pico_num=varargin{1};
           end

           c=code12(pico_num,:);
      
        end
    end
end

if (nargin==1)
    if varargin{1}==6
       c =[1,0,0,0,0,0];
    end
    if varargin{1}==4
       c=[1,0,0,0];
    end
    if varargin{1}==3
       c=[1,0,0];
    end
    if varargin{1}==2
       c=[1,0];
    end
    if varargin{1}==1
       c=1;
    end
    
end

% if codelength==24
%     c=code24(setnum,:);
% end
% if codelength==12
%         c=code12(setnum,:);
% end
% if codelength==6
%            c=code6;
% end
% if codelength==4
%                c=code4;
% end
% if codelength==3
%                    c=code3;
% end
% if codelength==2
%                        c=code2;
% else
% if codelength==1
%     c=code1;
% end
% end