New version

nicolas-cellier-aka-nice · Apr 18, 2012 · 05f5598 · 05f5598
1 parent e20c89e
commit 05f5598
Show file tree

Hide file tree

Showing 138 changed files with 445 additions and 349 deletions.
diff --git a/.filetree b/.filetree
@@ -1 +1 @@
-{ "packageExtension" : ".pkg" }
+{ "packageExtension" : ".package" }
diff --git a/Math.package/.filetree b/Math.package/.filetree
@@ -0,0 +1,4 @@
+{
+	"noMethodMetaData" : true,
+	"separateMethodMetaAndSource" : false,
+	"useCypressPropertiesFile" : true }
diff --git a/Math.pkg/initializers.st → ...package/BinomialGenerator.class/README.md b/Math.pkg/initializers.st → ...package/BinomialGenerator.class/README.md
diff --git a/Math.package/BinomialGenerator.class/instance/generator..st b/Math.package/BinomialGenerator.class/instance/generator..st
@@ -0,0 +1,3 @@
+as yet unclassified
+generator: aRandomNumberGenerator 
+	rng := aRandomNumberGenerator
diff --git a/Math.package/BinomialGenerator.class/instance/n..st b/Math.package/BinomialGenerator.class/instance/n..st
@@ -0,0 +1,3 @@
+as yet unclassified
+n: numberOfTrials 
+	n := numberOfTrials
diff --git a/.../BinomialGenerator.class/instance/next.st → .../BinomialGenerator.class/instance/next.st b/.../BinomialGenerator.class/instance/next.st → .../BinomialGenerator.class/instance/next.st
@@ -1,7 +1,6 @@
-
-!BinomialGenerator methodsFor: 'as yet unclassified'!
+as yet unclassified
 next
 	| x |
 	x := 0.
 	n timesRepeat: [ rng next <= p ifTrue: [ x := x + 1 ] ].
-	^ x! !
+	^ x
diff --git a/Math.package/BinomialGenerator.class/instance/p..st b/Math.package/BinomialGenerator.class/instance/p..st
@@ -0,0 +1,3 @@
+as yet unclassified
+p: aProbability 
+	p := aProbability
diff --git a/Math.package/BinomialGenerator.class/properties.json b/Math.package/BinomialGenerator.class/properties.json
@@ -0,0 +1,18 @@
+{
+	"category" : "Math-Random",
+	"classinstvars" : [
+		 ],
+	"classtraitcomposition" : "{}",
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"n",
+		"p",
+		"rng" ],
+	"name" : "BinomialGenerator",
+	"pools" : [
+		 ],
+	"super" : "NumberGenerator",
+	"traitcomposition" : "{}",
+	"type" : "normal" }
diff --git a/Math.package/BinomialGeneratorTest.class/README.md b/Math.package/BinomialGeneratorTest.class/README.md
diff --git a/...abilityOfOneAlwaysReturnNumberOfTrials.st → ...abilityOfOneAlwaysReturnNumberOfTrials.st b/...abilityOfOneAlwaysReturnNumberOfTrials.st → ...abilityOfOneAlwaysReturnNumberOfTrials.st
@@ -1,5 +1,4 @@
-
-!BinomialGeneratorTest methodsFor: 'tests'!
+tests
 testBinomialGeneratorWithSuccessProbabilityOfOneAlwaysReturnNumberOfTrials
 	| g numberOfTrials |
 	g := BinomialGenerator new.
@@ -12,4 +11,4 @@ testBinomialGeneratorWithSuccessProbabilityOfOneAlwaysReturnNumberOfTrials
 	g generator: LehmerRandom new.
 	self assert: g next = numberOfTrials.
 	g generator: MersenneTwisterRandom new.
