[英]See a Graphics3D Straight in Mathematica
考慮在3D中顯示多個2D圖的 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我得到:
而我想系統地看到:
任何想法 ?
ViewVertical -> {0, 1, 0}
和ViewPoint -> Top
?的組合
ViewMatrix (查看基本示例)
ViewPoint -> Top
怎么樣?
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.