Mathematica Stack Exchange is a question and answer site for users of Wolfram Mathematica. It only takes a minute to sign up.
Sign up to join this community
Please consider this simple code:
Manipulate[
Plot[{a Sin[x], a Cos[x]}, {x, 0, 2 Pi},
PlotLegends -> "Expressions"], {a, 1, 2}]
Mathematica returns this output:
I believe this is a bug. Is there any workaround to cope with this problem?
I use Mathematica version 10.3.1 on Win 10 64bit. Thank you.
The FrontEnd has the habit of renaming variables, which is usually a good thing, but sometimes can be troublesome.
One possibility is to evaluate the argument of Plot, e.g.:
Manipulate[
NumberForm[
Plot @@ {{a Sin[x], a Cos[x]},
{x, 0, 2 Pi},
PlotLegends -> "Expressions",
PlotRange -> {-2, 2}}, {4, 3}
],
{a, 1., 2, Appearance -> "Labeled"}]
Appearance is first time to me.I'm interested that how do you know it??
$\endgroup$
Legends are heavily affecting the performance in Dynamic so I'd probably go with some hand made legends anyway:
Manipulate[
Grid[{{
Dynamic @ Plot[{a Sin[x], a Cos[x]}, {x, 0, 2 Pi}]
,
LineLegend[
{RGBColor[0.368417, 0.506779, 0.709798], RGBColor[0.880722, 0.611041, 0.142051]},
TraditionalForm /@ {Dynamic[a Defer@Sin[x]], Dynamic[a Defer@Cos[x]]}
]
}}], {a, 1, 2}]
Colors for lines taken from Match colors to plot themes
Manipulate[ Plot[{a Sin[x], a Cos[x]}, {x, 0, 2 Pi}, PlotLegends -> {Dynamic[a Sin[x]], Dynamic[a Cos[x]]}], {a, 1, 2}]. I got same result.
$\endgroup$
Jan 21, 2016 at 1:34
Plot has to use PlotLegends slows it down a lot.
$\endgroup$