1

I am trying to plot in 3D and I need to use `PlotLegend`

. My code is

```
Needs["PlotLegends`"]
Evaluate[PlotLegends]
Plot3D[Tanh[H/T], {T, 0, 300}, {H, 0.001, 1},
PlotLabel ->
Style[Framed[
"Energy Dependance on Magnetic Field H and Absolute Temperature \
T"], 13, Red, Background -> Lighter[LightYellow]],
Background -> LightGray,
ColorFunction -> Function[{x, y, z}, Hue[.65 (1 - z)]],
AxesLabel -> {T[kelvin], H[tesla]}, BoundaryStyle -> Thick,
ClippingStyle -> Opacity[0.5], Mesh -> Full,
PlotLegends -> Automatic]
```

While I use `Needs["PlotLegends`"]`

I don't seem to be able to plot a legend. I get an error saying

*Plot3D::optx: Unknown option PlotLegends in Plot3D[...]*

How can this be fixed?

2This is an example from the documentation on how to use

`PlotLegend`

:`ShowLegend[ Plot3D[Sin[x y], {x, 0, \[Pi]}, {y, 0, \[Pi]}, ColorFunction -> "Rainbow"], {ColorData["Rainbow"][1 - #1] &, 10, " 1", "-1", LegendPosition -> {1.1, -0.4}}]`

– VLC – 2012-12-19T17:28:23.460