Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: question about plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg69664] Re: [mg69652] question about plot
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Wed, 20 Sep 2006 02:44:13 -0400 (EDT)
  • Reply-to: hanlonr at cox.net

Needs["Graphics`"];

delta[n_, x_] := n/(Sqrt[Pi]/E^(-n^2*x^2));

Plot[Evaluate[delta[#,x]&/@Range[0,10]],{x,-2,2},
    PlotRange->All,ImageSize->{800,500},
    PlotStyle->(Hue[#/11]&/@Range[11]),
    PlotLegend->("n = " <> ToString[#]&/@
          Range[0,10]), Frame->True,Axes->False,
    LegendPosition->{0.5,-0.3}];


Bob Hanlon

---- 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
> 

--

Bob Hanlon
hanlonr at cox.net



  • Prev by Date: Re: General--Mathematica and Subversion
  • Next by Date: Re: General--Mathematica and Subversion
  • Previous by thread: question about plot
  • Next by thread: Re: question about plot