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>