MATLAB | 一行代码实现多子图同步调整视角

本文主要是介绍MATLAB | 一行代码实现多子图同步调整视角，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

要解决的问题：我希望在旋转其中一个AXES的视角的同时，其他AXES跟着以相同视角旋转。

我曾经在出过一篇如何同步视角的文章，但是只是讲清楚了原理，并写出了编写方法，但每次要写都要编写代码属实麻烦，因此，我将主要部分封装成了函数，用的时候只需要在代码结尾加上一行引用一下函数就行！！
在这里插入图片描述

以下先讲解函数咋用，在最后给出函数完整代码：

DEMO1 同时改变坐标范围和视角

直接在代码最后面引用一下工具函数，加入一行：

SCR()

在调整某一坐标区域即可实现同时调整坐标范围和视角，实例代码如下：

% demo1.m
% @author: slandarer[X,Y]=meshgrid(1:0.5:10,1:20);
Z=sin(X)+cos(Y);% 坐标区域1绘图
subplot(1,2,1)
surf(X,Y,Z)
colormap(gca,summer)% 坐标区域2绘图
subplot(1,2,2)
surf(X,Y,Z)
colormap(gca,winter)% 应用坐标区域同步旋转函数
SCR()

在这里插入图片描述

DEMO2 只同时改变视角

因为有时候绘图的坐标范围着实不一样，想要只改变视角但是不改变坐标范围可以在最后加入：

SCR(‘ucLim’)

% demo2.m
% @author: slandarer[X,Y]=meshgrid(1:0.5:10,1:20);
Z=sin(X)+cos(Y);% 坐标区域1绘图
subplot(1,2,1)
surf(X,Y,Z)
colormap(gca,summer)% 坐标区域2绘图
subplot(1,2,2)
surf(peaks)
colormap(gca,winter)% 应用坐标区域同步旋转函数
% 只改变视角不改变轴范围
SCR('ucLim')

在这里插入图片描述

DEMO3 更多子图

不管多少子图后面那一行照常加就完事，是不是嘎嘎好用：

% demo3.m
% @author: slandarer% 绘制6个图
M=2;
N=3;for m=1:Mfor n=1:Nsubplot(M,N,n+(m-1)*N)hold on;grid onscatter3(rand([5,1]),rand([5,1]),rand([5,1]),'filled')end
end% 应用坐标区域同步旋转函数
% 只改变视角不改变轴范围
SCR('ucLim')

工具函数完整代码

function SCR(varargin)
%
% @author: slandarer
% @公众号: slandarer随笔
% @知乎  : hikari
% @CSDN  : slandarer
% 
% 期待您的关注!!!help SCR % 若不希望输出[作者信息],请删除这行uchangeLim=false;
if nargin>0if ischar(varargin{1})&&strcmp(varargin{1},'ucLim')uchangeLim=true;fig=gcf;elseif strcmp(get(varargin{1},'type'),'figure' )fig=varargin{1};end
elsefig=gcf;
end
if nargin>1&&ischar(varargin{1})&&strcmp(varargin{1},'ucLim')uchangeLim=true;
end% 为axes编号
ch=fig.Children;
for i=1:length(ch)ch(i).UserData=i;
end
fig.CurrentAxes=ch(end);isClicking=false;
set(fig,'WindowButtonDownFcn',@bt_down);  % 设置鼠标按下回调
set(fig,'WindowButtonUpFcn',@bt_up);      % 设置鼠标松开回调
set(fig,'WindowButtonMotionFcn',@bt_move);% 设置鼠标移动回调function bt_down(~,~),isClicking=true;end % 鼠标按下回调
function bt_up(~,~),isClicking=false;end  % 鼠标松开回调
function bt_move(~,~)if isClickingtempAxes=fig.CurrentAxes; % 获取当前点击的axestempAxes.UserData;for ii=1:length(ch) % 两个axesif ch(ii).UserData~=tempAxes.UserDatach(ii).View=tempAxes.View; % 让其他axes与被点击axes有相同视角if ~uchangeLimch(ii).XLim=tempAxes.XLim; % 有相同X轴坐标范围ch(ii).YLim=tempAxes.YLim; % 有相同Y轴坐标范围ch(ii).ZLim=tempAxes.ZLim; % 有相同Z轴坐标范围endendendend
end
end