ハウツー 16 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。
p1 = Plot[x Sin[x] - 1, {x, -2.5, 2.5}]-Graphics-p2 = Plot[Evaluate[D[x Sin[x] - 1, x]], {x, -2.5, 2.5}, PlotStyle -> Red]-Graphics-p3 = Plot[Sin[x], {x, -2.5, 2.5}, PlotStyle -> Magenta]-Graphics-p4 = Graphics[{Magenta, Polygon[{{0.4, 0}, {0, 0.5}, {-0.4, 0}}]}]-Graphics-Show[p1, p2, p3, p4]-Graphics-Show[p1, p2, p3, p4, PlotRange -> All]-Graphics-GraphicsRow[{p1, p2, p3, p4}]-Graphics-GraphicsGrid[{{p1, p2}, {p3, p4}}]-Graphics-GraphicsColumn[{p1, p2, p3, p4}]-Graphics-Graphics[{StandardGray, Thick, Line[{{1, 1}, {2, 1}}]}, Epilog -> {Magenta, PointSize[0.2], Point[{{1.5, 1}}]}]-Graphics-Graphics[{StandardGray, Thick, Line[{{1, 1}, {2, 1}}]}, Prolog -> {Magenta, PointSize[0.2], Point[{{1.5, 1}}]}]-Graphics-sp = Graphics3D[Sphere[{0, 0, 0}, 0.8], Boxed -> False]-Graphics3D-pp3 = ParametricPlot3D[{(2 + Cos[v])Cos[u], (2 + Cos[v])Sin[u], Sin[v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, Axes -> None, Boxed -> False]-Graphics3D-Show[sp, pp3]-Graphics3D-watermark = Style["Done", 36, Bold, Opacity[.6]]DoneSphericalPlot3D[ϕ, {θ, 0, Pi}, {ϕ, 0, 3Pi}, Boxed -> False, Axes -> None, Epilog -> Inset[watermark, Automatic, Automatic, Automatic, {1, 1}]]-Graphics3D-