MATLAB实现正方体旋转 源程序代码.zip

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