Re: Tilted decimals - Mathematica 6
- To: mathgroup at smc.vnet.net
- Subject: [mg87992] Re: [mg87955] Tilted decimals - Mathematica 6
- From: Murray Eisenberg <murray at math.umass.edu>
- Date: Mon, 21 Apr 2008 14:36:31 -0400 (EDT)
- Organization: Mathematics & Statistics, Univ. of Mass./Amherst
- References: <200804210725.DAA19309@smc.vnet.net>
- Reply-to: murray at math.umass.edu
Perhaps David Park has replied directly to you, but in case not... Point your browser to his Mathematica Page: http://home.comcast.net/~djmpark/Mathematica.html Scroll down to the section "Packages for Sale". Click the link "Presentations/DrawGraphics". At the bottom of the target page, click the link "Purchase Presentations/DrawGraphics Package". It will take you to kagi.com, where you can place your order. The package you want is the first one, confusingly listed as "DrawGraphics Mathematica Package". But if you order that, then you can download either the Mathematica 6.0-compatible Presentations package or else the earlier DrawGraphics package. (Kagi is similar to PayPal. You pay kagi.com by credit card, etc. You do NOT need any prior kind of account on kagi.com) zosi wrote: > 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 > >> > > -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 413 549-1020 (H) University of Massachusetts 413 545-2859 (W) 710 North Pleasant Street fax 413 545-1801 Amherst, MA 01003-9305
- References:
- Tilted decimals - Mathematica 6
- From: zosi <zosi@to.infn.it>
- Tilted decimals - Mathematica 6