code/AzyklischeNetzwerke.code
author lindenmannm
Tue, 08 Mar 2011 21:18:35 +0100
changeset 14 c36833d74fc2
permissions -rw-r--r--
neu
lindenmannm@3
     1
Sortiere G=(V,E,c) topologisch;
lindenmannm@3
     2
DIST[s]=0;
lindenmannm@3
     3
forall(v:V\{s}){
lindenmannm@3
     4
    DIST[v]=infty;
lindenmannm@3
     5
}
lindenmannm@3
     6
U={v|v:V mit num(v)<n};
lindenmannm@3
     7
while(!U.Empty) {
lindenmannm@3
     8
    Wähle und streiche Knoten u:U mit kleinstem num-Wert;
lindenmannm@3
     9
    forall(e=(u,v):E) {
lindenmannm@3
    10
        if(DIST[v]>DIST[u]+c(u,v)) {
lindenmannm@3
    11
            DIST[v]=DIST[u]+c(u,v);
lindenmannm@3
    12
}}}