使用 Mathematica 6 或更高版本,我经常使用Tooltip帮助我识别绘图曲线:
Plot[Tooltip[Sin[x]], {x, 0, 8 Pi}]
唉,这仅在交互式使用图形时才有用,因为您必须将鼠标光标悬停在曲线上。它在纸上或静态图像上效果不太好。
您可以使用Epilog手动在绘图上放置一些文本的选项,如下例所示:
Plot[
Sin[x], {x, 0, 8 Pi},
Epilog -> Text["My Text", Offset[{32, 0}, {14, Sin[14]}]]
]
调整论据Offset去尝尝。
如果您不介意手动放置,则此方法有效。自动放置会带来一些挑战,具体取决于您希望绘制的函数类型。但是,如果您了解感兴趣的函数的一般特征,您可以编写一个函数来计算漂亮的值Offset论据。例如,如果我知道我要绘制大量指数下降函数,我可能会定义类似函数myPlot在这个例子中:
SetAttributes[myPlot, HoldAll]
myPlot[function_, {var_, min_, max_}] :=
Plot[
function, {var, min, max},
Epilog -> Text[function, Offset[{40, 0}, {var, function} /. var -> min + (max - min)/20]],
PlotRange -> All, AxesOrigin -> {0, 0}
]
...参数在哪里Offset使用一些任意常量自动计算,这些常量对于这些类型的图相当有效:
Manipulate[
myPlot[1000 E^(-d t), {t, 0, 100}, "My Label"],
{d, 0.01, .2}
]
由于所有这些选项都是可编程的,因此您可以为标签放置编写复杂程度的代码,这是无限的。当然,这样的编程距离内置选项的理想状态越来越远。Plot它会神奇地落在函数旁边的一些文本上。可能是 Mathematica 8 或 9 :)