What's a standard way to insert formula into Plot?
My plot is below. I'd like to have the formula of the plot nicely formatted and inserted into plot. TraditionalForm looks OK, but it puts the formula in one line, whereas I want a two-line fraction.
Plot[{1, (\[CapitalDelta] - 1)^(\[CapitalDelta] -
1)/(\[CapitalDelta] - 2)^\[CapitalDelta]}, {\[CapitalDelta], 3, 6},
PlotRange -> {0, 4}, PlotStyle -> {Dashing[.02], Thick},
AxesLabel -> {"\[CapitalDelta]", "\[Lambda]"}]
Sorry for being late :D. I mostly use a simplified version of Leonid's answer. Not sure if it is general enough for any purpose, but certainly works here.
Plot[{1, (\[CapitalDelta] - 1)^(\[CapitalDelta] -
1)/(\[CapitalDelta] - 2)^\[CapitalDelta]}, {\[CapitalDelta], 3,
6}, PlotRange -> {0, 4}, PlotStyle -> {Dashing[.02], Thick},
AxesLabel -> {"\[CapitalDelta]", "\[Lambda]"},
Epilog -> Inset[HoldForm@TraditionalForm[
(\[CapitalDelta] - 1)^(\[CapitalDelta] - 1)/
(\[CapitalDelta] - 2)^\[CapitalDelta]]]]

Or use Epilog -> Inset[Panel@HoldForm@TraditionalForm... for a nice box around the function:

Perhaps this could get you started?
Plot[{1,(\[CapitalDelta]-1)^(\[CapitalDelta]-1)/(\[CapitalDelta]-2)^\[CapitalDelta]},
{\[CapitalDelta],3,6},PlotRange->{0,4},
PlotStyle->{Dashing[.02],Thick},AxesLabel->{"\[CapitalDelta]","\[Lambda]"},
Epilog->Inset[Style[
HoldForm@@MakeExpression@MakeBoxes@TraditionalForm[(\[CapitalDelta]-1)^
(\[CapitalDelta]-1)/(\[CapitalDelta]-2)^\[CapitalDelta]],10]]]
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With