%
%  This file processes the data from the first order system
%
function data = process_data;
%
%  enter the data as 
%  f (in Hz) Vin (in mV) Vout (in mV); 
%
  measured = [10 1.0 0.016;
              15 1.0 0.036;
              25 1.0 0.049;
              40 1.0 0.072;
              50 1.0 0.079;
              75 1.0 0.095;
              100 1.0 0.108;
              200 1.0 0.108;
              300 1.0 0.108;
              400 1.0 0.108;
              500 1.0 0.101;
              600 1.0 0.091;
              700 1.0 0.088;
              800 1.0 0.081;
              900 1.0 0.075;
              1000 1.0 0.068;
              1500 1.0 0.052;
              2000 1.0 0.042;
              ];
%
%  Be sure the rows are sorted by frequency
%
   measured = sortrows(measured,1);
%
%  get the frequency of the measurement
%
  f = measured(:,1); 
%
%  get the magnitude of the transfer function
%
  mag_H = measured(:,3)./measured(:,2);
%
%  put the data into the data array
%
  data = [f mag_H];
%
  return;