Tilted decimals - Mathematica 6

• To: mathgroup at smc.vnet.net
• Subject: [mg87955] Tilted decimals - Mathematica 6
• From: zosi <zosi at to.infn.it>
• Date: Mon, 21 Apr 2008 03:25:39 -0400 (EDT)

```Dear David Park,

I would like to send the following mail directly to you
( djmpark at comcast.net, since Monday 14 April)
but  I get always the following Message:

"Mailbox disabled for this recipient".

Could you kindly tell me how to reach you ?
Best regards

Gianfranco Zosi
Dip. Fisica Generale
Universita di Torino

Dear David,

I am ready to transfer 50 \$ to you, but the link to Wolfram is not
clear at all, i.e., I have not seen any instruction for
"Purchase Presentations Package".
Can I send them directly to you, through my Visa Card ?

Best regards

Gianfranco

PS I do not see in your exmaple, at least explicitly, the angle alpha Pi/6.

Here is one solution using the CustomTicks function from the Presentations
package. We also need to use NumberForm to extend the display precision,
otherwise all the numbers will be the same.

Needs["Presentations`Master`"]

With[
{xticks = CustomTicks[Identity, {123.45678, 123.45679, .000002, 5},
CTNumberFunction ->
(Graphics[
Text[Style[NumberForm[#, {9, 6}], 12], {0, 0}, {-1, 0}, {0,
1}],
AspectRatio -> 6,
ImageSize -> {10, 60}] &)],
yticks = CustomTicks[Identity, {123.45678, 123.45679, .000002, 5},
CTNumberFunction -> (NumberForm[#, {9, 6}] &)]},
Draw2D[
{Draw[x, {x, 123.45678, 123.45679}]},
AspectRatio -> 1/GoldenRatio,
Frame -> True,
FrameTicks -> {{yticks, Automatic}, {xticks,
xticks // NoTickLabels}},
FrameLabel -> {"x", "y"},
BaseStyle -> {FontSize -> 12}]
]

However, that rather violates the principle: "Maximize the information,
minimize the ink." 123.45678 is repeated 12 times! In technical publication
the tick labels themselves are usually simplified and the functional
relation between the tick values and the quantity is put in the frame
labels. Here the tick labels go from 0 to 1 on the x and y axes.

With[
{ticks = CustomTicks[#/105 + 123.45678 &, {0, 1, .2, 5}]},
Draw2D[
{Draw[x, {x, 123.45678, 123.45679}]},
AspectRatio -> 1/GoldenRatio,
Frame -> True,
FrameTicks -> {{ticks, ticks // NoTickLabels}, {ticks,
ticks // NoTickLabels}},
FrameLabel -> {"(x-123.45678)\!\(\*SuperscriptBox[\"10\", \"5\"]\)",
"(y-123.45678)\!\(\*SuperscriptBox[\"10\", \"5\"]\)"},
BaseStyle -> {FontSize -> 12}]
]

-- David Park djmpark at comcast.net http://home.comcast.net/~djmpark/
"zosi" <zosi at to.infn.it> wrote in message news:ftncsa\$8c4\$1 at smc.vnet.net...

>> Dear Mathgroup,
>>
>> How can I see all the decimals on the x-axis **and** avoid overlapping ?
>>
>> Trivial example: Plot[x, {x, 123.45678, 123.45679}]
>>
>> I would like to rotate clockwise  by an angle alpha (e.g.,Pi/6, or
>> Pi/2+Pi/6)
>> the values on the x-axis and translate them in order to see the starting
>> point,
>> i.e., the "1"  of  123.45678 should be near to the relevant tick.
>>
>> Note: I cannot use the usual Options to reduce the **size** of the
>> figures or
>> increase the size of the image.
>>
>> Any hint ?
>> Many thanks.
>>
>> PS  The nice suggestion by Ruskeepaa (pag.  271) seems not applicable in
>> this case.
>>
>> Gianfranco Zosi
>> Dip. Fisica Generale
>> Universita di Torino
>>

```

• Prev by Date: Re: Re: A Problem with Simplify
• Next by Date: New Presentations Version
• Previous by thread: Mathematica SIG (Washington DC Area)
• Next by thread: Re: Tilted decimals - Mathematica 6