Re: Plotting mulitple lists on one log plot
- To: mathgroup at smc.vnet.net
- Subject: [mg34475] Re: [mg34454] Plotting mulitple lists on one log plot
- From: BobHanlon at aol.com
- Date: Thu, 23 May 2002 03:32:15 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 5/22/02 5:00:12 AM, brittojr at tcd.ie writes:
>I'm having a problem with using LogListPlot to plot multiple data sets
>on the
>same plot. Basically it will not format each individual data set line as
>I
>wish - Mathematica appears to ignore the PlotStyle option. Below I include
>
>the relevant lines of code. Mathematica version = 4.01 running on Linux
>
>*************
>
>Debonded = {{0., 81.5244}, {0.1, 5.81173}, {0.2, 3.53041}, {0.3,
> 3.09363}, {0.4, 3.09363}, {0.5, 1.44145}, {0.6, 1.44145}, {0.7,
>
> 0.522863}};
>
>NoDistalCement = {{0., 71.8089}, {0.1, 8.1722}, {0.2, 6.51516}, {0.3,
> 5.17021}, {0.4, 5.17021}, {0.5, 2.65144}, {0.6, 2.65144}, {0.7,
>
> 0.697332}};
>
>DisplayTogether[ LogListPlot[NoDistalCement, AxesLabel -> {"Probability
>of
>failure", "Percentage of cement satisfying probability"}, PlotStyle
>->
>{{Thickness[0.04], GrayLevel[0.5],
> Dashing[{0.1, 0.5, 0.5, 0.5}]}}],
> LogListPlot[Debonded, PlotJoined -> True]]
>
>**************
>
>If anyone has any ideas about how I can resolve this problem I'd be very
>
>grateful, and I will post a summary of responses. (Have searched the
>archives, web and Mathematica help to no avail).
>
1. You left off PlotJoined->True on the first plot.
2. You have an extra list bracket pair on the first plot's PlotStyle.
3. With long labels, Frame->True and FrameLabel is better than AxesLabel.
4. I find AbsoluteDashing and AbsoluteThickness easier to work with.
Needs["Graphics`Graphics`"];
Needs["Graphics`Colors`"];
Debonded={{0.,81.5244},{0.1,5.81173},{0.2,3.53041},
{0.3,3.09363},{0.4,3.09363},{0.5,1.44145},
{0.6,1.44145},{0.7,0.522863}};
NoDistalCement={{0.,71.8089},{0.1,8.1722},
{0.2,6.51516},{0.3,5.17021},{0.4,5.17021},
{0.5,2.65144},{0.6,2.65144},{0.7,0.697332}};
DisplayTogether[
LogListPlot[NoDistalCement,
PlotStyle->{AbsoluteThickness[2],Red,
AbsoluteDashing[{1,5,5,5}]},
PlotJoined->True],
LogListPlot[Debonded,
PlotJoined->True,
PlotStyle->Blue],
Epilog -> {
Text["No Distal Cement", {.4, Log[10,6.5]}],
Text["Debonded", {.35, Log[10,2.5]}]},
Frame->True,
Axes->False,
FrameLabel->{
"\nProbability of Failure",
"Percentage of Cement Satisfying Probability\n"},
ImageSize->475];
Bob Hanlon
Chantilly, VA USA