<?php

/**************************************************************/
/*                                                            */
/* Programa ejemplo de servidor con cola infinita             */
/* Tiempos entre llegadas uniformes                           */
/* Tiempos de servicio uniformes                              */
/* Calcula el número medio de cliente en el sistema y el      */
/* tiempo medio de espera en cola                             */
/*                                                            */
/**************************************************************/

    
/**************************************************************/
/* Funciones para gestionar la lista de eventos futuros (FEL) */

/* Cada evento es un array asociativo con 2 elementos:        */
/* 'tiempo': El instante de tiempo en que se produce          */
/* 'tipo':   El tipo de evento  (una cadena de texto)         */
/* Estas funciones solo requieren el elemento 'tiempo'        */
/* El 'tiempo' y algo como el 'tipo' son necesarios en un	  */
/* evento, el resto de información que queramos guardar en él */
/* depende de lo queramos hacer con él.						  */
/* La FEL es simplemente un array con los eventos pero esto   */
/* es transparente al usuario, queda encapsulado en estas     */
/* funciones y se podría cambiar por una estructura mejor	  */
    
/* Crea, inicializa y devuelte la estructura de una nueva FEL */
function newFEL() {
	$FEL = array();
	return $FEL;
}

/* Función que devuelve el evento inminente de la FEL y lo    */
/* retira de la misma                                         */
/* Se recorre todo el array buscando el de menor instante de  */
/* tiempo. Es poco eficiente pero funciona                    */
function getEventoInminente(&$FEL) {
	if (count($FEL) == 0) return NULL;
	$inminente = -1;
	foreach ($FEL as $clave => $evento) {
		if ($inminente == -1) $inminente = $clave;
		else if ($evento['tiempo'] < $FEL[$inminente]['tiempo']) $inminente = $clave;
	}

	$eventoInminente = $FEL[$inminente];
	unset($FEL[$inminente]);

	return $eventoInminente;
}

/* Función para añadir un evento a la FEL                     */
/* Es trivial pero esto permite cambiar la implementación de  */
/* la FEL sin tener que tocar el resto del código.            */
function addEvento(&$FEL, $evento) {
	$FEL[] = $evento;
}

/* Fin de las funciones de gestión de la FEL                  */
/**************************************************************/


/* Función para generar tiempos entre llegadas o tiempos de   */
/* servicio. Simplemente genera un valor de una v.a. uniforme */
/* Los argumentos son el mínimo y el máximo de la v.a.        */
function getUniforme($minimo, $maximo) {
    $alea = mt_rand();
    return ($alea/mt_getrandmax())*($maximo-$minimo)+$minimo;
}

    
/** Inicializaciones **/

/* Datos de la simulación */
$min_tinter = 0.01; 	// Tiempo entre llegadas uniforme entre $min_tinter y $max_tinter
$max_tinter = 0.09; 	//
$min_tserv = 0.01; 		// Tiempo de servicio uniforme entre $min_tserv y $max_tserv
$max_tserv = 0.05; 		//
$max_llegadas = 100000;	// Máximo número de llegadas a simular


/* Variables para cálculos estadísticos durante la simulación */
$acum_tespera = 0;       // Acumula los tiempos de espera en cola para calcular el tiempo medio
$acum_tenSistema = 0;	// Acumula los tiempos totales en el sistema para calcular al final la media
$acum_tservir = 0;      // Idem con los tiempos de servicio


/* Variables para describir el estado del sistema */
$ensistema = 0;						// Número de clientes que hay en el sistema
$evt_inicial['tipo'] = "llegada";	// Un evento de llegada inicial
$evt_inicial['tiempo'] = getUniforme($min_tinter, $max_tinter);	// El instante de la primera llegada
$FEL = newFEL();
addEvento($FEL, $evt_inicial);		// La FEL (Future Event List) inicializada con un primer evento de llegada

$tSalidaAnterior = 0;   // Inicialización de cuándo se vacía el servidor

$CLOCK = 0;	// Reloj de la simulación

$numLlegadasProcesadas = 0;

/** Fin de inicializaciones **/


/** Bucle de eventos (event loop) **/

while (1) {

	/****************************************************/
	/** Obtener el siguiente evento y actualizar CLOCK **/
	/****************************************************/
	
	$eventoInminente = getEventoInminente($FEL);
	$CLOCK = $eventoInminente['tiempo'];

    /************************/
	/** Procesar el evento **/
	/************************/
	
	if ($eventoInminente['tipo'] == "llegada") {
	
		// Es una llegada
		
		// Crear la salida correspondiente
		$tServirLlegada = getUniforme($min_tserv, $max_tserv); // Tiempo de servicio
		$tSalida = ($CLOCK>$tSalidaAnterior)?($CLOCK+$tServirLlegada):($tSalidaAnterior+$tServirLlegada); // Instante en que se producirá la salida
		$evt_nuevo['tipo'] = "salida";
		$evt_nuevo['tiempo'] = $tSalida;
		addEvento($FEL, $evt_nuevo);
		
		// Apuntar estadisticas
		$t_espera = $tSalida - ($CLOCK + $tServirLlegada);
		$acum_tespera += $t_espera;
		$acum_tservir += $tServirLlegada;

		// Crear nueva llegada para mantener vivo el sistema
		$tinter = getUniforme($min_tinter, $max_tinter);
		$t_lleg = $CLOCK + $tinter;
		$evt_nuevo['tipo'] = "llegada";
		$evt_nuevo['tiempo'] = $t_lleg;
		addEvento($FEL, $evt_nuevo);
	
		// Más modificacion del estado del sistema
		$ensistema++;

		// Apuntar estadisticas
		$acum_tenSistema += $ensistema;

		$numLlegadasProcesadas++;
        $tSalidaAnterior = $tSalida;

	} else if ($eventoInminente['tipo'] == "salida") {
	
		// Es una salida
		
		// Modificación del estado del sistema
		$ensistema--;
	
	}
	
	// Condicion de terminacion de la simulacion
	if ($numLlegadasProcesadas >= $max_llegadas) break;
	
}
    
print "Tiempo medio de espera: ".($acum_tespera/$max_llegadas)." unidades de tiempo\n";
print "Numero medio de clientes en el sistema: ".($acum_tenSistema/$max_llegadas)." \n";
print "Utilizacion: ".(100*$acum_tservir/$CLOCK)." %\n";

?>