ip_02_09.m
上传用户:loeagle
上传日期:2013-03-02
资源大小:1236k
文件大小:1k
源码类别:

通讯编程文档

开发平台:

Matlab

  1. % MATLAB script for Illustrative Problem 2.9.
  2. N=1000;                         % The maximum value of n
  3. M=50;
  4. Rxav=zeros(1,M+1);
  5. Ryav=zeros(1,M+1);
  6. Sxav=zeros(1,M+1);
  7. Syav=zeros(1,M+1);
  8. for i=1:10,                 % Take the ensemble average over ten realizations.
  9.    X=rand(1,N)-(1/2);            % Generate a uniform number sequence on (-1/2,1/2).
  10.    Y(1)=0;
  11.    for n=2:N, Y(n)=0.9*Y(n-1)+X(n); end; % Note that Y(n) means Y(n-1).
  12.    Rx=Rx_est(X,M);           % autocorrelation of {Xn}
  13.    Ry=Rx_est(Y,M);           % autocorrelation of {Yn}
  14.    Sx=fftshift(abs(fft(Rx)));            % power spectrum of {Xn}
  15.    Sy=fftshift(abs(fft(Ry)));            % power spectrum of {Yn}
  16.    Rxav=Rxav+Rx;
  17.    Ryav=Ryav+Ry;
  18.    Sxav=Sxav+Sx;
  19.    Syav=Syav+Sy; 
  20.    echo off ;
  21. end;
  22. echo on ;
  23. Rxav=Rxav/10;
  24. Ryav=Ryav/10;
  25. Sxav=Sxav/10;
  26. Syav=Syav/10;
  27. % Plotting commands follow