【matlab】 動態繪製三維心形圖__MATLAB

[轉載]matlab動態繪製三維心形圖  

matlab動態繪製三維心形圖程式如下，核心是isosurface函數，verts儲存了心形曲面各點的座標，而faces儲存了各點的串連順序。

clearfilename='heart';[x,y,z]=meshgrid(linspace(-3,3)); p=(x.^2+(9/4)*y.^2+z.^2-1).^3-x.^2.*z.^3-(9/80)*y.^2.*z.^3; [faces,verts,colors] = isosurface(x,y,z,p,0,x);for i=1:9figure(i)pp=patch('Faces',faces(1:284+i*1000,:),'Vertices',verts);set(pp,'FaceColor','red','EdgeColor','none');view(-30,24)axis offaxis equalaxis tightcamlightlighting gouraudpause(0.5)f(i) = getframe(i);imind = frame2im(f(i));[imind,cm] = rgb2ind(imind,256);if i == 1         imwrite(imind,cm,filename,'gif', 'Loopcount',inf,'DelayTime',0.5); else         imwrite(imind,cm,filename,'gif','WriteMode','append','DelayTime',0.5); endclose(i)

end

end