thanks
Plot[Sin[x],{x,0,6Pi},
FrameTicks->{PiScale,Automatic},
Frame->True,Axes->False,
GridLines->{
Table[{x,{Red,AbsoluteThickness[0.25]}},{x,0,6Pi,Pi/2}],
Table[{y,{Red,AbsoluteThickness[0.25]}},{y,-1,1,0.2}]}];
Bob Hanlon
Needs["DrawGraphics`DrawingMaster`"]
Draw2D[{Draw[Sin[x], {x, 0, 6Pi}]},
Frame -> True,
FrameTicks -> {CustomTicks[Identity, {0, 6Pi, Pi, 4}],
CustomTicks[Identity, {-1, 1, 0.2, 5}, CTNumberFunction -> Chop],
CustomTicks[Identity, {0, 6Pi, Pi, 4}, CTNumberFunction -> ("" &)],
CustomTicks[Identity, {-1, 1, 0.2, 5}, CTNumberFunction -> ("" &)]},
GridLines -> {CustomGridLines[Identity, {0, 6Pi, Pi/2}, {Gainsboro}],
CustomGridLines[Identity, {-1, 1, 0.2}, {Gainsboro}]},
PlotLabel -> "Plot With Custom Grid and Ticks",
Background -> Linen,
ImageSize -> 450];
I made several modifications from your initial specification. I used a plot
frame instead of Axes. With an axes plot such as this the x-tick labels
appear right in the middle of the plot and step all over the curve. If you
look in Science magazine, for example, you will never see axes plots but
always frame plots.
Secondly, instead of using Red for the grid lines I used Gainsboro, which is
a very light gray. Again, Red grid lines would step all over the curve. It
is the curve and not the grid lines that is important. By using light gray
or Gainsboro we are using Edward Tufte's principle of "minimum effective
difference" to put in ancillary information.
David Park
dj...@earthlink.net
http://home.earthlink.net/~djmp/