实验2 单服务台单队列排队系统仿真

同样设置drain中entrance属性值为.Models.QueueSystem.QueueFrame. ComputeQueueLength

14. 代码 Reset代码：

is do

deleteMovables;

QueueNumberCount:=0; end; Init代码

is do

QueueNumberCount:=0; end;

Endsim代码

is

tab:table; do

tab.create;

Buffer.statistics(tab); buffer.statistics;

QueueTab[1,SimulationTimes]:=SimulationTimes; QueueTab[2,SimulationTimes]:=tab[4,1]; QueueTab[4,SimulationTimes]:=tab[9,1]; QueueTab[5,SimulationTimes]:=tab[6,1];

tab.delete;

singleProc.statistics(tab);

CustomsTab[1,SimulationTimes]:=SimulationTimes; CustomsTab[2,SimulationTimes]:=tab[5,1]; CustomsTab[3,SimulationTimes]:=tab[20,1]; CustomsTab[4,SimulationTimes]:=tab[15,1]; CustomsTab[5,SimulationTimes]:=tab[17,1];

if SimulationTimes<30 then .models.queuesystem.queueframe.EventController.reset; SimulationTimes:=SimulationTimes+1; .models.queuesystem.queueframe.EventController.start; else SimulationTimes:=1; end; end;

ArrivalIntervalTime代码

is

rand:real; do

rand:=Z_uniform(SimulationTimes,0,1); if rand>0.0 and rand<=0.125 then Source.interval:=60*1;

elseif rand>0.125 and rand<=0.250 then Source.interval:=60*2;

elseif rand>0.250 and rand<=0.375 then Source.interval:=60*3;

elseif rand>0.375 and rand<=0.5 then Source.interval:=60*4;

elseif rand>0.5 and rand<=0.625 then Source.interval:=60*5;

elseif rand>0.625 and rand<=0.75 then Source.interval:=60*6;

elseif rand>0.75 and rand<=0.875 then Source.interval:=60*7;

elseif rand>0.875 and rand<=1.0 then Source.interval:=60*8; end;

@.arrivalTime:=eventcontroller.simtime; end;

CustomServerTime代码

is

rand:real; do

@.serverTime:=SingleProc.ProcTime; rand:=Z_uniform(1,0,1);

if rand>0.0 and rand<=0.1 then SingleProc.ProcTime:=60*1; elseif rand>0.1 and rand<=0.3 then SingleProc.ProcTime:=60*2; elseif rand>0.3 and rand<=0.6 then SingleProc.ProcTime:=60*3; elseif rand>0.6 and rand<=0.85 then SingleProc.ProcTime:=60*4;

elseif rand>0.85 and rand<=0.95 then SingleProc.ProcTime:=60*5; elseif rand>0.95 and rand<=1.0 then SingleProc.ProcTime:=60*6; end; end;

ComputeQueueLength代码

is do

QueueNumberCount:=QueueNumberCount+1;

QueueTab[3,SimulationTimes]:=(QueueTab[3,SimulationTimes]*(QueueNumberCount-1)+Buffer.numMU)/QueueNumberCount;

if simulationTimes=1 and QueueNumberCount=1 then Customs20Tab[1,QueueNumberCount]:=QueueNumberCount; Customs20Tab[2,QueueNumberCount]:=@.arrivalTime; Customs20Tab[3,QueueNumberCount]:=0; Customs20Tab[4,QueueNumberCount]:=@.serverTime; Customs20Tab[5,QueueNumberCount]:=@.statAvgLifeSpan-@.serverTime;

elseif simulationTimes=1 and QueueNumberCount<=20 then Customs20Tab[1,QueueNumberCount]:=QueueNumberCount; Customs20Tab[2,QueueNumberCount]:=@.arrivalTime;

Customs20Tab[3,QueueNumberCount]:=@.arrivalTime-Customs20Tab[2,QueueNumberCount-1]; Customs20Tab[4,QueueNumberCount]:=@.serverTime; Customs20Tab[5,QueueNumberCount]:=@.statavglifespan-@.serverTime; end; end;

5 实验要求

5.1 按照上面的介绍建立单服务台仿真模型，并给出各个表格中各数据的含义。

5.2 在练习上述排队系统仿真的基础上，调研真实的银行系统，增加以下几个功能：

（1） 服务窗口从一个增加为多个；

（2） 业务范围从一种增加为多种（一般客户、企业客户）； （3） 增加多个ATM取款机。 实验报告提纲： （1） 仿真目标 （2） 系统调研 （3） 系统假设 （4） 系统建模 （5） 仿真模型

（6） 仿真结果分析 （7） 心得体会