%)Citire imagine
t=imread('bmws8.jpg');
%)Afisare imagine
subplot(4,3,1),imshow(t), title('Original');
%)Transpunere pe blue si green
Imagine_green=t(:,:,2);
Imagine_blue=t(:,:,3);
%)Afisare blue si green
subplot(4,3,2), imshow(Imagine_green), title('Green');
subplot(4,3,3), imshow(Imagine_blue), title('Blue');
%)Functie dilatare + afisare green si blue
sq=ones(3,3);
td=imdilate(Imagine_green,sq);
subplot(4,3,4),imshow(td), title('Green dilated image');
sq=ones(3,3);
td=imdilate(Imagine_blue,sq);
subplot(4,3,5),imshow(td), title('Blue dilated image');
%)Functie eroziune + afisare green si blue
subplot(4,3,7),imshow(t), title('Original');
ce=imerode(Imagine_green,sq);
subplot(4,3,8),imshow(ce),title('Green eroded image')
ce=imerode(Imagine_blue,sq);
subplot(4,3,9),imshow(ce),title('Blue eroded image')