%實驗數據
%fid=fopen('rotor00.dat','r');%正常狀態
fid=fopen('rotor01.dat','r');%0.35mm
%fid=fopen('rotor02.dat','r');%0.77mm
%fid=fopen('rotor03.dat','r');%1.05mm
%fid=fopen('rotor04.dat','r');%1.35mm
N=2048;
fs=5000;
nfft=10240;
x=fscanf(fid,'%f',N);
fclose(fid);
xdata=(x-mean(x))/std(x,1);

figure(1);
%時域圖
subplot(2,2,1);
plot((1:N)/fs,x);
xlabel('時間 t/s');
ylabel('幅值 A/W');

%功率譜
Y=abs(fft(xdata,nfft));
subplot(2,2,2);
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');