% %https://blog.csdn.net/cqfdcw/article/details/84995904
% % 小波包
% % https://blog.csdn.net/qq_32790593/article/details/84545040
% %奈奎斯特采样频率是512Hz,我们分解了3层,最后一层就是 2^3=8个频率段,每个频率段的频率区间是 512/8=64Hz
% % 基于小波包分解提取多尺度空间能量特征的原理是把不同分解尺度上的信号能量求解出来,
% %将这些能量值按尺度顺序排列成特征向量供识别使用
% %gz2018zd32#7
% % gz2018zd32#11
% % gz2018zd29#11
% % xxlgz58#7
% % xxlgz58#11
% % xxlgz55#11
% % xx2018gz77#11
% % xx2018gz77#7
% % xx2018gz74#11
%
clear all;
str="xxlgz74#11"; % 在这里改文件名
filename="C:\Users\Administrator\Desktop\wangguowei\experimentaldata\";
fs=10240; %采样频率 就是1024个点,对应1秒,每个点就代表1/1024秒
aaa=load(filename+str+".txt");
x_input=aaa(:,2); %输入数据
figure(1)
plot(aaa(:,1),x_input);title(str+'输入信号时域图') %绘制输入信号时域图像
ylabel('幅值A/ m.s^{-2}'); xlabel('时间t/s');grid on
%
% %信号通过傅里叶变换把它变到频域上,可以看出信号的频率成分
% %横轴代表各个频率成分, 纵轴: 信号的幅度值。
x=x_input; % 查看频谱范围
N=length(x); %采样点个数
signalFFT=abs(fft(x,N));%真实的幅值
Y=2*signalFFT/N;
f=(0:N/2)*(fs/N);
figure(2);
plot(f,Y(1:N/2+1));
% %自变量是频率,即横轴是频率,纵轴是该频率信号的幅度(振幅),就是指的信号电压大小,也就是通常说的频谱图
ylabel('幅值A/ m.s^{-2}'); xlabel('频率f/ Hz');title(str+'输入信号频谱图');grid on
for ii=1:10
temp(:,ii)=aaa((ii-1)*3*fs+1:ii*3*fs,2);%取出3秒的数据
wpt=wpdec(temp(:,ii),3,'dmey'); %进行3层小波包分解
figure(3) % 这里写一句
plot(wpt);%绘制小波包树
title(str+"小波包树图")
%% 实现对节点顺序按照频率递增进行重排序
% nodes=get(wpt,'tn'); %小波包分解系数 为什么nodes是[7;8;9;10;11;12;13;14]
% N_cfs=length(nodes); %小波包系数个数
nodes=[7;8;9;10;11;12;13;14];
ord=wpfrqord(nodes); %小波包系数重排,ord是重排后小波包系数索引构成的矩阵 如3层分解的[1;2;4;3;7;8;6;5]
nodes_ord=nodes(ord); %重排后的小波系数
%% 实现对节点小波节点进行重构
for i=1:8
rex3(:,i)=wprcoef(wpt,nodes_ord(i));
end
%% 绘制第3层各个节点分别重构后信号的频谱
figure;
for i=0:7
subplot(2,4,i+1);
x_sign= rex3(:,i+1);
N=length(x_sign);%采样点个数
signalFFT=abs(fft(x_sign,N));%真实的幅值
Y=2*signalFFT/N;
f=(0:N/2)*(fs/N);
plot(f,Y(1:N/2+1));
ylabel('幅值A/ m.s^{-2}','FontSize',8); xlabel('频率f/ Hz','FontSize',8);grid on
axis([0 max(f) 0 max(Y(1:N/2+1))]); title(['小波包第3层',num2str(i),'节点信号频谱图'],'FontSize',8);
end
%% wavelet packet coefficients. 求取小波包分解的各个频段的小波包系数
cfs3_0=wpcoef(wpt,nodes_ord(1)); %对重排序后第3层0节点的小波包系数0-8Hz
cfs3_1=wpcoef(wpt,nodes_ord(2)); %对重排序后第3层0节点的小波包系数8-16Hz
cfs3_2=wpcoef(wpt,nodes_ord(3)); %对重排序后第3层0节点的小波包系数16-24Hz
cfs3_3=wpcoef(wpt,nodes_ord(4)); %对重排序后第3层0节点的小波包系数24-32Hz
cfs3_4=wpcoef(wpt,nodes_ord(5)); %对重排序后第3层0节点的小波包系数32-40Hz
cfs3_5=wpcoef(wpt,nodes_ord(6)); %对重排序后第3层0节点的小波包系数40-48Hz
cfs3_6=wpcoef(wpt,nodes_ord(7)); %对重排序后第3层0节点的小波包系数48-56Hz
cfs3_7=wpcoef(wpt,nodes_ord(8)); %对重排序后第3层0节点的小波包系数56-64Hz
%% 求取小波包分解的各个频段的能量
E_cfs3_0=norm(cfs3_0,2)^2; %% 1-范数:就是norm(...,1),即各元素绝对值之和;2-范数:就是norm(...,2),即各元素平方和开根号;
E_cfs3_1=norm(cfs3_1,2)^2;
E_cfs3_2=norm(cfs3_2,2)^2;
E_cfs3_3=norm(cfs3_3,2)^2;
E_cfs3_4=norm(cfs3_4,2)^2;
E_cfs3_5=norm(cfs3_5,2)^2;
E_cfs3_6=norm(cfs3_6,2)^2;
E_cfs3_7=norm(cfs3_7,2)^2;
E_total=E_cfs3_0+E_cfs3_1+E_cfs3_2+E_cfs3_3+E_cfs3_4+E_cfs3_5+E_cfs3_6+E_cfs3_7;
p_node(1)= 100*E_cfs3_0/E_total; % 求得每个节点的占比
p_node(2)= 100*E_cfs3_1/E_total; % 求得每个节点的占比
p_node(3)= 100*E_cfs3_2/E_total; % 求得每个节点的占比
p_node(4)= 100*E_cfs3_3/E_total; % 求得每个节点的占比
p_node(5)= 100*E_cfs3_4/E_total; % 求得每个节点的占比
p_node(6)= 100*E_cfs3_5/E_total; % 求得每个节点的占比
p_node(7)= 100*E_cfs3_6/E_total; % 求得每个节点的占比
p_node(8)= 100*E_cfs3_7/E_total; % 求得每个节点的占比
figure;
x=1:8;
bar(x,p_node);
title(str+'各个频段能量所占的比例');
xlabel('频段');
ylabel('能量百分比/%');
for j=1:8
text(x(j),p_node(j),num2str(p_node(j),'%0.2f'),...
'HorizontalAlignment','center',...
'VerticalAlignment','bottom')
end
E = wenergy(wpt);
kk=E'
E_list(:,ii)=kk
list(:,ii)=kk;
end
%
% %% 实现对节点顺序按照频率递增进行重排序
% % nodes=get(wpt,'tn'); %小波包分解系数 为什么nodes是[7;8;9;10;11;12;13;14]
% % N_cfs=length(nodes); %小波包系数个数
% nodes=[7;8;9;10;11;12;13;14];
% ord=wpfrqord(nodes); %小波包系数重排,ord是重排后小波包系数索引构成的矩阵 如3层分解的[1;2;4;3;7;8;6;5]
% nodes_ord=nodes(ord); %重排后的小波系数
%
% %% 实现对节点小波节点进行重构
% for i=1:8
% rex3(:,i)=wprcoef(wpt,nodes_ord(i));
% end
%
% %% 绘制第3层各个节点分别重构后信号的频谱
% figure;
% for i=0:7
% subplot(2,4,i+1);
% x_sign= rex3(:,i+1);
% N=length(x_sign)%采样点个数
% signalFFT=abs(fft(x_sign,N));%真实的幅值
% Y=2*signalFFT/N;
% f=(0:N/2)*(fs/N);
% plot(f,Y(1:N/2+1));
% ylabel('幅值A/ m.s^{-2}','FontSize',8); xlabel('频率f/ Hz','FontSize',8);grid on
% axis([0 max(f) 0 max(Y(1:N/2+1))]); title(['小波包第3层',num2str(i),'节点信号频谱图'],'FontSize',8);
% end
%
% %% wavelet packet coefficients. 求取小波包分解的各个频段的小波包系数
% cfs3_0=wpcoef(wpt,nodes_ord(1)); %对重排序后第3层0节点的小波包系数0-8Hz
% cfs3_1=wpcoef(wpt,nodes_ord(2)); %对重排序后第3层0节点的小波包系数8-16Hz
% cfs3_2=wpcoef(wpt,nodes_ord(3)); %对重排序后第3层0节点的小波包系数16-24Hz
% cfs3_3=wpcoef(wpt,nodes_ord(4)); %对重排序后第3层0节点的小波包系数24-32Hz
% cfs3_4=wpcoef(wpt,nodes_ord(5)); %对重排序后第3层0节点的小波包系数32-40Hz
% cfs3_5=wpcoef(wpt,nodes_ord(6)); %对重排序后第3层0节点的小波包系数40-48Hz
% cfs3_6=wpcoef(wpt,nodes_ord(7)); %对重排序后第3层0节点的小波包系数48-56Hz
% cfs3_7=wpcoef(wpt,nodes_ord(8)); %对重排序后第3层0节点的小波包系数56-64Hz
% %% 求取小波包分解的各个频段的能量
% E_cfs3_0=norm(cfs3_0,2)^2; %% 1-范数:就是norm(...,1),即各元素绝对值之和;2-范数:就是norm(...,2),即各元素平方和开根号;
% E_cfs3_1=norm(cfs3_1,2)^2;
% E_cfs3_2=norm(cfs3_2,2)^2;
% E_cfs3_3=norm(cfs3_3,2)^2;
% E_cfs3_4=norm(cfs3_4,2)^2;
% E_cfs3_5=norm(cfs3_5,2)^2;
% E_cfs3_6=norm(cfs3_6,2)^2;
% E_cfs3_7=norm(cfs3_7,2)^2;
% E_total=E_cfs3_0+E_cfs3_1+E_cfs3_2+E_cfs3_3+E_cfs3_4+E_cfs3_5+E_cfs3_6+E_cfs3_7;
%
% p_node(1)= 100*E_cfs3_0/E_total; % 求得每个节点的占比
% p_node(2)= 100*E_cfs3_1/E_total; % 求得每个节点的占比
% p_node(3)= 100*E_cfs3_2/E_total; % 求得每个节点的占比
% p_node(4)= 100*E_cfs3_3/E_total; % 求得每个节点的占比
% p_node(5)= 100*E_cfs3_4/E_total; % 求得每个节点的占比
% p_node(6)= 100*E_cfs3_5/E_total; % 求得每个节点的占比
% p_node(7)= 100*E_cfs3_6/E_total; % 求得每个节点的占比
% p_node(8)= 100*E_cfs3_7/E_total; % 求得每个节点的占比
%
% figure;
% x=1:8;
% bar(x,p_node);
% title('str+各个频段能量所占的比例');
% xlabel('频段');
% ylabel('能量百分比/%');
% for j=1:8
% text(x(j),p_node(j),num2str(p_node(j),'%0.2f'),...
% 'HorizontalAlignment','center',...
% 'VerticalAlignment','bottom')
% end
% E = wenergy(wpt) %求取各个节点能量 %%%%zqn 每一层每一个点的能量 个人感觉这个应该就是提取的特征
%信号最大频率是采样频率的一半即Hz
%% 绘制重构前各个特征频段小波包系数的图形
% figure;
% subplot(4,1,1);
% plot(x_input);
% title('原始信号');
% subplot(4,1,2);
% plot(cfs3_0);
% title(['层数 ',num2str(3) ' 节点 0的小波0-640Hz',' 系数'])
% subplot(4,1,3);
% plot(cfs3_1);
% title(['层数 ',num2str(3) ' 节点 1的小波640-1280Hz',' 系数'])
% subplot(4,1,4);
% plot(cfs3_2);
% title(['层数 ',num2str(3) ' 节点 2的小波1280-1920Hz',' 系数'])
%
% %% 绘制重构后时域各个特征频段的图形
% figure;
% subplot(3,1,1);
% plot(rex3(:,1));
% title('重构后0-640Hz频段信号');
% subplot(3,1,2);
% plot(rex3(:,2));
% title('重构后640-1280Hz频段信号')
% subplot(3,1,3);
% plot(rex3(:,3));
% title('重构后1280-1920Hz频段信号');
%
小波包变换
最新推荐文章于 2024-09-11 12:43:46 发布