Блог

Главная - Вопросы по программированию - Предварительная загрузка очереди с помощью пакета simmer

Предварительная загрузка очереди с помощью пакета simmer

#r #event-simulation

#r #событие-моделирование

Вопрос:

Я хотел бы запустить симуляцию simmer с предварительно загруженной очередью. Я хочу смоделировать день на этаже mfg с несколькими заданиями, уже находящимися в очереди, а затем в течение дня добавить в очередь больше заданий. Вот мой рабочий код для начала дня, когда в очереди ничего нет.

Как мне выполнить предварительную загрузку очереди для пакетного шага, скажем, 100 заданий?

 library(tidyverse)
library(simmer)
library(simmer.bricks)

numMolds=480
mfgProcess <- simmer()

mfgfloor <-
  trajectory() %>%
    visit("CAD",10) %>% 
    batch(30) %>%
    visit("Printer",15)

mfgProcess %>%
  add_resource("CAD", 6) %>% 
  add_resource("Printer",1) %>% 
  add_generator("job", mfgfloor, function() {c(0, rep(0,numMolds-1), -1)}, mon=2)

mfgProcess %>% run(until=24*60)

Комментарии:

1. ДА. Но где они предварительно загружают очередь? Я пропустил это? Пример банка также не отражает то, что я моделирую… пример медсестры / врача / администратора был бы лучшим. Используя пример медсестры / врача /, мой вопрос будет заключаться в следующем: как мне начать симуляцию, когда все три врача уже принимают пациентов? Я пытаюсь посмотреть на день, когда есть задания, отправленные за день до этого, которые были обработаны, но не распечатаны.

Ответ №1:

Просто передайте фрейм данных о поступлениях (см. ?add_dataframe ) в t=0 с настраиваемым временем обслуживания, чтобы, скажем, t=1 ваша симуляция запускалась в нужных вам условиях.