Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

Problem with supplying custom tick marks

  • To: mathgroup at smc.vnet.net
  • Subject: [mg82714] Problem with supplying custom tick marks
  • From: "David Park" <djmpark at comcast.net>
  • Date: Tue, 30 Oct 2007 03:15:17 -0500 (EST)

Here are a set of tick specifications for an x axis:

xticks = {{0,
    0, {0.00625`, 0}, {GrayLevel[0.`], AbsoluteThickness[0.25`]}}, {2,
     2, {0.00625`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.25`]}}, {4,
    4, {0.00625`, 0}, {GrayLevel[0.`], AbsoluteThickness[0.25`]}}, {6,
     6, {0.00625`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.25`]}}, {8,
    8, {0.00625`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.25`]}}, {10,
    10, {0.00625`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.25`]}}, {12,
    12, {0.00625`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.25`]}}, {14,
    14, {0.00625`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.25`]}}, {1/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {1,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {3/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {5/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {3,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {7/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {9/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {5,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {11/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {13/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {7,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {15/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {17/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {9,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {19/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {21/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {11,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {23/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {25/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {13,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {27/2,
    "", {0.00375`, 0}, {GrayLevel[0.`],
     AbsoluteThickness[0.125`]}}, {29/2,
    "", {0.00375`, 0}, {GrayLevel[0.`], AbsoluteThickness[0.125`]}}};

Here is a plot with Automatic x-axis ticks.

plot1 = Plot[5 Sin[x], {x, 0, 15},
  Frame -> True,
  FrameTicks -> {Automatic, Automatic, None, None}]

Here is the same plot with the xticks defined above.

plot2 = Plot[5 Sin[x], {x, 0, 15},
  Frame -> True,
  FrameTicks -> {xticks, Automatic, None, None}]

What bothers me is that the x-ticks are so much shorter in the second plot 
(at least they distinctly look that way to me) even though they are exactly 
the same ticks.

xticks == Part[AbsoluteOptions[plot1, FrameTicks], 1, 2, 1] ==
 Part[AbsoluteOptions[plot2, FrameTicks], 1, 2, 1]
True

I find this quite irritating and something that seems to be beyond the 
user's control. One can make the ticks look better by making them 2 or 3 
times as large. However, the same tick specifications should result in the 
same ticks.

-- 
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/




  • Prev by Date: Re: Re: Zoom2D - V6 question
  • Next by Date: Re: : Polar Plot
  • Previous by thread: Re: Creating and installing one's own packages?
  • Next by thread: Re: : Polar Plot