question about plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg69652] question about plot*From*: dimmechan at yahoo.com*Date*: Tue, 19 Sep 2006 05:45:23 -0400 (EDT)

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