-	self assert: g next = numberOfTrials! !
+	self assert: g next = numberOfTrials
diff --git a/Math.package/BinomialGeneratorTest.class/properties.json b/Math.package/BinomialGeneratorTest.class/properties.json
@@ -0,0 +1,16 @@
+{
+	"category" : "Math-Random-Tests",
+	"classinstvars" : [
+		 ],
+	"classtraitcomposition" : "{}",
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "BinomialGeneratorTest",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"traitcomposition" : "{}",
+	"type" : "normal" }
diff --git a/Math.package/ConstantGenerator.class/README.md b/Math.package/ConstantGenerator.class/README.md
@@ -0,0 +1 @@
+A ConstantGenerator is not really a random number generator.
diff --git a/Math.package/ConstantGenerator.class/instance/constant..st b/Math.package/ConstantGenerator.class/instance/constant..st
@@ -0,0 +1,3 @@
+accessing
+constant: aConstant
+	constant := aConstant
diff --git a/Math.package/ConstantGenerator.class/instance/next.st b/Math.package/ConstantGenerator.class/instance/next.st
@@ -0,0 +1,3 @@
+accessing
+next
+	^ constant
diff --git a/Math.package/ConstantGenerator.class/properties.json b/Math.package/ConstantGenerator.class/properties.json
@@ -0,0 +1,16 @@
+{
+	"category" : "Math-Random",
+	"classinstvars" : [
+		 ],
+	"classtraitcomposition" : "{}",
+	"classvars" : [
+		 ],
+	"commentStamp" : "SergeStinckwich 3/30/2010 15:31",
+	"instvars" : [
+		"constant" ],
+	"name" : "ConstantGenerator",
+	"pools" : [
+		 ],
+	"super" : "NumberGenerator",
+	"traitcomposition" : "{}",
+	"type" : "normal" }
diff --git a/Math.package/ConstantGeneratorTest.class/README.md b/Math.package/ConstantGeneratorTest.class/README.md
diff --git a/...antGeneratorGenerateAlwaysTheSameValue.st → ...antGeneratorGenerateAlwaysTheSameValue.st b/...antGeneratorGenerateAlwaysTheSameValue.st → ...antGeneratorGenerateAlwaysTheSameValue.st
@@ -1,8 +1,7 @@
-
-!ConstantGeneratorTest methodsFor: 'as yet unclassified'!
+as yet unclassified
 testConstantGeneratorGenerateAlwaysTheSameValue
 	| g numberOfTrials |
 	g := ConstantGenerator new.
 	g constant: 1.
 	self assert: g next = g next.
-	self assert: g next = g next! !
+	self assert: g next = g next
diff --git a/Math.package/ConstantGeneratorTest.class/properties.json b/Math.package/ConstantGeneratorTest.class/properties.json
@@ -0,0 +1,16 @@
+{
+	"category" : "Math-Random-Tests",
+	"classinstvars" : [
+		 ],
+	"classtraitcomposition" : "{}",
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "ConstantGeneratorTest",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"traitcomposition" : "{}",
+	"type" : "normal" }
diff --git a/Math.package/GaussianGenerator.class/README.md b/Math.package/GaussianGenerator.class/README.md
diff --git a/Math.package/GaussianGenerator.class/instance/generator..st b/Math.package/GaussianGenerator.class/instance/generator..st
@@ -0,0 +1,3 @@
+as yet unclassified
+generator: aRandomNumberGenerator 
+	rng := aRandomNumberGenerator
diff --git a/Math.package/GaussianGenerator.class/instance/initialize.st b/Math.package/GaussianGenerator.class/instance/initialize.st
@@ -0,0 +1,3 @@
+as yet unclassified
+initialize
+	hasNextGaussian := false
diff --git a/Math.package/GaussianGenerator.class/instance/mean..st b/Math.package/GaussianGenerator.class/instance/mean..st
@@ -0,0 +1,3 @@
+as yet unclassified
+mean: aMeanValue
+	mean := aMeanValue
diff --git a/Math.package/GaussianGenerator.class/instance/next.st b/Math.package/GaussianGenerator.class/instance/next.st
@@ -0,0 +1,3 @@
+as yet unclassified
+next
+	^ self nextGaussianNormalized * standardDeviation + mean
diff --git a/....class/instance/nextGaussianNormalized.st → ....class/instance/nextGaussianNormalized.st b/....class/instance/nextGaussianNormalized.st → ....class/instance/nextGaussianNormalized.st
@@ -1,5 +1,4 @@
-
-!GaussianGenerator methodsFor: 'as yet unclassified'!
+as yet unclassified
 nextGaussianNormalized
 	| x1 x2 w y1 y2 |
 	hasNextGaussian
