%QPSK%   %QPSK%  %QPSK%   %QPSK%
clc;
clear all;

%simulation param
line_color=['k  ' 'b  '  'r  ' 'c  ' 'm  ' 'k-*' 'b-*'  'r-*' 'c-*' 'm-*' 'k-^' 'b-^'  'r-^' 'c-^' 'm-^' 'k-s' 'b-s'  'r-s' 'c-s' 'm-s' ];
sampletime=1e-6;
simtime=3*sampletime/1e-3;
fd=[1e-10 1 2  4 8 16 32 64 128 256 400]; 
delay=[0 30 40 50 80 100 200 300]*1e-9;
gain=[0 -1 -3 -3 -5 -5 -7 -9 -11 -13 -15];

se=floor(rand(10,1)*10200+1111);
seed=zeros(10,1);
for s=1:length(se)
    if rem(se(s),2)
        seed(s)=se(s);
    else 
     seed(s)=se(s)+1;
    end
end


for pp=1:2:9
    disp(pp);
    
  maxdoppler=fd(10); 
%    delay_vector=delay(1:1);
   delay_vector=delay(1:pp);
%    gain_vector=gain(1:1);
    gain_vector=gain(1:pp); 


 x=0:3:30;  y=x;   z=x;  %set  Es/No
for i=1:length(x)
   snrr=x(i);
   sim('mc_cdma_rayleigh_kuirs');
    y(i)=mean(coded_error);
   %    z(i)=mean(no_coded_error);
   disp('---------------------------------------');
   disp(snrr); disp(y(i));   
   disp('---------------------------------------');
   disp(' ');
end

% grid on;
% semilogy(x,y,'k:*');
hold on;
grid on;
semilogy(x,y,line_color((pp-1)*3+1:pp*3));



 end