; Primer parcial Simulacion (75.26) de la fecha 12 de Octuble del 2005.

			POISSON 	FUNCTION RN4,C24
			0.0,0.0/0.1,0.104/0.2,0.222/0.3,0.355/0.4,0.509/0.5,0.69
			0.6,0.915/0.7,1.2/0.75,1.38/0.8,1.6/0.84,1.83/0.88,2.12
			0.9,2.3/0.92,2.52/0.94,2.81/0.95,2.99/0.96,3.2/0.97,3.5
			0.98,3.9/0.99,4.6/0.995,5.3/0.998,6.2/0.999,7.0/0.9997,8.0

			Tipo		FUNCTION		RN3,D4
			.3,1/.45,2/.8,3/1,4
						
			Atencion	FUNCTION		P$Tipo,D4
			1,300/2,360/3,180/4,300
			
			Partes		FUNCTION		P$Tipo,D4
			1,2/2,3/3,1/4,2
			
			EnviarPartes	FUNCTION		P$Elemento,D4
			1,Administrativa/2,AtencionCliente/3,DepTecnico/4,Contable
			
			DespachoEmp	VARIABLE		1+RN4@3
			ParteExp	VARIABLE	P$Partes+1

			Administracion	STORAGE		10
			Clientes	STORAGE		10000; Infinito
			Tenicos		STORAGE		6
			Sistema		STORAGE		10000; Infinito
			Comisiones	STORAGE		3
						
			1		TABLE		M1,600,300,20
			2		TABLE		M1,600,300,20
			3		TABLE		M1,600,300,20
			4		TABLE		M1,600,300,20			
			EnClientesExp	TABLE		S$Clientes,5,1,20
			EnClientesSup	TABLE		S$Clientes,5,1,20
			TenAtClientes	TABLE		M2,0,60,20; Tiempo en Atención a Clientes.

[Control]
			GENERATE	300,,3600
			TABULATE	EnClientesSup
			TERMINATE
			
			GENERATE	300,,3600
			SAVEVALUE	Contador+,1
			SAVEVALUE	X$Contador,S$Sistema
			TERMINATE
			
			GENERATE	3600
			TERMINATE	1
			START		10

[Expedientes]
			GENERATE	X$arribo,FN$POISSON
			ENTER		Sistema
			ASSIGN		Tipo,FN$Tipo
			ASSIGN		Emp,V$DespachoEmp; Empleados 1,2,3.
			QUEUE		P$Emp
			SEIZE		P$Emp
			DEPART		P$Emp

			ADVANCE		FN$Atencion,120

			RELEASE		P$Emp
			
			ASSIGN		Partes,FN$Partes
			SPLIT		P$Partes,,Elemento
			TRANSFER	,FN$EnviarPartes
					
Administrativa		QUEUE		Administracion
			ENTER		Administracion
			DEPART		Administracion

			ADVANCE		900,300

			LEAVE		Administracion
			TRANSFER	,Coordinacion

AtenCliente		TABULATE	EnClientesExp
			ENTER		Clientes
			MARK		2
			SELECT NU	Emp,11,14,,,Ocupado; Empleados 11,12,13,14
			TRANSFER	,Elaboracion
Ocupado			SELECT MIN	Emp,11,14,,Q
Elaboracion		QUEUE		P$Emp
			SEIZE		P$Emp
			DEPART		P$Emp

			ADVANCE		300,120

			RELEASE		P$Emp
			LEAVE		Clientes
			TABULATE	TenAtClientes
			TRANSFER	,Coordinacion
				
DepTecnico		QUEUE		Tecnicos
			ENTER		Tecnicos
			DEPART		Tecnicos

			ADVANCE		720,180

			LEAVE		Tecnicos
			TRANSFER	,Coordinacion
				
Contable		SELECT MIN	Emp,21,22,,Q; Empleados 21, 22
			QUEUE		P$Emp
			SEIZE		P$Emp
			DEPART		P$Emp

			ADVANCE		2400,600

			RELEASE		P$Emp
			TRANSFER	,Coordinacion
			
Coordinacion		ASSEMBLE	V$PartesExp
			QUEUE		Comisiones
			ENTER		Comisiones
			DEPART		Comisiones

			ADVANCE		360,120

			LEAVE		Comisiones
			TABULATE	P$Tipo
			LEAVE		Sistema
			TERMINATE