Il Bicchiere (Damiano Berardo, Dicembre 2003)

Una rotazione applicata a una semplice curva consente di disegnare un elegante bicchiere.

In[112]:=

<<Graphics`SurfaceOfRevolution`

In[113]:=

RowBox[{, RowBox[{SurfaceOfRevolution, [, RowBox[{RowBox[{{, RowBox[{RowBox[{RowBox[{0 ... 2}], ,, RowBox[{1.35, *, (u + 1)}]}], }}], ,, RowBox[{{, RowBox[{u, ,, -.95, ,, 1.}], }}]}], ]}]}]

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

Out[113]=

⁃Graphics3D⁃

Created by Mathematica  (September 18, 2006)