Il piano dell'eclittica

In[1]:=

RowBox[{Piano, =, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{a, ,, b, ,, 0, ,, Ro ... [{RowBox[{-, 2.5}], *, 10^8}], ,, RowBox[{2.5, *, 10^8}]}], }}], ,, LightingFalse}], ]}]}]

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

Out[1]=

⁃Graphics3D⁃

In[2]:=

Origine = Show[Graphics3D[Point[{0, 0, 0}]]]

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

Out[2]=

⁃Graphics3D⁃

In[3]:=

Show[Piano, Origine]

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

Out[3]=

⁃Graphics3D⁃

Created by Mathematica  (September 18, 2006)