prim算法的matlab程序,Prim算法

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

A.Prim算法：

procedure prim(v0:integer);

var

lowcost,closest:array[1..maxn] of integer;

i,j,k,min:integer;

begin

for i:=1 to n do

begin

lowcost:=cost[v0,i];

closest:=v0;

end;

for i:=1 to n-1 do

begin

{寻找离生成树最近的未加入顶点k}

min:=maxlongint;

for j:=1 to n do

if (lowcost[j]< min) and (lowcost[j]< >0) then

begin

min:=lowcost[j];

k:=j;

end;

lowcost[k]:=0; {将顶点k加入生成树}

{生成树中增加一条新的边k到closest[k]}

{修正各点的lowcost和closest值}

for j:=1 to n do

if cost[k,j]< lwocost[j] then

begin

lowcost[j]:=cost[k,j];

closest[j]:=k;

end;

end;

end;{prim}