magnify-matlab源程序

%startofprogramfunctionmagnify(f1)%magnify(f1)%Figurecreatesamagnificationboxwhenunderthemousepositionwhenabuttonispressed.Press'+'/'-'while%buttonpressedtoincrease/decreasemagnification.Press''/''whilebuttonpressedtoincrease/decreaseboxsize.%Hold'Ctrl'whileclickingtoleavemagnificationonfigure.%%Example:%plot(1:100,randn(1,100),(1:300)/3,rand(1,300)),gridon,%magnify;if(nargin==0),f1=gcf;end;figure(f1);set(f1,...'WindowButtonDownFcn',@ButtonDownCallback,...'WindowButtonUpFcn',@ButtonUpCallback,...'WindowButtonMotionFcn',@ButtonMotionCallback,...'KeyPressFcn',@KeyPressCallback);return;functionButtonDownCallback(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,framesize'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;functionButtonUpCallback(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;functionButtonMotionCallback(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))00]+a2_param(2)*a1_pos(3)*[-1-122]);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.50.5]);set(a2,'YLim',a1_cp(2)+(1/a2_param(1))*(a2_pos(4)/a1_pos(4))*diff(get(a1,'YLim'))*[-0.50.5]);end;return;functionKeyPressCallback(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;%Includedforcompleteness(usuallyinownfile)function[fig_pointer_pos,axes_pointer_val]=pointer2d(fig_hndl,axes_hndl)%%pointer2d(fig_hndl,axes_hndl)%%Returnsthecoordinatesofthepointer(inpixels)%inthedesiredfigure(fig_hndl)andthecoordinates%inthedesiredaxis(axescoordinates)%%Example:%figure(1),%holdon,%fori=1:1000,%[figp,axp]=pointer2d;%plot(axp(1),axp(2),'.','EraseMode','none');%drawnow;%end;%holdoff%RickHindman-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}lowerleftfig_pos=get(fig_hndl,'Position');%pixels{l,b,w,h}fig_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;%endofprogram