Re: Plotting two differently scaled graphs together

• To: mathgroup at smc.vnet.net
• Subject: [mg51509] Re: Plotting two differently scaled graphs together
• 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

```

• Prev by Date: Re: MultipleListPlot without any Point Shape, only with line made by PlotJoined -> True
• Next by Date: Re: Re: Corrupted file
• Previous by thread: Plotting two differently scaled graphs together
• Next by thread: Re: Plotting two differently scaled graphs together