Re: Plotting mulitple lists on one log plot
- To: mathgroup at smc.vnet.net
- Subject: [mg34481] Re: Plotting mulitple lists on one log plot
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Thu, 23 May 2002 03:32:24 -0400 (EDT)
- References: <acff72$rqc$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
John,
How about
<< Graphics`Graphics`
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 -> {PointSize[.02]}],
LogListPlot[Debonded, PlotJoined -> True,
PlotStyle -> {{Thickness[0.04], GrayLevel[0.5],
Dashing[{0.1, 0.5, 0.5, 0.5}]}}], Frame -> True,
FrameLabel -> {"Probability of
failure", "Percentage of cement\nsatisfying probability", "", ""}
]
--
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565
"John Britton" <brittojr at tcd.ie> wrote in message
news:acff72$rqc$1 at smc.vnet.net...
> Dear Forum,
>
> 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).
>
> Thanks,
> John Britton
>
> --
> Bioengineering Group, Phone: +353 1 608 1976
> Trinity College, Fax: +353 1 679 5554
> University of Dublin,
> Ireland
> www.biomechanics.ie
>