数据结构实验报告银行模拟系统实验代码.doc

四、实验步骤（包括主要步骤、代码分析等） 主要步骤（模块化编程） （1）初始化操作 void OpenForDay() { int i; InitList(ev); // 初始化事件链表为空 en.OccurTime=0; // 设定第一个客户到达事件 en.NType=Qu; // 到达 OrderInsert(ev,en,cmp); // 插入事件表 for(i=0;iQu;++i) // 置空队列 InitQueue(q[i]); } （2）产生随机数的函数 void Random(int d,int i) { d=rand()%Blsj+1; // 1到Blsj之间的随机数 i=rand()%Khjg+1; // 1到Khjg之间的随机数 } （3）求最短队列的函数 int Minimum(LinkQueue Q[]) // 返回最短队列的序号 { int l[Qu]; int i,k; for(i=0;iQu;i++) l[i]=QueueLength(Q[i]); k=0; for(i=1;iQu;i++) if(l[i]l[0]) { l[0]=l[i]; k=i; } return k; } （4）处理客户到达事件。包括客户数目的累加、生成两个随机数并导出下一个客户到达事件、按升序将下一个客户到达事件插入事件表中、将当前客户插入队列中。 void CustomerArrived() { // 处理客户到达事件，en.NType=Qu QElemType f; int durtime,intertime,i; ++CustomerNum; Random(durtime,intertime); // 生成随机数 et.OccurTime=en.OccurTime+intertime; // 下一客户到达时刻 et.NType=Qu; // 队列中只有一个客户到达事件 if(et.OccurTimeCloseTime) // 银行尚未关门，插入事件表 OrderInsert(ev,et,cmp); i=Minimum(q); // 求长度最短队列的序号,等长为最小的序号 f.ArrivalTime=en.OccurTime; f.Duration=durtime; EnQueue(q[i],f); if(QueueLength(q[i])==1) { et.OccurTime=en.OccurTime+durtime; et.NType=i; OrderInsert(ev,et,cmp); // 设定第i队列的一个离开事件并插入事件表 } } （5）处理客户离开事件。主要操作有确定离开事件发生的队列序号、删除队列的排头客户（若删除后队列不空，启动下一个离开事件并插入事件表中）、累加客户的逗留时间。 void CustomerDeparture() { // 处理客户离开事件，en.NTyPeQu int i; i=en.NType; DeQueue(q[i],customer); // 删除第i队列的排头客户 TotalTime+=en.OccurTime-customer.ArrivalTime; // 累计客户逗留时间 if(!QueueEmpty(q[i])) { // 设定第i队列的一个离开事件并插入事件表 GetHead(q[i],customer); et.OccurTime=en.OccurTime+customer.Duration; et.NType=i; OrderInsert(ev,et,cmp); } } （6）总调试函数和主函数 void Bank_Simulation() { Link p; OpenForDay(); // 初始化 while(!ListEmpty(ev)) { DelFirst(ev,GetHead(ev),p); en.OccurTime=GetCurElem(p).OccurTime; en.NType=GetCurElem(p).NType; if(en.NType==Qu) CustomerArrived(); // 处理客户到达事件 else CustomerDep