%
%  This  routine computes the autocorrelation of the bipolar and 
%  patch channels for ventricular fibrillation and ventricular tachycardia
%
%  name = name of the data file
%  start = starting index
%  samples = number of samples to examine
%
function [peak_direct] = laptop1(name,start,samples);
%
  s = load(name);
%
%  for now, format the data
%
  temp = s';
  s = temp(:);
%
%  get our data segment
%
  x = s(start:start+samples);
  N = length(x);
%
% the sampling rate for this data is 125 Hz
%
  fs = 125;
%
%  Compute the normaized autocorrelation
%
 
%
%  Plot the results
%
  figure;
% title(['Original Data, Interval = ' num2str(N/125) ' seconds, Data File = ' name]); xlabel('Time (sec)');
% title(['Normalized Autocorrelation, (Direct) peak = ' num2str(peak_direct) ' at lag ' num2str(index_direct)]); 
  