Получить уравнение для графики

Question

Можно ли получить уравнение графики, которую вы нарисовали, используя инструменты рисования в Mathematica?
Я хочу сделать это, потому что я нарисовал что-то, используя инструменты рисования, и теперь я хочу программно отредактировать это, чтобы добавить точку по определенной координате.

Answer 1

Можно получить код , который создает графику, добавленные с помощью инструментов рисования.

Например, вот квадратичный фрагмент, в котором я использовал инструменты рисования для добавления стрелок к x-перехватам:

Plot[x^2 - 4, {x, -3, 3}]

После графики введите // InputForm чтобы увидеть код, который делает графику. В этом случае я также использовал /. Line[x_] -> Line для подавления всех точек, составляющих график:

Выделенный код - это тот, который был добавлен инструментами рисования. Это можно упростить (например, удалить команды EdgeForm и заменить Inset Cell простой Text командой), когда вы добавите ее обратно в исходный Plot , что можно сделать с помощью Epilog (или Prolog) или с помощью Show.