user12sym.m

rake接收机的MATLAB仿真程序 希望能对大家有些帮助

function output=user12sym()

%**************************************************************************
 %*************************************************************************
                %//input signal form transmitter side for symbol based\\
 clear all;
close all;
clc;
% us=input('enter the number of users');
% nb1=input('number of bits for user1');
% m1=input('enter the message sequence1');
% nb2=input('number of bits for user2');
% m2=input('enter the message sequence2');
% nb3=input('number of bits for user3');
% m3=input('enter the message sequence3');
% nb4=input('number of bits for user4');
% m4=input('enter the message sequence4');
% nb5=input('number of bits for user5');
% m5=input('enter the message sequence5');
us=3;
nb1=25;
nb2=25;
nb3=25;
nb4=25;
nb5=25;
nb6=25;
nb7=25;
nb8=25;
nb9=25;
nb10=25;
nb11=25;
nb12=25;
m1=[1 1 1 1 1 0 1 1 1 0 1 0 1 1 1 1 0 1 1 0 1 0 1 1 1];
m2=[1 1 0 1 1 1 1 0 1 1 1 0 1 1 0 1 1 1 1 0 1 1 1 0 1];
m3=[1 0 1 1 0 1 1 0 1 1 1 0 1 0 1 1 0 1 1 0 0 1 0 1 1 ];
m4=[1 1 1 1 0 1 1 1 0 1 1 0 1 1 1 1 1 1 0 1 1 0 1 1 1];
m5=[1 1 1 1 0 1 1 0 1 1 1 0 1 1 1 1 0 1 1 1 1 1 0 0 1];
m6=[1 0 1 1 0 1 0 1 1 1 1 1 1 1 0 1 1 1 1 1 1 0 0 1 0];
m7=[1 1 1 1 0 1 1 1 1 1 1 0 1 1 1 1 1 1 0 1 1 0 1 0 1];
m8=[1 0 1 0 0 0 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 0 1 ];
m9=[1 1 1 1 1 0 1 1 0 0 0 1 1 1 1 1 1 0 1 1 1 0 1 1 1];
m10=[1 0 1 1 1 0 1 1 1 0 1 1 1 0 1 1 1 1 1 0 1 1 0 1 1];
m11=[1 0 1 1 1 1 1 0 1 1 0 1 1 0 1 1 1 0 1 1 1 0 1 0 1];
m12=[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 ];



                    %//message1 into polar form\\
                    
for i=1:nb1
    if m1(i)==1
        mb1(i)=m1(i);
    else
        mb1(i)=-1;
    end
end 
  % disp(mb1);
   
                %//message2 into polar form\\
                
for i=1:nb2
    if m2(i)==1
        mb2(i)=m2(i);
    else
        mb2(i)=-1;
    end
end 
  %disp(mb2);
  
                %//message3 into polar form\\
                
for i=1:nb3
    if m3(i)==1
        mb3(i)=m3(i);
    else
        mb3(i)=-1;
    end
end 
  %disp(mb3);
  
       %//message4 into polar form\\
                
for i=1:nb4
    if m4(i)==1
        mb4(i)=m4(i);
    else
        mb4(i)=-1;
    end
end 
  %disp(mb4);
  
    %//message5 into polar form\\
                
for i=1:nb5
    if m5(i)==1
        mb5(i)=m5(i);
    else
        mb5(i)=-1;
    end
end 
  %disp(mb5);
  
       %//message6 into polar form\\
                
for i=1:nb6
    if m6(i)==1
        mb6(i)=m6(i);
    else
        mb6(i)=-1;
    end
end 
  %disp(mb6);
  
    %//message7 into polar form\\
                
for i=1:nb7
    if m7(i)==1
        mb7(i)=m7(i);
    else
        mb7(i)=-1;
    end
end 
  %disp(mb7);
  
        %//message8 into polar form\\
                    
for i=1:nb8
    if m8(i)==1
        mb8(i)=m8(i);
    else
        mb8(i)=-1;
    end
end 
  % disp(mb8);
  
        %//message9 into polar form\\
                    
for i=1:nb9
    if m9(i)==1
        mb9(i)=m9(i);
    else
        mb9(i)=-1;
    end
end 
  % disp(mb9);
  
        %//message10 into polar form\\
                    
for i=1:nb10
    if m10(i)==1
        mb10(i)=m10(i);
    else
        mb10(i)=-1;
    end
end 
  % disp(mb10);
  
            %//message11 into polar form\\
                    
for i=1:nb11
    if m11(i)==1
        mb11(i)=m11(i);
    else
        mb11(i)=-1;
    end
end 
  % disp(mb11);
  
               %//message12 into polar form\\
                    
for i=1:nb12
    if m12(i)==1
        mb12(i)=m12(i);
    else
        mb12(i)=-1;
    end
end 
  % disp(mb12);   
  
                %//generation of maximal length sequence1\\
                  
  f1=1;f2=1;f3=0;f4=0;f5=1;
