clc;
clear all;
close all;
load belmont2; %装载并显示原始图像
subplot(2,2,1);image(X);colormap(map);title('原始图像 ');axis square;
disp('压缩前图像的大小:');
whos('X')
[c,l]=wavedec2(X,2,'bior3.7'); %对图像进行7层小波分解
%提取小波分解结构中的一层的低频系数和高频系数
cA1=appcoef2(c,l,'bior3.7',1); %提取二维小波变换的低频系数
cH1=detcoef2('h',c,l,1); %提取二维小波变换的高频系数(水平方向)
cD1=detcoef2('d',c,l,1); %提取二维小波变换的高频系数(斜线方向)
cV1=detcoef2('v',c,l,1); %提取二维小波变换的高频系数(垂直方向)
%重构第一层系数
A1=wrcoef2('a',c,l,'bior3.7',1); H1=wrcoef2('h',c,l,'bior3.7',1);
D1=wrcoef2('d',c,l,'bior3.7',1); V1=wrcoef2('v',c,l,'bior3.7',1);
c1=[A1 H1;V1 D1];
%显示第一层频率信息
subplot(2,2,2);image(c1);title('分解后的低频和高频信息');
%对图像进行压缩:保留第一层低频信息并对其进行量化编码
ca1=wcodemat(cA1,440,'mat',0);
%改变图像高度并显示
ca1=0.5*ca1;
subplot(2,2,3);image(ca1);colormap(map);
title('第一次压缩后图像');axis square;
disp('第一次压缩后图像的大小:');
whos('ca1')
%压缩图像:保留第二层低频信息并对其进行量化编码
cA2=appcoef2(c,l,'bior3.7',2);
ca2=wcodemat(cA2,440,'mat',0);
ca2=0.5*ca2;
subplot(2,2,4);image(ca2);colormap(map);
title('第二次压缩后图像');
disp('第二次压缩后图像大小:');
whos('ca2')
小波应用实例代码 (1).rar_无损检测_短时傅里叶变换
版权申诉
84 浏览量
2022-09-23
02:45:04
上传
评论 1
收藏 8KB RAR 举报
林当时
- 粉丝: 101
- 资源: 1万+
最新资源
- win10-64位画图cab安装包Microsoft-Windows-MSPaint
- 基于C#财务管理系统设计与实现
- 封装redis常用基本命令.zip
- 基于python的图书推荐管理系统设计与实现
- Termius 7.13.0 (windows免登录版)
- 基于STM32F072C8T6单片机PWM波控制蜂鸣器实验软件例程 KEIL工程源码+核心板硬件PDF原理图.zip
- debian package
- Redis 命令脑图.zip
- 机器学习使用Stable Diffusion实现潜在空间搜索
- 基于Python+tkinter+MySQL的图书管理系统+设计报告+PPT(课程设计高分项目).zip
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