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, Thank you for your reply to my question about tilted decimals. 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 >>

**Follow-Ups**:**Re: Tilted decimals - Mathematica 6***From:*Murray Eisenberg <murray@math.umass.edu>