我这有个初程序不知对你有没有用 \-.
Tg!Q6
clear Z-|li}lDr
dt=; %时间间隔 U 0ZB^`
s= %信号数组 +CTmcbyOi
len=128; :LV.G0)#
F=2*pi*(0:len/2)/len/dt; $ehg@WK}.
fs=fft(s,len); <Ns &b.\h6
p=fs.*conj(fs) v29G:YQe
p=p(1:len/2+1); :J(sXKr[C
plot(F,p) ~r`Wr`]_ z
ylabel('power spectrum density ') r7)@M%A
xlabel('sequence ') )XVh&'(r
title('03051171') @%@zH%b
参数自已改吧