SOLE

In[10]:=

F = Sqrt[a^2 - b^2]

Out[10]=

2.50329*10^6

In[11]:=

R = 696000 * 100

Out[11]=

69600000

In[12]:=

RowBox[{Sole, =, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{F + R * Cos[φ] * ... 8}], ]}]}], }}], ,, {φ, 0, 2 * Pi}, ,, {δ, 0, 2 * Pi}, ,, LightingFalse}], ]}]}]

General :: spell1 : Possible spelling error: new symbol name \"Sole\" is similar to existing symbol \"Solve\". More…

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

Out[12]=

⁃Graphics3D⁃

In[13]:=

Show[Piano, Eclittica, Origine, Sole]

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

Out[13]=

⁃Graphics3D⁃

In[14]:=

RowBox[{Terra, =, RowBox[{Graphics3D, [, RowBox[{{, RowBox[{RowBox[{RGBColor, [, RowBox[{0.500 ... , 0, ,, , 0.996109}], ]}], ,, Point[{a * Cos[φ], b * Sin[φ], 0 * φ}]}], }}], ]}]}]

Out[14]=

⁃Graphics3D⁃

In[15]:=

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

General :: spell1 : Possible spelling error: new symbol name \"sole\" is similar to existing symbol \"Sole\". More…

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

Out[15]=

⁃Graphics3D⁃

Table[Show[Terra,Piano,Eclittica,sole,Lighting→False],{φ,0,2*Pi,2*Pi/365}]

Created by Mathematica  (September 18, 2006)