3rd Movie

Well, this time I wrote the code by myself.

clc; clear all; close all;
Fig=figure;
aviobj=avifile('sphere.avi');

for k=1:6
n=2^k-1;
[x y z]=sphere(n);
c = hadamard(2^k);
surf(x, y, z, c)
colormap([1 1 0; 0 1 1]);
axis off; axis equal;
F=getframe(Fig);
for m=1:15
aviobj=addframe(aviobj, F);
end
end
for k=5:-1:1
n=2^k-1;
[x y z]=sphere(n);
c = hadamard(2^k);
surf(x, y, z, c)
colormap([1 1 0; 0 1 1]);
axis off; axis equal;
F=getframe(Fig);
for m=1:15
aviobj=addframe(aviobj, F);
end
end
close(Fig)
aviobj = close(aviobj);

Another avi 'Movie' by avifile function

avi 'Movie' created by avifile function

The code used to create this 'movie':

t = linspace(0,2.5*pi,40);

fact = 10*sin(t);fig=figure;aviobj = avifile('example.avi')

[x,y,z] = peaks;

for k=1:length(fact) 

h = surf(x,y,fact(k)*z);

axis([-3 3 -3 3 -80 80]) 

axis off 

caxis([-90 90]) 

F = getframe(fig);

aviobj = addframe(aviobj,F);

endclose(fig)aviobj = close(aviobj);

The code above was copied from HERE .