%Curso de aplicaciones biomédicas
%Profesor: Abimael Terrones Acosta
%Alumna: Mendoza Elizalde María de los Angeles
%Fecha: 26 de Noviembre, 2021
%Tema: Detección de monedas
clc
clear
close all
cam=webcam(1);
i=0;
Total=0;
while i<=200
img1=snapshot(cam);
img=rgb2gray(img1);
nivel=graythresh(img);%Nivel de umbral promedio
imgb=imbinarize(img,nivel);%Convertir a binaria
se1 = strel('disk',2);
erosionado=imerode(imgb,se1);
se2 = strel('disk',8);
Dilatado=imdilate(erosionado,se2);
L=bwlabel(Dilatado);
NumObjetos=max(max(L));
centroide=regionprops(Dilatado, 'centroid');
area = regionprops(Dilatado, 'area');
%disp("El numero de monedas detectadas es: "), disp(NumObjetos);
imshow(img1)
hold on
for n=1:NumObjetos
objetoActual=centroide(n);
areaActual=area(n);
areaActual= areaActual.Area;
objetoActual= objetoActual.Centroid;
x=objetoActual(1);
y=objetoActual(2);
plot(x,y, "r*", "LineWidth", 4)
%Moneda de 10 pesos área de 6000 a 7000
%Moneda de 5 pesos área de 4000 a 5000
%Moneda de 50c área de 1000 a 3000
if areaActual>6000 && areaActual<7000
plot(x,y,"g*", "LineWidth", 4)
text(x,y,'$10')
Total=Total+10;
end
if areaActual>4000 && areaActual<5900
plot(x,y,"y*", "LineWidth", 4)
text(x,y,'$5')
1
