%
%  This file processes the data from the first trial
%
function data = process_data;
%
%  enter the data as 
%       frequency        input (in cm)    output amplitude (in cm); 
%
%  such as 
%
%  measured = [1.00 1.50 1.740;
%              2.00 1.50 2300;
%              2.50 0.50 1100];
%

  measured = [ 1.0 0.03 1.070;
               1.5 0.02 1.025;
               1.75 0.02 1.825;
               2.00 0.01 1.29;
               2.25 0.02 2.45;
               2.50 0.02 1.050;
               3.00 0.02 0.515;
               4.0 0.03 0.350;
               5.0 0.03 0.195;
               6.0 0.03 0.130];
%
%  Be sure the rows are sorted by frequency
%
   measured = sortrows(measured,1);
%
%  get the magnitude of the transfer function
%
  H = measured(:,3)./measured(:,2);
  f = measured(:,1); 
  data = [f H];
%
  return;