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[[1]] /.
{x_, xl_?NumericQ, r__} :>
{x,
ToString[Rationalize[xl, 0]/20,
TraditionalForm], r}}}]]
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[[1]] /.
{x_, xl_?NumericQ, r__} :>
{x,
ToString[Rationalize[xl, 0]/"20",
TraditionalForm], r}}}]]
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!!
>
- References:
- different ticks (but relationed)
- From: juan miguel <juanmixp@gmail.com>
- different ticks (but relationed)