应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 信息科学 » 信息综合 » matlab局部放大
141/1返回列表
查看: 3489  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
【奖励】 本帖被评价13次，作者curton增加金币 10 个

curton

主管区长 (文坛精英)

[资源] matlab局部放大

function [Hza,Hzr]=mmzoom(arg)

% 用法：

% [Hza,Hzr] = MMZOOM 返回创建的放大坐标系和方法框的句柄

% MMZOOM DRAG 使能放大框的拖放功能

% MMZOOM RESET 取消放大框的拖放功能

% MMZOOM OFF 删除放大框

% 常用用法：画好图片后输入mmzoom，圈图片放大，可以拖动放大框到理想位置，点击figure的非主坐标

% 系区域确定;还想拖动，输入mmzoom drag；删除放大框，输入mmzoom off删除



if nargin==0%无输入参数，则为无参数

    arg = [];

end

if isempty(arg) %无参数表示放大

    Hzoom = findobj(0,'Tag','MMZOOM'); % 找之前的放大窗口，有的话删掉

    if ~isempty(Hzoom)  

        delete(Hzoom)

    end

   

    [xlim,ylim,prect] = getbox;% 获得一个矩形框

   

    if ~isempty(prect) % 区域不能为空

        Haxes = gca;

        Hzr = rectangle('Position',prect,...%画矩形框

            'Linestyle',':',...              

            'Tag','MMZOOM');

      

        Hfig = gcf;

        Hzoom = copyobj(Haxes,Hfig); %复制一个坐标系到当前窗口

      

        OldUnits = get(Haxes,'Units');  %得到坐标系的单位

        set(Haxes,'Units','normalized') %设置坐标系的单位

        Pvect = get(Haxes,'Position');

        set(Haxes,'Units',OldUnits)

      

        alpha = 1/3;   %放大窗口缩放比例

        beta = 98/100; %放大窗口偏移

      

        Zwidth = alpha*Pvect(3);                 

        Zheight = alpha*Pvect(4);               

        Zleft = Pvect(1)+beta*Pvect(3)-Zwidth;   

        Zbottom = Pvect(2)+beta*Pvect(4)-Zheight;

      

        set(Hzoom,'units','Normalized',...            % make units normalized

            'Position',[Zleft Zbottom Zwidth Zheight],...% axes position

            'Xlim',xlim,'Ylim',ylim,...                % axis data limits

            'Box','on',...                             % axis box on

            'Xgrid','off','Ygrid','off',...            % grid lines off

            'FontUnits','points',...

            'FontSize',8,...                           % shrink font size

            'ButtonDownFcn','selectmoveresize',...      % 设置放大坐标系可拖动和缩放

            'Tag','MMZOOM',...                         % tag zoomed axes

            'UserData',Haxes)                          % store original axes

      

        [Htx,Hty,Htt] = getn(Hzoom,'Xlabel','Ylabel','Title');%得到多个属性的句柄

        set([Htx,Hty,Htt],'String','')%设置相应的句柄string属性为空

      

        set(Haxes,'DeleteFcn',...           % 设置原坐标系的删除函数

            'delete(findobj(0,''Type'',''axes'',''Tag'',''MMZOOM''))')

      

        Hchild = findobj(Hfig,'type','axes');

        Hchild(Hchild==Hzoom) = [];         

      

        set(Hfig,'Children',[Hzoom;Hchild],...%将放大的坐标系放在栈顶

            'CurrentAxes',Haxes,...    %使原坐标系为当前坐标系，如果再画图将在当前坐标系绘图

            'ButtonDownFcn','mmzoom reset')    %点击figure空白区域响应此函数

      

        if nargout>=1

            Hza = Hzoom;

        end

    end

   

elseif strncmpi(arg,'d',1) %使能拖动放大框

   

    Hzoom = findobj(0,'Type','axes','Tag','MMZOOM');

    if ~isempty(Hzoom)

        set(Hzoom,'ButtonDownFcn','selectmoveresize')%设置放大框可拖动

    end

   

elseif strncmpi(arg,'r',1) %使放大框不能再被拖动

   

    Hzoom = findobj(0,'Type','axes','Tag','MMZOOM');

    if ~isempty(Hzoom)

        [Hfig,Haxes] = getn(Hzoom,'Parent','UserData');

        set(Hzoom,'ButtonDownFcn','','Selected','off')

        set(Hfig,'CurrentAxes',Haxes)               

    end

   

elseif strncmpi(arg,'o',1)  %删除放大框

   

    Hzoom = findobj(0,'Tag','MMZOOM');

    if ~isempty(Hzoom)

        delete(Hzoom)

    end

else

    error('Unknown Input Argument.')

end

%%%%%%%%%%%%%%%%

function [xbox,ybox,prect]=getbox



if waitforbuttonpress %等待鼠标按下,按下鼠标返回False，按下按键返回True

    return

end



Hf = gcf;      % 得到鼠标点击的窗口

