使用 simmer 包预加载队列答案

【问题标题】：Pre-loading a queue with simmer package使用 simmer 包预加载队列
【发布时间】：2019-04-18 01:14:21
【问题描述】：

我想开始一个预加载队列的慢煮模拟。我想模拟制造车间的一天，队列中已经有几个工作，然后在白天将更多工作添加到队列中。这是我开始新的一天的工作代码，队列中没有任何内容。

如何为批处理步骤预加载队列，比如 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)

【问题讨论】：

是的。但是他们在哪里预加载队列？我错过了吗？银行示例也不反映我正在建模的内容……护士/医生/管理员示例会更好。使用护士/医生/示例，我的问题是，如何在所有三位医生都已经看过病人的情况下开始模拟？我正在尝试查看前一天提交的作业已处理但未打印的那一天。

标签： r event-simulation

【解决方案1】：

只需在t=0 输入一个到达数据框（请参阅?add_dataframe）和自定义服务时间，这样，例如，在t=1，您的模拟就会在您想要的条件下开始。

【讨论】：