clc
clear all
close all
A=imread('first.jpg');
IG=rgb2gray(A);
%Primera
B=strel('disk',10);
C=imclose(IG,B);
E=imopen(C,B);
%Segunda
B2=strel('disk',50);
C2=imclose(IG,B2);
E2=imopen(C2,B2);
%Tercera
B3=strel('disk',100);
C3=imclose(IG,B3);
E3=imopen(C3,B3);
%Plot
subplot(2,2,1)
imshow(IG)
title('Original')
subplot(2,2,2)
imshow(E)
title('Primera')
subplot(2,2,3)
imshow(E2)
title('Segunda')
subplot(2,2,4)
imshow(E3)
title('Tercera')