以编程方式将文本标签添加到一系列曲线

Question

  

可能重复：
  How do I label different curves in Mathematica?

使用Mathematica，我想以编程方式为一系列曲线的每个成员添加文本标签。我不想使用传奇。这是一个例子：

f[x_, a_] := a*x
myplot = Plot[Evaluate@Table[f[x, a], {a, {0.5, 1, 2}}], {x, -5, 5}]
mytext = Graphics[Evaluate@Table[Text["a = " <> ToString[a], 
                                      {5, f[5, a]}, {1, 0}], {a, {0.5, 1, 2}}]]
Show[myplot, mytext]

必须有更好或更标准的方法来做到这一点......对吧？我的黑客并不是非常漂亮。文字会出现在a = 1和a = 0.5

的图表中

我按照Add Text to a Graphic概述的方式添加了添加文字标签的互动方式。我非常想以编程方式执行此操作。

人们在实践中做了什么？人们是否更愿意以交互方式添加标签，因为以编程方式进行操作可能会让人头疼？