- 阅读权限
- 255
- 威望
- 6 级
- 论坛币
- 550361 个
- 通用积分
- 26062.6831
- 学术水平
- 2613 点
- 热心指数
- 2883 点
- 信用等级
- 2418 点
- 经验
- 341875 点
- 帖子
- 5713
- 精华
- 18
- 在线时间
- 2308 小时
- 注册时间
- 2014-10-6
- 最后登录
- 2023-11-28
|
附另一种MATLAB代码,个人认为是上述心形图中颜值最高的,还会跳动喔,单身汪必备神器~
这个节日注定不平静
- % 会跳动的红心
- syms x y z
- f=(x^2+9/4*y^2+z^2-1)^3-x^2*z^3-9/80*y^2*z^3;
- f=matlabFunction(f);
- [x,y,z] = meshgrid(-1.5:.02:1.5,-1:.02:1,-1.5:.02:1.5); % 画图范围
- v = f(x,y,z);
- h = patch(isosurface(x,y,z,v,0));
- isonormals(x,y,z,v,h)
- set(h,'FaceColor','r','EdgeColor','none');
- xlabel('x');ylabel('y');zlabel('z');
- alpha(1)
- grid on; view([1,1,1]); axis equal; camlight; lighting gouraud
- axis off
- pos1=get(gca,'position')
- pos2=pos1;
- pos2(2)=pos2(2)+0.01;
- pos2(1)=pos2(1)-0.03;
- pos2(3)=pos2(3)+0.08;
- pos2(4)=pos2(4)+0.08;
- for ii=1:10
- pause(1)
- set(gca,'position',pos1)
- pause(0.1)
- set(gca,'position',pos2)
- pause(0.1)
- set(gca,'position',pos1)
- pause(0.1)
- set(gca,'position',pos2)
- pause(0.1)
- set(gca,'position',pos1)
- pause(0.1)
- set(gca,'position',pos2)
- pause(0.1)
- set(gca,'position',pos1)
- pause(0.1)
- set(gca,'position',pos2)
- pause(0.1)
- set(gca,'position',pos1)
- end
-
复制代码
|
|