Nettuno(Azzurro - RGBColor[0.421881, 0.832044, 0.832044])
In[97]:=
Out[97]=
In[98]:=
![RowBox[{en, =, 0.009}]](../HTMLFiles/index_600.gif){kind=small}
Out[98]=
In[99]:=
Out[99]=
In[100]:=
![bn = Sqrt[an^2 - cn^2]](../HTMLFiles/index_604.gif){kind=small}
Out[100]=
In[101]:=
![RowBox[{Eclittican, =, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{an * Cos[α ... olor, [, RowBox[{0.421881, ,, 0.832044, ,, 0.832044}], ]}]}], }}], ,, {α, 0, 2 * Pi}}], ]}]}]](../HTMLFiles/index_606.gif){kind=small}
![[Graphics:../HTMLFiles/index_608.gif]](../HTMLFiles/index_608.gif)
Out[101]=
In[102]:=
![Show[Piano2, Eclittican, Origine]](../HTMLFiles/index_610.gif){kind=small}
![[Graphics:../HTMLFiles/index_611.gif]](../HTMLFiles/index_611.gif)
Out[102]=
In[103]:=
![Fn = Sqrt[an^2 - bn^2]](../HTMLFiles/index_613.gif){kind=small}
Out[103]=
In[104]:=
Out[104]=
In[105]:=
![RowBox[{Nettuno, =, RowBox[{Graphics3D, [, RowBox[{{, RowBox[{RowBox[{RGBColor, [, RowBox[{0.4 ... ]}], ,, Point[{an * Cos[φ * 247/164], bn * Sin[φ * 247/164], 0 * φ}]}], }}], ]}]}]](../HTMLFiles/index_617.gif){kind=small}
Out[105]=
Created by Mathematica (September 18, 2006)