RE: Plotting mulitple lists on one log plot
- To: mathgroup at smc.vnet.net
- Subject: [mg34488] RE: [mg34454] Plotting mulitple lists on one log plot
- From: "DrBob" <majort at cox-internet.com>
- Date: Thu, 23 May 2002 03:32:37 -0400 (EDT)
- Reply-to: <drbob at bigfoot.com>
- Sender: owner-wri-mathgroup at wolfram.com
Try this code:
Needs["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,
AxesLabel -> {"Pr[failure]", "% cement satisfying probability"},
PlotJoined -> True,
PlotStyle ->
{Thickness[0.04], GrayLevel[0.5],
Dashing[{0.01, 0.05}]}],
LogListPlot[debonded , PlotJoined -> True], ImageSize -> 500];
PlotStyle was ignored because you didn't use PlotJoined->True in the
first plot. The Dashing you specified was very strange, but put it back
and see if you like it. The image came out tiny, without the ImageSize
rule I added. I also shortened the labels. They subtract from the
useful plot space. You might try the Legend package, to make the plot
more understandable.
Bobby Treat
-----Original Message-----
From: John Britton [mailto:brittojr at tcd.ie]
To: mathgroup at smc.vnet.net
Subject: [mg34488] [mg34454] Plotting mulitple lists on one log plot
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