举个简单地例子来说明一下，假如已经知道四面体的四个顶点坐标，如变量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]
这样生成的图像稍微好了一点。总之大体过程就是这个样子，图形的选项很多，你可以增加更多的选项来继续修改图形，需要自己的不断探索。
内容全部来源于网络收集，如有侵权，请联系网站删除！