Re: question about plot
- To: mathgroup at smc.vnet.net
- Subject: [mg69670] Re: [mg69652] question about plot
- From: bsyehuda at gmail.com
- Date: Wed, 20 Sep 2006 02:44:35 -0400 (EDT)
Hi,
You probably mean PlotLabel and not PlotLegend, but then is wil lnot make
sense, since oly the first plot label (from value n=0) is used, so
PlotLegend does make sense. So, you need to install the Graphics`Legend`
package.
The basic error in your code is that PlotLegend is a single option that
should point to the complete list of legend labels of the curves plotted by
a single
Plot function.
in addition, Hue[x] where x is an integer is always a red color
so all corrected code follows.
<< Graphics`Legend`
Plot[Evaluate[delta[#, x] & /@
Range[0, 10]], {x, -2, 2}, PlotRange -> All,
PlotStyle -> Table[Hue[i/11], {i, 0,
10}], PlotLegend -> ToString /@ Range[0, 10], LegendLabel ->
"n", ImageSize -> 500]
It also looks that PlotRange->{-0.5,0.5} generates nicer results
Good luck
yehuda
On 9/19/06, dimmechan at yahoo.com <dimmechan at yahoo.com> wrote:
>
> Hi.
>
> I define a delta sequence.
>
> Needs["Graphics`"]
>
> delta[n_, x_] := n/(Sqrt[Pi]/E^((-n^2)*x^2))
>
> I can't understand what I do wrong in the following command.
> I really appreciate any comments.
>
> Show[(Plot[delta[#1, x], {x, -2, 2}, DisplayFunction -> Identity,
> PlotRange -> All, ImageSize -> {800, 500}, PlotStyle -> Hue[#1],
> PlotLegend -> StringJoin["n= ", ToString[#1]]] & ) /@ Range[0, 10],
> DisplayFunction -> $DisplayFunction]
>
> Thanks
>
>