Re: 2D..Ticks...
- To: mathgroup at smc.vnet.net
- Subject: [mg24650] Re: 2D..Ticks...
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Mon, 31 Jul 2000 09:23:21 -0400 (EDT)
- References: <8lt1fh$2jk@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Ticks are discussed at length in the book Mathematica Graphics by Tom
Wickham-Jones,
ISBN-0-387-94047-2.
Here is a way of modifying:
Make a graphic
gr = Plot[Sin[x], {x, 0, 2Pi}];
Find the option for the ticks that are shown:
tks = AbsoluteOptions[gr, Ticks];
Take a look at the form of tks
Short[tks, 5]
{Ticks -> {{{0.,
0., {0.00625, 0.}, {GrayLevel[0.],
AbsoluteThickness[
0.25]}}, \[LeftSkeleton]31\[RightSkeleton], {6.4,
"", {0.00375, 0.}, {GrayLevel[0.],
AbsoluteThickness[0.125]}}},
{\[LeftSkeleton]1\[RightSkeleton]}}}
Modify tks
tks2 = tks /. {t_Real, l_, {p_Real, n_Real}, stl_List} ->
{t, l, {30p, n}, {Hue[0], AbsoluteThickness[.25]}};
Use tks2 with Show.
Show[gr, tks2[[1]]]
Unfortunatetely it looks as if the positioning of the labels uses the length
of the positive side of the ticks - I haven't sorted this out.
Of course you could specify your own ticks independently of the default
values given by Plot.
Please look up Ticks in the HelpBrowser.
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565
"H.P.V. Vithana" <vidura at ait.ac.th> wrote in message
news:8lt1fh$2jk at smc.vnet.net...
>
> Dear Friends,
>
> Can anyone kindly advise me how to modify the tick length, and thickness
> on both axes..? I am a beginner and I tried to find the way from the
> manual..I have failed so far...
>
> I want to include it in....
>
> Show [... ]
>
> best regards,
> Vithana
>
> *********************************************************************
> H.P.V.Vithana
> Research Associate,
> WEM/SCE,
> Asian Institute of Technology,
> P.O.Box 4,
> Klong Luang 12120,
> Pathumthni,
> Thailand.
>
> email: vidura at ait.ac.th
> fax: 66-2-524-5558
> phone: 66-2-524-6067
> ********************************************************************
>
>