<?php
# Derechos Reservados (c) 2004 Francisco Javier Carlos Rivera <javier@nediam.com.mx>
# Copyright (c) 2004 Francisco Javier Carlos Rivera <javier@nediam.com.mx>
# math_fns.php : Funciones matematicas y estadisticas
# ultima fecha de modificacion: 2004-11-07

//Funcion que calcula la media aritmetica de una muestra
/* float get_mean (array) */
function get_mean($arr)
{
    $n = count($arr);    
    if($n<=0)
        return 0;
    for($i=0; $i<$n; $i++)
        $acum += $arr[$i];
    return $acum/$n; 
}


//Funcion que calcula la mediana de una muestra
/* float get_median (array) */
function get_median($arr)
{
    //order_array($arr);
    $n = count($arr);    
    if($n<=0)
        return 0;
    $aux = (int) $n/2;
    if (($n % 2)==0)
        return $arr[$aux];
    else
        return ($arr[$aux-1] + $arr[$aux])/2;
}


//Funcion que calcula la varianza de una muestra
/* float get_variance (array) */
function get_variance($arr)
{    
    $m = count($arr);    
    if($m<=1)
        return 0;
    $mean = get_mean($arr);
    for($i=0; $i<$m; $i++)
        $acum += pow(($arr[$i]-$mean),2);
    return $acum/($m-1);
}


//Funcion que calcula la desviacion estandar de una muestra
/* float get_std_deviation (array) */
function get_std_deviation($arr)
{    
    return sqrt(get_variance($arr));
}
?>