spread.m

来自「此程序为DS-CDMA链路中加入基于子空间的PASTd多用户检测方法。系统中采用」· M 代码 · 共 40 行

 

% Program 5-7
% spread.m
%
% Data spread function
%
% programmed by yixongshu,2006.8.9
function [iout,qout]=spread(idata,qdata,code1);
%
% code1: spread code sequence
%
switch nargin
    case{0,1}
        error('lack of input argument');
    case 2
        code1=qdata;
        qdata=idata;
end
[hn,vn]=size(idata);
[hc,vc]=size(code1);

if hn>hc
    error('lack of spread code sequences');
end

iout=zeros(hn,vn*vc);
qout=zeros(hn,vn*vc);

for ii=1:hn                       % spread the information correctly.
    iout(ii,:)=reshape(rot90(code1(ii,:),3)...
        *idata(ii,:),1,vn*vc);
    qout(ii,:)=reshape(rot90(code1(ii,:),3)...
        *qdata(ii,:),1,vn*vc);
end

% end of file.