Mathematica基础——多边形问题

1、绘制一个平面多边形：

Graphics[Polygon[{{1, 0}, {0, 2}, {-1, 0}, {0, 3}, {5, 2},{-1, 3}, {3, 2}}]]

2、绘制一个空间多边形：

Graphics3D[Polygon[{{1, 0, 0}, {1, 1, 2}, {0, 0, 1}, {0, 3, 2}}]]

3、绘制一个正多边形：

Graphics[Polygon[CirclePoints[6]]]

4、绘制一个五角星：

Polygon[ Table[{Cos[t], Sin[t]}, {t, 0, 4 Pi, 4 Pi/5}]]//Graphics

5、绘制一个图案背景的多边形：

Graphics[{Texture[背景图片], Polygon[CirclePoints[6], VertexTextureCoordinates -> {{1, 0}, {1, 1}, {0, 1}, {0,0}}]}]