利用Matlab绘制有趣图像的示例代码

1.随机樱花树

function sakura
% @author:slandarer
% 随机形状二叉树樱花树绘制
hold on,axis equal
axis(0.5+[-10,50,0,50])
set(gca,'xtick',[],'ytick',[],'xcolor','w','ycolor','w')
set(gca,'color',[0.5020    0.5020    0.5020])

length_trunk=6;
width_trunk=4;
k1=0.9;
k2=0.8;
number_branch=15;
alp=pi/10;
length_branch=k1*length_trunk;
width_branch=k2*width_trunk;
trunk=[12,0;12,length_trunk];
plot(trunk(:,1),trunk(:,2),'color',[0 0 0],'Linewidth',width_trunk)
begins=[trunk(2,:),pi/2,1];
grow=begins;
plotdata=[0 0 0 0 0 0 0 0];
plotdata(1,:)=[];
for i=1:number_branch
  control=randi(25,[length(grow(:,1)),1])>=10;
  ag=grow(:,3);
  l=length(ag);
  parta=[length_branch.*k1.^grow(:,4).*cos(ag+ones(l,1)*alp),length_branch.*k1.^grow(:,4).*sin(ag+ones(l,1)*alp),ones(l,1)*alp,ones(l,1)];
  partb=[length_branch.*k1.^grow(:,4).*cos(ag-ones(l,1)*alp),length_branch.*k1.^grow(:,4).*sin(ag-ones(l,1)*alp),-ones(l,1)*alp,ones(l,1)];
  parta2=[0.8.*length_branch.*k1.^grow(:,4).*cos(ag),0.8.*length_branch.*k1.^grow(:,4).*sin(ag),zeros(l,1),ones(l,1)];
  partb2=[0.8.*length_branch.*k1.^grow(:,4).*cos(ag),0.8.*length_branch.*k1.^grow(:,4).*sin(ag),zeros(l,1),ones(l,1)];
  parta=control.*parta+(1-control).*parta2;
  partb=control.*partb+(1-control).*partb2;
  parta=parta+grow;
  partb=partb+grow;
  congress=[parta;partb];
  grow=[grow;grow];
  judge=[grow,congress];
  judge=unique(judge,'rows');
  grow=judge(:,5:end);
  plotdata=[plotdata;judge];
end
for i=1:number_branch
  temp_w=width_branch*0.8^i;
  temp_branch=plotdata(plotdata(:,4)==i,:);
  plx=[temp_branch(:,1),temp_branch(:,5)];
  ply=[temp_branch(:,2),temp_branch(:,6)];
  plx=plx';ply=ply';
  plot(plx,ply,'color',[0 0 0]+i*[0.3020 0.3020 0.3020]./number_branch,'Linewidth',temp_w)
end

bloom_pos=plotdata(plotdata(:,8)==number_branch+1,[5,6]);
scatter(bloom_pos(:,1),bloom_pos(:,2),10,'CData',[0.8549    0.6824    0.6824])
bloom_pos=plotdata(plotdata(:,8)==number_branch,[5,6]);
scatter(bloom_pos(:,1),bloom_pos(:,2),8,'CData',[0.7451    0.5961    0.5961].*0.97)
end

2.苹果绘制

function appleG

[u,v]=meshgrid(linspace(-pi,pi,100));

XMesh=(1+cos(v)).*cos(u)+0.085.*cos(5.*u)+(0.994.*v./pi).^100;
YMesh=(1+cos(v)).*sin(u);
ZMesh=(6.*sin(v)+2.*cos(v)-2.9.*log(1-v./pi))./4.2;

ax=gca;
ax.DataAspectRatio=[1 1 1];
hold on;grid on
surf(XMesh,YMesh,ZMesh,'FaceColor',[140,192,30]./255,'EdgeColor','none')
view(45,25)

h=light;
h.Color=[1 1 1];
h.Style='infinite';
end

3.南瓜绘制

% 构造网格
[t,p]=meshgrid(linspace(0,2*pi,200),linspace(0,pi-.05,200));
% 二元分段函数
foutline=@(t,p)(p<=.14).*90.*cos(7.*p)+(p>.14).*(cos(20.*t)+70).*(p.*(pi-p+.1)).^.2;

% 球面坐标转化为X,Y,Z
h=cos(p).*foutline(t,p);
R=sin(p).*foutline(t,p);
R=R;
X=cos(t).*R;
Y=sin(t).*R;

% 颜色矩阵构造
CMap=ones([size(t),3]);
tMap=ones(size(t));
c1=[253,158,3]./255;
c2=[76,103,86]./255;
for i=1:3
  tMap(:,:)=c1(i);
  tMap(p<=.14)=c2(i);
  CMap(:,:,i)=tMap;
end

