       Re: different ticks (but relationed)

• To: mathgroup at smc.vnet.net
• Subject: [mg126143] Re: different ticks (but relationed)
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Fri, 20 Apr 2012 07:48:46 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201204190753.DAA04225@smc.vnet.net>

```The upper and lower ticks are proportional not inversely proportional.

Module[{
p = Plot[5 x/7, {x, 0, 7},
Frame -> True, Axes -> False],
ft},
ft = FrameTicks /.
AbsoluteOptions[p, FrameTicks];
Show[p,
FrameTicks -> {
{Automatic, Automatic},
{Automatic,
ft[] /.
{x_, xl_?NumericQ, r__} :>
{x,
ToString[Rationalize[xl, 0]/20,

If you want to keep the fractions from simpifying:

Module[{
p = Plot[5 x/7, {x, 0, 7},
Frame -> True, Axes -> False],
ft},
ft = FrameTicks /.
AbsoluteOptions[p, FrameTicks];
Show[p,
FrameTicks -> {
{Automatic, Automatic},
{Automatic,
ft[] /.
{x_, xl_?NumericQ, r__} :>
{x,
ToString[Rationalize[xl, 0]/"20",

Bob Hanlon

On Thu, Apr 19, 2012 at 3:53 AM, juan miguel <juanmixp at gmail.com> wrote:
> Hello
>
> I have been looking for this question, but I have not found the exact
> solution. What I want to plot is a graph with frames. In this plot, I
> want to plot ticks, but they are not individuals they are inversely
> proportional. I think that if I draw a little plot is better
>
>   1/20   3/20   5/20  7/20
> 5 |--------------------------------|
> 4 |                                |
> 3 |                                |
> 2 |                                |
> 1 |--------------------------------|
>   1   2   3   4   5   6   7
>
> That is what i want, the axis below is inversely proportional to the
> above, but i dont know hat to draw the above ticks..could you help
> me??
>
> Thanks!!
>

```

• Prev by Date: Re: Extract coefficients of a trig polynomial
• Next by Date: Re: Extract coefficients of a trig polynomial
• Previous by thread: Re: different ticks (but relationed)
• Next by thread: Re: different ticks (but relationed)