¿Qué es lo que más le gusta a Homer (sin alcohol)? Pues matemáticamente hablando sería algo así:

¿Y por qué así? Pues Mathematica nos va a echar un cable. Si introducimos este código:

ContourPlot3D[(1 - Sqrt[x^2 + y^2])^2 + z^2 == 1/4, {x, -1.5,
1.5}, {y, -1.5, 1.5}, {z, -1.5, 1.5}, Boxed -> False, Axes -> False,
Mesh -> False, ColorFunction -> Hue]

obtenemos lo siguiente:

Ha quedado bien, ¿verdad? Aunque quizás los colores se podrían mejorar. ¿Se os ocurre alguna forma de hacerlo?


Visto en eulerianos, que a su vez lo sacó de SpikedMath.

Print Friendly, PDF & Email