figure()
surf(X,Y,h,'CData',CMap,'EdgeColor',[0,0,0],'EdgeAlpha',.2)

4.一堆三角形绘制

function tritritri
% @author:slandarer
hold on,axis equal
axis([-10,10,-10,10])
set(gca,'xtick',[],'ytick',[],'xcolor','w','ycolor','w')
set(gca,'color','w')

for N=1:5
  drawTri([0,0],[cos(pi/2+2*N*pi/5),sin(pi/2+2*N*pi/5)].*5,...
      [cos(pi/2+pi/5+2*N*pi/5),sin(pi/2+pi/5+2*N*pi/5)].*5,10)
  drawTri([0,0],[cos(pi/2+2*N*pi/5),sin(pi/2+2*N*pi/5)].*5,...
      [cos(pi/2-pi/5+2*N*pi/5),sin(pi/2-pi/5+2*N*pi/5)].*5,10)
end
L5=5/sin(pi/2-pi/10)*sin(pi/5);
L5s=(5+L5)/sin(3*pi/10)*sin(3*pi/5);
for N=1:5
  drawPent([cos(pi/2+2*N*pi/5),sin(pi/2+2*N*pi/5)].*5,...
      [cos(pi/2+2*N*pi/5),sin(pi/2+2*N*pi/5)].*(5+L5),...
      [cos(pi/2+pi/10+2*N*pi/5),sin(pi/2+pi/10+2*N*pi/5)].*L5s,...
      [cos(pi/2+pi/5+2*N*pi/5),sin(pi/2+pi/5+2*N*pi/5)].*(5+L5),...
      [cos(pi/2+pi/5+2*N*pi/5),sin(pi/2+pi/5+2*N*pi/5)].*5,15)
  drawPent([cos(pi/2+2*N*pi/5),sin(pi/2+2*N*pi/5)].*5,...
      [cos(pi/2+2*N*pi/5),sin(pi/2+2*N*pi/5)].*(5+L5),...
      [cos(pi/2-pi/10+2*N*pi/5),sin(pi/2-pi/10+2*N*pi/5)].*L5s,...
      [cos(pi/2-pi/5+2*N*pi/5),sin(pi/2-pi/5+2*N*pi/5)].*(5+L5),...
      [cos(pi/2-pi/5+2*N*pi/5),sin(pi/2-pi/5+2*N*pi/5)].*5,15)
end

% 功能函数=================================================================
  function drawTri(A,B,C,times)
      LW=1.2;
      COLOR=[0 0 0];
      k=1/6;
      k2=0.8;
      plot([A(1);B(1)],[A(2);B(2)],'color',COLOR,'Linewidth',LW)
      plot([B(1);C(1)],[B(2);C(2)],'color',COLOR,'Linewidth',LW)
      plot([C(1);A(1)],[C(2);A(2)],'color',COLOR,'Linewidth',LW)
      for i=1:times
          b=k*(C-B)+B;plot([A(1);b(1)],[A(2);b(2)],'color',COLOR,'Linewidth',LW);B=b;
          pause(0.01)
          c=k*(A-C)+C;plot([B(1);c(1)],[B(2);c(2)],'color',COLOR,'Linewidth',LW);C=c;
          pause(0.01)
          a=k*(B-A)+A;plot([C(1);a(1)],[C(2);a(2)],'color',COLOR,'Linewidth',LW);A=a;
          pause(0.01)
          LW=LW*k2;
      end
  end
  function drawPent(A,B,C,D,E,times)
      LW=1.2;
      COLOR=[0 0 0];
      k=1/4;
      k2=0.9;
      plot([A(1);B(1)],[A(2);B(2)],'color',COLOR,'Linewidth',LW)
      plot([B(1);C(1)],[B(2);C(2)],'color',COLOR,'Linewidth',LW)
      plot([C(1);D(1)],[C(2);D(2)],'color',COLOR,'Linewidth',LW)
      plot([D(1);E(1)],[D(2);E(2)],'color',COLOR,'Linewidth',LW)
      plot([E(1);A(1)],[E(2);A(2)],'color',COLOR,'Linewidth',LW)
      for i=1:times
          b=k*(C-B)+B;plot([A(1);b(1)],[A(2);b(2)],'color',COLOR,'Linewidth',LW);B=b;
          pause(0.01)
          c=k*(D-C)+C;plot([B(1);c(1)],[B(2);c(2)],'color',COLOR,'Linewidth',LW);C=c;
          pause(0.01)
          d=k*(E-D)+D;plot([C(1);d(1)],[C(2);d(2)],'color',COLOR,'Linewidth',LW);D=d;
          pause(0.01)
          e=k*(A-E)+E;plot([D(1);e(1)],[D(2);e(2)],'color',COLOR,'Linewidth',LW);E=e;
          pause(0.01)
          a=k*(B-A)+A;plot([E(1);a(1)],[E(2);a(2)],'color',COLOR,'Linewidth',LW);A=a;
          pause(0.01)
          LW=LW*k2;
      end
  end
