Рабочий процесс 2 шагов, выполняемых по порядку в одной сессии. Каждый шаг был выполнен на движке, и вывод ниже — то, что он дал.
sineGraphic = Plot[Sin[x], {x, 0, 22}]-Graphics-Graphics[{
Rectangle[{0, 0}, {1, 1}]
}, PlotRange -> 2]-Graphics-Все рецепты · Справочник функций · Использовать из MCP-клиента