% ***********************************************************************
% water3.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 
0.212 
0.2287 
0.26 
0.295 
0.3418 
0.4355 
0.5293 
0.6778 
0.8402 
0.985 
1.06 
1.135 
1.188 
1.207 
1.226 
1.236 
1.243 
1.25 
1.25 
1.25 
1.25 
1.24 
1.23 
1.22 
1.203 
1.187 
1.17 
1.15 
1.13 
1.11 
1.098 
1.085 
1.073 
1.085 
1.104 
1.122 
1.167 
1.229 
1.291 
1.359 
1.456 
1.554 
1.651 
1.806 
1.977 
2.148 
2.43 
2.88 
3.33 
3.78 
4.203 
4.618 
5.034 
5.45 
6.418 
7.387 
8.355 
9.781 
13.04 
16.29 
19.55 
22.4 
24.67 
26.93 
29.19 
31.05 
31.3 
31.55 
31.47 
30.9 
30.33 
29.76 
29.19 
28.61 
27.26 
25.72 
24.17 
22.63 
21.15 
19.76 
18.37 
16.99 
15.6 
14.84 
14.08 
13.32 
12.56 
11.91 
11.42 
10.94 
10.45 
9.97 
9.546 
9.21 
8.875 
8.54 
8.204 
7.923 
7.679 
7.435 
7.191 
6.947 
6.744 
6.603 
6.463 
6.323 
6.182 
6.055 
5.98 
5.905 
5.83 
5.755 
5.68 
5.65 
5.65 
5.65 
5.65 
5.65 
5.65 
5.75 
5.85 
5.95 
6.05 
6.15 
6.276 
6.504 
6.732 
6.961 
7.189 
7.417 
7.649 
7.896 
8.143 
8.39 
8.637 
8.884 
9.131 
9.255 
9.349 
9.442 
9.473 
9.46 
9.447 
9.52 
9.72 
9.92 
10.12 
10.32 
10.52 
10.72 
14.8 
21.47 
28.15 
34.82 
41.49 
48.16 
54.83 
62.49 
70.8 
79.11 
87.43 
95.74 
104.1 
112.4 
120.7 
122.7 
120.5 
118.3 
116.1 
113.9 
111.6 
109.4 
104.9 
99.82 
94.71 
89.61 
84.51 
79.41 
74.3 
69.2 
66.25 
63.3 
60.35 
57.4 
54.44 
51.49 
48.54 
45.59 
43.67 
 42 
40.33 
38.67 
 37 
35.33 
33.67 
 32 
30.67 
29.85 
29.03 
28.2 
27.38 
26.56 
25.74 
24.92 
24.09 
23.48 
23.17 
22.86 
22.56 
22.25 
21.94 
21.63 
21.33 
21.02 
20.71 
20.41 
20.1 
19.79 
19.48 
19.4 
19.65 
19.89 
20.14 
20.39 
20.63 
20.88 
21.13 
21.37 
21.62 
21.87 
22.11 
22.36 
22.61 
22.85 
23.24 
23.83 
24.43 
25.02 
25.62 
26.21 
26.8 
27.4 
27.99 
28.59 
29.18 
30.21 
31.35 
32.48 
33.62 
34.75 
35.89 
37.03 
38.16 
39.3 
40.44 
41.57 
43.3 
45.17 
47.04 
48.91 
50.78 
52.65 
54.52 
56.39 
58.26 
60.13 
 62 
64.03 
66.67 
69.31 
71.95 
74.59 
77.22 
79.86 
82.5 
85.14 
87.78 
90.42 
93.06 
95.7 
];

fid=fopen('sacWIR.txt','wb');
for i=1:356
    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 2500 0 140]);
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','water3.png');
close 
   




