'
Mei Version 0.60 (12 February 1994)
on 15 March 1994 at 3:26:44 pm
'!


Smalltalk organization addCategory: 'Mei-Distributions-Abstract' asSymbol.
Smalltalk organization addCategory: 'Mei-Distributions-Instances' asSymbol.
Smalltalk organization addCategory: 'Mei-Distributions-SampleSpace' asSymbol.
!


Stream subclass: #MeiProbabilityDistribution
	instanceVariableNames: ''
	classVariableNames: 'U '
	poolDictionaries: ''
	category: 'Mei-Distributions-Abstract'!

MeiProbabilityDistribution subclass: #MeiContinuousProbability
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-Abstract'!

MeiContinuousProbability subclass: #MeiUniformDistribution
	instanceVariableNames: 'startNumber stopNumber '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-Instances'!

MeiContinuousProbability subclass: #MeiExponentialDistribution
	instanceVariableNames: 'mu '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-Instances'!

MeiExponentialDistribution subclass: #MeiGammaDistribution
	instanceVariableNames: 'nu '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-Instances'!

MeiContinuousProbability subclass: #MeiNormalDistribution
	instanceVariableNames: 'mu sigma distribution '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-Instances'!

MeiProbabilityDistribution subclass: #MeiDiscreteProbability
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-Abstract'!

MeiDiscreteProbability subclass: #MeiBernoulliDistribution
	instanceVariableNames: 'prob '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-Instances'!

MeiBernoulliDistribution subclass: #MeiGeometricDistribution
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-Instances'!

MeiBernoulliDistribution subclass: #MeiBinomialDistribution
	instanceVariableNames: 'numberOfTimes '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-Instances'!

MeiDiscreteProbability subclass: #MeiPoissonDistribution
	instanceVariableNames: 'mu '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-Instances'!

MeiDiscreteProbability subclass: #MeiSampleSpace
	instanceVariableNames: 'data '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-SampleSpace'!

MeiSampleSpace subclass: #MeiSampleSpaceWithReplacement
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-SampleSpace'!

MeiSampleSpaceWithReplacement subclass: #MeiSampleSpaceWithoutReplacement
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-SampleSpace'!


| separatorChar directoryString |
separatorChar := $:.
directoryString := ':Mei-Distributions:'.
directoryString := directoryString collect: [:each | each = separatorChar ifTrue: [Filename separator] ifFalse: [each]].
(separatorChar = $: and: [separatorChar ~= Filename separator]) ifTrue: [directoryString := directoryString copyFrom: 2 to: directoryString size].
directoryString last = Filename separator ifFalse: [directoryString := directoryString , (String with: Filename separator)].
(Filename named: directoryString , 'MeiProbabilityDistribution.st') fileIn.
(Filename named: directoryString , 'MeiContinuousProbability.st') fileIn.
(Filename named: directoryString , 'MeiUniformDistribution.st') fileIn.
(Filename named: directoryString , 'MeiExponentialDistribution.st') fileIn.
(Filename named: directoryString , 'MeiGammaDistribution.st') fileIn.
(Filename named: directoryString , 'MeiNormalDistribution.st') fileIn.
(Filename named: directoryString , 'MeiDiscreteProbability.st') fileIn.
(Filename named: directoryString , 'MeiBernoulliDistribution.st') fileIn.
(Filename named: directoryString , 'MeiGeometricDistribution.st') fileIn.
(Filename named: directoryString , 'MeiBinomialDistribution.st') fileIn.
(Filename named: directoryString , 'MeiPoissonDistribution.st') fileIn.
(Filename named: directoryString , 'MeiSampleSpace.st') fileIn.
(Filename named: directoryString , 'MeiSampleSpaceWithReplacement.st') fileIn.
(Filename named: directoryString , 'MeiSampleSpaceWithoutReplacement.st') fileIn.
!


((Smalltalk includesKey: #MeiPackage) and: [(Smalltalk at: #MeiPackage) isBehavior]) ifFalse: [^nil].
(Smalltalk at: #MeiPackage) add: 'Mei-Distributions'.
((Smalltalk at: #MeiPackage) packageAt: 'Mei-Distributions')
	addAll: ((Smalltalk at: #MeiList) parse: '
(MeiBernoulliDistribution MeiBinomialDistribution
						  MeiContinuousProbability
						  MeiDiscreteProbability
						  MeiExponentialDistribution
						  MeiGammaDistribution
						  MeiGeometricDistribution
						  MeiNormalDistribution
						  MeiPoissonDistribution
						  MeiProbabilityDistribution
						  MeiSampleSpace
						  MeiSampleSpaceWithoutReplacement
						  MeiSampleSpaceWithReplacement
						  MeiUniformDistribution)
') asArray.
!