wolfram-mathematica - PlotLegends 使 Manipulate[] 图形缓慢爬行

Question

我设置了一个简短的程序来使用 Manipulate 显示具有不同参数的相同函数的三个图。我想用参数的值标记每个函数。我的出发点是让一个传奇人物出现。在绘图中添加 PlotLegend 会导致 Mathematica 变得异常缓慢。

我的代码是:

Needs["PlotLegends`"]
Manipulate[

 UemaxOverUe = ((VA/Vphs)^2 (2 p - 1) + 1 - Ves0/Vphs - 2)/((VA/Vphs)^2 - (1 - Ves0/Vphs));

 UemaxOverUe2 = ((VA/Vphs)^2 (2 p - 1) + 1 - Ves02/Vphs - 2)/((VA/Vphs)^2 - (1 - Ves02/Vphs));

 UemaxOverUe3 = ((VA/Vphs)^2 (2 p - 1) + 1 - Ves03/Vphs - 2)/((VA/Vphs)^2 - (1 - Ves03/Vphs));

 ListPlot[{
  Table[{Vphs/VA, 1/UemaxOverUe}, {Vphs, .001 VA, VA, .01 VA}], 
  Table[{Vphs/VA, 1/UemaxOverUe2}, {Vphs, .001 VA, VA, .01 VA}], 
  Table[{Vphs/VA, 1/UemaxOverUe3}, {Vphs, .001 VA, VA, .01 VA}]}, 
  AxesLabel -> {"Vphs/VA", "Ne/NeMax"}, Joined -> True(*,
  PlotLegend->{"Blah","Blarg","Word"}*)],

 {{p, 1}, 0, 5},
 {{Ves0, -2 VA}, -10 VA, 10 VA, .1 VA},
 {{Ves02, -2 VA}, -10 VA, 10 VA, .1 VA},
 {{Ves03, -2 VA}, -10 VA, 10 VA, .1 VA}
]

取消注释 PlotLegend应该重现问题。

我的问题是:
为什么会这样？
什么是好的解决方案或解决方法？

Answer 1

问题似乎是 PlotLegend 很慢。它与 Manipulate 没有任何关系.在我的电脑上 ListPlot如果没有图例，则需要 0.013 秒，如果添加图例，则需要 0.43 秒。

作为一种解决方法，您可以使用

ControlActive[{}, PlotLegend -> {"Blah", "Blarg", "Word"}]]

而不仅仅是 PlotLegend仅在您不移动 slider 时显示图例。