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

House

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


1 Y+ @# C1 }# u, e  e$ d4 g%% 绘制两个三维曲面
* C/ [6 c3 E3 A/ [% Wclear;clc;close all
* ~9 A' {2 D% ~2 ]2 x' h; Lx=-2:0.2:2;              % 定义 x 的范围
1 l( |' n) `7 i1 {8 yy=-2:0.2:2;              % 定义 y 的范围
/ E1 j5 r+ z4 p5 I. T[xx,yy]=meshgrid(x,y);   % xy 平面的网格化处理
* m2 H1 V9 _# \, d9 J1 y
7 A* W" z+ ~3 mzz1=xx.^2+yy.^2+1;       % 计算第一个曲面的 z 坐标
" {+ Z  Q4 W" f' t) wzz2=-xx.^2-yy.^2-1;      % 计算第二个曲面的 z 坐标
- s8 U1 [# O* V0 p% x0 J
figure
set(gcf,'units','normalized','position',[0.2 0.2 0.6 0.6]);  % 设置 figure 窗口的位置和尺寸
0 N( ^( h2 @8 h. E6 G, h4 ~, B; A- @h1=suRF(xx,yy,zz1);
hold on
& P; s2 G, o: C. w  N& L" gh2=surf(xx,yy,zz2);
, @5 u* z" w. J% o8 _
%% 绘制一个三维螺旋线
5 E7 v8 m- j. o  t8 [0 @. \0 a' Yt=-12:0.05:12;
xk=6*cos(3*t);
  p* t8 P" S' u* e( y1 G4 Nyk=6*sin(3*t);
8 P& Z4 w0 ~8 s! tzk=0.5*t;
h3=plot3(xk,yk,zk,'--xr');
& G) Q& q& i# B, Z
%% 设置坐标系的属性
( G2 u# @' ]* h0 j# O" O/ Waxis equal
8 }. d4 h; d/ _8 I! Aset(gca,'XLim',[-10 10])
set(gca,'YLim',[-10 10])
% Q: Q9 @1 p- E9 l' wset(gca,'ZLim',[-10 10])
" t9 ^1 h9 k- s" `xlabel('x 轴')
  t1 D: l" R8 J7 k! wylabel('y 轴')
zlabel('z 轴')
  n$ a% w+ `. ]2 z& f4 B9 x
$ q& w) {) f6 ~. m%% 将三维曲面和三维螺旋线, 添加到同一个几何变换组里
- r. o1 G+ A6 J5 Q. n$ P$ m( dt=hgtransform;         % 创建一个几何变换组 t
1 D4 b6 t; _! G% Z; m3 wset(h1,'Parent',t)     % 将曲面句柄 h1 的父对象, 设置为 t (将 h1 添加到几何变换组 t 里)
* n9 Z; }# J  aset(h2,'Parent',t)     % 将曲面句柄 h2 的父对象, 设置为 t (将 h2 添加到几何变换组 t 里)
set(h3,'Parent',t)     % 将三维螺旋线句柄 h3 的父对象, 设置为 t (将 h3 添加到几何变换组 t 里)

1 i- V3 q% p! A  f%% 对整个几何变换组, 实施绕 x 轴旋转的操作
for rx_angle=0:0.1:2.7*pi
    Rx=makehgtform('xrotate',rx_angle);    % 求出绕 x 轴旋转的变换矩阵
    set(t,'Matrix',Rx)                     % 使用变换矩阵, 对几何变换组 t 实施整体绕 x 轴的旋转操作
' U/ {) f& t0 L$ `% X    pause(0.05)
end

helendcany

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

其旧如之何

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