% test window scroll function untuk memblur gambar. Gunakan mouse scroll % untuk memperluas atau mempersempit lokasi blur function testWindowScroll clear all; clc; f = figure('WindowScrollWheelFcn',@sliderHandle,'menubar', 'none' ); ax = axes('parent', f, 'units', 'pix' ); im = (imread('gambar 1/lion-test.jpg')); % disesuaikan imshow(im,'parent', ax); sizeImage = size(im); w = sizeImage(2); h = sizeImage(1); halfW = double(w)/2; halfH = double(h)/2; maxD = min(w,h)/2; initD = 100; blurImage(initD); function sliderHandle(src, event) m = get(0, 'PointerLocation'); xMouse = m(1); yMouse = m(2); posFig = get(f, 'position'); xFig = posFig(1); yFig = posFig(2); widthFig = posFig(3); heightFig = posFig(4); if (xMouse > xFig ) && (yMouse > yFig ) && ... (xMouse < xFig + widthFig ) && ... (yMouse < yFig + heightFig ) if event.VerticalScrollCount < 0 % up initD = initD + 3; elseif event.VerticalScrollCount > 0 % down if initD - 3 > 0 initD = initD - 3; end end blurImage(initD); end end function blurImage(d) if d < maxD [xx,yy] = ndgrid(( 1:h )-halfH , ( 1:w ) - halfW ) ; mask = uint8( ( xx.^2 + yy.^2 ) > d^2); G = fspecial('disk', 10); cropped = uint8(zeros(sizeImage)); cropped(:,:,1) = roifilt2(G ,im(:,:,1) , mask ); cropped(:,:,2) = roifilt2(G ,im(:,:,2) , mask ); cropped(:,:,3) = roifilt2(G ,im(:,:,3) , mask ); imshow( cropped ); drawnow; end end endDi mana video implementasinya di komputer saya adalah sebagai berikut
Sesungguhnya shalat itu mencegah dari (perbuatan-perbuatan) keji dan mungkar
Q.S. Al-'Ankabut Ayat 45
Saturday, March 28, 2015
Mengatur Area Blur Pada Image Dengan Mouse Scroll di MATLAB
Dalam tutorial kali saya akan memberikan contoh bagaimana mengatur area blur (region of interest yang akan di-blur) dari gambar dengan menggunakan mouse scroll pada MATLAB. Source codenya saya berikan langsung yakni
Friday, March 20, 2015
Cara Sorting Cell di MATLAB
Berikut ini adalah contoh bagaimana men-sorting cell di MATLAB:
clear all; clc; % test sorting dari cell M = cell(4,2); M{1,1} = 'mawar'; M{1,2} = 23; M{2,1} = 'Anggrek' ; M{2,2} = 11; M{3,1} = 'Durian'; M{3,2} = 45; M{4,1} = 'Benalu'; M{4,2} = 222; % sorting berdasarkan jarak N = sortrows(M,2); disp(M); disp(N); % output % 'mawar' [ 23] % 'Anggrek' [ 11] % 'Durian' [ 45] % 'Benalu' [222] % % 'Anggrek' [ 11] % 'mawar' [ 23] % 'Durian' [ 45] % 'Benalu' [222]
Subscribe to:
Posts (Atom)