Comments on: Free Download Skripsi “Image Compression with Singular Value Decomposition” http://www.khaeroni.net/2010/06/17/free-download-skripsi-image-compression-with-singular-value-decomposition/ Kita tidak Mencintai Kecuali Terhadap Diri Sendiri Tue, 31 Jan 2012 11:27:51 +0000 hourly 1 http://wordpress.org/?v=3.3.1 By: Khaeroni http://www.khaeroni.net/2010/06/17/free-download-skripsi-image-compression-with-singular-value-decomposition/comment-page-1/#comment-3344 Khaeroni Wed, 15 Jun 2011 05:25:00 +0000 http://www.khaeroni.net/?p=307#comment-3344 Wa'alaikumsalam. Script untuk dekomposisi ada di bagian lampiran. Tapi itu yang versi GUI, kalo yang versi text bisa pakai yang ini : <code>function [Ar]=SVDGlobal(Citra,r); % Fungsi SVDGlobal.m % (c) Khaeroni, S.Si - Math IPB 2009/2011 % % Deskripsi : % Script ini dibuat untuk mengimplementasikan metode pemampatan citra % menggunakan teknik SVD. Secara sederhana, metode kompresi citra dengan % menggunakan teknik SVD adalah memotong ekspansi citra sampai dengan % batas yang diinginkan. % % Cara penggunaan : % Ar = SVDGlobal(Citra,r) % SVDGlobal(Citra,r) % dimana % Ar : matriks citra hasil kompresi % Citra : nama file citra, lengkap dengan path-nya. Kecuali path sudah % didefinisikan pada MATLAB path, cukup dituliskan nama % file-nya saja. % r : parameter pemotongan rank % % Kebutuhan : % Script ini membutuhkan fungsi-fungsi yang terdapat pada toolbox image % processing. Jadi, pastikan toolbox image processing sudah terinstall % pada MATLAB Anda. Selain itu, script ini juga membutuhkan fungsi sbb: % % Built-in function % * svd.m % % Informasi : % * Tanggal dibuat = 08-02-2011 % * Tanggal direvisi = 14-02-2011 % * Revisi ke-2 if (exist(Citra)==2) A = imread(Citra); figure('Name','Input image'); imshow(A); else warndlg('The file does not exist.',' Warning '); Ar=[]; return end if isrgb(A) if isa(A(:,:,1),'uint8') % The R layer red = double(A(:,:,1)); [U,S,V] = svd(red); Ur=U(:,1:r); Vr=V(:,1:r); Sr=S(1:r,1:r); imred = uint8(Ur*Sr*transpose(Vr)); % The G layer green = double(A(:,:,2)); [U,S,V] = svd(green); Ur=U(:,1:r); Vr=V(:,1:r); Sr=S(1:r,1:r); imgreen = uint8(Ur*Sr*transpose(Vr)); % The B layer blue = double(A(:,:,3)); [U,S,V] = svd(blue); Ur=U(:,1:r); Vr=V(:,1:r); Sr=S(1:r,1:r); imblue = uint8(Ur*Sr*transpose(Vr)); Ar(:,:,1) = imred; Ar(:,:,2) = imgreen; Ar(:,:,3) = imblue; imwrite(Ar,strcat('Svd_r',num2str(r),'_',Citra)); figure('Name','Output image'); imshow(Ar); return; end if isa(A(:,:,1),'uint16') % The R layer red = double(A(:,:,1)); [U,S,V] = svd(red); Ur=U(:,1:r); Vr=V(:,1:r); Sr=S(1:r,1:r); imred = uint16(Ur*Sr*transpose(Vr)); % The G layer green = double(A(:,:,2)); [U,S,V] = svd(green); Ur=U(:,1:r); Vr=V(:,1:r); Sr=S(1:r,1:r); imgreen = uint16(Ur*Sr*transpose(Vr)); % The B layer blue = double(A(:,:,3)); [U,S,V] = svd(blue); Ur=U(:,1:r); Vr=V(:,1:r); Sr=S(1:r,1:r); imblue = uint16(Ur*Sr*transpose(Vr)); Ar(:,:,1) = imred; Ar(:,:,2) = imgreen; Ar(:,:,3) = imblue; imwrite(Ar,strcat('Svd_r',num2str(r),'_',Citra)); figure('Name','Output image'); imshow(Ar); return; end if isa(A(:,:,1),'double') % The R layer red = double(A(:,:,1)); [U,S,V] = svd(red); Ur=U(:,1:r); Vr=V(:,1:r); Sr=S(1:r,1:r); imred = double(Ur*Sr*transpose(Vr)); % The G layer green = double(A(:,:,2)); [U,S,V] = svd(green); Ur=U(:,1:r); Vr=V(:,1:r); Sr=S(1:r,1:r); imgreen = double(Ur*Sr*transpose(Vr)); % The B layer blue = double(A(:,:,3)); [U,S,V] = svd(blue); Ur=U(:,1:r); Vr=V(:,1:r); Sr=S(1:r,1:r); imblue = double(Ur*Sr*transpose(Vr)); Ar(:,:,1) = imred; Ar(:,:,2) = imgreen; Ar(:,:,3) = imblue; imwrite(Ar,strcat('Svd_r',num2str(r),'_',Citra)); figure('Name','Output image'); imshow(Ar); return; end end if isgray(A) dvalue=double(A)+1; [U,S,V] = svd(dvalue); Ur=U(:,1:r); Vr=V(:,1:r); Sr=S(1:r,1:r); if isa(A,'uint8') Ar = uint8(Ur * Sr * transpose(Vr)); end if isa(A,'uint16') Ar = uint16(Ur * Sr * transpose(Vr)); end if isa(A,'double') Ar = (Ur * Sr * transpose(Vr)); end imwrite(Ar,strcat('Svd_r',num2str(r),'_',Citra)); figure('Name','Output image'); imshow(Ar); return; end</code> Jika ingin mencantumkan, harap menyertakan kredit di atas. Semoga bermanfaat. Wa’alaikumsalam. Script untuk dekomposisi ada di bagian lampiran. Tapi itu yang versi GUI, kalo yang versi text bisa pakai yang ini :