@@ -15,4 +14,4 @@ nextGaussianNormalized
 	y1 := x1 * w.
 	y2 := x2 * w.
 	nextGaussian := y2.
-	^ y1! !
+	^ y1
diff --git a/Math.package/GaussianGenerator.class/instance/standardDeviation..st b/Math.package/GaussianGenerator.class/instance/standardDeviation..st
@@ -0,0 +1,3 @@
+as yet unclassified
+standardDeviation: aStandardDeviation
+	standardDeviation := aStandardDeviation
diff --git a/Math.package/GaussianGenerator.class/properties.json b/Math.package/GaussianGenerator.class/properties.json
@@ -0,0 +1,20 @@
+{
+	"category" : "Math-Random",
+	"classinstvars" : [
+		 ],
+	"classtraitcomposition" : "{}",
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"rng",
+		"mean",
+		"standardDeviation",
+		"hasNextGaussian",
+		"nextGaussian" ],
+	"name" : "GaussianGenerator",
+	"pools" : [
+		 ],
+	"super" : "NumberGenerator",
+	"traitcomposition" : "{}",
+	"type" : "normal" }
diff --git a/Math.package/GaussianGeneratorTest.class/README.md b/Math.package/GaussianGeneratorTest.class/README.md
diff --git a/...tedMeans:andExpectedStandardDeviation:.st → ...tedMeans.andExpectedStandardDeviation..st b/...tedMeans:andExpectedStandardDeviation:.st → ...tedMeans.andExpectedStandardDeviation..st
@@ -1,10 +1,9 @@
-
-!GaussianGeneratorTest methodsFor: 'as yet unclassified'!
+as yet unclassified
 checkDistributionOf: aGenerator withExpectedMeans: e andExpectedStandardDeviation: sd
 	| data m |
 	data := Set new.
 	10000 timesRepeat: [ data add: aGenerator next ].
 	m := 0.
 	data do: [ :each | m := each + m ].
 	m := m / data size.
-	self assert: e - m <= 0.2! !
+	self assert: e - m <= 0.2
diff --git a/...orTest.class/instance/testDistribution.st → ...orTest.class/instance/testDistribution.st b/...orTest.class/instance/testDistribution.st → ...orTest.class/instance/testDistribution.st
@@ -1,5 +1,4 @@
-
-!GaussianGeneratorTest methodsFor: 'as yet unclassified'!
+as yet unclassified
 testDistribution
 	| mean standardDeviation g |
 	mean := 147.
@@ -8,4 +7,4 @@ testDistribution
 		mean: mean;
 		standardDeviation: standardDeviation.
 	g generator: LCRandom new.
