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
>
>
>
>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