/* algo3-12.c 銀行業(yè)務(wù)模擬。實(shí)現(xiàn)算法3.6、3.7的程序 */
 #define Qu 4 /* 客戶隊(duì)列數(shù) */
 #define Khjg 5 /* 兩相鄰到達(dá)的客戶的時(shí)間間隔最大值 */
 #define Blsj 30 /* 每個(gè)客戶辦理業(yè)務(wù)的時(shí)間最大值 */
 #include"c1.h"

 typedef struct /* 定義ElemType為結(jié)構(gòu)體類(lèi)型 */
 {
   int OccurTime; /* 事件發(fā)生時(shí)刻 */
   int NType; /* 事件類(lèi)型，Qu表示到達(dá)事件,0至Qu-1表示Qu個(gè)窗口的離開(kāi)事件 */
 }Event,ElemType; /* 事件類(lèi)型，有序鏈表LinkList的數(shù)據(jù)元素類(lèi)型 */

 #include"c2-5.h"
 typedef LinkList EventList; /* 事件鏈表類(lèi)型，定義為有序鏈表 */
 #include"bo2-6.c" /* 使用已有的鏈表基本操作 */

 typedef struct
 {
   int ArrivalTime; /* 到達(dá)時(shí)刻 */
   int Duration; /* 辦理事務(wù)所需時(shí)間 */
 }QElemType; /* 定義QElemType(隊(duì)列的數(shù)據(jù)元素類(lèi)型)為結(jié)構(gòu)體類(lèi)型; */

 #include"c3-2.h"
 #include"bo3-2.c" /* 使用已有的隊(duì)列基本操作 */

 /* 程序中用到的主要變量(全局)。算法3.7 */
 EventList ev; /* 事件表 */
 Event en; /* 事件 */
 Event et; /* 臨時(shí)變量 */
 LinkQueue q[Qu]; /* Qu個(gè)客戶隊(duì)列 */
 QElemType customer; /* 客戶記錄 */
 int TotalTime=0,CustomerNum=0; /* 累計(jì)客戶逗留時(shí)間,客戶數(shù)(初值為0) */
 int CloseTime; /* 銀行營(yíng)業(yè)時(shí)間(單位是分) */

 int cmp(Event a,Event b)
 { /* 依事件a的發(fā)生時(shí)刻<、=或>事件b的發(fā)生時(shí)刻分別返回-1、0或1 */
   if(a.OccurTime==b.OccurTime)
     return 0;
   else
     return (a.OccurTime-b.OccurTime)/abs(a.OccurTime-b.OccurTime);
 }

 void OpenForDay()
 { /* 初始化操作 */
   int i;
   InitList(&ev); /* 初始化事件鏈表為空 */
   en.OccurTime=0; /* 設(shè)定第一個(gè)客戶到達(dá)事件 */
   en.NType=Qu; /* 到達(dá) */
   OrderInsert(&ev,en,cmp); /* 插入事件表 */
   for(i=0;i<Qu;++i) /* 置空隊(duì)列 */
     InitQueue(&q[i]);
 }

 void Random(int *d,int *i)
 {
   *d=rand()%Blsj+1; /* 1到Blsj之間的隨機(jī)數(shù) */
   *i=rand()%Khjg+1; /* 1到Khjg之間的隨機(jī)數(shù) */
 }

 int Minimum(LinkQueue Q[]) /* 返回最短隊(duì)列的序號(hào) */
 {
   int l[Qu];
   int i,k;
   for(i=0;i<Qu;i++)
     l[i]=QueueLength(Q[i]);
   k=0;
   for(i=1;i<Qu;i++)
     if(l[i]<l[0])
     {
       l[0]=l[i];
       k=i;
     }
   return k;
 }

 void CustomerArrived()
 { /* 處理客戶到達(dá)事件，en.NType=Qu */
   QElemType f;
   int durtime,intertime,i;
   ++CustomerNum;
   Random(&durtime,&intertime); /* 生成隨機(jī)數(shù) */
   et.OccurTime=en.OccurTime+intertime; /* 下一客戶到達(dá)時(shí)刻 */
   et.NType=Qu; /* 隊(duì)列中只有一個(gè)客戶到達(dá)事件 */
   if(et.OccurTime<CloseTime) /* 銀行尚未關(guān)門(mén)，插入事件表 */
     OrderInsert(&ev,et,cmp);
   i=Minimum(q); /* 求長(zhǎng)度最短隊(duì)列的序號(hào),等長(zhǎng)為最小的序號(hào) */
   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); /* 設(shè)定第i隊(duì)列的一個(gè)離開(kāi)事件并插入事件表 */
   }
 }

 void CustomerDeparture()
 { /* 處理客戶離開(kāi)事件，en.NTyPe<Qu */
   int i;
   i=en.NType;
   DeQueue(&q[i],&customer); /* 刪除第i隊(duì)列的排頭客戶 */
   TotalTime+=en.OccurTime-customer.ArrivalTime; /* 累計(jì)客戶逗留時(shí)間 */
   if(!QueueEmpty(q[i]))
   { /* 設(shè)定第i隊(duì)列的一個(gè)離開(kāi)事件并插入事件表 */
     GetHead_Q(q[i],&customer);
     et.OccurTime=en.OccurTime+customer.Duration;
     et.NType=i;
     OrderInsert(&ev,et,cmp);
   }
 }

 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(); /* 處理客戶到達(dá)事件 */
     else
       CustomerDeparture(); /* 處理客戶離開(kāi)事件 */
   } /* 計(jì)算并輸出平均逗留時(shí)間 */
   printf("顧客總數(shù):%d, 所有顧客共耗時(shí):%d分鐘, 平均每人耗時(shí): %d分鐘\n",CustomerNum,TotalTime,TotalTime/CustomerNum);
 }

 void main()
 {
   printf("請(qǐng)輸入銀行營(yíng)業(yè)時(shí)間長(zhǎng)度(單位:分)\n");
   scanf("%d",&CloseTime);
   Bank_Simulation();
 }