Viewpoint-> {x，y，z}中的更改对图形对象大小的影响不是我所期望的。 怎么修？

Question

如果运行以下代码段：

 Manipulate[
   Graphics3D[
     {Cuboid[{{-1, -1, -1}, {1, 1, 1}}], Sphere[{5, 5, 5}, 1]}, 
      ViewPoint -> {1, 1, a}, AxesOrigin -> {0,0,0}
   ], 
   {a, 1, 100}
 ]

并使用滑块将视点从（1,1,1）移至（1,1,100），您将看到一段时间后对象的大小保持不变。

问题。

1.当我将视点移离场景更远时，我希望物体变小。 在Mathematica中应该怎么做？

（编辑：）

2.“摄像机”相对于Viewpoint的位置是什么？

Answer 1

参见ViewAngle 。 在“更多信息”下，请注意，当您缩小得足够远时，默认设置ViewAngle -> Automatic实际上等效于ViewAngle -> All 。

您只需要为ViewAngle添加一个显式设置：

Manipulate[
 Graphics3D[{Cuboid[{{-1, -1, -1}, {1, 1, 1}}], Sphere[{5, 5, 5}, 1]},
   ViewPoint -> {1, 1, a}, AxesOrigin -> {0, 0, 0}, 
  ViewAngle -> 35 Degree], {a, 1, 100}]

Answer 2

据我所知，相机的视点确实与ViewPoint给出的位置重合。 由于Mathematica缩放结果以适合大致相同的图像，因此您看不到太多变化，但它们在那里。 观点发生了很大变化。 例如，尝试从半透明的正方形移开，您会发现您走得越远，投影就变成正交投影：

如果要根据距离缩放图像，可以使用ImageSize 。 SphericalRegion可以很好地稳定图像。

Manipulate[
 vp = {1, 1, a};
 Graphics3D[{Cuboid[{{-1, -1, -1}, {1, 1, 1}}], Sphere[{5, 5, 5}, 1]},
  ViewPoint -> vp,
  AxesOrigin -> {0, 0, 0},
  SphericalRegion -> True,
  ImageSize -> 500/Norm[vp]],
 {a, 1, 100}
 ]

[使用某些ImagePadding进行动画处理，以使对象居中。 我将动画停止在a = 10，此后图像变得很小了]