【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《心形曲线matlab程序》,欢迎阅读!
心形线matab序曲l程
用心整理的精品word文档,下载即可编辑!!
clear all clc
[x,y,z]=meshgrid(linspace(-1.3,1.3)); %meshgrid 产生平面区域内的网格坐标矩阵 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=[];
精心整理,用心做精品
2
用心整理的精品word文档,下载即可编辑!!
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
精心整理,用心做精品
3
本文来源:https://www.wddqxz.cn/a1b0ed2cbc23482fb4daa58da0116c175f0e1e8f.html