实验1 怎样安全过河问题.pptVIP

实验1 怎样安全过河问题 一、问题 解题思路 二、计算过程 下面通过Mathematica的程序给出这个多步决策问题的一个解，同时满足了渡河次数尽量少的条件。 a[1]={0,0};a[2]={0,1};a[3]={0,2};a[4]={0,3};a[5]={3,0}; a[6]={3,1};a[7]={3,2};a[8]={3,3};a[9]={1,1};a[10]={2,2}; (*以上两行表示给出十个允许的状态.而{1,0},{1,2},{1,3},{2,0},{2,1},{2,3}六种状态是不可能出现的。*) d[1]={0,2};d[2]={2,0};d[3]={1,1};d[4]={0,1}; d[5]={1,0}; (*此行表示给出五个允许的状态，而{0,0},{1,2},{2,1},{2,2}是不可能出现的*) i=1;j=1;k=1;s[0]=s[1]={3,3};Print[“此岸————船上————对岸”]； DO[ DO[s[i+1]=s[i]+(-1)^id[j]; t=0; DO[if[s[i+1]==a[k];t=1]{k,1,10}]; if[t==0,Continue[]]; （*以上三行是保证状态属于允许的状态*） l=Mod[i+1,2];m=l;u=0; if[i+1=3, DO[If[s[i+1]==s[m],u=1,Break[]],{m,l,i-1,2}] ]; if[u==0,c[i+1]=d[j];Break[]] （*以上五行是保证状态不重复以满足渡河的次数尽量少*） ,{j,1,5}]; If[t==0,Print[No Result];Break[]]; b[i+1]={3,3}—s[i+1]; Print[s[i],”————”,c[i+1],”————”,b[i+1]]; If[s[i+1]=={0,0},Break[]] ,{i,1,12}] ,{j,1,5}]; If[t==0,Print[No Result];Break[]]; b[i+1]={3,3}—s[i+1]; Print[s[i],”————”,c[i+1],”————”,b[i+1]]; If[s[i+1]=={0,0},Break[]] ,{i,1,12}] ? 程序运算结果如下： 此岸 ———— 船上 ———— 对岸 {3,3} ———— {0,2} ———— {0,2} {3,1} ———— {0,1} ———— {0,1} {3,2} ———— {0,2} ———— {0,3} {3,0} ———— {0,1} ———— {0,2} {3,1} ———— {2,0} ———— {2,2} {1,1} ———— {1,1} ———— {1,1} {2,2} ———— {2,0} ———— {3,1} {0,2} ———— {0,1} ———— {3,0} {0,3} ———— {0,2} ———— {3,2} {0,1} ———— {0,1} ———— {3,1} {0,2} ———— {0,2} ———— {3,3} 三、结果分析 1 上述程序中五个允许的决策或十个允许的状态顺序进行整时，可以得到不同的结果。例如把d[1]={0，2}，d[3]={1，1}调整成d[1]={1，1}，d[3]={0，2}就会得到安全渡河的另一个方案。需要注意的是进行调整时也可能得不到安全渡河的方案。 2．?该模型求解方法有多种，例如可以利用动态规划的方法来求解，也可以利用图解的方法来求解。 3． 这种适当设置状态和决策，并确定状态转移规律是有效地解决很广泛的一类问题的建模方法。 4. 不易找到所有的解。 可以得出经过11步的渡河就能达到安全渡河的目标及满足渡河次数尽量少的条件。这11步的渡河方案就是上面程序运行结果中船上下面的那一列。渡河的整个过程如下所示： 设N和K分别表示商人数目和随从数目，如下图所示，图中L和R表示左岸和右岸， B= 又发现有4个合法状态是不可能达到的。因此实际的状态空间仅由16