amaizacatalan

# Funcion entropia 
# Calcula la funcion de entropia. 
# Tomada de Gómez; Arias; Agudelo 2012. 
# para un vector de probabilidades p_i 
# entrada: vector de probabilidades p_i 
# salida: valor de la entropia

entropia <- function(x){     
  p <- (-1) * t(x) % * % log(x) 	
  sum(p)}

amaizacatalan

/* 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*/