Re: Plotting two differently scaled graphs together
- To: mathgroup at smc.vnet.net
- Subject: [mg51509] Re: Plotting two differently scaled graphs together
- From: Bill Rowe <readnewsciv at earthlink.net>
- Date: Wed, 20 Oct 2004 01:21:41 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
On 10/19/04 at 2:55 AM, marcinmirski at hotmail.com (Marcin Mirski)
wrote:
>Hi, I am preparing some graphs for a university lab course, and I
>can't figure out how to scale and plot two graphs together, along
>with scaled y-axes.
>I am plotting Yield and Ultimate tensile stress, both on the order
>of 100-500MPa, along with %elongation, which ranges from .25-16.75.
>%Cold Work is the x-axis.
>DisplayTogether[ListPlot[S_y, PlotStyle -> PointSize[0.01]],
>ListPlot[S_u, PlotStyle -> PointSize[0.01]], ListPlot[Elong,
>PlotStyle -> PointSize[0.01]], AxesLabel -> {"%CW", MPa}, PlotLabel
>-> "YS, UTS, and %Elongation vs %CW of Brass"]
>Of course, Elong ends up being an almost horizontal line along the
>bottom. How can I scale Elong by about 25, and add a 2nd y-axis on
>the right-hand of the graph to reflect the scaling? I've looked
>through the Help and searched a bit through the list archives, but
>I haven't found anything.
Is something like this close to what you are looking for?
Plot[x^2, {x, 1, 34},
Frame -> True,
FrameTicks -> {Automatic, Automatic, None, {10^#1, #1}&/@
Range[1, 3]},
FrameLabel -> {"x", "y", "", "log(y)"}];
If not, take a look at the DrawGraphics package David Park wrote available on his web site.
--
To reply via email subtract one hundred and four