e0639.m

来自「matlab的一些学习资料和matlab的部分经典源码」· M 代码 · 共 8 行

[x,y,z]=sphere(50);
m=moviein(30);       %建立一个30列大矩阵
for i=1:30
    surf(i*x,i*y,i*z)     %绘制球面
    m(:,i)=getframe;     %将球面保存到m矩阵
 end
 movie(m,10);           %以每秒10幅的速度播放球面