我这有个初程序不知对你有没有用 qIh #~
clear fD{II+T
dt=; %时间间隔 tjj^O%SV<
s= %信号数组 "}@i+oS
len=128; 9x?B5Ap[
F=2*pi*(0:len/2)/len/dt; bj}=8k0
fs=fft(s,len); #zt*xS[{0
p=fs.*conj(fs) aVwH
p=p(1:len/2+1); J*j5#V];
plot(F,p) [SkKz>rC
ylabel('power spectrum density ') jq(qo4~;
xlabel('sequence ') 4O(@'#LLz
title('03051171') yyP'Z~0
参数自已改吧