• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

MATLAB之心形图绘制

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

一、静态心形图绘制

(1)效果展示

(2)静态心形原始代码

 1 clc;
 2 clear all;
 3 const=0;  
 4 % 均布三位坐标
 5 x=-5:0.05:5;
 6 y=-5:0.05:5;
 7 z=-5:0.05:5;
 8 [x,y,z]=meshgrid(x,y,z); % 绘制三位坐标点
 9 % 心形函数
10 f=(x.^2 + (9/4)*y.^2 + z.^2 - 1).^3 - x.^2.*z.^3 - (9/80)*y.^2.*z.^3-const;
11 p=patch(isosurface(x,y,z,f,0));  % 连接各点,组成封闭的图形
12 set(p, 'FaceColor', 'red', 'EdgeColor', 'none');
13 daspect([1 1 1])
14 view(3)
15 camlight; lighting phong

、动态心形图绘制

(1)效果展示

 

 (2) 动态心形源代码

 1 clc;
 2 clear;
 3 filename='heart';
 4 % 三位坐标均布
 5 [x,y,z]=meshgrid(linspace(-3,3)); 
 6 % 心形函数
 7 p=(x.^2+(9/4)*y.^2+z.^2-1).^3-x.^2.*z.^3-(9/80)*y.^2.*z.^3; 
 8 [faces,verts,colors] = isosurface(x,y,z,p,0,x);
 9 % 循环绘制心形形成的过程
10 for i=1:9
11 figure(i)
12 pp=patch('Faces',faces(1:284+i*1000,:),'Vertices',verts);
13 set(pp,'FaceColor','red','EdgeColor','none');
14 view(-30,24)
15 axis off
16 axis equal
17 axis tight
18 camlight
19 lighting gouraud
20 pause(0.5)
21 f(i) = getframe(i);
22 imind = frame2im(f(i));
23 [imind,cm] = rgb2ind(imind,256);
24 if i == 1
25     
26         imwrite(imind,cm,filename,'gif', 'Loopcount',inf,'DelayTime',0.5);
27 else
28         imwrite(imind,cm,filename,'gif','WriteMode','append','DelayTime',0.5);
29 end
30 close(i)
31 end


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
delphi相对路径发布时间:2022-07-18
下一篇:
delphi调用百度识别发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap