1、这个随机值设计得好,模拟效果就好。本节仅讨论决定性模拟问题。有关随机模拟的问题,大家可以参考一些相关书籍。例31:约瑟夫问题N个人排成一个圆圈,然后把这N个人按逆时针方向分别编号为1、2、N。从编号为1的人开始按逆时针计数,当某人计数为M的倍数是,该人出圈;如此循环下去,直到圈中只有一个人留下。分析:这道题似乎用不上什么算法,只需建立一个循环链表,然后按照题目中要求的模拟即可。算法描述如下:for I := 1 to N DO PI := I + 1; 建立循环链表PN := 1;Now := N;repeat 模拟出圈过程 Now : for I := 1 to M - 1 do= PNow
2、; 模拟报数 PNow := PNowNow; 编号为PNow的人出圈until PNow = Now; 直到圈中只剩下一个人Writeln(The last man is , Now);例32:SERNET模拟(NOI98-5)计算机网络是现代科技发展的热点,传播性能是计算机网络的主要性能指标。SERNET网络开发小组设计了一种称为SERNET的网络,并希望开发一个模拟软件来模拟该网络的数据传输情况,进而计算出网络的传输性能。SERNET网络由服务器及连接它们的网络传输线路组成,服务器用服务器地址予以标识,网络传输线路为双向传输线路。网络传输过程中将各种传输数据分隔为若干个大小相同的数据包,
3、以数据包为单位进行传输。数据包在传输线路上传输时需要一定的传输时间,不同的传输线路的传输时间不同。服务器处理数据的时间较之于传输时间很小,可忽略不计。每一个数据包中除了包括具体的数据信息外,还含有如下标识信息:1 数举包编号;2 数据包源服务器地址;3 数据包目的服务器地址。网络传输的功能就是将一个个数据包从源服务器传输到目的服务器。对于每一个数据包,具体的网络传输方案为:1 源服务器将待发送的数据包一律复制若干份并向与之相连的所有赋予其发送该数据包。2 服务器接收到一个数据包后,如果该数据包符合下面任何一个条件: 数据包的源服务器地址与本服务器地址相同 数据包的目的服务器地址与本服务器地址相
4、同 本服务器已转发过与该数据包编号相同的数据包则接收该数据包;否则,服务器将其复制若干份并向它相连的所有服务器转发该数据包。这里,两台服务器“相连”的含义是它们之间有网络传输线路直接相连。现在需要你编一个程序来模拟SERNET网络中的数据包传输情况。输入数据:输入文件的第一行为一个正整数N(N100),表示SERNET中服务器的数目。第二行有N个互不相等的不超过100的正整数,表示每个服务器的地址。第三行有一个正整数M,表示SERNET中传输线路的数目。接下来的M行每行用三个正整数表示一条传输线路连接的两台服务器的地址以及该传输线路的传输时间。线路传输时间为不超过100的正整数。接下来的一行为
5、一个正整数K(K10000),表示SERNET中数据包的数目。以下的K行每行表示一个数据包的信息,格式为:数据包编号 起始发送时间 源服务器地址 目的服务器地址其中数据包的编号为互不相同的小于100000的正整数,输入文件的最后一行为一个正整数T(T10000),T为输出时刻,输入文件中同一行相邻两项之间用一个或多个空格隔开。输出数据:输出文件仅含义个整数P,表示T时刻后还在网络中传输的数据包数目(编号相同的数据包为同一数据包)。约定:1 本题中所有时间量的单位均相同;2 每一条传输线路上在同一时刻能传输任意多个数据包。输入输出示例:SERNET.INSERNET.OUT457 42 10 9
6、357 42 642 93 542 10 210 93 102433 10 57 105678 11 42 9323 1很显然,本题是对日常生活中的网络文件传输进行模拟。对于模拟的事物,首先是将其抽象成数学模型。于是我们将输入文件给出的网络信息转换成一张带权无向图。网上的服务器作为顶点,服务器之间的传输线路作为无向边,传输线路的传输时间作为边上的权。这里要注意两点:1 试题中服务器数N的上限是给定的(N100),可以按惯例采用二维数组存储图的信息。但问题是,服务器用服务器的地址予以标识,而这些地址是无序的。如果采用服务器地址作为数组下表,即会带来计算的不便,造成内存的无端浪费。因此我们改变服务
7、器的标识方式,用服务器地址的输入顺序标识服务器并将这些序号作为数组下标。例如:服务器地址574293服务器标识(ID)32 一条传输线路上的信息可能会因为有多种传输时间而重复输入多次。我们取其中最小传输时间和最大传输时间作为线路的传输时间范围。若一条传输线路的信息仅输入一次,则线路的最小传输时间的最大传输时间设为输入的传输时间。设:type Tlink = record 传输线路的时间类型 Short, 最短传输时间 Long: Byte; 最长传输时间 End;var Links: array 1 . N, 1 . N of Tlink; 网络下表列出了样例中的网络信息:服务器I地址(ID)
8、服务器J地址(ID)传输时间57(1)42(2)693(4)510(3)10Links1, 2.Short = Links2, 1.Short = 1 Links1,2.Long = Links2, 1.Long = 6 Links2, 4.Short = Links4, 2.Short = 5 Links2,4.Long = Links4, 2.Long = 5 Links2, 3.Short = Links3, 2.Short = 2 Links2,3.Long = Links3, 2.Long = 2 Links3, 4.Short = Links4, 3.Short = 10 Link
9、s3,4.Long = Links4, 3.Long = 10见图2-17由于试题约定“每一条传输线路上在同一时刻能传输任意多个数据包”,因此数据包的传输互不影响。我们可以一个一个的模拟数据包的传输过程,从中统计出T时刻后仍在网络中传输的数据包数。现在的问题是如何判别T时刻后当前一个数据包是否还在网络中传输模拟一个数据包在网络中的传输情况是算法的基础。it当前数据包序号;acceptedI服务器I接受it数据包的标志(1IN)recevieI是服务器I向与它相连的所有服务器转发数据包的开始时刻。由于服务器处理数据的时间忽略不计,因此收到数据包的时刻即为转发时刻。RecevieI = $FFFF
10、时说明当前未确定服务器I转发数据包的时刻或者服务器I已接受了it。显然,如果receiveI $FFFF且acceptedI = false,则服务器I可能即将收到it。如果按照网络的传输方案确定服务器I已接受了it,则acceptedI = true。开始时,it的源服务器首先将it复制若干份并同与之相连的所有服务器发送,即receiveit的源服务器=it的源服务器的起始发送时间,其余服务器的receive值为$FFFF。此时,除可确定it的目标服务器(但不能与it的服务器同址)为接受服务器外,其余服务器为收到it,即if it的源服务器it的目标服务器 then begin accept
11、edit的目标服务器:=true; 其余服务器的accepted值设为false;end;然后重复如下过程:在可接受it的服务器集合中寻找一个最早收到数据包的满足下属条件的服务器I:minreceiveI |(receiveI $FFFF)and(acceptedI = false)服务器I试图向与之相连的所有服务器J(LinksI, J.Short 0 | 1 J N)发送数据包。如果服务器J可收到it(receiveI + LinksI, J.Short T),则判定T时刻后仍有一个数据包在网络中传输,算法结束;如果在T时刻前与服务器I相连的所有线路完成传输it的任务,则按照网络的传输方案
12、确定服务器I接受了it,acceptedITrue,receiveI$FFFF。这一过程一直进行到所有服务器都不再转发数据包为止,即所有服务器的receive值为$FFFF。上述算法由一个布尔函数Alive(it)描述。若数据包it在T时刻后还在网络中传播,则该函数返回True;否则返回False。function Alive(it): Boolean; Begin Alive := True; 初始化receive的值为$FFFF; Receiveit的源服务器 = it的开始发送时间 初始化Accepted的值为False; Acceptedit的目标服务器 = true repeat 寻找一个receive值最小的服务器I; if ReceiveI = $FFFF then Break ; if AcceptedI = False then for J := 1 to N do begin if 服务器I与服务器J有传输线路 then 修正receiveJ值; if 服务器J在T时刻后才能
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1