function?L=prim（a）
%a為鄰接矩陣
n=size（a1）;
L=zeros（nn）;%連接矩陣以v1到其它點的所有邊作為候選邊
%closest=zeros（1n）;%對某個頂點vi不屬于v-s若lowcost[i]=0則i在s中;若0%lowcost=zeros（1n）;%其最小權值為lowcost[i]若lowcost[i]=inf則i與closest之間沒有邊
for?i=1:n
????lowcost（i）=a（1i）;
????closest（i）=1;
end???%給lowcost和closest賦初值
for?i=1:n-1???%找出n-1個頂點
????minm=inf;
????for?j=1:n