end

5.月饼绘制

function moonCake
% @author:slandarer
ax=gca;
hold(ax,'on');
axis equal
ax.XLim=[-15,15];
ax.YLim=[-15,15];
CSet=[0.92 0.51 0.11;1 0.7 0.09;0.87 0.41 0.05];

for i=[1:7,9,8]
  if i==1
      tt=linspace(0,-pi/16,100);
  elseif i==9
      tt=linspace(-pi+pi/16,-pi,100);
  else
      tt=linspace(-pi/16-(i-2)*pi/8,-pi/16-(i-1)*pi/8,100);
  end
  xSet=cos(tt).*(10+abs(cos(tt.*8)));
  xMin=find(xSet==min(xSet));tt(xMin)
  xMax=find(xSet==max(xSet));
  t1=min([xMin(1),xMax(1)]);
  t2=max([xMin(1),xMax(1)]);
  xSet=cos(tt(t1:t2)).*(10+abs(cos(tt(t1:t2).*8)));
  ySet=sin(tt(t1:t2)).*(10+abs(cos(tt(t1:t2).*8)))-3;
  fill([xSet(1),xSet,xSet(end)],[ySet(1)+3,ySet,ySet(end)+3],CSet(mod(i,2)+1,:),'EdgeColor','none')
  
  
end
t=linspace(0,2*pi,640);
fill(cos(t).*(10+abs(cos(t.*8))),sin(t).*(10+abs(cos(t.*8))),CSet(1,:),'EdgeColor','none')
plot(cos(t).*(9+abs(cos(t.*8))),sin(t).*(9+abs(cos(t.*8)))-0.3,'Color',CSet(3,:),'LineWidth',6)
plot(cos(t).*8.7,sin(t).*8.7-0.3,'Color',CSet(3,:),'LineWidth',4)
plot(cos(t).*(9+abs(cos(t.*8))),sin(t).*(9+abs(cos(t.*8))),'Color',CSet(2,:),'LineWidth',6)
plot(cos(t).*8.7,sin(t).*8.7,'Color',CSet(2,:),'LineWidth',4)

plot([0 0],[-7 7]-0.3,'Color',CSet(3,:),'LineWidth',4)
plot([-7 7],[0 0]-0.3,'Color',CSet(3,:),'LineWidth',4)
plot([0 0],[-7 7],'Color',CSet(2,:),'LineWidth',4)
plot([-7 7],[0 0],'Color',CSet(2,:),'LineWidth',4)

t4=linspace(0,pi/2,100);
xSet4=[cos(t4).*6+1,1,6,cos(t4(1:end-12)).*5+1,2,4.8,cos(t4(17:end-40)).*3.9+1];
ySet4=[sin(t4).*6+1,1,1,sin(t4(1:end-12)).*5+1,2,2,sin(t4(17:end-40)).*3.9+1];

plot(xSet4,ySet4-0.3,'Color',CSet(3,:),'LineWidth',4)
plot(-xSet4,ySet4-0.3,'Color',CSet(3,:),'LineWidth',4)
plot(xSet4,-ySet4-0.3,'Color',CSet(3,:),'LineWidth',4)
plot(-xSet4,-ySet4-0.3,'Color',CSet(3,:),'LineWidth',4)
plot(xSet4,ySet4,'Color',CSet(2,:),'LineWidth',4)
plot(-xSet4,ySet4,'Color',CSet(2,:),'LineWidth',4)
plot(xSet4,-ySet4,'Color',CSet(2,:),'LineWidth',4)
plot(-xSet4,-ySet4,'Color',CSet(2,:),'LineWidth',4)
end

6.大钻石绘制

function diamondx2
% @author:slandarer
hold on
ax=gca;
axis equal
grid on
ax.GridLineStyle='--';
ax.LineWidth=1.2;
ax.XLim=[-2,2];
ax.YLim=[-2,2];
ax.ZLim=[-1.8,1.5];
ax.XColor=[1,1,1].*0.4;
ax.YColor=[1,1,1].*0.4;
ax.ZColor=[1,1,1].*0.4;
ax.DataAspectRatio=[1,1,1];
ax.DataAspectRatioMode='manual';
ax.CameraPosition=[-67.6287 -204.5276   82.7879];

light('Position',[5,6,5])
light('Position',[5,6,5])


