fig507.m

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

% [H+]  (mol/l) contrast, NaCl-HCl-H2O sys at 29C
% Fig5.7
% [H+]  (mol/l) in ORIGINAL sol, NaCl-HCl-H2O sys at 29C
z1=[314.8 276.7 275.4 244.9 240.4 236.0 186.2 169.8 166.7 120.8];
z2=[113.5 107.4 106.4 100.2  56.6  46.2  43.2  41.5   3.99 18.1];
z3=[ 0.73  0.65  0.51  0.50  0.35  0.59  0.51];
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.05 0.12 0.32 0.8]);

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

% [H+]  (mol/l) in BALANCED sol, NaCl-HCl-H2O sys at 29C
z1=[6.855 4.217 0.239 1.862 0.170 0.123 0.692 0.072 0.062 0.165];
z2=[0.066 0.053 0.045 0.044 0.084 0.039 0.034 0.035 0.032 0.058];
z3=[0.055 0.034 0.030 0.028 0.028 0.028 0.028];
z=[z1 z2 z3];
z=z*1E-6;

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

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