心形曲线matlab程序3页word.doc

《心形曲线matlab程序3页word.doc》由会员分享，可在线阅读，更多相关《心形曲线matlab程序3页word.doc（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、如有侵权，请联系网站删除，仅供学习与交流心形曲线matlab程序【精品文档】第 3 页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;

2、 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); paus

3、e(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

4、=x2;r2*cos(theta); y2=y2;r2*sin(theta); set(h22,xdata,x2,ydata,y2); pause(m19); 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(m19); end