clc;clear all;close all;
infile = ‘car.jpg’; % 3D Image
if (exist(infile)==2)
a = imread(infile);
subplot(1,2,1);
imshow(a);
title(‘Input image’);
else
warndlg(‘The file does not exist.’,’ Warning ‘);
im=[];
return
end
singvals = 20;
%if isrgb(a)
if isa(a(:,:,1),’uint8′)
red = double(a(:,:,1));
green = double(a(:,:,2));
blue = double(a(:,:,3)); % For 3D Image
% S = SVDS(A,K) computes the K largest singular values of A.
[u,s,v] = svds(red, singvals);
imred = uint8(u * s * transpose(v));
[u,s,v] = svds(green, singvals);
imgreen = uint8(u * s * transpose(v));
[u,s,v] = svds(blue, singvals); % For 3D Image
imblue = uint8(u * s * transpose(v)); % For 3D Image
im1(:,:,1) = imred;
im1(:,:,2) = imgreen;
im1(:,:,3) = imblue; % For 3D Image
%imwrite(im, outfile);
%figure(‘Name’,’Output image’);
Image1 = a;
Image2 = im1;
save(‘c:Image1.jpg’);
save(‘c:Image2.jpg’,’im1′);
subplot(1,2,2);
imshow(im1);
title(‘Compressed Image’);
end
Note: Check the size of original and compressed image in C drive of your system
 |
| Lossless Image Compression |