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