two sided cross-spectral estimate between 2 discrete time signals using the correlation method
[sm [,cwp]]=cspect(nlags,npoints,wtype,x [,y] [,wpar])
[sm [,cwp]]=cspect(nlags,npoints,wtype,nx [,ny] [,wpar])
:x vector, the data of the first signal. : :y vector, the data of the second signal. If y is omitted it is
supposed to be equal to x (auto-correlation). If it is present, it must have the same numer of element than x.
: :nlags number of correlation lags (positive integer) : :npoints number of transform points (positive integer) : :wtype The window type
- ‘re’: rectangular
- ‘tr’: triangular
- ‘hm’: Hamming
- ‘hn’: Hann
- ‘kr’: Kaiser,in this case the wpar argument must be given
- ‘ch’: Chebyshev, in this case the wpar argument must be given
: :wpar optional parameters for Kaiser and Chebyshev windows:
- ‘kr’: wpar must be a strictly positive number
- ‘ch’: wpar must be a 2 element vector [main_lobe_width,side_lobe_height]with 0<main_lobe_width<.5, and side_lobe_height>0
:
Computes the cross-spectrum estimate of two signals x and y if both are given and the auto-spectral estimate of x otherwise. Spectral estimate obtained using the correlation method.
The cross spectrum of two signal x and y is defined to be
The correlation method calculates the spectral estimate as the Fourier transform of a modified estimate of the auto/cross correlation function. This auto/cross correlation modified estimate consist of repeatedly calculating estimates of the autocorrelation function from overlapping sub-segments if the data, and then averaging these estimates to obtain the result.
The number of points of the window is 2*nlags-1.
For batch processing, the x and y data may be read segment by segment using the getx`and `gety user defined functions. These functions have the following calling sequence:
xk=getx(ns,offset) and yk=gety(ns,offset) where ns is the segment size and offset is the index of the first element of the segment in the full signal.
For Scilab version up to 5.0.2 the returned value was the modulus of the current one.
Oppenheim, A.V., and R.W. Schafer. Discrete-Time Signal Processing, Upper Saddle River, NJ: Prentice-Hall, 1999
`rand`_('normal');`rand`_('seed',0);
x=`rand`_(1:1024-33+1);
//make low-pass filter with eqfir
nf=33;bedge=[0 .1;.125 .5];des=[1 0];wate=[1 1];
h=`eqfir`_(nf,bedge,des,wate);
//filter white data to obtain colored data
h1=[h 0*`ones`_(1:`max`_(`size`_(x))-1)];
x1=[x 0*`ones`_(1:`max`_(`size`_(h))-1)];
hf=`fft`_(h1,-1); xf=`fft`_(x1,-1);yf=hf.*xf;y=`real`_(`fft`_(yf,1));
sm=cspect(100,200,'tr',y);
smsize=`max`_(`size`_(sm));fr=(1:smsize)/smsize;
`plot`_(fr,`log`_(sm))