PlotLegend Bug?
- To: mathgroup at smc.vnet.net
- Subject: [mg109620] PlotLegend Bug?
- From: åæ <sunt05 at mails.tsinghua.edu.cn>
- Date: Sat, 8 May 2010 07:08:00 -0400 (EDT)
Hi all,
When I use PlotLegend in ParametricPlot, besides 4 plot legends I specified,
2more legend appeared.
What's the problem?
The code is as following:
\[Psi]g[x_] := x;
\[Psi]m[x_] := Piecewise[{{-x, x >= 0}, {0, x < 0}}];
\[Psi]p[x_] := Piecewise[{{0, x >= 0}, {-x, x < 0}}];
Needs["PlotLegends`"]
ParametricPlot[{{\[Psi]g[x], x}, {\[Psi]m[x], x}, {\[Psi]p[x],
x}, {\[Psi]g[x] + \[Psi]m[x] + \[Psi]p[x], x}}, {x, -1, 2},
Axes -> False,
PlotLegend -> {Style["\[Psi]g", 13], Style["\[Psi]m", 13] ,
Style["\[Psi]p", 13], Style["\[Psi]", 13]}, Frame -> True,
PlotStyle -> {Orange, Dashed, Dotted, DotDashed},
FrameLabel -> ({Style["\[Psi]/m", 18], Style["h/m", 18]}),
FrameStyle -> 16]
Thanks a lot!
Sunt