wolfram-mathematica - 如何在Mathematica中自动生成函数名称？

Question

当我绘制多个函数，例如exp，2 ^ x，3 ^ x时，是否可以为每个函数生成标签？

我的代码现在:

  Plot[{Exp[x], 2^x, 3^x}, {x, -5, 2}, AspectRatio -> Automatic, PlotStyle -> {Red, Green, Blue}]

我的意思是在这种情况下生成3个标签来告诉用户它是什么功能。

如:

您是如何产生的？

Answer 1

也许这可行:在Tooltip中使用Plot生成带有工具提示的Graphics对象。然后重写工具提示以将所需的文本放置在所需的位置:

Plot[
 Tooltip@{Exp[x], 2^x, 3^x}, {x, -5, 2},
 AspectRatio -> Automatic,
 PlotStyle -> {Red, Green, Blue},
 PlotRange -> All,
 PlotRangePadding -> 1.1] /.
{
 Tooltip[{_, color_, line_}, tip_]
 :>
 {Text[Style[tip, 14], {.25, 0} + line[[1, -1]]], color, line}
}