Graphics 在Mathematica中直接查看图形3D

Graphics 在Mathematica中直接查看图形3D,graphics,wolfram-mathematica,3d,Graphics,Wolfram Mathematica,3d,在以下方面考虑Sjoerd解决方案: 使用我得到的视点: 鉴于我希望系统地看到: 有什么想法吗?(看看基本的例子)关于视点->顶部的怎么样?一个视图垂直->{0,1,0}和视点->顶部的组合?啊,我看到右边的一个正在使用它,但不知怎么旋转了。我敢打赌,完全删除输出单元将解决这个问题,重新评估将解决这个问题。“上帝不会和宇宙掷骰子。”AE myDisk[{x_, y_, z_}, r_] := Polygon@Table[ {x, y, z} + r {Cos[\[

在以下方面考虑Sjoerd解决方案:

使用我得到的视点:

鉴于我希望系统地看到:


有什么想法吗?

(看看基本的例子)

关于
视点->顶部的怎么样?

一个
视图垂直->{0,1,0}
视点->顶部的组合

啊,我看到右边的一个正在使用它,但不知怎么旋转了。我敢打赌,完全删除输出单元将解决这个问题,重新评估将解决这个问题。“上帝不会和宇宙掷骰子。”AE
myDisk[{x_, y_, z_}, r_] :=

Polygon@Table[
             {x, y, z} + r {Cos[\[Phi]], Sin[\[Phi]], 0} // N, 
             {\[Phi], 0, 2 \[Pi], 2 \[Pi]/200}
             ]

Graphics3D[
 {
   EdgeForm[],
  {
   Red, 
   myDisk[{1, 1, 0.5}, 0.5],  
   myDisk[{0, 0, 0.5}, 0.5],   
   myDisk[{-1, -1, 0.5}, 0.5]
   },
   {
   Blue,  
   myDisk[{1, -1, -0.5}, 0.5],
   myDisk[{0, 0, -0.5}, -0.5], 
   myDisk[{-1, 1, -0.5}, 0.5]}
   }
   ]