faceColor=[0 71 177];
facePara={faceColor./255,'FaceAlpha',0.4,'EdgeColor',faceColor./255.*0.8,'EdgeAlpha',0.2,...
    'FaceLighting','gouraud','EdgeLighting','gouraud',...
    'SpecularStrength',0.9,'DiffuseStrength',0.8,'AmbientStrength',0.7}; % 面参数 
drawDiamond(facePara)

faceColor=[237 64 153];
facePara={faceColor./255,'FaceAlpha',0.4,'EdgeColor',faceColor./255.*0.8,'EdgeAlpha',0.2,...
    'FaceLighting','gouraud','EdgeLighting','gouraud',...
    'SpecularStrength',0.9,'DiffuseStrength',0.8,'AmbientStrength',0.7}; % 面参数 
drawDiamond(facePara) 

  function drawDiamond(facePara)
      
      thetaSet8=linspace(0,2*pi-pi/4,8)';
      thetaSet16=linspace(0,2*pi-pi/8,16)';
      
      % 绘制最上方八边形
      pntSet1=[cos(thetaSet8),sin(thetaSet8),ones(8,1)];
      fill3(pntSet1(:,1),pntSet1(:,2),pntSet1(:,3),facePara{:})
      
      % 一圈8个三角形
      pntSet2=[cos(thetaSet8+pi/8).*1.3,sin(thetaSet8+pi/8).*1.3,ones(8,1).*0.7];
      for i=1:8
          p1=i;
          p2=mod(i,8)+1;
          p3=i;
          fill3([pntSet1([p1,p2],1);pntSet2(p3,1)],...
              [pntSet1([p1,p2],2);pntSet2(p3,2)],...
              [pntSet1([p1,p2],3);pntSet2(p3,3)],facePara{:})
      end
      
      % 一圈8个四边形
      pntSet3=[cos(thetaSet8).*1.7,sin(thetaSet8).*1.7,ones(8,1).*0.3];
      for i=1:8
          p1=mod(i,8)+1;
          p2=i;
          p3=p1;
          p4=p1;
          fill3([pntSet1(p1,1);pntSet2(p2,1);pntSet3(p3,1);pntSet2(p4,1)],...
              [pntSet1(p1,2);pntSet2(p2,2);pntSet3(p3,2);pntSet2(p4,2)],...
              [pntSet1(p1,3);pntSet2(p2,3);pntSet3(p3,3);pntSet2(p4,3)],facePara{:})
      end
      
      % 一圈16个三角形
      pntSet4=[cos(thetaSet16).*1.7,sin(thetaSet16).*1.7,ones(16,1).*0.3];
      for i=1:8
          p1=i;
          p2=2*i-1;
          p3=2*i;
          fill3([pntSet2(p1,1);pntSet4([p2,p3],1)],...
              [pntSet2(p1,2);pntSet4([p2,p3],2)],...
              [pntSet2(p1,3);pntSet4([p2,p3],3)],facePara{:})
          p2=2*i;
          p3=mod(2*i,16)+1;
          fill3([pntSet2(p1,1);pntSet4([p2,p3],1)],...
              [pntSet2(p1,2);pntSet4([p2,p3],2)],...
              [pntSet2(p1,3);pntSet4([p2,p3],3)],facePara{:})
      end
      
      % 一圈16个四边角形
      pntSet5=[cos(thetaSet16).*1.7,sin(thetaSet16).*1.7,ones(16,1).*0.15];
      for i=1:16
          p1=i;p2=mod(i,16)+1;
          p3=mod(i,16)+1;p4=i;
          fill3([pntSet4(p1,1);pntSet4(p2,1);pntSet5(p3,1);pntSet5(p4,1)],...
              [pntSet4(p1,2);pntSet4(p2,2);pntSet5(p3,2);pntSet5(p4,2)],...
              [pntSet4(p1,3);pntSet4(p2,3);pntSet5(p3,3);pntSet5(p4,3)],facePara{:})
      end
      pntSet6=[cos(thetaSet8+pi/8).*0.4,sin(thetaSet8+pi/8).*0.4,ones(8,1).*(-1.15)];
      
      % 一圈16个长三角形
      for i=1:8
          p1=i;
          p2=2*i-1;
          p3=2*i;
          fill3([pntSet6(p1,1);pntSet5([p2,p3],1)],...
              [pntSet6(p1,2);pntSet5([p2,p3],2)],...
              [pntSet6(p1,3);pntSet5([p2,p3],3)],facePara{:})
          p2=2*i;
          p3=mod(2*i,16)+1;
          fill3([pntSet6(p1,1);pntSet5([p2,p3],1)],...
              [pntSet6(p1,2);pntSet5([p2,p3],2)],...
              [pntSet6(p1,3);pntSet5([p2,p3],3)],facePara{:})
      end
      
      % 一圈8个长四边形
      pntSet7=[cos(thetaSet8).*1.7,sin(thetaSet8).*1.7,ones(8,1).*0.15];
      for i=1:8
          p1=mod(i,8)+1;
          p2=i;
          p4=mod(i,8)+1;
          fill3([pntSet7(p1,1);pntSet6(p2,1);0;pntSet6(p4,1)],...
              [pntSet7(p1,2);pntSet6(p2,2);0;pntSet6(p4,2)],...
              [pntSet7(p1,3);pntSet6(p2,3);-1.5;pntSet6(p4,3)],facePara{:})
          
      end
  end
