Re: Tick mark function

*To*: mathgroup at smc.vnet.net*Subject*: [mg68318] Re: [mg68134] Tick mark function*From*: János <janos.lobb at yale.edu>*Date*: Tue, 1 Aug 2006 06:59:45 -0400 (EDT)*References*: <200607250801.EAA28712@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

On Jul 25, 2006, at 4:01 AM, D. Grady 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! Here is a Tick function I wrote recently. Does not matter how big the data set is it always puts 15 tick marks on the horizontal axes. Ticks -> {({#1, StringJoin[ToString[ToDate[#1][[2]]], "/", ToString [ToDate[#1][[3]]], "\n", ToString[ToDate[#1][[4]]], ":", ToString[ToDate[#1][[5]]]]} & ) /@ Take[Select[cg2Adj [[i]], Last[cg2Adj[[i]]][[1]] - #1[[1]] <= 14400 & ][[ All,1]], {1, Length[Select[cg2Adj[[i]], Last[cg2Adj[[i]]][[1]] - #1[[1]] <= 14400 & ][[All,1]]], Floor[Length[Select[cg2Adj[[i]], Last[cg2Adj[[i]]][[1]] - #1 [[1]] <= 14400 & ][[All,1]]]/14]}], Automatic}