Venere (verde)

In[16]:=

av = 108200000

Out[16]=

108200000

In[17]:=

RowBox[{ev, =, 0.007}]

Out[17]=

0.007

In[18]:=

cv = ev * av

Out[18]=

757400.

In[19]:=

bv = Sqrt[av^2 - cv^2]

Out[19]=

1.08197*10^8

In[20]:=

RowBox[{Eclitticav, =, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{av * Cos[α ... ox[{RGBColor, [, RowBox[{0, ,, , 0.996109, ,, , 0}], ]}]}], }}], ,, {α, 0, 2 * Pi}}], ]}]}]

General :: spell1 : Possible spelling error: new symbol name \"Eclitticav\" is similar to existing symbol \"Eclittica\". More…

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

Out[20]=

⁃Graphics3D⁃

In[21]:=

Show[Piano, Eclitticav, Origine]

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

Out[21]=

⁃Graphics3D⁃

In[22]:=

Fv = Sqrt[av^2 - bv^2]

Out[22]=

757400.

In[23]:=

RowBox[{Venere, =, RowBox[{Graphics3D, [, RowBox[{{, RowBox[{RowBox[{RGBColor, [, RowBox[{0, , ... v, *, RowBox[{Sin, [, RowBox[{φ, *, 1.62439}], ]}]}], ,, 0 * φ}], }}], ]}]}], }}], ]}]}]

Out[23]=

⁃Graphics3D⁃

In[24]:=

RowBox[{365, /, 224.7}]

Out[24]=

1.62439

Table[Show[Terra,Piano,sole,Venere,Eclittica, Eclitticav,Lighting→False],{φ,0,2*Pi,2*Pi/365}]

Created by Mathematica  (September 18, 2006)