rcode.m

rake接收机的链路生成程序

% data transmited by mobile station
Hadamard;
%Random User Data (0,1)
Resource=rand(1,600);
for i=1:600
     if  Resource(i)>=0.5
            Resource(i)=1 ;
     else
           Resource(i)=0;
    end
end
% 64 Walsh modulation
Wrsc=ones(1,6400);
for i=1:100
a=Resource(6*i-5)+2*Resource(6*i-4)+4*Resource(6*i-3)+8*Resource(6*i-2)+16*Resoarce(6*i-1)+32*Resource(6*i);
   for j= 0:63
       if a == j
Wrsc((i*64-63):(i*64)=Walsh(j+l,:);
       end
   end
end
%Long Code Spread

%Walsh Length spread
Wsp=ones(1,25600);
for i=1:6400
      Wsp(i*4-3)=Wrsc(i);
      Wsp(i*4-2)=Wrsc(i);
      Wsp(i*4-1)=Wrsc(i);
      Wsp(i*4)=Wrsc(i);
end
%Long code spread
Long;
for i=1:25600
      Wsp(i )=mod(Wsp(i)+LongCode(i),2);
end
%Short   code  spread
Short;
PNI=ones(1,25600);
PNQ=PNI;
PNdata=PNI;
for i=1:25600
   PNI(i)=(mod(Wsp(i)+Shortl(i),2))*(-2)+I;
   PNQ(i)=(mod(Wsp(i)+ShortQ(i),2))*(-2)+I;
end
%Complex form
PNdata=PNI+sgrt(-1)*PNQ;
Sdata=ones(1,204800);
for i=1:25600
Sdata (i*8-7)=PNdata(i);
Sdata (i*8-6)=PNdata(i);
Sdata (i*8-5)=PNdata(i);
Sdata (i*8-4)=PNdata(i);
Sdata(i*8-3)=PNdata(i);
Sdata(i*8-2)=PNdata(i);
Sdata(i*8-1)=PNdata(i);
Sdata(i*8)=PNdata(i);

End