magnify matlab源程序.docx
magnify matlab源程序% start of program function magnify(f1)% magnify(f1)% Figure creates a magnification box when under the mouse position when a button is pressed. Press '+'/'-' while% button pressed to increase/decrease magnification. Press '>'/'<' while button pressed to increase/decrease box size.% Hold 'Ctrl' while clicking to leave magnification on figure.% Example:% plot(1:100,randn(1,100),(1:300)/3,rand(1,300), grid on,% magnify;if (nargin = 0), f1 = gcf; end;figure(f1); set(f1, .'WindowButtonDownFcn', ButtonDownCallback, .'WindowButtonUpFcn', ButtonUpCallback, .'WindowButtonMotionFcn', ButtonMotionCallback, .'KeyPressFcn', KeyPressCallback);return;function ButtonDownCallback(src,eventdata)f1 = src;a1 = get(f1,'CurrentAxes');a2 = copyobj(a1,f1);set(f1, .'UserData',f1,a1,a2, .'Pointer','fullcrosshair', .'CurrentAxes',a2);set(a2, .'UserData',2,0.2, . %magnification, frame size'Color',get(a1,'Color'), .'Box','on');xlabel(''); ylabel(''); zlabel(''); title(''); set(get(a2,'Children'), .'LineWidth', 2);set(a1, .'Color',get(a1,'Color')*0.95);set(f1, .'CurrentAxes',a1);ButtonMotionCallback(src);return;function ButtonUpCallback(src,eventdata)H = get(src,'UserData');f1 = H(1); a1 = H(2); a2 = H(3);set(a1, .'Color',get(a2,'Color');set(f1, .'UserData', .'Pointer','arrow', .'CurrentAxes',a1);if strcmp(get(f1,'SelectionType'),'alt'),delete(a2);end;return;function ButtonMotionCallback(src,eventdata)H = get(src,'UserData');if isempty(H)f1 = H(1); a1 = H(2); a2 = H(3);a2_param = get(a2,'UserData');f_pos = get(f1,'Position');a1_pos = get(a1,'Position');f_cp, a1_cp = pointer2d(f1,a1);set(a2,'Position',(f_cp./f_pos(3:4) 0 0+a2_param(2)*a1_pos(3)*-1 -1 2 2);a2_pos = get(a2,'Position');set(a2,'XLim',a1_cp(1)+(1/a2_param(1)*(a2_pos(3)/a1_pos(3)*diff(get(a1,'XLim')*-0.5 0.5);set(a2,'YLim',a1_cp(2)+(1/a2_param(1)*(a2_pos(4)/a1_pos(4)*diff(get(a1,'YLim')*-0.5 0.5);end;return;function KeyPressCallback(src,eventdata)H = get(gcf,'UserData');if isempty(H)f1 = H(1); a1 = H(2); a2 = H(3);a2_param = get(a2,'UserData');if (strcmp(get(f1,'CurrentCharacter'),'+') | strcmp(get(f1,'CurrentCharacter'),'=')a2_param(1) = a2_param(1)*1.2;elseif (strcmp(get(f1,'CurrentCharacter'),'-') | strcmp(get(f1,'CurrentCharacter'),'_')a2_param(1) = a2_param(1)/1.2;elseif (strcmp(get(f1,'CurrentCharacter'),'<') | strcmp(get(f1,'CurrentCharacter'),',')a2_param(2) = a2_param(2)/1.2;elseif (strcmp(get(f1,'CurrentCharacter'),'>') | strcmp(get(f1,'CurrentCharacter'),'.')a2_param(2) = a2_param(2)*1.2;end;set(a2,'UserData',a2_param);ButtonMotionCallback(src);end;return;% Included for completeness (usually in own file)function fig_pointer_pos, axes_pointer_val = pointer2d(fig_hndl,axes_hndl)%pointer2d(fig_hndl,axes_hndl)%Returns the coordinates of the pointer (in pixels)%in the desired figure (fig_hndl) and the coordinates% in the desired axis (axes coordinates)% Example:% figure(1),% hold on,% for i = 1:1000,% figp,axp=pointer2d;% plot(axp(1),axp(2),'.','EraseMode','none');% drawnow;% end;% hold off% Rick Hindman - 4/18/01if (nargin = 0), fig_hndl = gcf; axes_hndl = gca; end;if (nargin = 1), axes_hndl = get(fig_hndl,'CurrentAxes'); end;set(fig_hndl,'Units','pixels');pointer_pos = get(0,'PointerLocation');%pixels 0,0 lower leftfig_pos = get(fig_hndl,'Position');%pixels l,b,w,hfig_pointer_pos = pointer_pos - fig_pos(1,2);set(fig_hndl,'CurrentPoint',fig_pointer_pos);if (isempty(axes_hndl),axes_pointer_val = ;elseif (nargout = 2),axes_pointer_line = get(axes_hndl,'CurrentPoint');axes_pointer_val = sum(axes_pointer_line)/2;end;% end of program
