Urano (beige)

In[88]:=

au = 2875000000

Out[88]=

2875000000

In[89]:=

RowBox[{eu, =, 0.047}]

Out[89]=

0.047

In[90]:=

cu = eu * au

Out[90]=

1.35125*10^8

In[91]:=

bu = Sqrt[au^2 - cu^2]

Out[91]=

2.87182*10^9

In[92]:=

RowBox[{Eclitticau, =, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{au * Cos[α ... Color, [, RowBox[{0.500008, ,, , 0.500008, ,, , 0}], ]}]}], }}], ,, {α, 0, 2 * Pi}}], ]}]}]

General :: spell : Possible spelling error: new symbol name \"Eclitticau\" is simila ... ng symbols {Eclittica, Eclitticag, Eclitticam, Eclitticap, Eclitticas, Eclitticav} . More…

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

Out[92]=

⁃Graphics3D⁃

In[93]:=

Show[Piano2, Eclitticau, Origine]

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

Out[93]=

⁃Graphics3D⁃

In[94]:=

Fu = Sqrt[au^2 - bu^2]

Out[94]=

1.35125*10^8

In[95]:=

247/84

Out[95]=

247/84

In[96]:=

RowBox[{Urano, =, RowBox[{Graphics3D, [, RowBox[{{, RowBox[{RowBox[{RGBColor, [, RowBox[{0.500 ... ], ]}], ,, Point[{au * Cos[φ * 247/84], bu * Sin[φ * 247/84], 0 * φ}]}], }}], ]}]}]

Out[96]=

⁃Graphics3D⁃

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

Created by Mathematica  (September 18, 2006)