end

7.有趣曲线1

% 鱼形曲线
hold on
axis equal
grid on
X=0:1:1023;
Y=0:1:1023;
[gridX,gridY]=meshgrid(X,Y);
FishPatternFcn=@(x,y)mod(abs(x.*sin(sqrt(x))+y.*sin(sqrt(y))).*pi./1024,1);
contour(gridX,gridY,FishPatternFcn(gridX,gridY),[0.7,0.7])

8.有趣曲线2

% 生成一个40x40 DFT矩阵
% 并在复平面将点连接起来
plot(fft(eye(40)));
axis equal

9.有趣曲线3——蝴蝶曲线

x=linspace(0,2*pi,1000);
hdl=polarplot(x,sin(x)+sin(3.5.*x).^3,'LineWidth',1.5);
ax=gca;
ax.RTick=[];

10.有趣曲线4——心形曲线

function loveFunc
% @author:slandarer
LoveFunchdl=@(x,a)(x.^2).^(1/3)+0.9.*((3.3-x.^2).^(1/2)).*sin(a.*pi.*x);
hold on
grid on
axis([-3 3,-2 4])
x=-1.8:0.01:1.8;
text(0,3.3,'$f(x)=x^{\frac{2}{3}}+0.9(3.3-x^2)^{\frac{1}{2}}\sin(\alpha\pi x)$',...
  'FontSize',13,'HorizontalAlignment','center','Interpreter','latex');
txt2=text(-0.35,2.9,'','FontSize',13,'HorizontalAlignment','left','Interpreter','latex','tag','alphadata');
hdl=plot(x,LoveFunchdl(x,1),'color',[0.2118 0.4667 0.9961],'LineWidth',1.5);

for a=1:0.01:20
  AlphaString=['$\alpha=',num2str(a),'$'];
  Color=([1.0000 0.4902 0.6627]-[0.2118 0.4667 0.9961]).*(a/20)+[0.2118 0.4667 0.9961];
  set(txt2,'string',AlphaString)
  hdl.YData=LoveFunchdl(x,a);
  hdl.Color=Color;
  drawnow
end
end

11.有趣曲线5

[x,y]=meshgrid(-10:.01:10,-10:.01:10);
cm=cos(cos(min(sin(x)+y,x+sin(y))))-cos(sin(max(sin(y)+x,y+sin(x))))>0;
imshow(cm)

12.会害羞的含羞草

function mimose
% @author:slandarer

% =========================================================================
% <构造含羞草叶子轮廓曲线>
% 大体是画一个一个压扁倾斜的半圆弧拼在一起
% 然后乘以一个类似弧形曲线让每片小叶子不一样长

% 计算一个压扁倾斜的半圆弧曲线
t1=0:pi/100:pi+2*pi/100;
y=5*abs(sin(t1).^(1/2));
y(t1>pi)=-y(t1>pi);
t1=t1.*cos(pi/9)-y.*sin(pi/9);
y=t1.*sin(pi/9)+y.*cos(pi/9);

% 将多个压扁倾斜的半圆弧曲线拼接
T=[];
Y=[];
for i=1:20
  T=[T,(i-1)*(pi+2*pi/100)+t1];
  Y=[Y,y];   
end

% 乘以一个类似弧形曲线让每片小叶子不一样长
L=length(T);
t2=linspace(pi/8,pi-2*pi/5,L);
Y=Y.*sin(t2);

% 旋转并调整比例
X=T.*cos(pi)-Y.*sin(pi);
Y=T.*sin(pi)+Y.*cos(pi);
X=X-min(X);
X=X.*0.8;
Y=Y.*1.5;


% 创建figure及axes=========================================================
fig=figure('units','pixels',...
      'position',[500 100 500 500],...
      'Numbertitle','off',...
      'Color',[1 1 1],...
      'resize','off',...
      'visible','on',...
      'name','mimose',...
       'menubar','none');

ax=axes('Units','pixels',...
      'parent',fig,...  
      'Color',[0.2667    0.4039    0.2745],...
      'Position',[0 0 500 500],...
      'XLim',[0 100],...
      'YLim',[0 100],...
      'XColor',[1 1 1],...
      'YColor',[1 1 1]);
hold(ax,'on')
%plot(ax,X+20,Y+50)

