| 查看: 3710 | 回复: 13 | ||||
| 【奖励】 本帖被评价13次，作者curton增加金币 10 个 | ||||
[资源]
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、varargout  6163bdeb486111e0b58ae&690.jpg |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : 代码.txt
2013-12-19 11:41:45, 6.23 K
» 收录本帖的淘帖专辑推荐
 国自科基金标书 | 9s9s |
» 猜你喜欢
今天务委会开完了，明天出结果吗
已经有7人回复
-
今日不放榜？网传国自然预计 8 月 27 日可查结果
已经有22人回复
-
某些机构，以效率低为荣，以效率低作为存在感
已经有9人回复
-
在坚冰还盖着北海的时候，我看到了怒放的梅花。
已经有6人回复
-
放榜前的不淡定
已经有18人回复
-
什么时候开奖？
已经有13人回复
-
如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》
已经有8人回复
-
没有任何消息-是不是就凉了
已经有10人回复
-
人气不行了
已经有11人回复
-
2026国自然函评费到账
已经有22人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- MATLAB画图显示颜色与打印结果颜色显示有一部分不一致
已经有6人回复
- matlab的m文件关联问题
已经有17人回复
- 关于XRD曲线的问题，画出来为什么是斜的呢？
已经有3人回复
- 如何将Origin图中的一部分局部放大，并和原图放在一起组成一张图
已经有4人回复
- MATLAB画出图的dpi和像素的问题
已经有11人回复
- matlab 气泡边缘提取 求助高手！！
已经有5人回复
- 关于Matlab作图的问题
已经有14人回复
- 后处理中display时如何指定坐标面？
已经有5人回复
- MATLAB中产生高斯白噪声，涉及到awgn和wgn函数
已经有3人回复
- matlab中bicubic如何进行图像抽样
已经有3人回复
- matlab中如何将双坐标系图中的另外一个坐标系设置为当前坐标系呢？
已经有10人回复
- 【分享】 满晓宇《战胜MATLAB必做练习50题》【已搜索无重复】
已经有258人回复
- 请问XRD的局部放大的图是怎么做出来的？
已经有4人回复
- matlab画的图怎么清晰的在word里显示
已经有20人回复
- 请教前辈：投稿图片上传错误
已经有9人回复
- 【求助】MATLAB 有限差分法（FDM）求解偏微分方程
已经有22人回复
- 如何在origin 7.5中进行局部放大
已经有6人回复
- 用matlab画的图保存什么格式插入word里比较清楚？
已经有45人回复
- Matlab画的图经过转换成PDF后不清楚，怎么办？
已经有13人回复
- 如何用Origin8绘制局部放大图？
已经有7人回复
- 论文画图的问题
已经有20人回复
11楼2016-08-19 15:52:28
14楼2017-05-05 11:40:56
简单回复
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
回复
五星好评 顶一下，感谢分享！
2016-02-12 23:11
回复
五星好评 顶一下，感谢分享！
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
回复
五星好评 顶一下，感谢分享！
20