Wolfram mathematica 将两个绘图放在一个图形中，同时保持绘图可见

我想看看一些函数的实部和虚部，它们依赖于一个参数n。单独地（设置值为n），我得到了非常好的图形，但是当把它们放在一个操纵器中时，它们变得非常小

下面是我使用的确切代码；移除操纵按钮，图形将以良好的大小显示，但使用该按钮时，图形太小，无法辨认

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]

---

“ImageSize->300”就足够了。谢谢@belisarius

行

要求将

列表

作为第一个参数。这解释了为什么你的截图上没有对它进行评估。@Alexey谢谢。我没有注意到（我在玩几个备选方案，最后选择了这个）。Editing@Alexey我发现，如果不指定它，当您在单元格中重新运行代码时，上一次运行的绘图已经存在，有时新绘图“继承”了您对旧绘图执行的上一次操作中的参数，因此很难检测新参数的“干净”显示。“PreserveMageOptions->False”@Sjoerd解决了这个问题，它还没有出现，但明天将成为belisarius的徽章。这是Mathematica tag的金徽章，这是有史以来的第一个。到昨天为止，我还差4个问题，贝里萨里乌斯-10或者更多。到目前为止，我还缺3个问题，而贝里萨里乌斯刚刚得到了所有的答案。今晚应该给他颁奖，但为什么不现在就开始庆祝呢？在这段代码中，你将两个情节相乘。从来都不是个好主意。可以列出它们，通过添加{}和一个逗号。@SjoerdC.deVries，即使在我的代码中，这个错误也是如此常见，这让我感到惊讶。即使将它们包装在

{}

中，我仍然会忘记用逗号分隔术语。这可能是一个令人沮丧的错误跟踪。