Пример 2 шагов, выполняемых по порядку в одной сессии. Каждый шаг был выполнен на движке, и вывод ниже — то, что он дал.
{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-Все рецепты · Справочник функций · Использовать из MCP-клиента