Matlab实现多子图同步调整视角

% 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.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.m
% @author: slandarer

% 绘制6个图
M=2;
N=3;

for m=1:M
    for n=1:N
        subplot(M,N,n+(m-1)*N)
        hold on;grid on
        scatter3(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>0
    if ischar(varargin{1})&&strcmp(varargin{1},'ucLim')
        uchangeLim=true;fig=gcf;
    elseif strcmp(get(varargin{1},'type'),'figure' )
        fig=varargin{1};
    end
else
    fig=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 isClicking
        tempAxes=fig.CurrentAxes; % 获取当前点击的axes
        tempAxes.UserData;
        for ii=1:length(ch) % 两个axes
            if ch(ii).UserData~=tempAxes.UserData
                ch(ii).View=tempAxes.View; % 让其他axes与被点击axes有相同视角
                if ~uchangeLim
                    ch(ii).XLim=tempAxes.XLim; % 有相同X轴坐标范围
                    ch(ii).YLim=tempAxes.YLim; % 有相同Y轴坐标范围
                    ch(ii).ZLim=tempAxes.ZLim; % 有相同Z轴坐标范围
                end
            end
        end
    end
end
end