-	self checkDistributionOf: g withExpectedMeans: mean andExpectedStandardDeviation: standardDeviation! !
+	self checkDistributionOf: g withExpectedMeans: mean andExpectedStandardDeviation: standardDeviation
diff --git a/Math.package/GaussianGeneratorTest.class/properties.json b/Math.package/GaussianGeneratorTest.class/properties.json
@@ -0,0 +1,16 @@
+{
+	"category" : "Math-Random-Tests",
+	"classinstvars" : [
+		 ],
+	"classtraitcomposition" : "{}",
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "GaussianGeneratorTest",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"traitcomposition" : "{}",
+	"type" : "normal" }
diff --git a/Math.package/LCRandom.class/README.md b/Math.package/LCRandom.class/README.md
@@ -0,0 +1,3 @@
+This uses a quick and dirty Linear Congruential generator.
+
+LCRandom new next.
diff --git a/Math.package/LCRandom.class/instance/initialize.st b/Math.package/LCRandom.class/instance/initialize.st
@@ -0,0 +1,3 @@
+initialize-release
+initialize
+  " Private - Answer the receiver "
diff --git a/...t/classes/LCRandom.class/instance/next.st → Math.package/LCRandom.class/instance/next.st b/...t/classes/LCRandom.class/instance/next.st → Math.package/LCRandom.class/instance/next.st
@@ -1,7 +1,6 @@
-
-!LCRandom methodsFor: 'accessing'!
+accessing
 next
 	"Private - Answer a pseudo-Random floating point number
 	between 0 and 1.
 	Uses a quick and dirty Linear congruential generator,"
-	^ self nextFloat! !
+	^ self nextFloat
diff --git a/...sses/LCRandom.class/instance/nextFloat.st → ...kage/LCRandom.class/instance/nextFloat.st b/...sses/LCRandom.class/instance/nextFloat.st → ...kage/LCRandom.class/instance/nextFloat.st
@@ -1,8 +1,7 @@
-
-!LCRandom methodsFor: 'accessing'!
+accessing
 nextFloat
     "Private - Answer a pseudo-Random floating point number between 0 and 1.
     Uses a quick and dirty Linear congruential generator,"
 
     seed := self peekSeed.
-    ^ seed / 120050.0! !
+    ^ seed / 120050.0
diff --git a/...t/classes/LCRandom.class/instance/peek.st → Math.package/LCRandom.class/instance/peek.st b/...t/classes/LCRandom.class/instance/peek.st → Math.package/LCRandom.class/instance/peek.st
@@ -1,7 +1,6 @@
-
-!LCRandom methodsFor: 'accessing'!
+accessing
 peek
     "Private - Answer a pseudo-Random floating point number between 0 and 1.
     Uses a simple, but fast, Linear Congruential generator."
 
-    ^ self peekSeed / 120050.0! !
+    ^ self peekSeed / 120050.0
diff --git a/...asses/LCRandom.class/instance/peekSeed.st → ...ckage/LCRandom.class/instance/peekSeed.st b/...asses/LCRandom.class/instance/peekSeed.st → ...ckage/LCRandom.class/instance/peekSeed.st
@@ -1,7 +1,6 @@
-
-!LCRandom methodsFor: 'accessing'!
+accessing
 peekSeed
     "Private - Answer the next Integer seed calculated 
 	using a quick and dirty Linear congruential generator."
 
