Ottieni equazione per la grafica [chiuso]

È possibile ottenere l'equazione di un grafico che hai disegnato usando gli strumenti di disegno in Mathematica?
Voglio farlo perché ho disegnato qualcosa usando gli strumenti di disegno e ora voglio modificarlo a livello di programmazione per aggiungere un punto a una coordinata specifica.

E ' è possibile ottenere il codice che genera la grafica aggiunti utilizzando gli strumenti di disegno.

Ad esempio, ecco una quadratica in cui ho usato gli strumenti di disegno per aggiungere frecce alle intercettazioni x:

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

Dopo il tipo di grafica // InputFormper vedere il codice che crea la grafica. In questo caso ho anche usato /. Line[x_] -> Lineper sopprimere tutti i punti che compongono la trama:

Il codice evidenziato è quello che è stato aggiunto dagli strumenti di disegno. Può essere semplificato (ad esempio, rimuovere i EdgeFormcomandi e sostituirlo Inset Cellcon un semplice Textcomando) quando lo si aggiunge all'originale Plot, che può essere fatto con un Epilog(o un Prolog) o usando Show.