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