圖論小生成樹kruskal算法

Kruskal假設(shè)給定一個加權(quán)連通圖GKruskal假設(shè)給定一個加權(quán)連通圖G，G的邊集合為E，頂點個數(shù)為n，要求其一棵最小生成樹T。Kruskal假設(shè)T中的邊和頂點均涂成紅色，其余邊為白色。開始時G中的邊均為白色。2）直到有n-1條紅色邊，這n-1條紅色邊便構(gòu)成最小生成樹T注意到在算法執(zhí)行過程中，紅色頂點和紅色邊會形成一個或多個連通分支，它們都是G的子樹。一條邊與紅色邊形成圈當(dāng)且僅當(dāng)這條邊的兩個端點屬于同一個子樹。因此判定一條邊是否與紅色邊形成圈，只需判斷這條邊的兩端點是否屬于同一個子樹。上述判斷可以如此實現(xiàn)：給每個子樹一個不同的編號，對每一個頂點引入一個標(biāo)記，表示這個頂點所在的子樹編號。當(dāng)加入一條紅色邊，就會使該邊兩端點所在的兩個子樹連接起來，成為一個子樹，從而兩個子樹中的頂點標(biāo)記要改變成一樣。綜上，可將usal算法細(xì)化使其更容易計算機(jī)實現(xiàn)。C/*Copyright(c)2002,2006byctu_85AllRightsReserved.Highlightbyyzfy/*Iamsorrytosaythatthesituationofunconnectederned*/#include"stdio.h"#definemaxver10#definemaxrightgraphisnot{printf("Pleaseenterthenumberif{printf("Error!Pleasereinput!\n");gotorestart;printf("Pleaseenterthenumberif{printf("Error!Pleasereinput!\n");gotorestart;}for(j=0;j<num;j++)for(k=0;k<num;k++){if{}if{printf("Pleaseinputtherightbetweenexistspleaseinput-1:\n",j+1,k+1);{printf("Invalidinput!\n");gotore;}if(temp==-1)}}for{}for}for{for(k=0;k<num;k++)if(G[j][k]<maxright){}if(status==0)}{if{}if{for(t=0;t<record;t++)if(circle){/*ifacircleexsits,roll}{}}}if(!status)printf("Wecannot{dealwithitbecausethegraphisnot printf("Path%d:vertex%dtovertex}return}intFindCircle(intstart,intbegin,inttimes,int{/*tojudgewhetheracircleisproduced*/inti;forif{if{return1;}if}return}[編輯本段pascal例程USER:BO}return}[編輯本段pascal例程USER:BOLIU[raulliu2]TASK:agrinetLANG:Compile:OK[0.004[0.004[010:OK[0.012AlltestsYour('agrinet')allcorrectanswers!Thisissubmission#4forthisproblem.標(biāo)準(zhǔn)MST，啥優(yōu)化都不要。。剛開始用kruskal做的。。不知道怎么回事老是ontest5很郁悶的說。只得改用prim。。。我可不喜歡prim啊。。。。myuglycode:{}map:array[1..100,1..100]ofd:array[1..d:array[1..100]oflongint;mark:array[1..100]ofboolean;n,i,ans,j:longint;procedureprim;i,j,min,minj:longint;fillchar(mark,sizeof(mark),0);mark[1]:=true;fori:=1tondoifmap[1,i]<>0thend:=map[1,elsed:=maxlongint;ans:=fori:=2tondobeginmin:=maxlongint;forj:=1tondoif(notmark[j])andmin:=d[j];minj:=j;mark[minj]:=true;inc(ans,d[minj]);forj:=1tondoif(d[j]>map[minj,d[j]:=map[minj,j];(d[j]<min)thenj])and(map[minj,j]0)assign(input,'agrinet.in');reset(input);assign(output,'agrinet.out');rewrite(output);fori:=1tondobeginforj:=1tondoread(map[i,j]);close(input);close(output);===================================強(qiáng)大的分割線{}x,close(input);close(output);===================================強(qiáng)大的分割線{}x,j,tot,i,n:l,a,b:array[1..10000]oflongint;f:array[1..100]oflongint;v:array[1..100,1..100]ofboolean;procedureqsort(ll,rr:longint);i,j,mid,temp:longint;i:=ll;j:=rr;mid:=l[(i+j)shrwhilel<middoinc(i);whilel[j]>middodec(j);ifi<=jthenuntill;l:=l[j];l[j]:=:=a;b;:=:=>ifi<rrthenll<jthenfunctionfind(x:longint):tmp:iff[x]iff[x]=xthenexit(x)elseexit(find(f[x]));procedureunion(u,v:fu,fv:longint;fu:=fv:=f[fv]:=fu;procedurekruskal;cnt,i,ans:longint;fori:=1tondof:=cnt:=0;ans:=fori:=1tototif(find(a)<>find(b))thenbeginunion(a,b);ans:=ans+l;ifcnt=n-1thenbreak;assign(input,'agrinet.in');reset(input);assign(output,'agrinet.out');rewrite(output);fillchar(v,sizeof(v),0);tot:=0;fori:=1tondobeginforj:=1tondobeginread(x);if(notv[i,j])and(i<>j)thenv[i,v[j,v[i,v[j,l[tot]:=x;qsort(1,tot);close(input);close(output);KRUSKAL要加入并查集,判斷點是否在同一個集合內(nèi)如果在則不能取該邊programconstmaxvex=100;type;{varvex:array[1..maxvex]ofinteger}head:edgelink;{邊集鏈表頭指針}i,vexnum:integervexnum}functioncreatlink():edgelink;}varhead,p,q:edgelink;new(head);{head^.from:=0;head^.too:=0;head^.weight:=0;{writeln('Inputthenumberof{writeln('Inputthenumberofedge:');}{write('Inputfrom,toandweightofeveryedge:');fork:=1toedgenumdo{}q^.from:=from;q^.too:=too;q^.weight:=weight;p:=head;{找插入點位置q^.next:=p^.next;}functionsameset(from,too:integer):boolean;{判斷兩個頂點是否在同一集合}whilevex[j]>0)doj:=vex[j}whilevex[k]>0)dok:=vex[k];{