在Matlab中实现变半径球体的gif

fig = figure;
filename = '变半径球体.gif';

numFrames = 100; % 帧数
timeInterval = 0.1; % 每帧的时间间隔（秒）

for i = 1:numFrames
    % 计算当前帧的半径
    radius = r0 * (i/numFrames);
    
    % 生成球体的坐标
    [x, y, z] = sphere;
    x = x * radius + x0;
    y = y * radius + y0;
    z = z * radius + z0;
    
    % 绘制球体
    surf(x, y, z);
    axis equal; % 设置坐标轴比例一致
    
    % 保存当前帧为gif
    frame = getframe(fig);
    im = frame2im(frame);
    [imind, cm] = rgb2ind(im, 256);
    if i == 1
        imwrite(imind, cm, filename, 'gif', 'Loopcount', inf);
    else
        imwrite(imind, cm, filename, 'gif', 'WriteMode', 'append', 'DelayTime', timeInterval);
    end
    
    % 清空figure窗口
    cla;
end

close(fig);