% ***********************************************************************
% sand_waterEx_3.m
% ***********************************************************************
%
% Data description:
% specific absorption coefficient of water (725-2500nm), 
% linearly interpolated from original data (resolution of 5nm) 
%
% Prepared by: Gladimir V. G. Baranoski on November 2008
%
% ***********************************************************************
%
% Original data source:
% 
% K.F. Palmer and D. Williams, Optical Properties of water in the near 
% infrared, Journal of the Optical Society of America, V.64, 
% pp. 1107-1110, August, 1974.
%
% ***********************************************************************


clear all
data=[
0.0134 
0.0186 
0.0238 
0.02548 
0.02716 
0.0279 
0.02765 
0.02682 
0.02586 
0.02492 
0.02405 
0.02317 
0.02238 
0.02162 
0.02088 
0.02025 
0.01963 
0.01927 
0.01933 
0.0199 
0.02409 
0.02828 
0.03193 
0.03475 
0.03757 
0.03952 
0.04089 
0.04225 
0.04436 
0.04696 
0.04956 
0.05253 
0.05575 
0.05897 
0.06266 
0.06707 
0.07147 
0.07759 
0.09053 
0.1035 
0.1164 
0.1363 
0.158 
0.193 
0.238 
0.298 
0.3667 
0.4412 
0.4827 
0.5023 
0.5106 
0.502 
0.4855 
0.469 
0.4425 
0.416 
0.3835 
0.351 
0.318 
0.285 
0.2605 
0.2359 
0.2161 
0.1975 
0.1829 
0.1711 
0.1621 
0.1574 
0.1527 
0.148 
0.1533 
0.1586 
0.1639 
0.1725 
0.1833 
0.1953
];

fid=fopen('sand_waterEx_3.txt','wb');
for i=1:76
    wave(i)=720+i*5;
    fprintf(fid,'%d  %3.4g \n',wave(i),data(i));
end
fclose(fid);

plot(wave,data,'b-','linewidth',3);
axis([725 1100 0 0.7]);
set(gca,'FontSize',14);
grid on
title('Water','fontsize',14)
ylabel('s.a.c. (cm^{-1})','fontsize',14);
xlabel('wavelength (nm)','fontsize',14);
set(gcf,'PaperUnits','inches','PaperPosition',[0 0 6 5]);
pause
print('-dpng', '-r100','sand_waterEx_3.png');
close 
   




