# tracer le graphe d'une file d'attente pour un systeme 
# avec 1 serveur a partir de trois vecteurs:
# x -- des interarrivees
# r -- le temps de service requise
# d -- le temps d'inactivite du serveur apres chaque client

plot.queue <- function(x, r, d){
	n <- length(x)
	xx <- vector("numeric", 3*n)
	yy <- vector("numeric", 3*n)

	cx <- cumsum(x)

	xx[(1:n)*3-2] <- cx - x
	xx[(1:n)*3-1] <- cx - d
	xx[(1:n)*3] <- cx

	y <- cumsum(r+d-x) - r

	yy[(1:n)*3-2] <- y - d + x
	yy[(1:n)*3-1] <- yy[(1:n)*3] <- y

	plot(xx,yy,type='l')

}