我这有个初程序不知对你有没有用 (p#c p
clear PtQ[({d3R
dt=; %时间间隔 k1g-%DB
s= %信号数组 }sqFvab<
len=128; LrO[l0#'Q
F=2*pi*(0:len/2)/len/dt; =pmG.>Si
fs=fft(s,len); Or$"f3gq
p=fs.*conj(fs) H~#$AD+H
p=p(1:len/2+1); Qh8pOUD0l}
plot(F,p) `2+TN
ylabel('power spectrum density ') <f}:YDY'
xlabel('sequence ') JP"#9f
title('03051171') v~AshmP
参数自已改吧