%-------------------------------------------------------------------------
%exa121201_pmem.m, for example 12.12.1 
%to test pmem.m;
%-------------------------------------------------------------------------
clear all;

% 調出數據；
load test x;

N=4096;
fn=-0.5:1/N:0.5-1/N;

% 使用最大熵算法得到功率譜估計；
xpsd=pmem(x,30,N);
pmax=max(xpsd);
xpsd=xpsd/pmax;
xpsd=10*log10(xpsd+0.000001);
plot(fn,fftshift(xpsd));grid on;