MathGroup Archive 2006

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

Search the Archive

Re: Tick mark function

  • To: mathgroup at smc.vnet.net
  • Subject: [mg68149] Re: [mg68134] Tick mark function
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Wed, 26 Jul 2006 02:26:14 -0400 (EDT)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com

Show[plt = Plot[(x + 2)(2 - x), {x, -3.25, 3.25},
        DisplayFunction -> Identity],
    Ticks -> {Select[
            (Ticks /. AbsoluteOptions[plt, Ticks])[[1]],
            #[[2]] != "" &][[{1, -1}]], None},
    DisplayFunction -> $DisplayFunction];


Bob Hanlon

---- "D. Grady" <D.C.Grady at gmail.com> wrote: 
> I'm working on a problem that involves creating a large group of
> ListPlots, and the scales of the individual plots are not necessarily
> similar.  When displaying these plots together in a GraphicsArray, the
> tick mark values on the plot axes can be bunched so tightly that they
> are illegible.  What I would like to do is display a single tick mark
> on each axis at the maximum value of the axis.  In the documentation
> for Ticks, it says that you can supply a "function to be applied to
> x_min, x_max to get the tick mark option," but I've been unsuccesful in
> getting this to work.  I've tried
> 
> Ticks->{Max[#1,#2]&,None}
> Ticks->{Max[#]&,None}
> Ticks->{Max,None}
> 
> to no avail.  Does anyone know how this setting for Ticks is intended
> to function?  I have spent some time going through the group archives
> and found many references to the DrawGraphics package which includes a
> CustomTicks function; if all else fails I'm sure that would be a
> solution, but I was hoping for something more straightforward.  Thanks
> in advance!
> 


  • Prev by Date: Re: Tick mark function
  • Next by Date: Re: Using methods from packages
  • Previous by thread: Re: Tick mark function
  • Next by thread: RE: Tick mark function