index_17.html

Il Cuore pulsante (Damiano Berardo, Dicembre 2003)

Come disegnare una curva tridimensionale a forma di cuore.

In[114]:=

In[115]:=

$RowBox[{f, =, RowBox[{ContourPlot3D, [, RowBox[{((-1 + 2 x^2 + y^2)^3 + 3 (-1 + 2 x^2 + y^2)^2 ... , ,, Mesh->False, ,, BoxedFalse, ,, MeshFalse, ,, ImageSize150}], ]}]}]$

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

Out[115]=

In[116]:=

$RowBox[{g, =, RowBox[{ContourPlot3D, [, RowBox[{(-1 + 6 x^2 - 12 x^4 + 8 x^6 + 3 y^2 - 12 x^2 ... , ,, Mesh->False, ,, BoxedFalse, ,, MeshFalse, ,, ImageSize200}], ]}]}]$

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

Out[116]=

In[117]:=

$RowBox[{, RowBox[{h, =, RowBox[{ContourPlot3D, [, RowBox[{(-1 + 6 x^2 - 12 x^4 + 8 x^6 ... #62754;False, ,, , ImageSize250, ,, MeshFalse, ,, ImageSize250}], ]}]}]}]$

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

Out[117]=

In[118]:=

In[119]:=

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

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

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

Created by Mathematica (September 18, 2006)