wolfram-mathematica - 将两个图放在一个操作中，同时保持图可见

Question

我想查看一些依赖于参数 n 的函数的实部和虚部。单独地(使用 n 的设置值)，我得到了非常好的图表，但是当把它们放在 Manipulate 中时，它们变得非常小。

这是我正在使用的确切代码；删除操作，图表以合适的尺寸显示，但它们太小而无法辨认。

Manipulate[
 Plot3D[Im[Sqrt[-1 + (x + I y)^2 n]], {x, -2, 2}, {y, -1, 1}, 
   AxesLabel -> Automatic]
  Plot3D[Re[Sqrt[-1 + (x + I y)^2 n]], {x, -2, 2}, {y, -2, 2}, 
   AxesLabel -> Automatic]
 , {n, 1, 10, 1}]

为什么会这样，我该如何解决？

Answer 1

Manipulate[
 Row[{
   Plot3D[Im[Sqrt[-1 + (x + I y)^2 n]], {x, -2, 2}, {y, -1, 1}, 
          AxesLabel -> Automatic, ImageSize -> 300] , 
   Plot3D[Re[Sqrt[-1 + (x + I y)^2 n]], {x, -2, 2}, {y, -2, 2}, 
          AxesLabel -> Automatic, ImageSize -> 300]}], 
{n, 1, 10, 1}]

编辑

请记住，您还可以执行以下操作:

a = Sequence @@{{x, -2, 2}, {y, -1, 1}, AxesLabel-> Automatic, ImageSize-> 200};
Manipulate[
 Row[{
   Plot3D[Im[Sqrt[-1 + (x + I y)^2 n]], Evaluate@a],
   Plot3D[Re[Sqrt[-1 + (x + I y)^2 n]], Evaluate@a]}],
 {n, 1, 10, 1}, 
 PreserveImageOptions -> False]