% 调用后面定义的函数绘图===================================================
% 绘制树枝
drawBranch([20,0],[50,10])
drawBranch([20,0],[35,12])
drawBranch([0,0],[15,45])
drawBranch([4,0],[0,20])

% 绘制树叶
leaf.l1=drawLeaf([50,10]+1.*[cos(pi/1.7),sin(pi/1.7)],pi/1.7,X,Y,0.8,1);
leaf.l2=drawLeaf([50,10]+1.*[cos(-pi/8),sin(-pi/8)],-pi/8,X,Y,0.8,1);
leaf.l3=drawLeaf([50,10]+1.*[cos(pi/12),sin(pi/12)],pi/12,X,Y,1,1);
leaf.l4=drawLeaf([50,10]+1.*[cos(pi/3),sin(pi/3)],pi/3,X,Y,1,1);
leaf.l5=drawLeaf([0,45]+1.*[cos(pi/3),sin(pi/3)],pi/3,X,Y,1,1);
leaf.l6=drawLeaf([0,30]+1.*[cos(pi/5),sin(pi/5)],pi/5,X,Y,1,1);

% 绘制花朵
flower.fl1=drawFlower([35,12]);
flower.fl2=drawFlower([20,5]);

% 鼠标移动回调=============================================================
fps=25;
mitimer=timer('ExecutionMode', 'fixedRate', 'Period',1/fps, 'TimerFcn', @miMove);
start(mitimer)

  % 花朵树叶回缩函数
  function miMove(~,~)
      for ii=1:6
          if leaf.(['l',num2str(ii)]).ratio<1 %如果收缩率小于1则每隔一段时间+0.05，以下同理
              leaf.(['l',num2str(ii)]).ratio=leaf.(['l',num2str(ii)]).ratio+0.05;
          end
          resetH(leaf.(['l',num2str(ii)]),X,Y); % 依据收缩率重新绘制叶子
      end
      for ii=1:2
          if flower.(['fl',num2str(ii)]).ratio<1
              flower.(['fl',num2str(ii)]).ratio=flower.(['fl',num2str(ii)]).ratio+0.05;
          end
          resetL(flower.(['fl',num2str(ii)]));
      end
  end
