3对夫妻过河的Matlab程序.docVIP

function kexing = f_kexing(a) % ycu sunkanry % 判断一个状态a是否可行状态 % 可行状态为（0,i),（i,i),(3,i);0=i=3 if (a(1) == a(2) a(1) = 0 a(1) = 3)%可行状态为（i,i), kexing = 1; else if (a(1) == 0 ) a(2) = 0 a(2) = 3%可行状态为（0,i) kexing = 1; else if((a(1) == 3) a(2) = 0 a(2) = 3)%可行状态为（3,i) kexing = 1; else kexing = 0; end end end function jie = guohe() kaishi = [3,3];%开始状态 jieshu = [0,0];%结束状态 jie = -ones(2,50) ; jie(:,1) = kaishi; jie(:,2) = [3,1];%第一次移动 两个人过去 %过去时人尽量多，去多 qu = [0 2 1 0 1; 2 0 1 1 0]; %回来时人尽量少 hui = [0 1 0 2 1; 1 0 2 0 1]; yd_cishu = 2;%移动次数 index = zeros(1,50);%指示第yd_cishu次移动是采用的是那种方式 index(1) = 1; index(2) = 1; %注意矩阵是否相等的判断 while(jie(1,yd_cishu) ~= jieshu(1) || jie(2,yd_cishu) ~= jieshu(2) ) if( mod(yd_cishu,2) ~= 0 )%奇数次移动 while(index(yd_cishu)=5 ) switch(index(yd_cishu)) case {1}%左移一位 jixu = jie(:,yd_cishu) - qu(:,1); case {2}%左移两位 jixu= jie(:,yd_cishu) - qu(:,2); case {3}%向下移一位 jixu = jie(:,yd_cishu) - qu(:,3); case {4}%向下移两位 jixu = jie(:,yd_cishu) - qu(:,4); case {5}%左下移一位 jixu = jie(:,yd_cishu) - qu(:,5); end if(f_kexing(jixu))%当移动状态可行，则保存移动情况 yd_cishu = yd_cishu + 1;%继续移动 jie(:,yd_cishu) = jixu; index(yd_cishu) = index(yd_cishu) + 1; index(yd_cishu) = 1;%下一次移动选择从新开始 break; else index(yd_cishu) = index(yd_cishu) + 1; end end if(index(yd_cishu)5) yd_cishu = yd_cishu - 1;%回退 end else%偶数次移动 while(index(yd_cishu)=5 ) switch(index(yd_cishu)) case {1}%向上移两位 jixu = jie(:,yd_cishu) + hui(:,1); case {2}%向上移一位 jixu = j