MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • 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