%
%
%
%
%

fi1='FSW_20130711_01.asc'; %sea water
fi2='PLAT_20130711_01.asc'; %sample 1
fi3='PLAT_20130711_02.asc'; %sample 2

%run openLISST on the appropriate file
fi=fi3;
openLISST;
%your data is now
%r=radius
%PSD=particle size distribution 
%
%I DONT KNOW what the units are
%

for i=1:size(PSD,1)
    figure(2)
   semilogx(r,PSD(i,:)) 
    ylim([0 max(PSD(:))])
    pause(.2)
end

% m=max(


