Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: Having difficulties improving Legend and plot
Replies: 0  

Advanced Search

Back to Topic List Back to Topic List  
Gilmar Rodriguez-pierluissi

Posts: 18
Registered: 5/4/11
Having difficulties improving Legend and plot
Posted: Jul 26, 2013 5:41 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply


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@yahoo.com




Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.