Terra (blu)

In[4]:=

a = 149897570

Out[4]=

149897570

In[5]:=

RowBox[{e, =, 0.0167}]

Out[5]=

0.0167

In[6]:=

c = e * a

Out[6]=

2.50329*10^6

In[7]:=

b = Sqrt[a^2 - c^2]

Out[7]=

1.49877*10^8

In[8]:=

RowBox[{Eclittica, =, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{a * Cos[α], ... Color, [, RowBox[{0.500008, ,, , 0, ,, , 0.996109}], ]}]}], }}], ,, {α, 0, 2 * Pi}}], ]}]}]

[Graphics:../HTMLFiles/index_19.gif]

Out[8]=

⁃Graphics3D⁃

In[9]:=

Show[Piano, Eclittica, Origine]

[Graphics:../HTMLFiles/index_22.gif]

Out[9]=

⁃Graphics3D⁃

Created by Mathematica  (September 18, 2006)