Function He
Function He
f=im2double(imread('C:\galleta1.jpg'));
figure, imshow(f), title('imagen original')
I = rgb2gray(f);
figure,imshow(I), title('imagen gray')
%Binariza la imagen fuente
fbw=im2bw(I, 0.9);
figure, imshow(fbw), title('imagen binaria')
fbw = not(fbw);%imagen negativa
se = strel ('square',8);%elemento estructural
fbw = imopen(fbw, se);
figure, imshow(fbw);title('imagen open');
se= strel('square',25);%elemento estructural
fbw = imclose(fbw, se);
figure, imshow(fbw);title('imagen open');
%encuentra los centroides.
[L, n] = bwlabel(fbw);
[r, c] = find(L == 3); % las filas y las %colum. de todos los pixeles del
obj. #3.
rbar = mean(r);
cbar = mean(c);
imshow(fbw)
hold on
for k=1:n
[r,c] = find (L == k);
rbar = mean(r);
cbar = mean (c);
plot(cbar,rbar,'marker','O','MarkerEdgeColor','k','MarkerFaceColor','k','
MarkerSize',10)
plot(cbar, rbar, 'marker','*','MarkerEdgeColor','w')
end