MATLAB源程序代码分享：MATLAB实现正方体绕xyz轴的旋转

House

MATLAB源程序代码分享：MATLAB实现正方体绕xyz轴的旋转
, b$ z1 |8 l$ F' U
, J; J+ U/ W5 L3 s1 O0 a%% 定义正方体的顶点坐标, 并将正方体绘制出来
clear;clc;close all
x=[0,1,1,0,0,0,1,1,0,1,1,0,0,0,1,1];    % 正方体顶点的 x 坐标
y=[0,0,1,1,1,0,0,1,1,1,1,1,0,0,0,0];    % 正方体顶点的 y 坐标
z=[0,0,0,0,1,1,1,1,1,1,0,0,0,1,1,0];    % 正方体顶点的 z 坐标
5 L/ `* l8 O  O4 j$ r
, }4 [0 H9 j+ J: c7 I; \$ b) oV=[x;y;z];    % 将正方体顶点的坐标, 保存在一个大的矩阵里, 方便后续计算
  J$ q- i/ b1 l4 Z7 s0 W
2 F- @7 u( F7 o, F! f5 \figure
h=plot3(V(1,: ),V(2,: ),V(3,: ));    % 绘制出正方体
axis([-2,2,-2,2,-2,2])            % 设置坐标轴的显示范围
xlabel('x')
ylabel('y')
zlabel('z')
grid on
pause(0.02)

%% 将正方体绕 y 轴旋转 60° (pi/3)
for alpha=linspace(0,pi/3,50)
" o. u: z  L; W9 V7 T    Ry=[cos(alpha),0,sin(alpha);0,1,0;-sin(alpha),0,cos(alpha)];   % 绕 y 轴旋转的变换矩阵
    W=Ry*V;                                                        % 执行绕 y 轴旋转的坐标变换, 得到新的坐标值
    set(h,'XData',W(1,: ),'YData',W(2,: ),'ZData',W(3,: ))            % 绘制绕 y 轴旋转之后的正方体
    pause(0.01)
end
& Z$ d8 q' z" a, M6 \! d
%% 将正方体绕 z 轴旋转 180° (pi)
pause(0.2)
) y# v) {6 U! P. afor beta=linspace(0,pi,80)
    Rz=[cos(beta),-sin(beta),0;sin(beta),cos(beta),0;0,0,1];       % 绕 z 轴旋转的变换矩阵
% x6 G5 _( u# x+ I9 z    U=Rz*W;                                                        % 执行绕 z 轴旋转的坐标变换, 得到新的坐标值
    set(h,'XData',U(1,: ),'YData',U(2,: ),'ZData',U(3,: ))            % 绘制绕 z 轴旋转之后的正方体
    pause(0.02)
end
9 T/ w$ z* e2 c: D
%% 将正方体绕 x 轴旋转 45° (pi/4)
' E" D5 b& Z6 W9 g( h8 Dpause(0.2)
( }2 w6 q2 K9 k9 W& C- q: nfor gamma=linspace(0,pi/4,30)
    Rx=[1,0,0;0,cos(gamma),-sin(gamma);0,sin(gamma),cos(gamma)];   % 绕 x 轴旋转的变换矩阵
' \1 |8 Z7 ?1 Z& a4 O    S=Rx*U;                                                        % 执行绕 x 轴旋转的坐标变换, 得到新的坐标值
    set(h,'XData',S(1,: ),'YData',S(2,: ),'ZData',S(3,: ))            % 绘制绕 x 轴旋转之后的正方体
2 [: _) z1 p0 r- q    pause(0.02)
0 f$ \' o" \6 v! l/ d$ j7 ]1 nend

helendcany

MATLAB实现正方体绕xyz轴的旋转。

Demyar

MATLAB实现正方体绕xyz轴的旋转。