code/spannbaeumePrim.code
author Eugen Sawin <sawine@me73.com>
Sat, 05 Mar 2011 15:04:05 +0100
changeset 9 e088ae08440c
permissions -rw-r--r--
Minor changes to the example programs.
lindenmannm@3
     1
forall(v:V)
lindenmannm@3
     2
    Insert(Q, infty, v);
lindenmannm@3
     3
Wähle einen Knoten w:V als Wurzel;
lindenmannm@3
     4
DecreaseKey(Q, 0, w);
lindenmannm@3
     5
p[w]=nil;
lindenmannm@3
     6
while(!Empty(Q)) {
lindenmannm@3
     7
    (d,u)=DeleteMin(Q);
lindenmannm@3
     8
    forall((u,v):E)
lindenmannm@3
     9
        if(v:Q && c(u,v)<v.Key) {
lindenmannm@3
    10
            DecreaseKey(Q, c(u,v), v);
lindenmannm@3
    11
            p[v]=u;
lindenmannm@3
    12
        }