用MATLAB画心形图案

时间:2022-05-19 18:16:14 阅读: 最新文章 文档下载
说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。
1.画心行图案 clear all clc

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

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([ -2 ]); 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*n,,'某人','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,,'我爱你','fontsize',40,'color','b');


text,,'某人','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










本文来源:https://www.wddqw.com/doc/fe9167236394dd88d0d233d4b14e852459fb395a.html