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

House

MATLAB源程序代码分享：MATLAB实现组对象的整体几何变换
7 ]$ L* X8 O3 h: n' s8 a5 z

" w  [: v$ R& `%% 绘制两个三维曲面
8 d; ?6 `6 r- \0 N: w  R. n: jclear;clc;close all
6 H& z3 P$ M, k3 lx=-2:0.2:2;              % 定义 x 的范围
y=-2:0.2:2;              % 定义 y 的范围
[xx,yy]=meshgrid(x,y);   % xy 平面的网格化处理
, X" F5 o! h  v5 F+ n8 `& b
zz1=xx.^2+yy.^2+1;       % 计算第一个曲面的 z 坐标
zz2=-xx.^2-yy.^2-1;      % 计算第二个曲面的 z 坐标

& U9 P: Z( U6 Lfigure
set(gcf,'units','normalized','position',[0.2 0.2 0.6 0.6]);  % 设置 figure 窗口的位置和尺寸
h1=suRF(xx,yy,zz1);
hold on
: X+ h( E0 D, `  N7 Ah2=surf(xx,yy,zz2);
0 g/ y1 Y0 |5 n. O% Y
5 L3 M  |! @1 p! h%% 绘制一个三维螺旋线
2 @8 R5 ~( o" T1 vt=-12:0.05:12;
xk=6*cos(3*t);
* K8 g1 F4 G% n3 t1 q  zyk=6*sin(3*t);
zk=0.5*t;
h3=plot3(xk,yk,zk,'--xr');

%% 设置坐标系的属性
9 x3 q) p, ]% ?4 M/ \; X/ E  z% {  {axis equal
+ k( _4 O4 p4 L' t+ B# ]* W* L3 ~set(gca,'XLim',[-10 10])
: }! F$ P! P/ `% x! Oset(gca,'YLim',[-10 10])
set(gca,'ZLim',[-10 10])
xlabel('x 轴')
ylabel('y 轴')
zlabel('z 轴')
  [" Q* |6 ~& }: i! l( N7 Y8 s
%% 将三维曲面和三维螺旋线, 添加到同一个几何变换组里
' n$ {: e) o! K( S% bt=hgtransform;         % 创建一个几何变换组 t
8 d7 \( W3 I3 L$ Y8 H# ]set(h1,'Parent',t)     % 将曲面句柄 h1 的父对象, 设置为 t (将 h1 添加到几何变换组 t 里)
  q5 I+ _( \% l6 H2 Uset(h2,'Parent',t)     % 将曲面句柄 h2 的父对象, 设置为 t (将 h2 添加到几何变换组 t 里)
- D: k+ J5 T. D+ }: Qset(h3,'Parent',t)     % 将三维螺旋线句柄 h3 的父对象, 设置为 t (将 h3 添加到几何变换组 t 里)

, b; ~0 L6 n9 j. d5 r* K4 v%% 对整个几何变换组, 实施绕 x 轴旋转的操作
for rx_angle=0:0.1:2.7*pi
  y6 i6 |/ h# g, ?& z5 i% @    Rx=makehgtform('xrotate',rx_angle);    % 求出绕 x 轴旋转的变换矩阵
. G/ Y, y' |1 U. R1 g& ]7 l    set(t,'Matrix',Rx)                     % 使用变换矩阵, 对几何变换组 t 实施整体绕 x 轴的旋转操作
  m- g, g! T( n$ ]    pause(0.05)
end
  l$ b4 |& g6 ?% i

其旧如之何

MATLAB实现组对象的整体几何变换。
- A2 b9 r; a( k( W0 y/ I2 X6 G2 G

helendcany

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