DETECTOR DE MOVIMIENTO
Este script de Matlab realiza varias capturas de imágenes a través de una webcam para luego a través de una simple resta de éstas determinar si existió un cambio en la señal de entrada y determinar si hubo o no movimiento. Este movimiento es asimismo graficado.
 |
clc vid = videoinput('winvideo', 1); set(vid,'TriggerRepeat',Inf); vid.FrameGrabInterval = 1; start(vid); try % media=[]; while(vid.FramesAcquired<=110) % Stop after 110 frames IM = getdata(vid,2); IMGray = rgb2gray(IM(:,:,1:3)); IMbw=im2bw(IMGray,0.5); IMneg=imadjust(IMGray,[0 1],[1 0]); subplot(2,3,1);imshow(IM(:,:,:,1));title('Input Video-Image') subplot(2,3,2);imshow(IMbw);title('Black & White Video') subplot(2,3,3);imshow(IMGray);title('Gray Scale Video') subplot(2,3,4);imshow(IMneg);title('Negative Image Video') %*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* i1=IM(:,:,:,1); i2=IM(:,:,:,2); i1=rgb2gray(i1(:,:,1:3)); i2=rgb2gray(i2(:,:,1:3)); m=abs(double(i1)-double(i2))/256; subplot(2,3,5);imshow(m);title('Movement') % sum(sum(m)) % media=[media sum(sum(m))]; if sum(sum(m))>850 disp('Movement');beep end %*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* end stop(vid); catch stop(vid); end |
 |
