Museum Simulation

SimulationObject subclass: #Visitor
        instanceVariableNames: 'entryTime '
        classVariableNames: ''
        poolDictionaries: ''
        category: 'Simulation-Museum'!



!Visitor methodsFor: 'access'!


entryTime
   ^entryTime.!


tasks
        self holdFor: 
                (Normal mean: 20 deviation: 5) next.! !


!Visitor methodsFor: 'class initialization'!


initialize
        super initialize.
        entryTime := Simulation active time.! !

Simulation subclass: #Museum
        instanceVariableNames: 'statistics '
        classVariableNames: ''
        poolDictionaries: ''
        category: 'Simulation-Museum'!



!Museum methodsFor: 'class initialization'!


defineArrivalSchedule
        self scheduleArrivalOf: Visitor accordingTo: (Uniform from: 5
to:10).!


exit: aSimulationObject
        super exit: aSimulationObject.
        statistics store: currentTime - aSimulationObject entryTime!


initialize
        super initialize.
        statistics := Histogram from: 5 to: 45 by: 5.!


printStatisticsOn: aStream
        statistics printStatisticsOn: aStream! !