Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

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



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