function?LST（a）
%a是坐標(biāo)矩陣
[mn]=size（a）;
A=zeros（size（a1））;
for?i=1:m
????for?j=1:i
??????A（ij）=norm（a（j:）-a（i:））;%坐標(biāo)生成鄰接矩陣
????end
end
A=A+A‘;
A（A==0）=inf;
E=[];
p=1;%設(shè)置生成樹的起始頂點(diǎn)
b=2:length（A）;?%設(shè)置生成樹以外頂點(diǎn)
while?size（E2）~=length（A）-1
	t=A（pb）;%表示在已經(jīng)形成的樹每個(gè)點(diǎn)到下一個(gè)沒標(biāo)記的點(diǎn)的距離，以后的程序要比較以尋求最小
	t=t（:）;%取出與p關(guān)聯(lián)的所有邊
	d=min（t）;%取上述邊中的最小邊
	[jk]=f