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