index_10.html

Plutone (nero)

In[68]:=

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

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

Out[68]=

In[69]:=

$RowBox[{Piano2, =, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{a, ,, b, ,, 0, ,, R ... , }}], ,, {a, -6 * 10^9, 6 * 10^9}, ,, {b, -6 * 10^9, 6 * 10^9}, ,, LightingFalse}], ]}]}]$

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

Out[69]=

In[70]:=

$RowBox[{ap, =, RowBox[{5.9, *, 10^9}]}]$

Out[70]=

In[71]:=

Out[71]=

In[72]:=

Out[72]=

In[73]:=

Out[73]=

In[74]:=

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

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

Out[74]=

In[75]:=

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

Out[75]=

In[76]:=

Out[76]=

In[77]:=

Out[77]=

In[78]:=

Out[78]=

Table[Show[Mercurio,Eclitticam,Terra,Piano2,sole2,Venere,Eclittica, Eclitticav,Marte,Eclitticama,Giove,Eclitticag,Plutone,Eclitticap,Lighting→False],{φ,0,2*Pi,2*Pi/247}]

Created by Mathematica (September 18, 2006)