1
3
2
4
5
6
7
8
9
10
2
3
1
2
2
1
4
2
1
1
3
4
7
9
1
M
文件:
clc
clear
all
c=[0 2 3 0 0 0 0 0 0 0;
2 0 1 2 0 0 0 0 0 0;
3 1 0 0 2 0 0 0 6 0;
0 2 0 0 1 2 0 0 0 0;
0 0 2 1 0 0 1 0 0 0;
0 0 0 2 0 0 1 3 0 0;
0 0 0 0 1 1 0 0 4 0;
0 0 0 0 0 3 0 0 7 9;
0 0 6 0 0 0 4 7 0 1;
0 0 0 0 0 0 0 9 1 0];
[i,j,k]=find(c);
nn=length(i)/2;
c2=c;
c1=triu(c2);
[i,j,k]=find(c1);
data=[i';j';k'];
D1=data(1:2,:);
D2=data(3,:)
TM=c2;
while
nn>length(c)-1
temp1=max(D2);
temp2=find(D2==temp1);
temp3=temp2(1);
TM=c2
TM(D1(1,temp3),D1(2,temp3))=0;
TM(D1(2,temp3),D1(1,temp3))=0;
TM
ff=wallshalt(TM);
if
ff==1