NomImage = input('Nom de l'image à tester : ','s')
Im = imread(NomImage);
figure(1)
subplot(2,2,1)
image(Im);
title ('Image en RGB')
[Xnb,Ynb,NbPlan] = size(Im);
ImRouge=Im(:,:,1);
ImVert=Im(:,:,2);
ImBleu=Im(:,:,3);
subplot(2,2,2)
image(ImRouge)
title ('Composante rouge de l''image')
subplot(2,2,3)
image(ImVert)
title ('Composante verte de l''image')
subplot(2,2,4)
image(ImBleu)
title ('Composante bleue de l''image')
%% Question 1
NbPixelParPois = 650;
NbdePois =0
[NbdePois] = JeCompteEnVert(ImVert,NbPixelParPois)
disp(sprintf('Cette Image contient %d petits pois',NbdePois))
%% Question 2
NbPixelParPois = 650;
NbdePoisBons = 0
NbdePoisPourris = 0
%[NbdePoisBons,NbdePoisPourris] = JeCompteEnCouleur(Im,NbPixelParPois)
disp(sprintf('Cette Image contient %d bons petits pois et %d petits pois pourris',NbdePoisBons,NbdePoisPourris))
%% Question 3
%ImageSansPoisPourris = JeffaceLesBonPois(Im,NbPixelParPois);
%figure(2)
%image(ImageSansPoisPourris)