main.asv

基于MATLAB的图像压缩 能处理10:1的压缩功能 直接就能使用

clc;
clear all;
close all;
orimg=imread('lena.bmp');
% 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);
% Img(1:128,1:128)=tImg(1:128,1:128);
% Img(129:256,1:128)=tImg(129:256,1:128);
% Img(1:128,129:256)=tImg(1:128,129: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);
diff=orimg-IImg;
figure;imshow(diff);
e=sum(sum(diff))/(sum(sum(orimg)));
total_infor=512*512;
[code_r,code_c]=size(code);pp=code_c/(512*512);
disp(['压缩前的图像信息大小为:',int2str(total_infor)]);
disp(['压缩后的图像信息大小为:',int2str(code_c)]);
disp(['压缩率为:',double2str(pp)]);
disp(['压缩误差为：',duble2str(e)]);