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
> ********************************************************************
>
>

```

• Prev by Date: Re: Help on Partitions, Again!!!
• Next by Date: Re: Help on Partitions, Again!!!