% adsorpted light beam AND Fe3+ in Balanced solution, NaCl-HCl-H2O sys at 29C
% fig5.9

% [Fe3+]  (mol/l) in BALANCED sol, NaCl-HCl-H2O sys at 29C
z1=[0.1062 0.1073 0.1040 0.1080 0.1051 0.1016 0.1106 0.1037 0.0969 0.1121];
z2=[0.1099 0.1058 0.0985 0.0921 0.1140 0.1069 0.1006 0.0936 0.0878 0.1148]; 
z3=[0.1152 0.1114 0.1076 0.1002 0.0946 0.0884 0.0832];
z=[z1 z2 z3];
z=z*1E-6;

fh=figure('Color','w','position',[200 100 500 350]);
h1=axes('position',[0 0 1 1],'visible','off');
h2=axes('position',[0.07 0.12 0.32 0.8]);

draw27(z,'Fe^{3+},(mol/l), Equ sol')

% light-adsorpted (relative) in BALANCED sol, NaCl-HCl-H2O sys at 29C
z1=[ 8.0 13.8 77.0 20.4 92.2 96.8 47.0 94.0 98.2 82.5];
z2=[95.0 94.5 99.0 98.0 98.2 98.0 98.6 99.0 99.5 99.3]; 
z3=[99.5 99.5 99.5 99.6 99.7 99.7 99.8];
z=[z1 z2 z3];
z=100-z;

h3=axes('position',[0.55 0.12 0.32 0.8]);

draw27(z,'absorptance, Equ sol')
set(h3,'Zlim',[0 100])
str={'圖5.9 平衡液中Fe^{3+ }濃度（左）和溶液吸光度（右）'}; %the note of this picture! 
   set(gcf,'currentAxes',h1)
   text(0.5,0.03,str,'Fontsize',12,'horizontalAlignment','center')
   
[X,map]=capture(fh);
imwrite(X,map,'fig509.jpeg') % succeed in 2000.10.15

% n= 45 degree best for both