fig608.m

这是一个matlab应用的论文和源代码

% NaCl-NaH2PO4-H2O sys summary 2000 08 04 23:15
% ------------------------------------------------------------------------
% transparency  ! relative unit percentage
z1=[6.8 7.8 14.4 8.6 17.3 40.2 17.3 34.4 88.3 28.5];
z2=[32.6 52.7 90.4 94.0 64.0 91.5 94 95 96 91.7]; 
z3=[100 99.8 99.5 99 98.5 98 97]; 
zmud=[z1 z2 z3];
zmud=102-zmud;
% ------------------------------------------------------------------------

% BALANCED soln, X10^6M
% Fe3+
z1=[0.09526 0.09835 0.09392 0.10012 0.09459 0.09292 0.09976 0.09526 0.08594 0.10411];
z2=[0.09976 0.09493 0.09779 0.08383 0.10522 0.10012 0.09097 0.08503 0.08005 0.10597];
z3=[0.10749 0.10448 0.09801 0.09526 0.08655 0.08033 0.07509];
z=[z1 z2 z3];
%zfe2=z; % unfitted data

z1=[0.0968 0.0979 0.0946 0.0989 0.0957 0.0925 0.1010 0.0945 0.0881 0.1030];
z2=[0.0998 0.0966 0.0902 0.0838 0.1051 0.0987 0.0922 0.0858 0.0794 0.1061];
z3=[0.1071 0.1039 0.1007 0.0943 0.0879 0.0815 0.0750];
zfe2=[z1 z2 z3];  % fitted by KNfit27.m 2000.08.07 23:15
% ------------------------------------------------------------------------
%  Ion adsorption mol per g of geothite :  Vmol/g
% zfe=(zfe1-zfe2)*0.2;

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(zmud,'absorptance, %, Equ sol')

h3=axes('position',[0.55 0.12 0.32 0.8]);
draw27linear(zfe2,'[Fe^{3+}], 10^{-6}M, Equ sol')


str={'图6.8 平衡液的吸光度与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,'fig608.jpeg') % succeed in 2000.10.01
%  n=-30 best