fig510.m

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

% H+ adsorption (Vmol/g geotite) in NaCl-HCl-H2O sys at 29C
% Figure 5.10

z1=[61.589 54.497 55.032 48.608 48.046 47.175 37.102 33.946 33.328 24.127];
z2=[22.687 21.469 21.271 20.031 11.303 9.232 8.673 8.293 0.792 3.608];
z3=[0.135 0.123 0.096 0.0944 0.0644 0.1124 0.0964];
z=[z1 z2 z3];

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

draw27(z,'H^{+} adsorption, 10^{-6}mol/g')

Zlim([0 80])

str={'图5.10 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,'fig510.jpeg') % succeed in 2000.10.01
 
 % n=-150 good