%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% PURPOSE: Plot items related to the battery - Metrabyte.
% AUTHOR:  rsm
% DATE:    00/6/5
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%

  if exist('metrabyte') ~= 1, return, end

  str = [' ',titleStr,' Plotted on ',myDate];
  PaperPosn = [.5 .5 3.75 2.5];
  FigurePosn = [5 30 815 760];
  i = 0;
  

  if exist( 'battFig' ) ~= 1
    battFig = figure;
    winpos( position(1,:) );
  else
    figure(battFig);
  end
  set( battFig, 'Name', 'Metrabyte Battery Plot', 'DeleteFcn', 'clear battFig' );

  nstrips = 2;
  if exist('dataTC') == 1, nstrips = 3; end
  
  subplot(nstrips,1,1)
  plot(metrabyte(:,1), metrabyte(:,voltage));
  ylabel('Volts')
  xlabel('Seconds');
  title(['Metrabyte Voltage ',str]);
  grid on
  zoom on
  subplot(nstrips,1,2)
  plot(metrabyte(:,1), metrabyte(:,current));
  ylabel('Amperes')
  title(['Metrabyte Current',str]);
  xlabel('Seconds');
  grid on;
  zoom on;

  if exist('dataTC') ~= 1, return, end
  
  subplot(nstrips,1,3)
  plot(dataTC(:,1), dataTC(:,propRpm));
  ylabel('Rev/Min')
  title(['Propeller Speed',str]);
  xlabel('Seconds');
  grid on;




