原创商人过河问题代码-du.txt

function [p,q]=du(p) 
q=[0,0]; 
s2=[0 0]; 
[p,q,s1]=go(p,q,s2)                     %go子函数 
i=1 
while((p(1)+p(2))~=0) 
[p,q,s2]=back(p,q,s1)                   %back子函数 
i=i+1 
[p,q,s1]=go(p,q,s2) 
i=i+1 
end 





%go子函数为: 

function [p,q,s1]=go(p,q,s2) 
y1=[0 2;2 0;1 1]; 
for i=1:3 
if(s2==y1(i,1:2)) 
continue 
end 
p=p-y1(i,1:2); 
if(p>=[0 0]) 
if(p(1)==0||p(1)>=p(2)) 
q=q+y1(i,1:2); 
else 
p=p+y1(i,1:2);