例 2 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。
{x, y} /. FindInstance[x ^ 2 - y ^ 3 ≤ 2 && x ^ 2 + (y + 2) ^ 2 ≤ 1, {x, y}]{{0, -1}}RegionPlot[{x ^ 2 - y ^ 3 ≤ 2, x ^ 2 + (y + 2) ^ 2 ≤ 1}, {x, -3, 3}, {y, -3, 3}, PlotStyle -> Table[Directive[Opacity[.5], Hue[t]], {t, {.3, .7}}], Epilog -> {Red, PointSize[Large], Point[{0, -5 / 4}]}]-Graphics-