m=(2^5)-1;
for j=1:m
    p=xor(f2,f5);
    f5=f4;
    op1(j)=f5;
    f4=f3;
    f3=f2;
    f2=f1;
    f1=p;
    
end
  %disp(op1);
  
                    %//msequence1 into polar form\\
                    
    for i=1:31
        
         if op1(i)==1
             pb1(i)=1;
         else
         pb1(i)=-1;
        end
    end 
    %disp(op1);
    %disp(pb1);
    
                    %//generation of maximal length sequence2\\
        
  f1=1;f2=0;f3=0;f4=1;f5=1;
m=(2^5)-1;
for j=1:m
    p=xor(f3,f5);
    f5=f4;
    op2(j)=f5;
    f4=f3;
    f3=f2;
    f2=f1;
    f1=p;
    
end
  %disp(op2);
  
                    %//msequence2 into polar form\\
                    
    for i=1:31
        if op2(i)==1
             pb2(i)=1;
         else
         pb2(i)=-1;
        end
    end 
    %disp(op2);
    %disp(pb2);
    
                     %//generation of maximal length sequence3\\
      
  f1=1;f2=1;f3=1;f4=0;f5=1;
m=(2^5)-1;
for j=1:m
    p=xor(f4,f5);
    f5=f4;
    op3(j)=f5;
    f4=f3;
    f3=f2;
    f2=f1;
    f1=p;
    
end
  %disp(op3);
  
                    %//msequence3 into polar form\\
                    
    for i=1:31
        
         if op3(i)==1
             pb3(i)=1;
         else
         pb3(i)=-1;
        end
    end 
    %disp(op3);
    %disp(pb3);
    
     
                     %//generation of maximal length sequence4\\
      
  f1=0;f2=1;f3=1;f4=0;f5=1;
m=(2^5)-1;
for j=1:m
    p=xor(f4,f5);
    f5=f4;
    op4(j)=f5;
    f4=f3;
    f3=f2;
    f2=f1;
    f1=p;
    
end
  %disp(op4);
  
                    %//msequence4 into polar form\\
                    
    for i=1:31
        
         if op4(i)==1
             pb4(i)=1;
         else
         pb4(i)=-1;
        end
    end 
    %disp(op4);
    %disp(pb4);
    
       
                     %//generation of maximal length sequence5\\
      
  f1=1;f2=1;f3=0;f4=0;f5=1;
m=(2^5)-1;
for j=1:m
    p=xor(f4,f5);
    f5=f4;
    op5(j)=f5;
    f4=f3;
    f3=f2;
    f2=f1;
    f1=p;
    
end
  %disp(op5);
  
                    %//msequence5 into polar form\\
                    
    for i=1:31
        
         if op5(i)==1
             pb5(i)=1;
         else
         pb5(i)=-1;
        end
    end 
    %disp(op5);
    %disp(pb5);
    
                     %//generation of maximal length sequence6\\
      
  f1=0;f2=0;f3=1;f4=0;f5=1;
m=(2^5)-1;
for j=1:m
    p=xor(f4,f5);
    f5=f4;
    op6(j)=f5;
    f4=f3;
    f3=f2;
    f2=f1;
    f1=p;
    
end
  %disp(op6);
  
                            %//msequence6 into polar form\\
                    
    for i=1:31
        
         if op6(i)==1
             pb6(i)=1;
         else
         pb6(i)=-1;
        end
    end 
    %disp(op6);
    %disp(pb6);
    
                 %//generation of maximal length sequence7\\
      
  f1=1;f2=1;f3=0;f4=0;f5=1;
m=(2^5)-1;
for j=1:m
    p=xor(f4,f5);
    f5=f4;
    op7(j)=f5;
    f4=f3;
    f3=f2;
    f2=f1;
    f1=p;
    
end
  %disp(op7);
  
                      %//msequence7 into polar form\\
                    
    for i=1:31
        
         if op7(i)==1
             pb7(i)=1;
         else
         pb7(i)=-1;
        end
    end 
    %disp(op7);
    %disp(pb7);
           
     %//generation of maximal length sequence8\\
                  
  f1=1;f2=1;f3=0;f4=1;f5=1;
m=(2^5)-1;
for j=1:m
    p=xor(f2,f5);
    f5=f4;
    op8(j)=f5;
    f4=f3;
    f3=f2;
    f2=f1;
    f1=p;
    
end
  %disp(op8);
  
                    %//msequence8 into polar form\\
                    
    for i=1:31
        
         if op8(i)==1
             pb8(i)=1;
         else
         pb8(i)=-1;
        end
    end 
    %disp(op8);
    %disp(pb8);
    
     %//generation of maximal length sequence9\\
                  
  f1=1;f2=0;f3=0;f4=0;f5=1;
m=(2^5)-1;
for j=1:m
    p=xor(f2,f5);
    f5=f4;
    op9(j)=f5;
    f4=f3;
    f3=f2;
    f2=f1;