MathGroup Archive 1995

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

Search the Archive

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



  • Prev by Date: Re: Word - Mathematica connection
  • Next by Date: Mathematica on IBM AIX 4.1.2
  • Previous by thread: Principia Consulting
  • Next by thread: Re: "unChopping" oddity