文件名称：关于最短距离prim算法
文件大小：412B
文件格式：M
更新时间：2021-09-07 04:46:45
prim
clc;clear; a=zeros(7); a(1,2)=50; a(1,3)=60; a(2,4)=65; a(2,5)=40; a(3,4)=52;a(3,7)=45; a(4,5)=50; a(4,6)=30;a(4,7)=42; a(5,6)=70; a=a+a';a(a==0)=inf; result=[];p=1;tb=2:length(a); while size(result,2)~=length(a)-1 temp=a(p,tb);temp=temp(:); d=min(temp); [jb,kb]=find(a(p,tb)==d,1); %找第1个最小值 j=p(jb);k=tb(kb); result=[result,[j;k;d]];p=[p,k];tb(find(tb==k))=[]; end result