; Segundo parcial Simulación (75.26) de la fecha 30 de Noviembre 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


			Media		FUNCTION		AC1,D7
			3600,180/7200,150/14400,90/18000,60/25200,75/36000,90/36001,120
			
			Cant		FUNCTION		AC1,D7
			3600,7/7200,9/14400,13/18000,15/25200,8/36000,12/36001,10

			3600,6/7200,7/14400,8/18000,9/25200,6/36000,7/36001,8
						
			TiempoInfo	FUNCTION		P$Tipo,D4
			1,60/2,30/3,90/4,45
			
			DesvInfo	FUNCTION		P$Tipo,D4
			1,30/2,15/3,30/4,15
			
			TiempoAutoServ	FUNCTION		P$Tipo,D4
			1,1200/2,720/3,1500/4,480
			
			Articulos	FUNCTION		P$Tipo,E4
			1,V1/2,V2/3,V3/4,V4

			AInfo		FUNCTION		P$Tipo,D4
			1,400/2,250/3,600/4,350

			APie		FUNCTION		P$Vino,D2
			1,650/2,0
			
			Cant		VARIABLE		(FN$Cant-5)+RN6@11
			Tipo		VARIABLE		RN5,D4
			.15,1/.55,2/.75,3/1,4
			DesvInfo	VARIABLE		FN$DesvInfo			
			1		VARIABLE		12+RN11@13
			2		VARIABLE		 5+RN12@6
			3		VARIABLE		15+RN13@22
			4		VARIABLE		 2+RN14@9

			AutoServicio	STORAGE		999999; Infinito
			Info		STORAGE		2
			
			EnSuper		TABLE		M3,600,60,20
			1		TABLE		M1,1800,90,20
			2		TABLE		M1,1800,90,20
			3		TABLE		M1,1800,90,20
			4		TABLE		M1,1800,90,20
			Articulos	TABLE		P$Productos,0,1,37
			GenteSup	TABLE		S$AutoServicio,0,5,40
			
[Trenes]
			GENERATE	360,60
			ASSIGN		Pasajeros,V$Cant
			ASSIGN		Vino,2;Vino=2, el cliente vino en tren.
			SPLIT		P$Cajero,ParadaEst
			TERMINATE

[Micros]
			GENERATE	1200,,90,2
NuevoMicro		SAVEVALUE	2+,1
			ASSIGN		Interno,X2
			MARK		2
			;SPLIT		1,EsperaEst
			SEIZE		ParadaEstSub
OtroSubeEst		ALTER		ParadaEst,Colectivo,P$Interno,Colectivo,0,NoHayEst
			UNLINK		ParadaEst,Sube,1,Colectivo,P$Interno,0
			
			ADVANCE		4,1
			TRANSFER	,OtroSubeEst
			
NoHayEst		TEST L		M2,300,AlSuper
			ADVANCE 	1
			;CODIGO PARA CHEQUEAR 5 MINUTOS.
			TRANSFER	,OtroSubeEst
			
AlSuper			RELEASE		ParaEstSub
			ADVANCE		900,120
			
OtroBAjaSup		UNLINK		P$Colectivo,EntraSup,1,,,NoBajanSup

			ADVANCE		4,1
			TRANSFER	,OtroBajaSup

NoBajanSup		ADVANCE		25,15

			SEIZE		ParadaSupSub
OtroSubSup		ALTER		ParadaSupSub,Colectivo,P$Interno,Colectivo,0,NoHaySup
			UNLINK		ParadaSupSub,SubeSup,1,Colectivo,P$Interno
			
			ADVANCE		4,1
			TRANSFER	,OtroSubSup
			
NoHaySup		TEST L		M2,300,ALaEst
			ADVANCE		1
			TRANSFER	,OtroSubSup

ALaEst			RELEASE		ParadaSupSub
			ADVANCE		960,120
OtroBajaEst		UNLINK		P$Colectivo,EntrarEst,1,,,NoBajanEst
			ADVANCE		4,1
			TRANSFER	,OtroBajaEst
NoBajanEst		ADVANCE		25,15
			TRANSFER	,OtroSubEst
			
[OtroMicro]
			GENERATE	1200,3000,2
			TRANSFER	NuevoMicro

[Clientes]
ParadaEst		ASSIGN		Colectivo,0
			JOIN		ParadaEst
			QUEUE		ParadaEst
			LINK		ParadaEst,FIFO

SubeEst			REMOVE		ParadaEst
			DEPART		ParadaEst
			LINK		P$Colectivo,FIFO

			GENERATE	FN$Media,FN$Poisson
			ASSIGN		Vino,1; Vino=1, el cliente vino caminando.
EntraSup		ASSIGN		Tipo,V$Tipo
			TEST G		AC1,43200,Fin
			ENTER		AutoServicio
			TRANSFER	FN$AInfo,AutoServicio
			QUEUE		Informes
			ENTER		Informes
			DEPART		Informes	
			ADVANCE		FN$TiempoInfo,V$DesvInfo
			LEAVE		Informes
			
AutoServicio		ADVANCE		FN$TiempoAutoServ,240
			ASSIGN		Productos,FN$Articulos
			SELECT MIN	Caja,1,FN$Caja,,Q
			ASSIGN		Aux,P$Productos
			
			QUEUE		P$Caja
			SEIZE		P$Caja
			DEPART		P$Caja
OtroProd		ADVANCE		4,2
			LOOP		Aux,OtroProd
			TRANSFER	.30,Efectivo
			ADVANCE		45,10
			TRANSFER	.03,OKTarjeta
			TRANSFER	.15,Soluciona
			LINK		Errores,P$Caja

Efectivo		ADVANCE		20,5
OKTarjeta		TRANSFER	,Irse

Soluciona		ADVANCE		60,20
Irse			TABULATE	Articulos
			RELEASE		P$Caja
			LEAVE		AutoServicio
			TABULATE	EnSuper
			TRANSFER	FN$APie,,Fin
			ADVANCE		45,15
			QUEUE		ParadaSupSub
			JOIN		ParadaSupSub
			LINK		ParadaSupSub
			
SubeSup			REMOVE		ParadaSupSub
			DEPART		ParadaSupSub
			LINK		P$Colectivo,FIFO
			
EntrarEst		TABULATE	P$Tipo

Fin			TERMINATE

IrseSinComprar		ASSIGN		Productos,0
			TRANSFER	Irse

[Supervisor] ; << que error hay en la simulación del supervisor?
			GENERATE		,,,,1
Ver			TEST G		CH$Errores,0
			ADVANCE		30,10
			ADVANCE		40,20
			
			UNLINK		ERRORES,IrseSinComprar,1
			TRANSFER	,Ver

[Control] ; << el control esta mal... por que?
			GENERATE	120
			TABULATE	GenteSup
			TERMINATE