set(gcf,'WindowButtonMotionFcn',@whilemovefcn)  

  % 鼠标移动调用的函数
  function whilemovefcn(~,~)
      % 检测鼠标位置
      xy=get(gca,'CurrentPoint');
      xw=xy(1,1);yw=xy(1,2);
      pos=[xw,yw];
      
      % 鼠标附近的叶子收缩率-0.2
      for ii=1:6
          LF=leaf.(['l',num2str(ii)]);
          if closeLeaf(LF.pos1,LF.pos2,pos)% 如果距离叶子距离足够近
              if leaf.(['l',num2str(ii)]).ratio>0.2
                  leaf.(['l',num2str(ii)]).ratio=leaf.(['l',num2str(ii)]).ratio-0.2;
              end
          end
      end
      
      % 鼠标附近的花收缩率-0.2
      for ii=1:2
          FL=flower.(['fl',num2str(ii)]);
          if closeFlower(FL.pos,pos)% 如果距离花距离足够近
              if flower.(['fl',num2str(ii)]).ratio>0.6
                  flower.(['fl',num2str(ii)]).ratio=flower.(['fl',num2str(ii)]).ratio-0.2;
              end
          end
      end
  end

  % 距离检测函数，叶子形状近乎于椭圆，当距离俩焦点和小于一定值认为足够近
  % 若足够近返回TRUE 否则返回FALSE
  function bool=closeLeaf(pos1,pos2,pos3)
      pL=pos1+(pos2-pos1).*0.1;
      pR=pos1+(pos2-pos1).*0.9;
      lTotal=norm(pL-pos3)+norm(pR-pos3);
      bool=lTotal<=norm(pos1-pos2); 
  end
  
  % 距离检测函数，花形状近乎于圆，当距离圆心小于一定值认为足够近
  % 若足够近返回TRUE 否则返回FALSE
  function bool=closeFlower(pos1,pos2)
     bool=norm(pos1-pos2)<=5;
  end

  % 依据收缩率重新计算并绘制叶子
  function resetH(lf,X,Y)
      X=X.*lf.Len;
      Y=Y.*lf.h.*lf.ratio;
      xl1=X.*cos(lf.alf)-Y.*sin(lf.alf)+lf.pos1(1);
      yl1=X.*sin(lf.alf)+Y.*cos(lf.alf)+lf.pos1(2);
      xl2=X.*cos(lf.alf)+Y.*sin(lf.alf)+lf.pos1(1);
      yl2=X.*sin(lf.alf)-Y.*cos(lf.alf)+lf.pos1(2);
      XL=[xl1,xl2(end:-1:1)];
      YL=[yl1,yl2(end:-1:1)];
      set(lf.LHdl,'XData',XL,'YData',YL);  
  end

  % 依据收缩率重新计算并绘制花朵
  function resetL(fl)
      xf=fl.x.*fl.ratio+fl.pos(1);
      yf=fl.y.*fl.ratio+fl.pos(2);
      xxf(2:2:2*length(xf))=xf;
      yyf(2:2:2*length(yf))=yf;
      xxf(1:2:2*length(xf))=fl.pos(1);
      yyf(1:2:2*length(yf))=fl.pos(2);
      %set(fl.plHdl,'XData',xxf,'YData',yyf);
      set(fl.scHdl,'XData',xf,'YData',yf);
      set(fl.plHdl,'XData',xxf,'YData',yyf); 
  end

  % 绘制花朵（圆心）
  function fl=drawFlower(pos)
      % 随机生成一些点作为花蕊并绘图
      theta=rand([1,120]).*2.*pi;
      r=rand([1,120]).*3+5;
      xf=r.*cos(theta)+pos(1);
      yf=r.*sin(theta)+pos(2);
      xxf(2:2:2*length(xf))=xf;
      yyf(2:2:2*length(yf))=yf;
      xxf(1:2:2*length(xf))=pos(1);
      yyf(1:2:2*length(yf))=pos(2);
      plHdl=plot(ax,xxf,yyf,'Color',[0.7608 0.4863 0.7216],'LineWidth',1);
      scHdl=scatter(ax,xf,yf,3,'filled','CData',[0.9569 0.9804 0.9333]);
      % 存储基础信息到实类
      fl.x=xf-pos(1);
      fl.y=yf-pos(2);
      fl.pos=pos;
      fl.scHdl=scHdl;
      fl.plHdl=plHdl;
      fl.ratio=1;
      % 计算可伸缩部分花蕊坐标，绘图，存储信息
      theta2=rand([1,80]).*2.*pi;
      r2=rand([1,80]).*1+3;
      xf2=r2.*cos(theta2)+pos(1);
      yf2=r2.*sin(theta2)+pos(2);
      xxf2=[ones([1,length(xf2)]).*pos(1);xf2];
      yyf2=[ones([1,length(yf2)]).*pos(2);yf2];
      
      plot(ax,xxf2,yyf2,'Color',[0.7804 0.6078 0.5020],'LineWidth',1)
  end

  % 绘制树枝 （端点1，端点2）
  function drawBranch(pos1,pos2)
      % 依据起始及末尾两点计算一个一头宽一头窄四边形坐标数据并绘图
      dir=(pos2-pos1)./norm(pos2-pos1);
      len=norm(pos2-pos1);
      xb=[0 1 1 0].*len;
      yb=[len.*0.02,len.*0.012,-len.*0.012,-len.*0.02];
     
      xxb=xb.*dir(1)-yb.*dir(2)+pos1(1);
      yyb=xb.*dir(2)+yb.*dir(1)+pos1(2);
      fill(ax,xxb,yyb,[0.8157 0.6431 0.6078],'EdgeColor',[0.6157 0.5529 0.4510],'LineWidth',1.5)
  end

  % 绘制叶子(起始位置，叶子方向，轮廓x数据，轮廓y数据，轮廓x方向放缩比例，轮廓y方向放缩比例)
  function lf=drawLeaf(pos,alf,X,Y,l,h)
      X=X.*l; % 放缩叶子长度
      Y=Y.*h; % 放缩叶子宽窄
      % 叶子数据旋转并把两个叶子数据并在一起
      xl1=X.*cos(alf)-Y.*sin(alf)+pos(1);
      yl1=X.*sin(alf)+Y.*cos(alf)+pos(2);
      xl2=X.*cos(alf)+Y.*sin(alf)+pos(1);
      yl2=X.*sin(alf)-Y.*cos(alf)+pos(2);
      XL=[xl1,xl2(end:-1:1)];
      YL=[yl1,yl2(end:-1:1)];
      % 绘图
      lf.LHdl=fill(XL,YL,[0.4980 0.7216 0.3176]);
      % 基础数据存到实类里
      lf.pos1=pos;
      lf.pos2=[pos(1)+l*51*cos(alf),pos(2)+l*51*sin(alf)];
      lf.alf=alf;
      lf.Len=l;
      lf.h=h;
      lf.ratio=1;     
      % 绘制一下叶子中线
      plot(ax,[pos(1),pos(1)+l*51*cos(alf)],[pos(2),pos(2)+l*51*sin(alf)],'Color',[0.6627 0.6980 0.4431],'LineWidth',3);
  end
end

13.随机雪景

