simple.simmer <-simmer()
ia <- trajectory() %>%
seize("resource", 1) %>%
timeout(2) %>%
release("resource", 1)
out1<-trajectory() %>%
log_("i have reneged") %>%
set_prioritization(values = c(1,1,0), mod = "+") %>%
log_("i have updated prioritization") %>%
seize("resource",1,
reject = trajectory(verbose = T) %>%
log_("i have been kicked out for some reqason")) %>%
log_("seized resource") %>%
timeout(1) %>%
release("resource", 1)
ib <- trajectory() %>%
log_("here i am") %>%
renege_in(
t = function(){ 2 },
out = out1
) %>%
log_("waiting for resource") %>%
seize("resource",1) %>%
renege_abort() %>%
log_("seized resource") %>%
timeout(0.5) %>%
release("resource", 1) %>%
log_("left ")
simple.simmer %>%
add_resource("resource", capacity = 1,mon = T) %>%
add_generator("r1", ia, distribution = at(1:10), mon=2,priority = 2) %>%
add_generator("r2", ib, distribution = at(5), mon=2, priority = 1)
simple.simmer %>%
run(until = 20)
get_queue_count( simple.simmer,"resource")