Question

mathematica怎么给图片在右上方加注释（比如多条曲线的图例）

Answer 1

函数 PlotLegends 就是用来控制图例的，下面是一个简单地例子来说明一下。

Plot[{Sin[x], Cos[x]}, {x, -1, 1}, 
 PlotLegends -> 
  Placed[LineLegend[
    Style[TraditionalForm[#], 18] & /@ {Sin[x], Cos[x]}, 
    LegendLayout -> {"Row", 1}], {0.75, 0.2}]]

代码中的最后一个坐标是图例的相对位置，可以改成其他的位置坐标，可根据你自己的图调整到合适的位置。函数的用法不明白的请参考 Mathematica 帮助文档。