Mercurio (marrone)

In[25]:=

am = 58000000

Out[25]=

58000000

In[26]:=

RowBox[{em, =, 0.206}]

Out[26]=

0.206

In[27]:=

cm = em * am

Out[27]=

1.1948*10^7

In[28]:=

bm = Sqrt[am^2 - cm^2]

Out[28]=

5.6756*10^7

In[29]:=

RowBox[{Eclitticam, =, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{am * Cos[α ... Color, [, RowBox[{0.500008, ,, , 0.250004, ,, , 0}], ]}]}], }}], ,, {α, 0, 2 * Pi}}], ]}]}]

General :: spell : Possible spelling error: new symbol name \"Eclitticam\" is similar to existing symbols {Eclittica, Eclitticav} . More…

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

Out[29]=

⁃Graphics3D⁃

In[30]:=

Show[Piano, Eclitticam, Origine]

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

Out[30]=

⁃Graphics3D⁃

In[31]:=

Fm = Sqrt[am^2 - bm^2]

Out[31]=

1.1948*10^7

In[32]:=

RowBox[{365, /, 87.969}]

Out[32]=

4.14919

In[33]:=

RowBox[{Mercurio, =, RowBox[{Graphics3D, [, RowBox[{{, RowBox[{RowBox[{RGBColor, [, RowBox[{0. ... m, *, RowBox[{Sin, [, RowBox[{φ, *, 4.14919}], ]}]}], ,, 0 * φ}], }}], ]}]}], }}], ]}]}]

Out[33]=

⁃Graphics3D⁃

Table[Show[Mercurio,Eclitticam,Terra,Piano,sole,Venere,Eclittica, Eclitticav],{φ,0,2*Pi,2*Pi/182.5}]

Created by Mathematica  (September 18, 2006)