close all
clear
clc
x=[0,1,1,0,0,0,1,1,0,1,1,0,0,0,1,1];
y=[0,0,1,1,1,0,0,1,1,1,1,1,0,0,0,0];
z=[0,0,0,0,1,1,1,1,1,1,0,0,0,1,1,0];
V=[x;y;z];
Ry=[cos(pi/6),0,sin(pi/6);0,1,0;-sin(pi/6),0,cos(pi/6)];
Rz=[cos(pi/4),-sin(pi/4),0;sin(pi/4),cos(pi/4),0;0,0,1];
W=Ry*V;
x1=W(1,1:16);
y1=W(2,1:16);
z1=W(3,1:16);
U=Rz*W
x2=U(1,1:16);
y2=U(2,1:16);
z2=U(3,1:16);
figure(1)
plot3(x,y,z)
axis([-1,2,-1,2,-1,2]) %设置坐标轴显示范围
M(1)=getframe; %捕捉图形
figure(2)
plot3(x1,y1,z1)
axis([-1,2,-1,2,-1,2]) %设置坐标轴显示范围
M(2)=getframe; %捕捉图形
figure(3)
plot3(x2,y2,z2)
axis([-1,2,-1,2,-1,2]) %设置坐标轴显示范围
M(3)=getframe; %捕捉图形
figure
movie(M,3,3) %动画循环播放3遍，播放速度3帧/秒
msgbox('MATLAB编程答疑，请加QQ: 1530497909','MATLAB答疑','help')
web http://url.cn/NSFcAs -browser
