MATLAB Code

%Basic Comm s = serial('COM8'); set(s,'BaudRate',9600); set(s,'DataBits',8); set(s,'StopBits',1); fopen(s); fprintf(s,'*IDN?')

vid = videoinput('winvideo',1,'RGB24_320x240'); preview(vid);

figure hold on

data = []; pirOneStore =[]; pirTwoStore = []; pirThreeStore = []; pirFourStore = []; increment = [];

for p = 1:1

  hold on
  startlist = [];
  pirOne =[];
  pirTwo =[];
  pirThree =[];
  pirFour =[];
  axis([0 100 0 50])

  for i = 1:100
      startlist = [startlist i];

      out = fscanf(s, '%d');
      pirOne =[pirOne out];
      pirOneStore = [pirOneStore out];
      subplot(4,1,1);
      axis([0 100 0 50])
      plot(startlist, pirOne)
      axis([0 100 0 50])

      out = fscanf(s, '%d');
      pirTwo =[pirTwo out];
      pirTwoStore = [pirTwoStore out];
      subplot(4,1,2);
      axis([0 100 0 50])
      plot(startlist, pirTwo);
      axis([0 100 0 50])

      out = fscanf(s, '%d');
      pirThree =[pirThree out];
      pirThreeStore = [pirThreeStore out];
      subplot(4,1,3);
      axis([0 100 0 50])
      plot(startlist, pirThree);
      axis([0 100 0 50])

      out = fscanf(s, '%d');
      pirFour =[pirFour out];
      pirFourStore = [pirFourStore out];
      subplot(4,1,4);
      axis([0 100 0 50])
      plot(startlist, pirFour);
      axis([0 100 0 50])

      drawnow

      if(p == 1 && i == 1)
          tic;
      else
          increment = [increment toc];
          tic;
      end

      %if(mod(i,3) == 0)
          data = [data getsnapshot(vid)];
          
      %end

  end
  clf

end

fclose(s) delete(s) clear s