function [Ar]=SVDGlobal(Citra,r);
% Fungsi SVDGlobal.m
% (c) Khaeroni, S.Si - Math IPB 2009/2011
%
% Deskripsi :
% Script ini dibuat untuk mengimplementasikan metode pemampatan citra
% menggunakan teknik SVD. Secara sederhana, metode kompresi citra dengan
% menggunakan teknik SVD adalah memotong ekspansi citra sampai dengan
% batas yang diinginkan.
%
% Cara penggunaan :
% Ar = SVDGlobal(Citra,r)
% SVDGlobal(Citra,r)
% dimana
% Ar : matriks citra hasil kompresi
% Citra : nama file citra, lengkap dengan path-nya. Kecuali path sudah
% didefinisikan pada MATLAB path, cukup dituliskan nama
% file-nya saja.
% r : parameter pemotongan rank
%
% Kebutuhan :
% Script ini membutuhkan fungsi-fungsi yang terdapat pada toolbox image
% processing. Jadi, pastikan toolbox image processing sudah terinstall
% pada MATLAB Anda. Selain itu, script ini juga membutuhkan fungsi sbb:
%
% Built-in function
% * svd.m
%
% Informasi :
% * Tanggal dibuat = 08-02-2011
% * Tanggal direvisi = 14-02-2011
% * Revisi ke-2

if (exist(Citra)==2)
A = imread(Citra);
figure('Name','Input image');
imshow(A);
else
warndlg('The file does not exist.',' Warning ');
Ar=[];
return
end

if isrgb(A)
if isa(A(:,:,1),'uint8')
% The R layer
red = double(A(:,:,1));
[U,S,V] = svd(red);
Ur=U(:,1:r);
Vr=V(:,1:r);
Sr=S(1:r,1:r);
imred = uint8(Ur*Sr*transpose(Vr));

% The G layer
green = double(A(:,:,2));
[U,S,V] = svd(green);
Ur=U(:,1:r);
Vr=V(:,1:r);
Sr=S(1:r,1:r);
imgreen = uint8(Ur*Sr*transpose(Vr));

% The B layer
blue = double(A(:,:,3));
[U,S,V] = svd(blue);
Ur=U(:,1:r);
Vr=V(:,1:r);
Sr=S(1:r,1:r);
imblue = uint8(Ur*Sr*transpose(Vr));

Ar(:,:,1) = imred;
Ar(:,:,2) = imgreen;
Ar(:,:,3) = imblue;

imwrite(Ar,strcat('Svd_r',num2str(r),'_',Citra));
figure('Name','Output image');
imshow(Ar);
return;
end

if isa(A(:,:,1),'uint16')
% The R layer
red = double(A(:,:,1));
[U,S,V] = svd(red);
Ur=U(:,1:r);
Vr=V(:,1:r);
Sr=S(1:r,1:r);
imred = uint16(Ur*Sr*transpose(Vr));

