| author | Eugen Sawin <sawine@me73.com> |
| Sat, 05 Mar 2011 14:23:15 +0100 | |
| changeset 8 | f09e54fbdcaf |
| 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 |
} |