簡體   English   中英

在Mathematica中查看Graphics3D Straight

[英]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.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM