"unChopping" oddity
- To: mathgroup at christensen.cybernetics.net
- Subject: [mg710] "unChopping" oddity
- From: Preston Nichols <pdn at godel.math.cmu.edu>
- Date: Mon, 10 Apr 95 20:20:50 -0500
Dear mathgroup:
I have encountered some strange behavior (session below) in which
Graphics3D seems to introduce 15 "new" significant digits in some
coordinates. The session below is from version 2.2 for SPARC, but I
also got exactly the same behavior from version 2.0 for NeXT.
Can anyone else reproduce this? What do you make of it?
Preston Nichols
Department of Mathematics
Carnegie Mellon University
----------------------------------------------
unix18 1 $ math
Mathematica 2.2 for SPARC
Copyright 1988-93 Wolfram Research, Inc.
-- Terminal graphics initialized --
In[1]:= myline = Line[{{0, 0, 0}, {1, 0, 0}}];
In[2]:= divide[{a_,b_}] := Table[(1-t) a + t b, {t,0,1,0.2}]
General::spell1:
Possible spelling error: new symbol name "divide"
is similar to existing symbol "Divide".
In[3]:= Map[divide,Graphics3D[myline], {2,2}]//InputForm
Out[3]//InputForm=
Graphics3D[Line[{{0, 0, 0}, {0.2, 0, 0}, {0.4, 0, 0},
{0.6000000000000001, 0, 0}, {0.8, 0, 0}, {1., 0, 0}}]]
In[4]:= Map[divide,myline]
Out[4]= Line[{{0, 0, 0}, {0.2, 0, 0}, {0.4, 0, 0}, {0.6, 0, 0},
{0.8, 0, 0}, {1., 0, 0}}]
In[5]:= %//Graphics3D//InputForm
Out[5]//InputForm=
Graphics3D[Line[{{0, 0, 0}, {0.2, 0, 0}, {0.4, 0, 0},
{0.6000000000000001, 0, 0}, {0.8, 0, 0}, {1., 0, 0}}]]