Giove1

In[57]:=

RowBox[{Piano1, =, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{a, ,, b, ,, 0, ,, R ... , }}], ,, {a, -8 * 10^8, 8 * 10^8}, ,, {b, -8 * 10^8, 8 * 10^8}, ,, LightingFalse}], ]}]}]

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

Out[57]=

⁃Graphics3D⁃

In[58]:=

RowBox[{sole1, =, RowBox[{Show, [, , RowBox[{Graphics3D, [, , RowBox[{{, RowBo ... ,, , 0.996109, ,, , 0.500008}], ]}], ,, Point[{F, 0, 0}]}], }}], , ]}], , ]}]}]

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

Out[58]=

⁃Graphics3D⁃

In[59]:=

ag = 778300000

Out[59]=

778300000

In[60]:=

RowBox[{eg, =, 0.048}]

Out[60]=

0.048

In[61]:=

cg = eg * ag

Out[61]=

3.73584*10^7

In[62]:=

bg = Sqrt[ag^2 - cg^2]

Out[62]=

7.77403*10^8

In[63]:=

RowBox[{Eclitticag, =, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{ag * Cos[α ... [, RowBox[{0.996109, ,, , 0.500008, ,, , 0.996109}], ]}]}], }}], ,, {α, 0, 2 * Pi}}], ]}]}]

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

Out[63]=

⁃Graphics3D⁃

In[64]:=

Show[Piano1, Eclitticag, Origine]

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

Out[64]=

⁃Graphics3D⁃

In[65]:=

Fg = Sqrt[ag^2 - bg^2]

Out[65]=

3.73584*10^7

In[66]:=

247/12

Out[66]=

247/12

In[67]:=

RowBox[{Giove1, =, RowBox[{Graphics3D, [, RowBox[{{, RowBox[{RowBox[{RGBColor, [, RowBox[{0.99 ... ], ]}], ,, Point[{ag * Cos[φ * 247/12], bg * Sin[φ * 247/12], 0 * φ}]}], }}], ]}]}]

Out[67]=

⁃Graphics3D⁃

Table[Show[Mercurio,Eclitticam,Terra,Piano1,sole1,Venere,Eclittica, Eclitticav,Marte,Eclitticama,Giove,Eclitticag,Lighting→False],{φ,0,2*Pi,2*Pi/182.5}]

Created by Mathematica  (September 18, 2006)