Page 137 - E-MODUL PCD 2

% Program 11.3 - Salt and Pepper Noise

% Menghasilkan citra yang telah diberi derau Salt and Pepper Noise
% F = citra berskala keabuan

function [G] = Nightly113SaltPepperNoise(F, probabilitas)

if nargin < 2
probabilitas = 0.05; % Nilai bawaan end;

if probabilitas < 0 || probabilitas > 1
error('Nilai probabilitas harus antara 0 s/d 1'); end

[m, n] = size(F);

G =
double(F); for
i=1 : m for

j=1 : n
nilai_acak = rand;

if nilai_acak <= probabilitas / 2

G(i,j) = 0;
elseif (nilai_acak > probabilitas / 2) && ...
(nilai_acak <= probabilitas)
G(i,j) = 255;
end
end
end

G = uint8(G);

Penggunaan fungsi Salt and Pepper Noise
>> Img = imread('C:\Matlab\Image\gunung.png');
>> imshow(Img)
>> G = Nightly113SaltPepperNoise (Img, 0);
>> Imshow(Img)

137