Enlarge the output picture and coordinate axis together like Matlab

Question

Is there anyway to enlarge the output picture and coordinate axis together like Matlab? Like MatrixPlot or other Plot function.

In matlab, there is a zoom button in the picture display window. You can zoom in or out by clicking the Zoom button. The coordinates of the picture will also change accordingly. But I don't know how to do it in mathematica. Or does Mathematica can do this?

like use coordinate matrix x,y to plot a image mesh(x,y,abs(G)).

The button in matlab:

---

Update:

Matlab can do like this: zoom in/out

We can see in Matlab, the coordinates correspond to the values of the elements of the matrix when the matrix is drawn. But in Mathematica, it's not so easy to graph matrices in terms of coordinates and zoom in.

Matlab code for A simple example:

N=500; 
L=100;
I=zeros(N,N); 
[x,y]=meshgrid(linspace(-200,200,N)); 
[x0,y0]=meshgrid(linspace(-0.5,0.5,N));
lamda_1=632;
lamda=lamda_1/1e6;
k=2*pi/lamda; 
z=1000000;
h=exp(1j*k*z)*exp((1j*k*(x.^2+y.^2))/(2*z))/(1j*lamda*z);
B=fftshift(fft2(I.*exp((1j.*k.*(x0.^2+y0.^2)))));% 
G=h.*B;
figure 
mesh(x,y,abs(G)); 
colorbar
title('Intensity') 

Answer 1

Mathematica supports zoom. After you plot, put the mouse on the plot, then click on CTRL and as you slide the mouse up and down, it zooms in and out. Need to hold the CTRL key at same time.

See RotateZoomAndPanGraphics

It is also possible to adjust the plot range using Manipulate if you do not want to do the above option.

Using Manipulate, here is a prototype

Manipulate[
Plot3D[Sin[x+y^2],{x,-zoom,zoom},{y,-zoom,zoom},
PlotRange -> {Automatic, Automatic, {-zoom, zoom}},
ImagePadding->30,PerformanceGoal->"Quality"],

{{zoom,1,"zoom"},.1,3,.1,Appearance->"Labeled"},

TrackedSymbols:>{zoom}
]

Adjust as needed. In the above, the zoom slider changes all plot ranges on all the axes by same amount.

edit Reply to comment:

Well, I really wish Mathematica could add more image viewing capabilities

You could use InteractiveGraphics for more options.

But it seems to support 2D graphics only and not 3D. But if what you want is 2D support, the above have many features.

Answer 2

As mentioned in the comment and answer, Manipulate is the standard tool for the task in Mathematica. If you don't bother to code with Manipulate again and again, just define a function:

zoom[plot_] := 
 Manipulate[With[{range = PlotRange@Cases[plot, _Graphics | _Graphics3D, {0, ∞}][[1]]}, 
   Show[plot, PlotRange -> scale range]], {{scale, 1}, 0.1, 2}, ControlPlacement -> Top]

Usuage:

zoom@Plot[{Sin[x], Sin[2 x], Sin[3 x]}, {x, 0, 2 Pi}, PlotLegends -> Automatic]

zoom@RevolutionPlot3D[BesselJ[0, r], {r, 0, 20}, PlotRange -> All, 
  BoxRatios -> {1, 1, 1}, ColorFunction -> "BlueGreenYellow", Mesh -> None, 
  PlotPoints -> 100]

zoom@MatrixPlot[
   Re@Fourier[Table[
      UnitStep[i, 4 - i] UnitStep[j, 7 - j], {i, -50, 50}, {j, -50, 
       50}]]] /. (FrameTicks -> _) -> FrameTicks -> Automatic