商人过河问题.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
商人过河问题 一、三名商人各带一名随从的情况 问题(略) 模型假设 当一边岸满足随从数大于商人数,但商人数为0时仍为一种安全状态; 小船至多可容纳2人,且渡河时由随从(或者商人)来划船。 分析与建模 商人过河需要一步一步实现,比如第一步:两个仆人过河,第二步:一个仆人驾船回来,第三步:又是两个仆人过河,第四步:…… 其中每一步都使当前状态发生变化,而且是从一种安全状态变为另一种安全状态。如果我们把每一种安全状态看成一个点,又如果存在某种过河方式使状态变到状态,则在点和点之间连一条边,这样我们把商人过河问题和图联系起来,有可能用图论方法来解决商人过河问题。 建模步骤:⑴首先要确定过河过程中的所有安全状态,我们用二元数组表示一个安全状态(不管此岸还是彼岸),其中x表示留在此岸的主人数,表示留在此岸的随从数。两岸各有十种安全状态: ⑵在两岸的安全状态之间,如存在一种渡河方法能使一种状态变为另一种安全状态,则在这两种状态之间连一条边。这样,得到如下一个二部图(图1),其中下方顶点表示此岸状态,上方顶点表示彼岸状态。我们的目的是要找出一条从此岸到彼岸的最短路。 ⑶观察发现此岸的状态,和彼岸的状态,都是孤立点,在求最短路的过程中不涉及这些点,把它们删去。两岸的点用1,2,……,16重新标号。 (3,3) (3,2) (3,1) (3,0) (1,1) (2,2) (0,3) (0,2) (0,3) (0,0) ○ ② ④ ⑥ ⑧ ⑩ ○ ① ③ ⑤ ○ ⑦ ⑨ ○ (3,3) (3,2) (3,1) (3,0) (1,1) (2,2) (0,3) (0,2) (0,3) (0,0) (图1) 模型求解 求最短路程的matlab程序sroute.m如下: function route=sroute(G,opt) %求图的最短路的Dijkstra算法程序,规定起点为1,顶点连续编号 %G是给定图的邻接矩阵或弧表矩阵,程序能够自动识别 %当opt=0(或缺省)时求无向图的最短路,当opt=1时求有向图的最短路 %d——标记最短距离 %route是一个矩阵,第一行标记顶点,第二行标记1到该点的最短路,第三行标记最短路上该点的先驱顶点 while 1 %此循环自动识别或由弧表矩阵生成邻接矩阵 if G(1,1)==0 A=G;break else e=G n=max([e(:,1);e(:,2)]); %顶点数 m=size(e,1); %边数 M=sum(e(:,3)); %代表无穷大 A=M*ones(n,n); for k=1:m A(e(k,1),e(k,2))=e(k,3); if opt==0 A(e(k,2),e(k,1))=e(k,3); %形成无向图的邻接矩阵 end end A=A-M*eye(n) %形成图的邻接矩阵 end break end pb(1:length(A))=0;pb(1)=1; index1=1; index2=ones(1,length(A)); d(1:length(A))=M;d(1)=0; %标记距离 temp=1; while sum(pb)length(A) tb=find(pb==0); d(tb)=min(d(tb),d(temp)+A(temp,tb)); %更新距离 temp=find(d(tb)==min(d(tb))); %确定新最小距离点 temp=tb(temp(1)); pb(temp)=1; index1=[index1,temp]; index=index1(find(d(index1)==d(temp)-A(temp,index1))); if length(index)=2 index=index(1); end index2(temp)=index; %记录前驱顶

文档评论(0)

小教资源库 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档