mathematica 知道頂點坐標 怎麼畫圖

題目：

mathematica 知道頂點坐標 怎麼畫圖
比如知道四面體的四個頂點坐標,怎麼畫圖?

解答：

舉個簡單地例子來說明一下,假如已經知道四面體的四個頂點坐標,如變量zuobiao,
zuobiao = {{0, 0, 0}, {1, 0, 0}, {0, 1, 0}, {1, 1, 1}};
你可以這樣做,在zuobiao的四個頂點中任意取三個出來,即一個面,共四個面,然後用函數Polygon將這些面表達出來,最後用三維圖形函數Graphics3D將這些面全部組合起來,如下：
Graphics3D[Polygon[Subsets[zuobiao, {3}]]]
這樣畫出來的效果如下：

 接著我們可以修改圖形選項來生成滿足我們需要的圖像,
Graphics3D[Polygon[Subsets[zuobiao, {3}]], 
 BaseStyle -> {Green, Opacity[.5], EdgeForm[Thick]}, Boxed -> False]

這樣生成的圖像稍微好了一點.總之大體過程就是這個樣子,圖形的選項很多,你可以增加更多的選項來繼續修改圖形,需要自己的不斷探索.