Saturno (verde)
In[79]:=
Out[79]=
In[80]:=
![RowBox[{es, =, 0.056}]](../HTMLFiles/index_558.gif){kind=small}
Out[80]=
In[81]:=
Out[81]=
In[82]:=
![bs = Sqrt[as^2 - cs^2]](../HTMLFiles/index_562.gif){kind=small}
Out[82]=
In[83]:=
![RowBox[{Eclitticas, =, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{as * Cos[α ... Color, [, RowBox[{0, ,, , 0.996109, ,, , 0.250004}], ]}]}], }}], ,, {α, 0, 2 * Pi}}], ]}]}]](../HTMLFiles/index_564.gif){kind=small}
![[Graphics:../HTMLFiles/index_566.gif]](../HTMLFiles/index_566.gif)
Out[83]=
In[84]:=
![Show[Piano2, Eclitticas, Origine]](../HTMLFiles/index_568.gif){kind=small}
![[Graphics:../HTMLFiles/index_569.gif]](../HTMLFiles/index_569.gif)
Out[84]=
In[85]:=
![Fs = Sqrt[as^2 - bs^2]](../HTMLFiles/index_571.gif){kind=small}
Out[85]=
In[86]:=
Out[86]=
In[87]:=
![RowBox[{Saturno, =, RowBox[{Graphics3D, [, RowBox[{{, RowBox[{RowBox[{RGBColor, [, RowBox[{0, ... ], ]}], ,, Point[{as * Cos[φ * 247/29], bs * Sin[φ * 247/29], 0 * φ}]}], }}], ]}]}]](../HTMLFiles/index_575.gif){kind=small}
Out[87]=
Table[Show[Mercurio,Eclitticam,Terra,Piano2,sole2,Venere,Eclittica, Eclitticav,Marte,Eclitticama,Giove,Eclitticag,Saturno,Eclitticas,Eclitticap,Plutone,Lighting→False],{φ,0,2*Pi,2*Pi/247}]
Created by Mathematica (September 18, 2006)