Graphics 在Mathematica中直接查看图形3D
在以下方面考虑Sjoerd解决方案: 使用我得到的视点: 鉴于我希望系统地看到: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[\[
有什么想法吗?(看看基本的例子)关于
视点->顶部的怎么样?一个视图垂直->{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]}
}
]