Суть проблемы заключается в следующем:
В отделении неотложной помощи две медсестры выполняют свои смены, если нет ожидающих пациентов, входящий пациент будет обслуживаться двумя медсестрами, если естьПриходят два пациента, каждому требуется один, чтобы ухаживать, и если медсестры ухаживают за пациентом, а затем приходит другой, медсестра должна пойти, чтобы ухаживать за пациентом, который только что пришел, и время, оставшееся для пациента 1, сокращается надесять минут.
Это то, что у меня есть в моей программе: [В ответ Хорхе Родригесу]
#Prueba funcion post.seize()
library(simmer)
library(dplyr)
set.seed(1234)
emergency <- simmer()
pacient <-
trajectory("pacient trajectory")%>%
log_("Here I am")%>%
set_attribute("start_time", function() {now(emerency)})%>%
seize("nurse")%>%
log_(function() {paste("Waited: ", now(emergency) - get_attribute(emergency, "start_time"))})%>%
timeout(function() {runif(1, 0.2, 1)})%>%
release("nurse")%>%
log_(function() {paste("Finished: ", now(emergency))})
emergency <-
simmer("emergency")%>%
add_resource("nurse", 2)%>%
add_generator("pacient", pacient, function() {c(rexp(1, 0.2)), -1)})%>%
emergency %>% run(until=400)
emergency %>%
get_mon_arrivals %>%
dplyr::mutate(waiting_time = end_time - start_time - activity_time)
arrivals<- emergency %>% get_mon_arrivals(per_resource=T)
waiting <- arrivals$end_time - arrivals$start_time - arrivals$activity_time
waiting
mean(waiting)
Думаю, у меня многоиз логина, работающего в коде, но что мне действительно трудно увидеть, так это часть:
если медсестры ухаживают за пациентом, а затем заходит другая, медсестра должна идти за нейтолько что пришедший пациент и время, оставшееся для пациента 1, сокращаются на десять минут.