
  opticFlow = opticalFlowFarneback;
  
  h = figure;
  movegui(h);
  hViewPanel = uipanel(h,'Position',[0 0 1 1],'Title','Plot of Optical Flow Vectors');
  hPlot = axes(hViewPanel);
  
  
  for(i=1:length(VBsave))
  flow = estimateFlow(opticFlow,VBsave{i});
  imshow(VBsaver{i})
  hold on
  plot(flow,'DecimationFactor',[5 5],'ScaleFactor',2,'Parent',hPlot);
  hold off
  pause(10^-3)
end
