matlab心形动画（保存为gif格式）程序

function M
close all
clear
clc
%%初始化
Times=10; [x,y]=meshgrid(-10:0.02:10);
%%
for T=1:Times
    
    z=-(17*x.^2-16*y.*abs(x)+17.*y.^2).*T./5;
    data{T}=z;
end
%     [c,h]=contourf(data,100);
%     set(h,'linestyle','none')
%%%%%%%动画
    figure(3);
%     mesh(x,y,data{1});
    view([0 90]);
    hold on
% set(h,'linestyle','none')
for i=1:Times
%     view([0 90]);
    mesh(x,y,data{i});
    hold on
% set(h,'linestyle','none')
    pause(0.1);
    drawnow;
    
    MM(i)

end
hold off
msgbox('完成动画！！！','完成')

function MM(i)
     filename = 'xizh.gif';
     f = getframe(gcf);  
     imind = frame2im(f);
    [imind,cm] = rgb2ind(imind,256);
    if i==1
        imwrite(imind,cm,filename,'gif', 'Loopcount',inf,'DelayTime',0.05);%感觉时间太短改这个，但是储存就很卡

    else
        imwrite(imind,cm,filename,'gif','WriteMode','append','DelayTime',0.1);%感觉时间太短改这个，但是储存就很卡

    end