wolfram-mathematica - 将两个图置于操作中，同时保持图可见

我想查看一些依赖参数 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}]

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

最佳答案

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]

关于wolfram-mathematica - 将两个图置于操作中，同时保持图可见，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/7727668/