index_20.html

L'uccellino (Giovanni Bertoglio, Dicembre 2003)

In[129]:=

$RowBox[{Show, [, RowBox[{ParametricPlot3D[{Cos[t] Sin[u], Sin[t] + Sin[u] - 2, 1/4Cos[u] + 2}, ... n[u] Cos[t]^2 + 1}], }}], ,, {u, 0, Pi}, ,, {t, -Pi, Pi}}], ]}], ,, , ImageSize800}], ]}]$

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

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

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

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

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

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

Out[129]=

Created by Mathematica (September 18, 2006)