SMALLTALK K1ex127-.45ex51275ahler/Bothner

326 15 Programmierung von Suchverfahren
(station == self)
ifFalse:[PfadSammler add: station.
self erstellenPfadSammler:(varArray at:3)]
ifTrue: [PfadSammler add:(varArray at:3)]
Hinweis: Somit greifen wir ausgehend vom Ankunftsort auf den Vorgänger dieser Station
zu und hangeln uns solange zurück, bis wir den Abfahrtsort erreicht haben.
Um im Transcript-Fenster die Stationen in der richtigen Reihenfolge anzuzeigen, schicken
wir – innerhalb von “ver:bindung:best:rek:” – dem Empfänger-Objekt “PfadSammler” eine
Message mit dem Selektor “reversed”.
Um vor jeder neuen Anfrage den bisher ermittelten kürzesten Pfad in den Klassen-
Variablen “PfadDic” und “PfadSammler” der Klasse “Suchverfahren” löschen zu
können, vereinbaren wir die Klassen-Methode “initialisierenKlassenvariablen” innerhalb
der Klasse “Suchverfahren” in der folgenden Form:
initialisierenKlassenvariablen
PfadDic := Dictionary new.
PfadSammler := OrderedCollection new
Insgesamt besitzt die Klasse “Suchverfahren” jetzt den folgenden Inhalt:
Suchverfahren
Klassen−Variablen:
Klassen−Methoden:
Instanz−Methoden:
PfadDic PfadSammler
initialisierenKlassenvariablen
direkt:
verbindungIter:
verbindung:iter:
verbindungRek:
verbindung:rek:
alleNachfolger:
verbindungBreiten:
verbindungBreiten:rek:
nachfolgerBreiten:
verbindungTiefen:
verbindungTiefen:rek:
nachfolgerTiefen:
verbindungBest:
ver:bindung:best:rek:
abgleichenErreicht:geprueft:
aufbauenPotMinimalSammler:
erstellen:pfadDic:
erstellenPfadSammler:
Abbildung 15.14: Die Klasse “Suchverfahren” mit den aktuellen Methoden
Ausführung der Bestwegsuche
Die Ausführung der Bestwegsuche – bezogen auf die kürzeste IC-Verbindung von
“Ful” nach “Ber” – können wir durch die Ausführung der folgenden Anforderungen
abrufen: