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)