Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

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}


  • Prev by Date: Re: Re: {x},{y} -> {x,y} ?
  • Next by Date: Re: Re: Re: InputForm changes the order of output?
  • Previous by thread: Re: Re: Re: {x},{y} -> {x,y} ?
  • Next by thread: Re: Re: Re: InputForm changes the order of output?