function [cutLevel] = findCut(pathname)

    load(pathname);
    
    [a,b,~] = size(theWaves);
    
    uberWaves = zeros(a,b);
    waveMax = zeros(b,1);
    %whatWaves = zeros(a,100);
%    whatcount=1;
    
    for j = 1:b
        uberWaves(:,j) = theWaves(:,j,1) + theWaves(:,j,2) + theWaves(:,j,3) + theWaves(:,j,4);
        waveMax(j) = max( uberWaves(:,j) );

    %    if(waveMax(j)<0.02)
   %         whatWaves(:,whatcount) = uberWaves(:,j);
  %          whatcount=whatcount+1;
 %       end
    end
    
    cutLevel = min(waveMax);
    plot(waveMax)
    
%   figure(2)
%    plot(whatWaves)
end