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

House

MATLAB源程序代码分享：MATLAB实现组对象的整体几何变换
* R% f$ S1 n! W- j- ^

%% 绘制两个三维曲面
clear;clc;close all
- V3 ?, ~! A- N. d( m. {x=-2:0.2:2;              % 定义 x 的范围
y=-2:0.2:2;              % 定义 y 的范围
! n/ K1 C7 Z# X. Q, y/ }1 E[xx,yy]=meshgrid(x,y);   % xy 平面的网格化处理
/ |0 @7 S. u  y! N2 L
" s) t' _- p4 c7 e7 Z  W  bzz1=xx.^2+yy.^2+1;       % 计算第一个曲面的 z 坐标
8 B+ Z& e& `1 s1 S8 l2 u" Qzz2=-xx.^2-yy.^2-1;      % 计算第二个曲面的 z 坐标
3 p) S, i) A# |# }; M1 y2 c
figure
set(gcf,'units','normalized','position',[0.2 0.2 0.6 0.6]);  % 设置 figure 窗口的位置和尺寸
, g1 A5 u. S% Y. }; o9 G! Kh1=suRF(xx,yy,zz1);
# D0 C/ `# m* a( [/ i0 U* l$ Mhold on
h2=surf(xx,yy,zz2);
9 }" C0 l3 y/ o0 G( S6 K
* G  u- k$ R( H: i/ z# z%% 绘制一个三维螺旋线
t=-12:0.05:12;
xk=6*cos(3*t);
. O3 Q2 ~4 C. f* b+ L8 Syk=6*sin(3*t);
8 q  p+ H5 r2 z6 ^2 a8 w; `) y. vzk=0.5*t;
3 A3 g9 a2 R0 s& |# L4 g" lh3=plot3(xk,yk,zk,'--xr');

%% 设置坐标系的属性
1 {% k; k, O- H3 H4 h. vaxis equal
2 z2 r4 n/ U' y* x% }* Fset(gca,'XLim',[-10 10])
$ o7 h+ A# i7 J/ _set(gca,'YLim',[-10 10])
set(gca,'ZLim',[-10 10])
xlabel('x 轴')
6 |" v7 v" `, `. J. iylabel('y 轴')
! C. P/ ?6 P: ]  i% L+ ]5 a3 Yzlabel('z 轴')
% |$ \" M2 P* J. j* A8 {
/ G1 T% J8 q; x) t- Y%% 将三维曲面和三维螺旋线, 添加到同一个几何变换组里
8 ?+ \6 |7 r$ R9 I' E& ~t=hgtransform;         % 创建一个几何变换组 t
set(h1,'Parent',t)     % 将曲面句柄 h1 的父对象, 设置为 t (将 h1 添加到几何变换组 t 里)
set(h2,'Parent',t)     % 将曲面句柄 h2 的父对象, 设置为 t (将 h2 添加到几何变换组 t 里)
% s2 r3 |: \% G( Q) w( m1 Hset(h3,'Parent',t)     % 将三维螺旋线句柄 h3 的父对象, 设置为 t (将 h3 添加到几何变换组 t 里)

: I  H$ t$ C' [%% 对整个几何变换组, 实施绕 x 轴旋转的操作
for rx_angle=0:0.1:2.7*pi
    Rx=makehgtform('xrotate',rx_angle);    % 求出绕 x 轴旋转的变换矩阵
    set(t,'Matrix',Rx)                     % 使用变换矩阵, 对几何变换组 t 实施整体绕 x 轴的旋转操作
2 }- J* N& G  A0 D9 k% N2 W2 S    pause(0.05)
end

helendcany

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

其旧如之何

MATLAB实现组对象的整体几何变换。
$ w: X* I, o% ?4 O