function snowCover
% @author:slandarer
MainFig=figure('units','pixels','position',[300 80 500 500],...
  'Numbertitle','off','menubar','none','resize','off',...
  'name','snow covered landscape');
axes('parent',MainFig,'position',[0 0 1 1],...
  'XLim', [0 500],...
  'YLim', [0 500],...
  'NextPlot','add',...
  'layer','bottom',...
  'Visible','on',...
  'Color',[0 59 129]./255,...
  'XTick',[], ...
  'YTick',[]);
hold on
%画雪地====================================================================
layerBEPos=[150;140;100;90];
layerColor=[146 210 245;101 183 231;0 101 181;0 59 129];
excursion=15;
interval=10;
xSep=25;
layerPos=zeros(size(layerBEPos,1),length(xSep:xSep:500));
layerPos(:,1)=layerBEPos(:,1);
for i=1:size(layerBEPos,1)
  for j=xSep:xSep:500
      listPos=round(j./xSep+1);
      tempRandi=randi([-excursion,excursion]);
      yPos=tempRandi+layerPos(i,listPos-1);
      if i>1&&yPos>=layerPos(i-1,listPos)-5
          yPos=layerPos(i-1,listPos)-interval;
      end
      yPos(yPos<0)=0;
      layerPos(i,listPos)=yPos;
  end   
end
for i=1:size(layerBEPos,1)
  XData=0:xSep:500;
  YData=layerPos(i,:);
  Yq=interp1(XData,YData,0:1:500,'spline');
  Xq=[0,0:1:500,500];
  Yq=[0 Yq 0];
  fill(Xq,Yq,layerColor(i,:)./255,'EdgeColor','none')
end
%画星星====================================================================
XRandiS=randi([50 450],[1,15]);
YRandiS=randi([300 460],[1,15]);
scatter(XRandiS,YRandiS,10,'o','filled','CData',[252 241 0]./255)
XRandiB=randi([50 450],[1,15]);
YRandiB=randi([300 460],[1,15]);
scatter(XRandiB,YRandiB,18,'o','filled','CData',[252 241 0]./255)
%画雪花====================================================================
snowXpos=[randi([0,30],[1,6]),randi([470,500],[1,6]),randi([0,500],[1,12])];
snowYpos=[randi([220,470],[1,6]),randi([220,470],[1,6]),randi([470,500],[1,12])];
snowSize=randi([25,50],[1,24]);
snowAngle=2*pi*rand([1,24]);
snowWidth=1+0.6*rand([1,24]);
for i=1:24
  drawSnow(snowXpos(i),snowYpos(i),snowSize(i),snowAngle(i),snowWidth(i))
end
%画月亮====================================================================
moonPos=[320 300]+[randi([0 50]),randi([0 80])];
moonSize=randi([28 32]);
blankPos=randi([floor(0.3*moonSize) ceil(0.5*moonSize)],[1,2]);
drawMoon(moonPos(1),moonPos(2),moonSize,moonPos(1)-blankPos(1),moonPos(2)+blankPos(2))
%相关函数==================================================================
  function drawMoon(x,y,R,bx,by)
      t=0:pi/50:2*pi;
      X=x+cos(t).*R;
      Y=y+sin(t).*R;
      BX=bx+cos(t).*R;
      BY=by+sin(t).*R;
      fill(X,Y,[255 251 219]./255,'EdgeColor','none')
      fill(BX,BY,[0 59 129]./255,'EdgeColor','none')
  end
  function drawSnow(x,y,len,angle,width)
      for theta=0:pi/3:2*pi-pi/3
          xTail=cos(theta+angle)*len+x;
          yTail=sin(theta+angle)*len+y;
          plot([x,xTail],[y,yTail],'color',[0 134 207]./255,'lineWidth',width)
          for branchRatio=[0.4 0.55 0.7]
              BX=x+cos(theta+angle)*len*branchRatio;
              BY=y+sin(theta+angle)*len*branchRatio;
              LX=BX+cos(theta+angle+pi/3).*len.*0.4;
              LY=BY+sin(theta+angle+pi/3).*len.*0.4;
              RX=BX+cos(theta+angle-pi/3).*len.*0.4;
              RY=BY+sin(theta+angle-pi/3).*len.*0.4;
              plot([BX,LX],[BY,LY],'color',[0 134 207]./255,'lineWidth',width.*0.8)
              plot([BX,RX],[BY,RY],'color',[0 134 207]./255,'lineWidth',width.*0.8)
          end
      end
  end
end

以上就是利用Matlab绘制有趣图像的示例代码的详细内容，更多关于Matlab绘制图像的资料请关注服务器之家其它相关文章！

原文链接：https://mp.weixin.qq.com/s/caczM_w1CzKiVG9PBC71Sw