I’m trying to get plot labels with arrows or lines pointing to different curves. If I do
A2 = 1;
Plot[Evaluate@
Table[Labeled[Sqrt[x^2 - x^4]/Sqrt[
1 + A2 \[Beta]], \[Beta]], {\[Beta], {.1, .5, 1, 5, 10, 20}}], {x,
0, 1.2}, AxesLabel -> {Subscript[k, x], Subscript[k, y]},
PlotRange -> All, LabelStyle -> Directive[14, Bold]]
I get the following image.
How do I make the lines point to a better part of the curves?
I’ve also tried something along the lines of
Plot[Evaluate@
Table[Sqrt[x^2 - x^4]/Sqrt[
1 + \[Beta]], {\[Beta], {.1, .5, 1, 5, 10, 20}}], {x, 0, 1.2},
PlotLabels ->
Placed[{"\[Beta] = .1", "\[Beta] = .5", "\[Beta] = 1",
"\[Beta] = 5", "\[Beta] = 10", "\[Beta] = 20"}, Above],
PlotRange -> All]
I’ve tried using Scaled[] as well. Those options seem to move the labels around but remove the lines pointing to the curves.


