- 1、本文档共9页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
数据结构实验报告银行模拟系统实验代码
四、实验步骤(包括主要步骤、代码分析等)
主要步骤(模块化编程)
(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
您可能关注的文档
- 2012职称英语考试真题(理工类B级word版代码21.doc
- 2016年6月六级翻译预测.doc
- 大学英语考试四级优秀作文句子.doc
- 英文市场计划模板.doc
- 英语六级万能模版.docx
- 2002年英语词汇学试卷.doc
- 2014年12月英语六级考试8.docx
- java大题答案.docx
- CLR实现SQL正则表达式.doc
- 文章SAT语法2013年难题解析.doc
- 江苏省灌云高级中学2023-2024学年高三上学期第一次月考地理试题含答案.docx
- 备战2024年高考物理一轮重难点复习 第十三章 近代物理.docx
- 江苏省高邮市一中2021-2022学年高三上学期第一次月考语文试题(原卷版).docx
- 江苏省华罗庚中学2023-2024学年高三上学期12月阶段检测数学试卷含答案.docx
- 江苏省海门中学2023-2024学年高三上学期第一次调研考试地理试题及答案.docx
- 备战2024年高考物理一轮重难点复习 第九章 恒定电流.docx
- 江苏省高邮市2023-2024学年高三下学期3月学情调研数学试题含答案.docx
- 备战2024年高考物理一轮重难点复习 实验十一:探究影响感应电流方向的因素.docx
- 备战2024年高考物理一轮重难点复习 实验三:验证平行四边形定则.docx
- 备战2024年高考物理一轮重难点复习 第十四章 光.docx
文档评论(0)