SMALLTALK K1ex127-.45ex51275ahler/Bothner

138 7 Hierarchische Gliederung von Lösungsplänen
modus
|varSortColl varOrdColl maximum|
varSortColl := (self bereitstellenWerte
collect: [:einObjekt|einObjekt asInteger])
asSortedCollection.
varOrdColl := OrderedCollection new.
varSortColl do: [:einObjekt|varOrdColl add:
(varSortColl occurrencesOf: einObjekt)].
maximum := varOrdColl at: 1.
varOrdColl do: [:einObjekt|einObjekt > maximum
ifTrue: [maximum := einObjekt]].
moduswert := varSortColl at: (varOrdColl indexOf: maximum)
Hinweis: Dabei ist zu beachten, daß die Variable “moduswert” ursprünglich als temporäre
Variable verwendet wurde. Desweiteren war an der Stelle, an der die Pseudovariable
“self” aufgeführt ist, ursprünglich eine konkrete Instanz der Klasse “WerteErfassung”
angegeben.
Auf dieser Basis können wir die Methode “zentrum” anschließend wie folgt festlegen:
zentrum
self modus
Für eine Instanz von “NoWerteErfassung” läßt sich der Modus durch die Ausführung
der Methode “modus” bzw. der Methode “zentrum” errechnen und der Instanz-
Variablen “moduswert” zuordnen.
Um sich den derart gesicherten Modus im Transcript-Fenster anzeigen zu lassen,
legen wir die Methode “anzeigenModuswert” durch die Vereinbarung
anzeigenModuswert
Transcript cr;
show: ’Der Modus ist: ’;
show: moduswert asFloat printString
und – aus Konsistenzgründen – zusätzlich die Methode “anzeigenZentrum” durch
die Vereinbarung
anzeigenZentrum
self anzeigenModuswert
innerhalb der Klasse “NoWerteErfassung” fest.
Die Erfassung nominalskalierter Werte ist durch die Anforderungen
NoWerteErfassung11 := NoWerteErfassung new.
NoWerteErfassung11 sammelnWerte: ’Jahrgangsstufe 11’
und die anschließende Berechnung des Modus durch
NoWerteErfassung11 zentrum