"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}}]]