12 lines
371 B
Mathematica
12 lines
371 B
Mathematica
|
function [pxx,freq] = sprectrum(x,mode,N)
|
||
|
|
switch mode
|
||
|
|
case 1
|
||
|
|
[pxx,freq] = periodogram(x *sqrt(2*pi),[],N,'centered');
|
||
|
|
case 2
|
||
|
|
[pxx,freq] = periodogram(x *sqrt(2*pi),hamming(length(x)),N,'centered');
|
||
|
|
case 3
|
||
|
|
[pxx,freq] = pwelch(x *sqrt(2*pi),[],[],N,'centered');
|
||
|
|
end
|
||
|
|
pxx = mean(pxx,2);
|
||
|
|
end
|