%采樣頻率
fs=10000;
nfft=10240;
%軸承滾動體故障信號
fid=fopen('bearingroll2.dat','r');%故障
N=2048;
xdata=fread(fid,N,'int16');
fclose(fid);
xdata=(xdata-mean(xdata))/std(xdata,1);
%功率譜
figure(1);
Y=abs(fft(xdata,nfft));
plot((0:nfft/2-1)/nfft*fs,Y(1:nfft/2));
xlabel('頻率 f/Hz');
ylabel('功率譜 P/W');

%5層小波包分解
T=wpdec(xdata,5,'db2');
%重構低頻信號
y1=wprcoef(T,[5,1]);
%y1的波形
figure(2);
subplot(2,2,1);
plot(1:N,y1);
xlabel('時間 t/n');
ylabel('電壓 V/v');
%y1的功率譜
Y1=abs(fft(y1,nfft));
subplot(2,2,2);
plot((0:nfft/2-1)/nfft*fs,Y1(1:nfft/2));
xlabel('頻率 f/Hz');
ylabel('功率譜 P/W');