Re: Help! About drawing a high-precision 3D graph
- To: mathgroup at smc.vnet.net
- Subject: [mg96377] Re: Help! About drawing a high-precision 3D graph
- From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
- Date: Thu, 12 Feb 2009 06:40:09 -0500 (EST)
- References: <gmu8la$ggt$1@smc.vnet.net>
Chris,
I'm not aware of any ListPoint3D method. To plot a 3D data set you
could use ListPlot3D, or you could just draw them using Graphics3D[ ]
and Point[ ].
I wonder whether you really need 15 digit accuracy. Given that the
world's circumference is about 40,000 km, corresponding to 360 deg, 1
m corresponds to 9.*10^-6 deg.
As far as I can see most graphical routines are indeed accuracy
restricted.
ListPlot[Table[
1 + Sin[x ]/10000000000000, {x, 0, 2 \[Pi], \[Pi]/25}]] works, but
ListPlot[Table[
1 + Sin[x ]/100000000000000, {x, 0, 2 \[Pi], \[Pi]/25}]] doesn't.
I suggest you subtract a fixed offset from all data points (e.g.,
58.12343432 in your example). Use precision to control the number of
digits (58.1234343253452`20 - 58.12343432`20)
Cheers -- Sjoerd
On Feb 11, 12:18 pm, Chris <chris_wen... at hotmail.com> wrote:
> I met a problem with drawing a 3D graph. My data to be used in Mathematic=
a Software is 15 digits, which means an example of those data is 58.1234343=
253452. These data represent the latitude an d longitude of world. So, I ne=
ed to precisely paint those coordinate in a 3D space as a tiny point, perha=
ps the method ListPoint3D to be used.However, it seems that ListPoint3D doe=
s not support morn than 6 significant digits. So, can anyone help me ?