銀行排隊(duì)問題各個時刻的隊(duì)長

1、銀行排隊(duì)問題各個時刻的隊(duì)長還是銀行排隊(duì)問題，基本代碼我已經(jīng)整理差不多了，各個函數(shù)如下，就差求一下各個時刻的隊(duì)長了，誰能幫忙啊？（以五分鐘為一時間單位，即求零時刻的隊(duì)長，五分鐘時的隊(duì)長，十分鐘時的隊(duì)長，依次類推）void OpenForDay() /* 初始化操作 */int i;InitList(&ev); /* 初始化事件鏈表為空 */en.OccurTime=0; /* 設(shè)定第一個客戶到達(dá)事件 */en.NType=Qu; /* 到達(dá) */OrderInsert(&ev,en,cmp); /* 插入事件表 */for(i=0;i <Qu; i) /* 置空隊(duì)列 */I

2、nitQueue(&qi);void CustomerArrived() /* 處理客戶到達(dá)事件，en.NType=Qu */QElemType f;int durtime,intertime,i;CustomerNum;Random(&durtime); /* 生成隨機(jī)數(shù) */intertime=expntl(LAMBUDA);et.OccurTime=en.OccurTime intertime; /* 下一客戶到達(dá)時刻 */et.NType=Qu; /* 隊(duì)列中只有一個客戶到達(dá)事件 */if(et.OccurTime <CloseTime) /* 銀行尚未關(guān)門，插入

3、事件表 */OrderInsert(&ev,et,cmp);i=Minimum(q); /* 求長度最短隊(duì)列的序號,等長為擁有最小序號的隊(duì)列 */f.ArrivalTime=en.OccurTime;f.Duration=durtime;EnQueue(&qi,f);if(QueueLength(qi)=1)et.OccurTime=en.OccurTime durtime;et.NType=i;OrderInsert(&ev,et,cmp); /* 設(shè)定第i隊(duì)列的一個離開事件并插入事件表 */void CustomerDeparture() /* 處理客戶離開事件，e

4、n.NTyPe <Qu */int i;i=en.NType;DeQueue(&qi,&customer); /* 刪除第i隊(duì)列的排頭客戶 */TotalTime =en.OccurTime-customer.ArrivalTime; /* 累計(jì)客戶逗留時間 */if(!QueueEmpty(qi) /* 設(shè)定第i隊(duì)列的一個離開事件并插入事件表 */GetHead_Q(qi,&customer);et.OccurTime=en.OccurTime customer.Duration;et.NType=i;OrderInsert(&ev,et,cmp);fo

5、r(i=0;i <Qu;i )if(MaxQueue <=QueueLength(qi)MaxQueue=QueueLength(qi);void Bank_Simulation() int t;Link p;OpenForDay(); /* 初始化 */while(!ListEmpty(ev)DelFirst(&ev,GetHead(ev),&p);en.OccurTime=GetCurElem(p).OccurTime;en.NType=GetCurElem(p).NType;for(t=en.OccurTime;t)if(en.NType=Qu)Custome

6、rArrived(); /* 處理客戶到達(dá)事件 */elseCustomerDeparture(); /* 處理客戶離開事件 */ /* 計(jì)算并輸出平均逗留時間 */printf("顧客總數(shù):%d, 所有顧客共耗時:%d分鐘, 平均每人耗時: %d分鐘，最大隊(duì)長為：%dn",CustomerNum,TotalTime,TotalTime/CustomerNum,MaxQueue);void main()Bank_Simulation();網(wǎng)友回復(fù):等著你把代碼貼全了呵呵網(wǎng)友回復(fù):這些還不夠？剩下的都是些小東西網(wǎng)友回復(fù):主文件除了include就這些了/* 兩個窗口的排隊(duì)模型

7、的數(shù)值仿真 */#define Qu 2 /* 客戶隊(duì)列數(shù) */#define LAMBUDA1 5/* 每個客戶辦理業(yè)務(wù)的時間最大值 */#define LAMBUDA2 10 /*負(fù)指數(shù)分布的lambuda*/#define CloseTime 540 /* 銀行的營業(yè)時間 */typedef struct /* 定義ElemType為結(jié)構(gòu)體類型 */int OccurTime; /* 事件發(fā)生時刻 */int NType; /* 事件類型，Qu表示到達(dá)事件,0至Qu-1表示Qu個窗口的離開事件 */Event,ElemType; /* 事件類型，有序鏈表LinkList的數(shù)據(jù)元素類型 *

8、/typedef LinkList EventList; /* 事件鏈表類型，定義為有序鏈表 */typedef structint ArrivalTime; /* 到達(dá)時刻 */int Duration; /* 辦理事務(wù)所需時間 */QElemType; /* 定義QElemType(隊(duì)列的數(shù)據(jù)元素類型)為結(jié)構(gòu)體類型; */* 程序中用到的主要變量(全局)。算法3.7 */EventList ev; /* 事件表 */Event en; /* 事件 */Event et; /* 臨時變量 */LinkQueue qQu; /* Qu個客戶隊(duì)列 */QElemType customer; /*

9、 客戶記錄 */int TotalTime=0,CustomerNum=0,MaxQueue=0,time=0; /* 累計(jì)客戶逗留時間,客戶數(shù)(初值為0) */; /* 銀行營業(yè)時間(單位是分) */int cmp(Event a,Event b) /* 依事件a的發(fā)生時刻 <、=或>事件b的發(fā)生時刻分別返回-1、0或1 */if(a.OccurTime=b.OccurTime)return 0;elsereturn (a.OccurTime-b.OccurTime)/abs(a.OccurTime-b.OccurTime);void OpenForDay() /* 初始化操作

10、*/int i;InitList(&ev); /* 初始化事件鏈表為空 */en.OccurTime=0; /* 設(shè)定第一個客戶到達(dá)事件 */en.NType=Qu; /* 到達(dá) */OrderInsert(&ev,en,cmp); /* 插入事件表 */for(i=0;i <Qu; i) /* 置空隊(duì)列 */InitQueue(&qi);expntl(float x)/* 負(fù)指數(shù)分布 */float z,m;doz = (float) rand() / RAND_MAX);while (z = 0) ¦ ¦ (z = 1);m=-x*log(

11、z);return(m);int Minimum(LinkQueue Q) /* 返回最短隊(duì)列的序號 */int lQu;int i,k;for(i=0;i <Qu;i )li=QueueLength(Qi);k=0;for(i=1;i <Qu;i )if(li <l0)l0=li;k=i;return k;void CustomerArrived() /* 處理客戶到達(dá)事件，en.NType=Qu */QElemType f;int durtime,intertime,i;CustomerNum;durtime=expntl(LAMBUDA1); /* 生成隨機(jī)數(shù) */in

12、tertime=expntl(LAMBUDA2);et.OccurTime=en.OccurTime intertime; /* 下一客戶到達(dá)時刻 */et.NType=Qu; /* 隊(duì)列中只有一個客戶到達(dá)事件 */if(et.OccurTime <CloseTime) /* 銀行尚未關(guān)門，插入事件表 */OrderInsert(&ev,et,cmp);i=Minimum(q); /* 求長度最短隊(duì)列的序號,等長為擁有最小序號的隊(duì)列 */f.ArrivalTime=en.OccurTime;f.Duration=durtime;EnQueue(&qi,f);if(Queu

13、eLength(qi)=1)et.OccurTime=en.OccurTime durtime;et.NType=i;OrderInsert(&ev,et,cmp); /* 設(shè)定第i隊(duì)列的一個離開事件并插入事件表 */void CustomerDeparture() /* 處理客戶離開事件，en.NTyPe <Qu */int i;i=en.NType;DeQueue(&qi,&customer); /* 刪除第i隊(duì)列的排頭客戶 */TotalTime =en.OccurTime-customer.ArrivalTime; /* 累計(jì)客戶逗留時間 */if(!Qu

14、eueEmpty(qi) /* 設(shè)定第i隊(duì)列的一個離開事件并插入事件表 */GetHead_Q(qi,&customer);et.OccurTime=en.OccurTime customer.Duration;et.NType=i;OrderInsert(&ev,et,cmp);for(i=0;i <Qu;i )if(MaxQueue <=QueueLength(qi)MaxQueue=QueueLength(qi);void Bank_Simulation() int t;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)CustomerAr