1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| %1 = blanc et 0 = noir
Excel = actxserver('Excel.Application');
Excel.Visible = true;
Workbook = Excel.Workbooks.Add;
Workbook.SaveAs('D:\testbino.xlsx');
ActiveSheet = Excel.Worksheets.Item(1);
ActiveSheet.Range('B2:C2').Value= {'Pixels Blancs' 'Pixels noirs'};
expe = 'Data';
ext = 'tif';
filelist = dir('./Data/*.tif');
nfiles = length(filelist);
T = 65; %Valeur du seuil
Div = T/255;
for ifile = 1:nfiles
filename = sprintf('%dt.tif',ifile);
img = imread(filename);
Nimg= imcomplement(img);
B = im2bw(Nimg,Div); %Image avec le seuil
%imshow(B)
S = imhist(B);
pixel_blanc = length(find(B==1));
pixel_noir = length(find(B==0));
range = sprintf('A%d', 2+ifile);
ActiveSheet.Range(range).Value = filename;
range = sprintf('B%d', 2+ifile);
ActiveSheet.Range(range).Value = pixel_blanc;
range = sprintf('C%d', 2+ifile);
ActiveSheet.Range(range).Value = pixel_noir;
end |