author | Eugen Sawin <sawine@me73.com> |
Tue, 08 Mar 2011 21:45:25 +0100 | |
changeset 15 | c0bb7625b557 |
permissions | -rw-r--r-- |
lindenmannm@3 | 1 |
A = EmptySet; |
lindenmannm@3 | 2 |
forall(v:V) |
lindenmannm@3 | 3 |
Bv={v}; |
lindenmannm@3 | 4 |
Erzeuge eine Liste L der Kanten in E, welche gemäß |
lindenmannm@3 | 5 |
nicht-fallenden Kantenkosten sortiert ist; |
lindenmannm@3 | 6 |
forall (u,v):L { |
lindenmannm@3 | 7 |
B1=FIND(u); |
lindenmannm@3 | 8 |
B2=FIND(v); |
lindenmannm@3 | 9 |
if(B1!=B2) |
lindenmannm@3 | 10 |
A=[A,{(u,v)}]; |
lindenmannm@3 | 11 |
UNION(B1, B2, B1); |
lindenmannm@3 | 12 |
} |