Having difficulties improving Legend and plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg131456] Having difficulties improving Legend and plot*From*: Gilmar Rodriguez-pierluissi <peacenova at yahoo.com>*Date*: Fri, 26 Jul 2013 05:46:54 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-outx@smc.vnet.net*Delivered-to*: mathgroup-newsendx@smc.vnet.net*Reply-to*: Gilmar Rodriguez-pierluissi <peacenova at yahoo.com>

Dear Math Group: I'm having difficulties improving the following plot: Needs["PlotLegends`"]; funcs = Table[Table[A ((Log[n] - 1)/(Log[n] + 1)), {n, 4, 2000, 2}], {A, 300, 1000, 100}]; ListPlot[{Sequence @@ (funcs[[#1]] &) /@ {8, 7, 6, 5, 4, 3, 2, 1}}, PlotStyle -> {Yellow, Red, Blue, Green, Orange, White, Black, Brown}, PlotLegend -> {"1000", "900", "800", "700", "600", "500", "400", "300"}, LegendLabel -> "Constant A", LegendLabelSpace -> 1, LegendSpacing -> 0.01, ImageSize -> 800, LegendSize -> 1.0, LegendPosition -> {1.15, -0.25}, ShadowBackground -> Gray, LegendBackground -> LightPurple, Background -> LightGray] (1.) The smooth function curves look serrated in the plot. (2.) When one attempts to add the option: "PlotMarkers->Automatic"; the ListPlot program malfunctions. (3.) I also want to increase the size of the markers in the Legend but, there doesn't seem to be an option available to accomplish this. Please, help me to improve this plot. Thanks! Gilmar Rodr=EDguez-Pierluissi peacenova at yahoo.com

**Follow-Ups**:**Re: Having difficulties improving Legend and plot***From:*Bob Hanlon <hanlonr357@gmail.com>

**Re: Having difficulties improving Legend and plot***From:*Bob Hanlon <hanlonr357@gmail.com>