MathGroup Archive 2013

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

Search the Archive

Having difficulties improving Legend and plot


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



  • Prev by Date: Re: "Complement" to the Risch Algorithm
  • Next by Date: Re: keep special functions unexpanded
  • Previous by thread: Re: CUDAFunctionLoad error with windows 7 64 bits
  • Next by thread: Re: Having difficulties improving Legend and plot