莫比乌斯圈matlab,MATLAB学习与使用：动画制作(Mobius Loops)

02

第二，启动MATLAB，新建脚本，然后在脚本编辑区输入以下代码。

close all;clear all;clc

u=linspace(0,2*pi,100);

v=linspace(-1,1,100);

[U,V]=meshgrid(u,v);

x=(1+0.5*V.*cos(0.5*U)).*cos(U);

y=(1+0.5*V.*cos(0.5*U)).*sin(U);

z=0.5*V.*sin(0.5*U);

if exist('Mobius.avi')

delete('Mobius.avi')

end

S=surf(x,y,z);

view(45,75)

shading interp

aviobj=avifile('Mobius.avi','Compression','None')

for k=1:40;

u=linspace(0,2*pi*(k/40),100);

[U,V]=meshgrid(u,v);

x=(1+0.5*V.*cos(0.5*U)).*cos(U);

y=(1+0.5*V.*cos(0.5*U)).*sin(U);

z=0.5*V.*sin(0.5*U);

set(S,'XData',x,'YData',y,'ZData',z,'CData',z);

F=getframe(gcf);

aviobj=addframe(aviobj,F);

end

%close(gcf) ；              %关闭图形窗口

%aviobj=close(aviobj);  %关闭句柄aviobj