cam=videoinput('winvideo');
preview(cam);
for 0:15;
pause(1);
foto=getsnapshot(cam);%consigue la foto de la cámara
b=rgb2hsv(foto);%cambio al plano HSV
H=b(:,:,1)>0.92;
S=b(:,:,2)>0.4 && b(:,:,2)<0.8;
V=b(:,:,3)>0.4 && B(:,:,3)<0.6;
c=H*S*V
c = uint8(c);
red(:,:,1) = foto(:,:,1).*c;
red(:,:,2) = foto(:,:,2).*c;
red(:,:,3) = foto(:,:,3).*c;
if (max(max(red))==1);
fprintf(SerPIC,'%c','A');
imshow(red);
end
end