How to| 组合两个或多个图形
当在 Wolfram 语言中处理图形时,您可能想要把几个图形组合在一个单一的图像中. Wolfram 语言可以将它们叠加起来,或按照不同的次序将它们嵌入在一起.
一种最常见的组合图形方式是使用 Show.
设置要组合的图形,在该例中将它们存储为 p1、p2、p3 和 p4:
p1 = Plot[x Sin[x] - 1, {x, -2.5, 2.5}]p2 = Plot[Evaluate[D[x Sin[x] - 1, x]], {x, -2.5, 2.5}, PlotStyle -> Red]p3 = Plot[Sin[x], {x, -2.5, 2.5}, PlotStyle -> Magenta]p4 = Graphics[{Magenta, Polygon[{{0.4, 0}, {0, 0.5}, {-0.4, 0}}]}]使用 Show 将图形叠加:
Show[p1, p2, p3, p4]Show[p1, p2, p3, p4, PlotRange -> All]如果不想将图形叠加,还可以将它们放置在一行、一列或一个网格中.
使用 GraphicsRow 将图形放在一行:
GraphicsRow[{p1, p2, p3, p4}]使用 GraphicsGrid 将它们放在一个网格中:
GraphicsGrid[{{p1, p2}, {p3, p4}}]使用 GraphicsColumn 将它们放在一列中:
GraphicsColumn[{p1, p2, p3, p4}]图形选项 Epilog 和 Prolog 也可用于图形的组合. 它们可以将图形嵌入在一起,但两者嵌入图形的次序不同.
Epilog 将一个图形嵌入到另一个图形的上面.
将 Epilog 用作 Graphics 内部的选项将一个点嵌入在一条直线上面:
Graphics[{StandardGray, Thick, Line[{{1, 1}, {2, 1}}]}, Epilog -> {Magenta, PointSize[0.2], Point[{{1.5, 1}}]}]Prolog 将一个图形嵌入到另一个图形的后面.
将 Prolog 用作 Graphics 的选项,在直线后面嵌入一个点:
Graphics[{StandardGray, Thick, Line[{{1, 1}, {2, 1}}]}, Prolog -> {Magenta, PointSize[0.2], Point[{{1.5, 1}}]}]生成两个三维图形,并使用 Show 将它们组合在一起:
sp = Graphics3D[Sphere[{0, 0, 0}, 0.8], Boxed -> False]pp3 = ParametricPlot3D[{(2 + Cos[v])Cos[u], (2 + Cos[v])Sin[u], Sin[v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, Axes -> None, Boxed -> False]Show[sp, pp3]可以使用 Epilog 将一个二维图形嵌入到一个三维图形内.
将 Epilog 用作 SphericalPlot3D 的内部选项,为一个三维图形添加一个水印:
watermark = Style["Done", 36, Bold, Opacity[.6]]SphericalPlot3D[ϕ, {θ, 0, Pi}, {ϕ, 0, 3Pi}, Boxed -> False, Axes -> None, Epilog -> Inset[watermark, Automatic, Automatic, Automatic, {1, 1}]]