% The G layer
green = double(A(:,:,2));
[U,S,V] = svd(green);
Ur=U(:,1:r);
Vr=V(:,1:r);
Sr=S(1:r,1:r);
imgreen = uint16(Ur*Sr*transpose(Vr));

% The B layer
blue = double(A(:,:,3));
[U,S,V] = svd(blue);
Ur=U(:,1:r);
Vr=V(:,1:r);
Sr=S(1:r,1:r);
imblue = uint16(Ur*Sr*transpose(Vr));

Ar(:,:,1) = imred;
Ar(:,:,2) = imgreen;
Ar(:,:,3) = imblue;

imwrite(Ar,strcat('Svd_r',num2str(r),'_',Citra));
figure('Name','Output image');
imshow(Ar);
return;
end

if isa(A(:,:,1),'double')
% The R layer
red = double(A(:,:,1));
[U,S,V] = svd(red);
Ur=U(:,1:r);
Vr=V(:,1:r);
Sr=S(1:r,1:r);
imred = double(Ur*Sr*transpose(Vr));

% The G layer
green = double(A(:,:,2));
[U,S,V] = svd(green);
Ur=U(:,1:r);
Vr=V(:,1:r);
Sr=S(1:r,1:r);
imgreen = double(Ur*Sr*transpose(Vr));

% The B layer
blue = double(A(:,:,3));
[U,S,V] = svd(blue);
Ur=U(:,1:r);
Vr=V(:,1:r);
Sr=S(1:r,1:r);
imblue = double(Ur*Sr*transpose(Vr));

Ar(:,:,1) = imred;
Ar(:,:,2) = imgreen;
Ar(:,:,3) = imblue;

imwrite(Ar,strcat('Svd_r',num2str(r),'_',Citra));
figure('Name','Output image');
imshow(Ar);
return;
end
end

if isgray(A)

dvalue=double(A)+1;
[U,S,V] = svd(dvalue);
Ur=U(:,1:r);
Vr=V(:,1:r);
Sr=S(1:r,1:r);

if isa(A,'uint8')
Ar = uint8(Ur * Sr * transpose(Vr));
end

if isa(A,'uint16')
Ar = uint16(Ur * Sr * transpose(Vr));
end

if isa(A,'double')
Ar = (Ur * Sr * transpose(Vr));
end

imwrite(Ar,strcat('Svd_r',num2str(r),'_',Citra));
figure('Name','Output image');
imshow(Ar);
return;
end

Jika ingin mencantumkan, harap menyertakan kredit di atas. Semoga bermanfaat.

]]> By: maratus sholihah http://www.khaeroni.net/2010/06/17/free-download-skripsi-image-compression-with-singular-value-decomposition/comment-page-1/#comment-3343 maratus sholihah Wed, 15 Jun 2011 03:53:09 +0000 http://www.khaeroni.net/?p=307#comment-3343 Assalamu'alikum.Saya Mara MHS MTK Unair..blhkah saya minta script program matlab untuk dekomposisi SVD.. Assalamu’alikum.Saya Mara MHS MTK Unair..blhkah saya minta script program matlab untuk dekomposisi SVD..

]]> By: Khaeroni http://www.khaeroni.net/2010/06/17/free-download-skripsi-image-compression-with-singular-value-decomposition/comment-page-1/#comment-3329 Khaeroni Mon, 25 Apr 2011 04:58:27 +0000 http://www.khaeroni.net/?p=307#comment-3329 Buku tersebut saya dapatkan dari perpustakaan FMIPA UGM (pinjam). Sedangkan untuk file/softcopy-nya saya tidak punya. Mungkin kalau di search di internet kayaknya ada... Buku tersebut saya dapatkan dari perpustakaan FMIPA UGM (pinjam). Sedangkan untuk file/softcopy-nya saya tidak punya. Mungkin kalau di search di internet kayaknya ada…

]]> By: nani http://www.khaeroni.net/2010/06/17/free-download-skripsi-image-compression-with-singular-value-decomposition/comment-page-1/#comment-3325 nani Tue, 19 Apr 2011 04:06:35 +0000 http://www.khaeroni.net/?p=307#comment-3325 aslkm. maaf pa', ap ada bukux Linear Algebra with Applications” (Scheick, J.T., 1997), dalam bentuk file??? aslkm. maaf pa’, ap ada bukux Linear Algebra with Applications” (Scheick, J.T., 1997), dalam bentuk file???

]]>