Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

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

Search the Archive

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



  • 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