fig506.m

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

% [Cl-]  (mol/l) contrast, NaCl-HCl-H2O sys at 29C
% Fig5.6

% [Cl-]  (mol/l) in ORIGINAL sol, NaCl-HCl-H2O sys at 29C
z1=[0.00032 0.00029 0.01 0.00025 0.01 0.02 0.00019 0.02 0.04 0.00013];
z2=[0.01 0.02 0.04 0.06 0.00006 0.02 0.04 0.06 0.08 0.00003]; 
z3=[0 0.01 0.02 0.04 0.06 0.08 0.10];
z=[z1 z2 z3];

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]);

draw27linear(z,'[Cl^{ -}](mol/l), Ini sol')


% [Cl-]  (mol/l) in BALANCED sol, NaCl-HCl-H2O sys at 29C
z1=[0.00059 0.00057 0.01 0.00057 0.01 0.02 0.00057 0.02 0.04 0.00051];
z2=[0.01 0.02 0.04 0.06 0.00046 0.02 0.04 0.06 0.08 0.00045]; 
z3=[0.00041 0.01 0.02 0.04 0.06 0.08 0.10];
z=[z1 z2 z3];

h3=axes('position',[0.55 0.12 0.32 0.8]);
draw27linear(z,'[Cl^{ -}](mol/l), Equ sol')

str={'图5.6 吸附前后溶液中Cl^{-}的浓度变化'}; %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,'fig506.jpeg') % succeed in 2000.10.01
% n=-150 best