Ha = gca(Hf);  % 得到鼠标点击的坐标系



AxesPt = get(Ha,'CurrentPoint'); % 得到第一个鼠标点击数据点在坐标系中的位置

FigPt = get(Hf,'CurrentPoint');  % 坐标轴的CurrentPoint值为一个2*3的矩阵，第一行为离观察者最

%近的点的三维坐标，第2行为离观察者最远的点的三维坐标。默认的视角View = 90度的情况下，这两行的

%x和y坐标是相同的。一般情况下，只需要取pos第1行的前两个元素，第3个元素为z轴坐标，一般不用。



rbbox([FigPt 0 0],FigPt) % 用鼠标圈出矩形框，鼠标松开时返回



AxesPt = [AxesPt;get(Ha,'CurrentPoint')];%组合起始点和终止点



[Xlim,Ylim] = getn(Ha,'Xlim','Ylim');%得到一个对象的多个属性的句柄



xbox = [min(AxesPt(:,1)) max(AxesPt(:,1))]; %得到所画矩形框两角点的横坐标

xbox = [max(xbox(1),Xlim(1)) min(xbox(2),Xlim(2))]; %点不能在边界外



ybox = [min(AxesPt(:,2)) max(AxesPt(:,2))];

ybox = [max(ybox(1),Ylim(1)) min(ybox(2),Ylim(2))];



prect = [xbox(1) ybox(1) diff(xbox) diff(ybox)];



%%%%%%%%%%%%%%%%

function varargout=getn(H,varargin)%一般varargin和varargout是隐藏的，但可像这里作为传入参数用，

%注意为元胞类型

% 得到一个对象的多个属性



if max(size(H))~=1 || ~ishandle(H)

   error('Scalar Object Handle Required.')

end

varargout=get(H,varargin);



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



学到的知识：

findobj

rectangle

copyobj

'ButtonDownFcn','selectmoveresize'

'CurrentAxes'

'Children'

waitforbuttonpress

%%%%%%%%%%%%%%%%matlab示例：

w = waitforbuttonpress;
if w == 0
    disp('Button click')
else
    disp('Key press')
end
%%%%%%%%%%%%%%%%

'CurrentPoint'

rbbox

%%%%%%%%%%%%%%%%matlab示例：

k = waitforbuttonpress;
point1 = get(gca,'CurrentPoint');    % button down detected
finalRect = rbbox;                   % return figure units
point2 = get(gca,'CurrentPoint');    % button up detected
point1 = point1(1,1:2);              % extract x and y
point2 = point2(1,1:2);
p1 = min(point1,point2);             % calculate locations
offset = abs(point1-point2);         % and dimensions
x = [p1(1) p1(1)+offset(1) p1(1)+offset(1) p1(1) p1(1)];
y = [p1(2) p1(2) p1(2)+offset(2) p1(2)+offset(2) p1(2)];
hold on
axis manual
plot(x,y)                            % redraw in dataspace units
%%%%%%%%%%%%%%%%



varargin、varargoutmatlab局部放大
6163bdeb486111e0b58ae&690.jpg
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : 代码.txt
    • 2013-12-19 11:41:45, 6.23 K

» 收录本帖的淘帖专辑推荐

国自科基金标书 9s9s

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2013-12-19 11:42:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

borriello

新虫 (初入文坛)

★★★★★ 五星级,优秀推荐

非常实用，谢谢分享
回复此楼
11楼2016-08-19 15:52:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

雅客雅各布森

新虫 (初入文坛)

★★★ 三星级,支持鼓励

有一些错误，比如冒号没加。。。
赞一下 回复此楼
14楼2017-05-05 11:40:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
简单回复
Dododoo...2楼
2014-01-19 11:13   回复  
五星好评  顶一下，感谢分享！
osd18883楼
2015-02-02 04:52   回复  
三星好评  顶一下，感谢分享！
w_yx11114楼
2015-03-31 16:52   回复  
五星好评  顶一下，感谢分享！
masterzy5楼
2015-06-22 09:12   回复  
五星好评  顶一下，感谢分享！
aseaA6楼
2016-02-03 04:30   回复  
五星好评  顶一下，感谢分享！
roberthw62417楼
2016-02-12 23:11   回复  
五星好评  顶一下，感谢分享！
5242334538楼
2016-03-13 16:56   回复  
五星好评  顶一下，感谢分享！
x7c8h59楼
2016-03-24 12:37   回复  
五星好评  顶一下，感谢分享！
herolions10楼
2016-08-09 10:38   回复  
五星好评  顶一下，感谢分享！
qiuzhichang12楼
2017-01-19 16:09   回复  
五星好评  顶一下，感谢分享！
好烦shine13楼
2017-03-21 17:14   回复  
五星好评  顶一下，感谢分享！
相关版块跳转 我要订阅楼主 curton 的主题更新
141/1返回列表
☆ 无星级 ★ 一星级 ★★★ 三星级 ★★★★★ 五星级
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