用MATLAB画心形图案

今晚找的。。。。。。无聊的时候干的这个，哎。。。

1.画心行图案

clear all

clc

[x,y,z]=meshgrid(linspace(-1.3,1.3));

f=(x.^2+(9/4)*y.^2+z.^2-1).^3-x.^2.*z.^3-(9/80)*y.^2.*z.^3;

p=patch(isosurface(x,y,z,f,0));

set(p,'FaceColor','red','EdgeColor','none');

daspect([1 1 1])

view(3)

camlight;

lighting phong

axis off

2.动态画曲线表白，（呵呵只需要把代码里的某人改成你的那个她的名字就行了）clc;

h1=figure('name','爱的表达');

axis([-1.5 1.5 -2 0.5]);

axis off;

set(gcf,'color','black');

n=4;

a=320;

m=10^(-a);

hll=line(NaN,NaN,'marker','.','linesty','-','erasemode','none','color','r'); x1=[];

y1=[];

for theta=pi/2:-2*pi/999:-3*pi/2

r1=1+cos(theta+pi/2);

x1=[x1;r1*cos(theta)];

y1=[y1;r1*sin(theta)];

set(hll,'xdata',x1,'ydata',y1);

pause(m);

end

pause(1);

fill(x1,y1,'r');

axis off;

set(gcf,'color','black');

text(-0.16*n,-0.85,'某人','fontsize',n*18,'color','b');

title('心形线','fontsize',18,'color','m');

disp('love you ');

pause(1);

x2=[];

y2=[];

h22=line(NaN,NaN,'marker','.','linesty','-','erasemode','none','color','b'); for theta=pi/2:-2*pi/999:-3*pi/2

r2=1+cos(theta+pi/2);

x2=[x2;r2*cos(theta)];

y2=[y2;r2*sin(theta)];

set(h22,'xdata',x2,'ydata',y2);

pause(m^19);

end

h2=figure('name','爱的表达');

fill(x2,y2,'r');

text(-0.58,-0.7,'我爱你','fontsize',40,'color','b');

text(-0.17,-1.1,'某人','fontsize',18,'color','m');

axis off;

set(gcf,'color','black');

pause(1);

x3=[];

y3=[];

h33=line(NaN,NaN,'marker','.','linesty','-','erasemode','none','color','b'); for theta=pi/2:-2*pi/999:-3*pi/2

r3=1+cos(theta+pi/2);

x3=[x3;r3*cos(theta)];

y3=[y3;r3*sin(theta)];

set(h33,'xdata',x3,'ydata',y3);

pause(m^19);

end

•