Question

mathematica 知道顶点坐标 怎么画图

比如知道四面体的四个顶点坐标，怎么画图？

Answer 1

举个简单地例子来说明一下，假如已经知道四面体的四个顶点坐标，如变量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]

这样生成的图像稍微好了一点。总之大体过程就是这个样子，图形的选项很多，你可以增加更多的选项来继续修改图形，需要自己的不断探索。