八数码难题 Matlab(3)

四、程序

function [a1,b1]=shang(a)

[x,y]=find(a==0);

a1=a;

a1(x,y)=a(x-1,y);

a1(x-1,y)=0;

b1=zhao(a1);

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function [a1,b1]=xia(a)

[x,y]=find(a==0);

a1=a;

a1(x,y)=a(x+1,y);

a1(x+1,y)=0;

b1=zhao(a1);

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function [a1,b1]=zuo(a)

[x,y]=find(a==0);

a1=a;

a1(x,y)=a(x,y-1);