Esferas irregulares con Maxima

esfera_irregular.mac

/* Representación de una esfera irregular con Maxima*/
/* Tomando las expresiones de J. Stewart Cálculo: conceptos y contextos */
n:5$
m:6$
/*Definimos la superificie esférica usando las coordenadas esféricas*/
rho:1+0.2*sin(m*theta)*sin(n*phi)$
load(draw)$
/* Definimos el dominio y el tipo de coordenadas para su gráfica */
irr_sphere: spherical(rho,theta,0,2*%pi,phi,0,%pi)$
/* Dibujamos la superfice sin colorear*/
draw3d(surface_hide=true,
       color=blue,
       irr_sphere,
       nticks=400,
       title="Esfera irregular. m=6,n=5")$
/* Dibujamos la superficie con una paleta de tonos grises*/
draw3d(surface_hide=false,
       enhanced3d = [1+0.2*sin(m*theta)*sin(n*phi),theta,phi],
       nticks=400,irr_sphere,
       palette=gray,
       title="Esfera irregular. m=6,n=5")$