Download fire alert system using shape and color analysis through image

cla;
text(0,1, capsT);
drawnow;
hsvImage = rgb2hsv(videoFrame);
%# Convert the image
to HSV space.
satRed = hsvImage(:, :, 1); % Get saturation, red.
SR = mean(mean(satRed)); % Get mean.
%S > (1 - R)ST/RT
ST = (1 - MR) * 0.11 / 0.5;
capsT = sprintf('RED SATURATION = %.2f \nSATURATION:
%.2f',SR, ST);
text(0,0, sprintf(capsT));
% Determine the camera deviceID.
imaqreset;
infom = imaqhwinfo;
for k = 1:length(infom.InstalledAdaptors)
info = imaqhwinfo(infom.InstalledAdaptors{k});
if ~isempty(info.DeviceIDs)
Installedadaptor = infom.InstalledAdaptors{k};
break;
end
end
if ~exist('Installedadaptor', 'var')
h = warndlg('Video camera not connected !','!! Warning
!!', 'replace');
pause (5);
if ishandle(h), close (h); end; beep;
return;
end
filenameprefix = 'FireAlertVideo'; % Filename prefix.
adaptorname = Installedadaptor;
deviceid = '1'; % The maximum should be the total number
of cameras connected.
loopnumber = 0; % How many time the video is divided.
% The following sections takes video according to the time specified by
the user
k = 1;
while 1
my_log = [filenameprefix num2str(refnum) '.avi'];
aviobj = VideoWriter(my_log, 'Motion JPEG AVI');
vid = videoinput(adaptorname, deviceid,
'YUY2_320x240');
vid.LoggingMode = 'disk&memory';
vid.DiskLogger = aviobj;
vid.TriggerRepeat = Inf;
set(vid,'FramesPerTrigger', 1500)
start(vid);
65