Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*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 1998

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

Search the Archive

Re: 2 ticks on a 2D plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg14556] Re: 2 ticks on a 2D plot
  • From: "Allan Hayes" <hay at haystack.demon.co.uk>
  • Date: Fri, 30 Oct 1998 03:07:28 -0500
  • References: <70418l$i5k@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

H. J. Wang wrote in message <70418l$i5k at smc.vnet.net>...
>Hi,
>
>Is there a way to have two different ticks on a 2D plot, one on the top
>and the other on the bottom of a frame?
>
>I am trying to plot 2 lists of data on a single picture.  They have the
>same y-axis scale but different x-axis scales.  Ideally I would like to
>put them in a frame, and give each list a separate x-axis; one on the
>top and the other on the bottom, which looks like (the box will be
>twisted if this message is displayed with proportional fonts):
>
>   1  2  3  4  5
>  --------------
> 3|            |
> 2|            |
> 1|____________|
>   1   2   3   4
>
>
>Any advice will be appreciated!
>
>H.J. Wang
>

Some ideas:

We combine:
Plot[x^2, {x, 0, 1},Frame -> True, FrameTicks -> Automatic];
Plot[Sin[x], {x, Pi/2, 2Pi}, Frame -> True, FrameTicks -> Automatic];

A scaling function and its inverse are needed sc = Interpolation[{{0,
Pi/2}, {1, 2Pi}}]; invsc = Interpolation[{{Pi/2, 0}, {2Pi, 1}}];

Now  (with the second plot and its ticks in  red),

Plot[{x^2, Sin[sc[x]]}, {x, 0, 1},
  PlotStyle -> {{GrayLevel[0]}, {Hue[0]}},
  Frame -> True, FrameTicks -> {Automatic, Automatic,
      Table[{invsc[#], StyleForm[#, FontColor -> Hue[0]]} &[i], {i, 2,
6}],
      None}]


----------------------
Allan Hayes
Mathematica Training and Consulting
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565




  • Prev by Date: RE: Save as text?
  • Next by Date: Re: ParametricPlot
  • Previous by thread: RE: 2 ticks on a 2D plot
  • Next by thread: Adding equations