fig301302.m

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

f1=figure('position',[200 100 500 270],'color','w');
t=0:pi/20:2*pi;
kk=1;
k0=0.45;
k1=0.4;
k2=0.36;
c1=[0.4 0.8 0.5];
h1=axes('position',[0 0 1 1],'visible','off');
h2=axes('position',[0.07 0.12 0.36 0.8]);
a=t(1:length(t)-1);
patch(kk*sin(t),kk*2*cos(t),1:length(t),'EdgeColor','flat')
colormap cool
hold on

c0=[0.3 0.8 0.4];
patch(k0*sin(t),k0*2*cos(t),1:length(t),'EdgeColor','flat')
plot(k0*sin(t),k0*2*cos(t),'y:')

c2=[0.8 0.2 0.5];
patch(k1*sin(t),k1*2*cos(t),c2)

c3=[0.1 0.5 0.1];
patch(k2*sin(t),k2*2*cos(t),c3)

text(0,0,'土粒','horizontalAlignment','center','color','w')

text(0,-1.4,'膜状水层','horizontalAlignment','center','color','w')
text(0,1.1,'吸湿水层','horizontalAlignment','center','color','w')
text(0,0.85,'\downarrow','horizontalAlignment','center','color','w')
text(0.55,0,'\leftarrow','horizontalAlignment','center','color','w')
text(0.58,-0.1,'滑动面','verticalAlignment','middle','color','w')

axis square
axis off

h3=axes('position',[0.55 0.12 0.36 0.8]);
a=t(1:length(t)-1);
patch(kk*sin(t),kk*2*cos(t),1:length(t),'EdgeColor','flat')
colormap cool
hold on

c0=[0.3 0.8 0.4];
patch(k0*sin(t),k0*2*cos(t),1:length(t),'EdgeColor','flat')
plot(k0*sin(t),k0*2*cos(t),'y:')

c2=[0.8 0.2 0.5];
patch(k1*sin(t),k1*2*cos(t),c2)

c3=[0.1 0.5 0.1];
patch(k2*sin(t),k2*2*cos(t),c3)

text(0,0,'胶粒','horizontalAlignment','center','color','w')

text(0,-1.4,'扩散层','horizontalAlignment','center','color','w')
text(0,1.2,'STERN层','horizontalAlignment','center','color','w')
text(0,0.85,'\downarrow','horizontalAlignment','center','color','w')
text(0.55,0,'\leftarrow','horizontalAlignment','center','color','w')
text(0.58,-0.1,'滑动面','verticalAlignment','middle','color','w')

axis square
axis off


set(gcf,'currentaxes',h1)
text(0.25,0.05,'图3.1. 吸附水在土粒周围的分布',...
   'horizontalAlignment','center','color','r','FontSize',10)

text(0.75,0.05,'图3.2 STERN的双电层模型',...
   'horizontalAlignment','center','color','r','FontSize',10)

[X,map]=capture(f1);
imwrite(X,map,'fig301302.bmp')
imwrite(X,map,'fig301302.jpeg')