fig602.m

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

% NaCl-NaH2PO4-H2O sys summary 2000 08 04 23:15

% ------------------------------------------------------------------------
% ORIGINAL soln, X10^6M
% Cl-
z1=[0 0 0.01 0 0.01 0.02 0 0.02 0.04 0];
z2=[0.01 0.02 0.04 0.06 0 0.02 0.04 0.06 0.08 0];
z3=[0 0.01 0.02 0.04 0.06 0.08 0.10];
z=[z1 z2 z3];
zcl1=z*10^6;

% ------------------------------------------------------------------------
% BALANCED soln, X10^6M

% Cl-
z1=[5.68E-4 5.54E-4 0.01 5.40E-4 0.01 0.02 5.11E-4 0.02 0.04 4.83E-4];
z2=[0.01 0.02 0.04 0.06 4.55E-4 0.02 0.04 0.06 0.08 4.41E-4];
z3=[4.27E-4 0.01 0.02 0.04 0.06 0.08 0.10];
z=[z1 z2 z3];
z=z*10^6;
zcl2=z;


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(zcl1,'Ini [Cl^{-}], 10^{-6}M')

h3=axes('position',[0.55 0.12 0.32 0.8],'color','w');
draw27linear(zcl2,'Equ [Cl^{-}], 10^{-6}M')

str={'图6.2 吸附前后溶液中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,'fig602.jpeg') % succeed in 2000.10.01

%n=-150 best