function [BDD]=Base_Donn(im,x)
%extraction des bandes
A=im(:,:,1);
B=im(:,:,2);
C=im(:,:,3);
% Concaténation des image en RGB:
im_bleu=cat(3,C,B,A);
im_vert=cat(3,B,C,A);
im_rouge=cat(3,A,B,A);
RV=rgb2gray(im_rouge);
VV=rgb2gray(im_vert);
BB=rgb2gray(im_bleu);
[m n]=size(RV);
%% L'histogramme des troix bandes
his1 = imhist(A);
his2 = imhist(B);
his3 = imhist(C);
%figure(2);
%subplot(2,3,1);imshow( im_rouge); title('l image bleu ');
%subplot(2,3,2);imshow( im_bleu);title(' l image rouge ');
%subplot(2,3,3);imshow( im_vert);title('l image verte ');
%subplot(2,3,4);imhist(A);title('histogramme ');
%subplot(2,3,5);imhist(B);title('histogramme ');
%subplot(2,3,6);imhist(C);title('histogramme ');
%% Binarisation
%bin1=binar(A,150);
%bin2=binar(B,155);
bin3=binar(C,x);
%figure(1);subplot(1,3,1);imshow(bin1);title('Bleue binarisée');
%subplot(1,3,2);imshow(bin2);title('Rouge binarisée');
%%subplot(1,3,3);imshow(bin3);title('Verte binarisée');
%% base de données
BDD= regionprops(bin3,'Area','Perimeter','Orientation','Centroid','BoundingBox');%Area ,, centroid n,, noundingbox
end