-    ^ seed * 2311 + 25367 \\ 120050! !
+    ^ seed * 2311 + 25367 \\ 120050
diff --git a/Math.package/LCRandom.class/instance/zork.st b/Math.package/LCRandom.class/instance/zork.st
@@ -0,0 +1,3 @@
+accessing
+zork
+^42
diff --git a/Math.package/LCRandom.class/properties.json b/Math.package/LCRandom.class/properties.json
@@ -0,0 +1,16 @@
+{
+	"category" : "Math-Random",
+	"classinstvars" : [
+		 ],
+	"classtraitcomposition" : "{}",
+	"classvars" : [
+		 ],
+	"commentStamp" : "hfm 3/23/2009 21:22",
+	"instvars" : [
+		 ],
+	"name" : "LCRandom",
+	"pools" : [
+		 ],
+	"super" : "RandomGenerator",
+	"traitcomposition" : "{}",
+	"type" : "normal" }
diff --git a/Math.package/LCRandomTest.class/README.md b/Math.package/LCRandomTest.class/README.md
diff --git a/Math.package/LCRandomTest.class/instance/testPeekAlwaysReplyTheSameValue.st b/Math.package/LCRandomTest.class/instance/testPeekAlwaysReplyTheSameValue.st
@@ -0,0 +1,5 @@
+tests
+testPeekAlwaysReplyTheSameValue
+	| g |
+	g := LCRandom new.
+	self assert: g peek = g peek
diff --git a/Math.package/LCRandomTest.class/properties.json b/Math.package/LCRandomTest.class/properties.json
@@ -0,0 +1,16 @@
+{
+	"category" : "Math-Random-Tests",
+	"classinstvars" : [
+		 ],
+	"classtraitcomposition" : "{}",
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "LCRandomTest",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"traitcomposition" : "{}",
+	"type" : "normal" }
diff --git a/Math.package/LehmerRandom.class/README.md b/Math.package/LehmerRandom.class/README.md
@@ -0,0 +1,3 @@
+This generator uses the Lehmer's Linear Congruential method.
+
+LehmerRandom new next
diff --git a/Math.package/LehmerRandom.class/instance/initialize.st b/Math.package/LehmerRandom.class/instance/initialize.st
@@ -0,0 +1,3 @@
+initialize-release
+initialize
+  " Private - Answer the receiver "
diff --git a/...asses/LehmerRandom.class/instance/next.st → ...ckage/LehmerRandom.class/instance/next.st b/...asses/LehmerRandom.class/instance/next.st → ...ckage/LehmerRandom.class/instance/next.st
@@ -1,7 +1,6 @@
-
-!LehmerRandom methodsFor: 'accessing'!
+accessing
 next
     "Private - Answer a Random Float between 0 and 1. 
 	Uses Lehmer's linear congruential method."
 
-    ^ self nextFloat! !
+    ^ self nextFloat
diff --git a/.../LehmerRandom.class/instance/nextFloat.st → .../LehmerRandom.class/instance/nextFloat.st b/.../LehmerRandom.class/instance/nextFloat.st → .../LehmerRandom.class/instance/nextFloat.st
@@ -1,7 +1,6 @@
-
-!LehmerRandom methodsFor: 'accessing'!
+accessing
 nextFloat
     "Private - Answer a Random Float between 0 and 1. Uses Lehmer's linear congruential method."
 
     seed := self peekSeed.
-    ^ seed / SmallInteger maxVal asFloat! !
+    ^ seed / SmallInteger maxVal asFloat
diff --git a/Math.package/LehmerRandom.class/instance/peek.st b/Math.package/LehmerRandom.class/instance/peek.st
@@ -0,0 +1,5 @@
+accessing
+peek
+    "Private - Answer a pseudo-Random floating point number between 0 and 1."
+
+    ^ self peekSeed / SmallInteger maxVal asFloat
diff --git a/...s/LehmerRandom.class/instance/peekSeed.st → ...e/LehmerRandom.class/instance/peekSeed.st b/...s/LehmerRandom.class/instance/peekSeed.st → ...e/LehmerRandom.class/instance/peekSeed.st
@@ -1,7 +1,6 @@
-
-!LehmerRandom methodsFor: 'accessing'!
+accessing
 peekSeed
     "Private - Answer the next Integer seed calculated using Lehmer's linear congruential
     method. The seed is in the range 0..16r3FFFFFFF."
 
-    ^ ( seed * 31415821 ) + 1 bitAnd: SmallInteger maxVal! !
+    ^ ( seed * 31415821 ) + 1 bitAnd: SmallInteger maxVal
Original file line number	Diff line number	Diff line change
		@@ -1 +1 @@
		{ "packageExtension" : ".pkg" }
		{ "packageExtension" : ".package" }
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		A ConstantGenerator is not really a random number generator.
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		This uses a quick and dirty Linear Congruential generator.

		LCRandom new next.
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		This generator uses the Lehmer's Linear Congruential method.

		LehmerRandom new next