仿真結(jié)果如下：

部分核心程序如下：

clc;
clear all;
close all;
tic;
orimg=imread('lena.bmp');
%orimg=imread('barbara.png');
imshow(orimg);?
title('原始圖象');?
orimage=double(orimg);
tImg=wavelet('2D D5',3,orimage,'sym');
tImage=uint8(tImg); ? ? ? ? ? ??
figure;?
imshow(tImage);
Img=zeros(512,512);
Img(1:256,1:256)=tImg(1:256,1:256);
[Image,sc,dmatrix]=double2uint(Img); ?%調(diào)整系數(shù)
x=select(Image);
code=RLC(x);
%%%%%%%%%%%%%%%%%%%解碼部分%%%%%%%%%%%%%%%%%%
Image=dec(code);
Image_r=uint2double(Image,sc,dmatrix);
IImg=wavelet('2D D5',-3,Image_r,'sym');
IImg=uint8(IImg);
figure;imshow(IImg);
title('恢復(fù)圖象');?
% diff=orimg-IImg;
% %figure;imshow(diff);
% e=sum(sum(diff))/(sum(sum(orimg)));
% total_infor=512*512;
% [code_r,code_c]=size(code);pp=(512*512)/code_c;
% disp(['壓縮前的圖像字節(jié)數(shù)為:',int2str(total_infor)]);
% disp(['壓縮后的圖像字節(jié)數(shù)為:',int2str(code_c)]);
% disp(['壓縮率為:',num2str(pp),':1']);
% disp(['壓縮誤差為：',num2str(e)]);
% orimage = double(orimage)/256;
% IImg=double(IImg)/256;
% Y = PSNR(orimage, IImg);
% fprintf('PSNR = %fdB\n',Y);
% toc;
% tt = toc;
% fprintf('運算時間:%fs\n',tt);

?D192

總結(jié)

以上是生活随笔為你收集整理的基于小波变换的图像压缩解压缩仿真的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。