Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Polygon cutter
  • Next by Date: Re: function not evaluating question tia sal2
  • Previous by thread: Tilted decimals - Mathematica 6
  • Next by thread: New Presentations Version