如何为 Trajectory 中的资源定义不同的超时时间？煨/DES

Question

如何在 DES 中为 Trajectory（R 的 simmer）中的各种资源定义不同的超时时间？ 下面的代码为“doctor1”、“doctor2”和“doctor3”生成相同的活动时间，即 mean=5, sd=.5 Normal RV。 医生 1 要求 mean=5, sd=.5；医生 2 的 mean=10, sd=.5 和医生 3 的 mean=20, sd=.5。如何实现？

patient_traj <- trajectory(name = "patient_trajectory") %>%
  select(resources = c("doctor1", "doctor2", "doctor3")) %>%
  set_capacity_selected(1) %>%
  seize_selected(amount = 1) %>%
  timeout(function() rnorm(1, 5, .5)) %>%
  release_selected(amount = 1)

env <- simmer() %>%
  add_resource("doctor1", capacity = 0) %>%
  add_resource("doctor2", capacity = 0) %>%
  add_resource("doctor3", capacity = 0) %>%
  add_generator("patient", patient_traj, function() rnorm(1,2,.8),mon = 2) %>%
  run(500)

arrival <- get_mon_arrivals(env, per_resource = T)

对于医生 1 要求 mean=5, sd=.5；医生 2 的 mean=10, sd=.5 和医生 3 的 mean=20, sd=.5。即不同的超时时间显示医生之间的性能差异

Answer 1

您可以使用get_selected()，但一般来说，如果您想要不同的事情发生，最好使用带有多个路径的branch()。