在Mathematica中查看Graphics3D Straight

时间:2011-06-27 16:09:03

标签: graphics wolfram-mathematica 3d

考虑displaying multiple 2D plots in 3D上的Sjoerd解决方案:

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]}
   }
   ]

使用ViewPoint我得到:

enter image description here

我想系统地看到:

enter image description here

任何想法?

3 个答案:

答案 0 :(得分:4)

ViewVertical -> {0, 1, 0}ViewPoint -> Top

的组合

答案 1 :(得分:2)

ViewMatrix(查看基本示例)

答案 2 :(得分:1)

ViewPoint -> Top怎么样?