Matlab程序：这个程序是什么意思？

Question

Matlab程序：
clc;clear;
a=[0 740 1300 780 1500
740 0 430 560 2000
1300 430 0 550 2200
780 560 550 0 200
1500 2000 2200 200 0];

result=[];p=1;tb=2:length(a);
while length(result)~=length(a)-1
temp=a(p,tb);temp=temp(:);
d=min(temp);
[jb,kb]=find(a(p,tb)==d);
j=p(jb(1));k=tb(kb(1));
result=[result,[j;k;d]];p=[p,k];tb(find(tb==k))=[];
end
result

Answer 1

%程序用于寻找对称矩阵a下半部分中每一行的非零最小值，并给出其位置
%result有三行，第一行元素表示这个最小值的行所在位置，第二行元素
%表示这个最小值的列所在位置，第三行表示这个最小值的值

clc;clear;%清空界面
a=[0 740 1300 780 1500
740 0 430 560 2000
1300 430 0 550 2200
780 560 550 0 200
1500 2000 2200 200 0];%输入矩阵a

result=[];p=1;tb=2:length(a);%初始化变量
while length(result)~=length(a)-1 %当检查完倒数第二列非零最小值后退出
temp=a(p,tb); %将a中p行tb列的元素赋给temp
temp=temp(:); %使temp中元素变成一列
d=min(temp); %求出temp中最小的那个元素
[jb,kb]=find(a(p,tb)==d); %找出最小元在a中位置
j=p(jb(1));k=tb(kb(1)); %如果有两个一样的最小元，取第一个
result=[result,[j;k;d]]; %将这个最小元的行位置j，列位置k,以及值d写入result
%考察下一轮
p=[p,k];
tb(find(tb==k))=[]; %去掉已选出最小元的列
end
result %输出最终结果

%Ps，因为矩阵是对称的，所以行列可以互换...

Answer 2

%这个是添加注释的意思，你这个程序后面添加这个没什么用，后面都没什么注释，可以不要
也就是个快速傅里叶变换的
程序运行结果