fig408.m

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

% fig4.22
fh=figure('Color','w','position',[200 100 350 250]);
h1=axes('position',[0 0 1 1],'visible','off');
h2=axes('position',[0.1 0.2 0.8 0.8]);

[X,Y]=meshgrid(-8:0.15:8);
R=sqrt(X.^2+Y.^2);
meshz(R)
hold on

x=[0 0];
y=[0 0];
z=[11.33 0];
plot3(x,y,z,'linewidth',1)

t=99;
x1=[0 0];
y1=[t t];
z1=[11.31 0];
plot3(x1,y1,z1,'linewidth',3)

x=[0 0];
y=[0 100];
z=[0 0];
plot3(x,y,z,'linewidth',3)

s=-8:0.1:8;
a=size(s);

for i=1:a(2)
   x(i)=0;
end

y=0:100/(a(2)-1):100;
z=sqrt(64+s.^2);

plot3(x,y,z,'linewidth',2)

set(h2,'Xlim',[0 100])
set(h2,'Ylim',[0 100])

axis off

text(-2,0,-1.5,'A','Fontsize',10)
text(-2,0,12.7,'A"','Fontsize',10)

text(-2,100,-1.5,'B','Fontsize',10)
text(-2,100,12.7,'B"','Fontsize',10)

text(100,100,-1.5,'T','Fontsize',10)
text(100,100,12.7,'T','Fontsize',10)

text(100,0,-1.5,'T','Fontsize',10)
text(100,0,12.7,'T','Fontsize',10)


str={'图4.8 二元溶液Z面的图形及特征'}; %the note of this picture! 
   set(gcf,'currentAxes',h1)
   text(0.5,0.05,str,'Fontsize',12,'horizontalAlignment','center')
   
   s=0.02;
   d=6;
   text(0.59-s,0.196-s/d,'T','Fontsize',12)
   text(0.59,0.19,'e','Fontsize',10)
   text(0.59+s,0.19+s/d,'m','Fontsize',10)
   text(0.6+2*s,0.193+2*s/d,'p','Fontsize',10)
   text(0.6+3*s,0.2+3*s/d,'e','Fontsize',10)
   text(0.6+4*s,0.2+4*s/d,'r','Fontsize',10)
   text(0.59+5*s,0.2+5*s/d,'a','Fontsize',10)
   text(0.59+6*s,0.2+6*s/d,'t','Fontsize',10)
   text(0.58+7*s,0.2+7*s/d,'u','Fontsize',10)
   text(0.58+8*s,0.204+8*s/d,'r','Fontsize',10)
   text(0.57+9*s,0.202+9*s/d,'e','Fontsize',10)

[X,map]=capture(fh);
imwrite(X,map,'fig408.jpeg') % succeed in 2000.10.12