仿真結果如下：

部分核心程序如下：

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); ?%調整系數
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('恢復圖象');?
% 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(['壓縮前的圖像字節數為:',int2str(total_infor)]);
% disp(['壓縮后的圖像字節數為:',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

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。