Prev: How to write reports and books in Mathematica
Next: Heat exchanger network and Nminimize
From: 孙挺 on 8 May 2010 07:08
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


 | 
Pages: 1
Prev: How to write reports and books in Mathematica
Next: Heat exchanger network and Nminimize