R语言实现两服务员并联服务系统简单随机模拟

最新推荐文章于 2022-12-06 23:21:52 发布

胖付

最新推荐文章于 2022-12-06 23:21:52 发布

阅读量1.4k

点赞数

分类专栏：学习文章标签： r语言 function 双服务员并联随机模拟

本文链接：https://blog.csdn.net/u014249333/article/details/23802469

版权

使用R语言设计了一个模拟两个服务员并联服务的排队系统，顾客到达服从泊松分布，服务员服务时间服从指数分布。模拟计算了顾客在系统中的平均时间和接受一号服务员服务的顾客比例。

摘要由CSDN通过智能技术生成

#两服务员并联排队系统模拟，顾客人数上限1000，G1~E(4),G2~E(3),顾客到达~P(6)#
# 1、输出顾客花在系统中平均时间 #
# 2、接受一号服务员服务顾客比例 #


queue_sys=function(max_n)
{
   t=0                                  #当前时间#
   c1=0 ;  c2=0                         #接受S1 S2 服务顾客数统计#
   n=0                                  #系统中人数#
   i1=0 ; i2=0                          #S1 S2 中接受服务顾客序列号#
   N=0                                  #到达人数#
   T0=0                                 #规定计时从0开始#
   tA=0                                 #顾客到达时间#
   wq=99999                             #99999代替无穷大  wq=wuqiong#
   t1=wq ; t2=wq                        #离开S1 S2 时间#  
   c1_percent=0                         #在S1中接受服务顾客占比重# 
   TT_m=0                               #顾客花在系统中平均时间#
   D1=0 ; D2=0 ; D=0                    #离开S1 S2时间 以及 最后一个顾客离开时间
   result=rep(0,2)                      #输出结果数组
   while(tA != wq || t1 !=