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/