MathGroup Archive 2008

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

Search the Archive

Re: Get Graphics Coordinates accuracy

  • To: mathgroup at smc.vnet.net
  • Subject: [mg92348] Re: Get Graphics Coordinates accuracy
  • From: m.r at inbox.ru
  • Date: Sun, 28 Sep 2008 07:21:54 -0400 (EDT)
  • References: <gbjm5i$383$1@smc.vnet.net>

John Jowett wrote:
> I came across a limitation in the mechanism for copying coordinates of
> points in 2D graphics (the Get Coordinates button in the Drawing Tools
> palette) in V6.03.
>
> Consider the following plot of a sine wave
>
> Plot[Sin[2 x], {x, 20270, 20275}]
>
> When I try to select and paste the coordinates of the two crests of
> the wave, I typically get two points with the same x-coordinate
>
> {{2.027*^4, 0.99}, {2.027*^4, 0.99}}
>
> whereas I would expect the two x-coordinates to be around
> 20270.3 and 20273.5, values which are well separated on the plot.
>
> This seems to happen because the Get Coordinates function only returns
> the first 4 digits of the coordinates.
>
> Does anyone know of a way to fix this ?  Obviously, in this
> demonstration example, I could change variables to x1=x-20270 but in
> the more complicated problem I am working on, this is not so easy.
>
> John Jowett

As a workaround, you can do

Plot[Sin[2 x], {x, 20270, 20275}, CoordinatesToolOptions ->
 {"DisplayFunction" -> (#&),
  "CopiedValueFunction" -> (SetPrecision[#, $MachinePrecision]&)}]

and then you can apply N to the copy-paste result to convert it back
to MachinePrecision.

Maxim Rytin
m.r at inbox.ru


  • Prev by Date: Re: Help
  • Next by Date: Re: Making _on line_ Help be the default?
  • Previous by thread: Re: Get Graphics Coordinates accuracy
  • Next by thread: Precision in Mathematica 6