Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

Re: Re: plotting two functions on the one graph

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53146] Re: [mg53114] Re: plotting two functions on the one graph
  • From: DrBob <drbob at bigfoot.com>
  • Date: Sat, 25 Dec 2004 04:00:41 -0500 (EST)
  • References: <18tzsc73qtgb@legacy> <200412241059.FAA05787@smc.vnet.net>
  • Reply-to: drbob at bigfoot.com
  • Sender: owner-wri-mathgroup at wolfram.com

Here's another option:

Needs["Graphics`Colors"] (* unnecessary in version 5.1 *)

SF = 10;
f = Plot[Sin[x], {x, 0, Pi}, DisplayFunction -> Identity];
g = Plot[Exp[x]/SF, {x, 0, Pi}, DisplayFunction -> Identity, PlotStyle -> {{
     Red, Thickness[.01]}}];
Show[{f, g}, DisplayFunction -> $DisplayFunction, Frame -> True,
         FrameTicks -> {PiScale,
       Automatic, None, UnitScale[
         0, Exp[Pi]/SF, 1/SF] /. {y_Real, label_} -> {y, SF label, .02, {
     Red, Thickness[.01]}}}];

or (somewhat simpler):

DisplayTogether[Plot[Sin[x], {x,
    0, Pi}],
     Plot[Exp[x]/SF, {x, 0, Pi}, PlotStyle -> {{Red, Thickness[.01]}}],
        Frame -> True, FrameTicks -> {
     PiScale, Automatic, None,
       UnitScale[0,
           Exp[Pi]/SF, 1/SF] /. {
             y_Real, label_} -> {y, SF label, .02, {Red, Thickness[.01]}}
       }
   ]

Bobby

On Fri, 24 Dec 2004 05:59:00 -0500 (EST), Narasimham <mathma18 at hotmail.com> wrote:

>
>
> On 15 Dec 04 10:24:47 -0500 (EST), Frank Murphy wrote:
>> siafra at vaxsa.csied.unisa.it wrote:
>
>> how can I plot two functions f(x), g(x) with the same x range on
>> two different y-axes, say the one for f(x) at left and the one
>> for g(x) at right ?
>
> Plots (one or more) are usually made to compare quantities of the same
> order of magnitude, so Mathematica has such a default plotting
> feature. If there are big differences, either use a LogPlot or use a
> scale factor SF in multiples of 10 to divide out the larger quantity
> bringing it at par with the others for comparable plots.
>
> SF = 10;
> f = Plot[Sin[x], {x, 0, Pi}, DisplayFunction -> Identity];
> g = Plot[Exp[x]/SF, {x, 0, Pi}, DisplayFunction -> Identity];
> Show[{f, g}, DisplayFunction -> $DisplayFunction];
>
>
>
>



-- 
DrBob at bigfoot.com
www.eclecticdreams.net


  • Prev by Date: Re: Mathematica language issues
  • Next by Date: Help with a summation
  • Previous by thread: Re: plotting two functions on the one graph
  • Next by thread: NIntegrate a list