Il sistema Sole-Terra-Luna

In[107]:=

RowBox[{El2, :=, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{299Cos[x], ,,  ... 8.99, Sin[x]}], ,, , 0}], }}], ,, {x, 0, 2Pi}, ,, DisplayFunctionIdentity}], ]}]}]

In[108]:=

RowBox[{El, :=, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{RowBox[{38.4413, Cos[x ... , ,, , RowBox[{-Sin[Pi/30], *, 38.3834, Sin[x]}]}], , }}], ,, {x, 0, 2Pi}}], ]}]}]

In[109]:=

RowBox[{Sun, :=, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, , RowBox[{RowBox[{RowBox[{69 ... π}, ,, {t, 0, 2π}, ,, DisplayFunctionIdentity, ,, LightingFalse}], ]}]}]

In[110]:=

RowBox[{Moon, :=, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{RowBox[{RowBox[{1.73 ... , {-350, 350}, {-150, 150}}, ,, DisplayFunctionIdentity, ,, LightingFalse}], ]}]}]

In[111]:=

Table[Show[Moon, El2, Sun, DisplayFunction$DisplayFunction, ImageSize1000, BoxedFalse, AxesFalse, TicksNone], {t, 0, 35}]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Out[111]=

{⁃Graphics3D⁃, ⁃Graphics3D⁃, ⁃Graphics3D⁃, ⁃Graphics ... 9;Graphics3D⁃, ⁃Graphics3D⁃, ⁃Graphics3D⁃, ⁃Graphics3D⁃}

Created by Mathematica  (September 18, 2006)