<?php

/** Inicializaciones **/

$min_tinter=10; // msec
$max_tinter=90; //msec
$min_tam=1; // x100 KB
$max_tam=5; // x100 KB
$vel_disco=80; // Mbps

$max_llegadas=10000;

$CLOCK=0;
$t_salida=0;

$acum_espera=0;

$ensistema=0;
$acumensistema=0;
$acum_tservir=0;

$evt_inicial['tipo']="llegada";

$FEL[0][]=$evt_inicial;

$num_llegadas_procesadas=1;


/** Fin de inicializaciones **/


/** Bucle de iteracion **/

while (1) {

	/****************************************************/
	/** Obtener el siguiente evento y actualizar CLOCK **/
	/****************************************************/
	
	$eventos_inminentes=reset($FEL); // Saco los eventos inminentes
	$CLOCK=key($FEL); // Su instante de tiempo es la clave
	if (count($eventos_inminentes)==0) break; // No quedan eventos, terminar
	$next_event=array_shift($eventos_inminentes); // Cojo uno de los inminentes para procesarlo
	if (count($eventos_inminentes)==0) unset($FEL[$CLOCK]); // Si no hay mas en ese tiempo los retiro
	else $FEL[$CLOCK]=$eventos_inminentes; // Si queda alguno mas de ese instante lo devuelvo a su lugar

	/************************/
	/** Procesar el evento **/
	/************************/
	if ($next_event['tipo']=="llegada") {
	
		// Es una llegada
		
		// Crear la salida correspondiente
		$tam=100*rand($min_tam,$max_tam); // KB: 100, 200, 300, 400 o 500, no [100,500]
		$t_servir=floor($tam*1024*8/($vel_disco*1000)); // En msec
		$t_salida=($CLOCK>$t_salida)?($CLOCK+$t_servir):($t_salida+$t_servir);
		$evt_nuevo['tipo']="salida";
		$FEL[$t_salida][]=$evt_nuevo; // Problema si ya hay un evento en el mismo instante !!
		
		// Apuntar estadisticas
		$t_espera=$t_salida-($CLOCK+$t_servir);
		$acum_espera+=$t_espera;
		$acum_tservir+=$t_servir;

		// Crear nueva llegada para mantener vivo el sistema
		$tinter=rand($min_tinter, $max_tinter); // En msec
		$t_lleg=$CLOCK+$tinter; // En msec
		$evt_nuevo['tipo']="llegada";
		$FEL[$t_lleg][]=$evt_nuevo; // Problema si ya hay un evento en el mismo instante !!
	
		// Apuntar estadisticas
		$ensistema++;
		$acumensistema+=$ensistema;

		$num_llegadas_procesadas++;

	} else if ($next_event['tipo']=="salida") {
	
		// Es una salida

		$ensistema--;
	
	}

	// Condicion de terminacion de la simulacion
	if ($num_llegadas_procesadas>=$max_llegadas) break;
	
	ksort($FEL); // Mantener la FEL ordenada por tiempo (que es la clave del array)
}

print "Tiempo medio de espera: ".($acum_espera/$max_llegadas)." msec\n";
print "Numero medio de clientes en el sistema: ".($acumensistema/$max_llegadas)." \n";
print "Utilizacion: ".($acum_tservir/$CLOCK)." \n";

?>