SMALLTALK K1ex127-.45ex51275ahler/Bothner

15.1 Prüfung von Direktverbindungen 317
Ham → ((Koe 463) (Ful 431) (Ber 291))
Koe → ((Kar 325) (Mai 185) (Ham 463))
Kar → ((Stu 91) (Koe 325))
Stu → ((Fra 207) (Kar 91))
Mai → ((Fra 38) (Koe 185))
Fra → ((Stu 207) (Mue 434) (Mai 38))
Mue → ((Fra 434) (Ful 394))
Ful → ((Mue 394) (Ham 431))
Ber → ((Dre 180) (Ham 291))
Dre → ((Ber 180))
Eintragen von Entfernungen
Genau wie bei den zuvor vorgestellten Suchverfahren gehen wir auch jetzt wieder
davon aus, daß die Stationen bereits als Instanzen der Klasse “Station” eingerichtet
worden sind (siehe Abschnitt 15.1).
Um die angegebene Struktur für die Sammler festzulegen, vereinbaren wir die Methode
“initialisierenDirektverbindung” innerhalb der Klasse “Station” in der Form
initialisierenDirektverbindung
direktVerbindung := OrderedCollection new
und lassen die folgende Anforderung ausführen:
Station allInstances do:
[:eineStation|eineStation initialisierenDirektverbindung]
Im Hinblick auf eine spätere grafische Darstellung des IC-Netzes sehen wir in der
Klasse “Station” die folgende Methode vor:
eintragenKoordinaten: einPunkt
koordinaten := einPunkt
Um das IC-Netz mit den Stationen und den Entfernungsangaben der Direktverbindungen
aufbauen zu können, vereinbaren wir zunächst die Klassen-Methode “eintragenKoordinatenNeuDirektVerbindung”
wie folgt:
eintragenKoordinatenNeuDirektverbindung
Ham eintragenKoordinaten: (150 @ 30).
Ham eintragenDirektverbindung: (OrderedCollection with: Koe with: 463).
Ham eintragenDirektverbindung: (OrderedCollection with: Ful with: 431).
Ham eintragenDirektverbindung: (OrderedCollection with: Ber with: 291).
Koe eintragenKoordinaten: (20 @ 90).
Koe eintragenDirektverbindung: (OrderedCollection with: Kar with: 325).
Koe eintragenDirektverbindung: (OrderedCollection with: Mai with: 185).
Koe eintragenDirektverbindung: (OrderedCollection with: Ham with: 463).