MATLAB源程序代码分享：MATLAB实现组对象的整体几何变换

House

MATLAB源程序代码分享：MATLAB实现组对象的整体几何变换
0 M$ p( h3 A5 }4 D2 A
; f5 Y/ A6 J/ G! M% w; S
! }3 X' r2 O5 V9 A* r' C%% 绘制两个三维曲面
clear;clc;close all
% c! p' f. J; E- L% A4 @, u* x' mx=-2:0.2:2;              % 定义 x 的范围
$ Z) `; \3 g* U+ h& f/ Cy=-2:0.2:2;              % 定义 y 的范围
[xx,yy]=meshgrid(x,y);   % xy 平面的网格化处理
/ R( K5 C: Y* v! j& H
  d" T# k4 Q) d2 `' @! Bzz1=xx.^2+yy.^2+1;       % 计算第一个曲面的 z 坐标
2 [6 f% k- ?% t7 Jzz2=-xx.^2-yy.^2-1;      % 计算第二个曲面的 z 坐标

figure
0 G3 A/ N8 T1 C+ Rset(gcf,'units','normalized','position',[0.2 0.2 0.6 0.6]);  % 设置 figure 窗口的位置和尺寸
- }3 W, z. p' |6 Bh1=suRF(xx,yy,zz1);
9 o7 u1 n% m- r) n! whold on
h2=surf(xx,yy,zz2);
# @4 j/ j$ c) B, C* m+ s* ?
: i" q5 P; @3 ]1 E, k* [% m/ ]%% 绘制一个三维螺旋线
) ^6 B4 ~3 G! Z2 St=-12:0.05:12;
xk=6*cos(3*t);
+ q3 F" k5 o4 |6 K2 r1 {3 P- b) Ayk=6*sin(3*t);
zk=0.5*t;
h3=plot3(xk,yk,zk,'--xr');

  m" M- i. ?; q0 V8 Q0 e%% 设置坐标系的属性
' L) r* a- R% g/ q" h3 ^0 E9 @axis equal
% P  ^3 R- T" P! F; P! G! iset(gca,'XLim',[-10 10])
7 `% C8 Y: Z8 H  z) D. J& D! yset(gca,'YLim',[-10 10])
# V5 C0 g8 c1 b' Rset(gca,'ZLim',[-10 10])
" o; y6 F4 C3 c- Y; U. Y6 gxlabel('x 轴')
' G8 `* V$ `0 H6 {, X1 Dylabel('y 轴')
zlabel('z 轴')
- N' B( b. `, U/ v6 ?' s: f
: r  u- e( r, w& \%% 将三维曲面和三维螺旋线, 添加到同一个几何变换组里
t=hgtransform;         % 创建一个几何变换组 t
set(h1,'Parent',t)     % 将曲面句柄 h1 的父对象, 设置为 t (将 h1 添加到几何变换组 t 里)
- V- e" f* s7 L# @/ J( sset(h2,'Parent',t)     % 将曲面句柄 h2 的父对象, 设置为 t (将 h2 添加到几何变换组 t 里)
set(h3,'Parent',t)     % 将三维螺旋线句柄 h3 的父对象, 设置为 t (将 h3 添加到几何变换组 t 里)
- J9 P& L  R4 E: g# N, j: t7 q0 L
%% 对整个几何变换组, 实施绕 x 轴旋转的操作
for rx_angle=0:0.1:2.7*pi
/ n1 i/ Y& I1 X9 c7 P4 q    Rx=makehgtform('xrotate',rx_angle);    % 求出绕 x 轴旋转的变换矩阵
    set(t,'Matrix',Rx)                     % 使用变换矩阵, 对几何变换组 t 实施整体绕 x 轴的旋转操作
    pause(0.05)
6 I+ W* A9 l. K  d1 `1 {- Lend
* ?  N* q4 D5 L2 ?1 T; J8 w( ]2 ~

helendcany

MATLAB实现组对象的整体几何变换。

其旧如之何

MATLAB实现组对象的整体几何变换。