hg/jv-calipel: s/benchmarks/micro/BenchmarkPerform.st@c2a799334bf8 (annotated)

135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:calipel/s/benchmarks/micro' }"
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	Object subclass:#BenchmarkPerform
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	4	instanceVariableNames:'receivers selectors iterations nreceivers nselectors nargs
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	5	recdistrib seldistrib recindices selindices'
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	6	classVariableNames:'Generators GeneratorSequential GeneratorUniform GeneratorGaussian'
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	poolDictionaries:''
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	category:'CalipeL-S-Benchmarks-Micro'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	!BenchmarkPerform class methodsFor:'documentation'!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	documentation
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	"
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	Replace 'Object', 'NewClass1' and
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	the empty string arguments by true values.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	Install (or change) the class by 'accepting',
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	either via the menu or the keyboard (usually CMD-A).
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	You can also change the category simply by editing
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	the categoryString and accepting.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	To be nice to others (and yourself later), do not forget to
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	add some documentation; preferably under the classes documentation
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	protocol.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	(see the `create documentation stubs' item in the methodList menu;
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	switch from instance to class to find this menu item.)
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	Notice, that ST/X uses the convention to document the class using
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	comment-only class methods (however, ST80 comments are supported and
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	can be changed via the class-documentation menu).
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	"
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	! !
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	37	!BenchmarkPerform class methodsFor:'initialization'!
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	38
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	39	initialize
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	40	"Invoked at system start or when the class is dynamically loaded."
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	41
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	42	\| rng seq \|
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	43
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	44	rng := Random new seed: 131.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	45	seq := 0.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	46
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	47	GeneratorSequential := [:upper \| \| v \| v := seq. seq := seq + 1. (v \\ upper) + 1 ].
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	48	GeneratorUniform := [:upper \| rng nextInt: upper ].
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	49	GeneratorGaussian := [:upper \|
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	50	\| nrng x1 x2 w y1 y2 v0 \|
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	51
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	52	nrng := [
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	53	\| v \|
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	54	y2 notNil ifTrue: [
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	55	v := y2.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	56	y2 := nil.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	57	] ifFalse:[
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	58	[
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	59	x1 := (2.0 * rng next) - 1.0.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	60	x2 := (2.0 * rng next) - 1.0.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	61	w := x1 * x1 + (x2 * x2).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	62	w >= 1.0
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	63	] whileTrue.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	64	w := (-2.0 * w ln / w) sqrt.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	65	y1 := x1 * w.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	66	y2 := x2 * w.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	67	v := y1.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	68	].
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	69	v
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	70	].
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	71	[
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	72	v0 := (((nrng value) * (upper / 2.0 / 3.5"deviations")) + (upper / 2.0)) truncated.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	73	v0 < 1 or:[v0 > upper ]
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	74	] whileTrue.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	75	v0.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	76	].
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	77
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	78	Generators := Dictionary new.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	79	Generators at: #sequential put: GeneratorSequential.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	80	Generators at: #uniform put: GeneratorUniform.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	81	Generators at: #normal put: GeneratorGaussian.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	82
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	83	"
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	84	self initialize.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	85
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	86	GeneratorSequential value: 10.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	87	GeneratorUniform value: 10.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	88	GeneratorGaussian value: 10.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	89
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	90
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	91
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	92
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	93
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	94	"
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	95
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	96	"Modified: / 01-08-2013 / 23:03:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	97	! !
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	98
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	99	!BenchmarkPerform class methodsFor:'running'!
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	100
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	101	run
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	102	^ (BenchmarkSuite class:self) run
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	103
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	104	"Created: / 10-06-2013 / 21:53:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	105	!
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	106
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	107	run: benchmark
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	108	^ (BenchmarkInstance class:self selector:benchmark) run
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	109
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	110	"Created: / 31-05-2013 / 10:39:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	111	"Modified: / 10-06-2013 / 21:53:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	112	! !
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	113
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	114	!BenchmarkPerform methodsFor:'accessing'!
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	115
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	116	recdistrib
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	117	^ recdistrib
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	118	!
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	119
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	120	recdistrib:aSymbol
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	121	<parameter: #recdistrib type: Symbol default: #uniform values: #(#sequential #uniform #normal)>
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	122	recdistrib := aSymbol.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	123
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	124	"Modified: / 01-08-2013 / 20:16:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	125	!
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	126
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	127	seldistrib
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	128	^ seldistrib
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	129	!
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	130
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	131	seldistrib:aSymbol
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	132	<parameter: #seldistrib type: Symbol default: #uniform values: #(#sequential #uniform #normal)>
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	133	seldistrib := aSymbol.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	134
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	135	"Modified: / 01-08-2013 / 20:17:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	136	! !
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	137
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	!BenchmarkPerform methodsFor:'benchmarks'!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	benchmark0
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	143	\| sels r s \|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	sels := selectors at: 1+0.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	147	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	148	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	r perform: s
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	151	].
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	152
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	153	"
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	154	BenchmarkPerform run: #benchmark0
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	155	"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	"Created: / 20-07-2013 / 11:13:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	158	"Modified (comment): / 01-08-2013 / 23:22:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	benchmark1
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	164	\| sels r s\|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	sels := selectors at: 1+1.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	168	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	169	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	r perform: s with: 1
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	"Created: / 20-07-2013 / 11:14:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	175	"Modified: / 01-08-2013 / 23:29:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	benchmark2
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	181	\| sels r s\|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	sels := selectors at: 1+2.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	185	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	186	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	r perform: s with: 1 with: 2.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	"Created: / 20-07-2013 / 11:14:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	192	"Modified: / 01-08-2013 / 23:29:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	benchmark3
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	198	\| sels r s\|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	sels := selectors at: 1+3.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	202	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	203	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	r perform: s with: 1 with: 2 with: 3
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	"Created: / 20-07-2013 / 11:15:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	209	"Modified: / 01-08-2013 / 23:29:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	benchmark4
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	215	\| sels r s\|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217	sels := selectors at: 1+4.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	219	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	220	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	r perform: s with: 1 with: 2 with: 3 with: 4
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225	"Created: / 20-07-2013 / 11:15:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	226	"Modified: / 01-08-2013 / 23:29:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	benchmark5
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	232	\| sels r s\|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234	sels := selectors at: 1+5.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	236	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	237	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	r perform: s with: 1 with: 2 with: 3 with: 4 with:5
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	"Created: / 20-07-2013 / 11:16:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	243	"Modified: / 01-08-2013 / 23:30:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246	benchmark6
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	249	\| sels r s\|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251	sels := selectors at: 1+6.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	253	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	254	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	r perform: s with: 1 with: 2 with: 3 with: 4 with:5 with:6
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259	"Created: / 20-07-2013 / 11:16:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	260	"Modified: / 01-08-2013 / 23:30:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263	benchmark7
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	266	\| na sels r s args \|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267	na := 7.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	sels := selectors at: 1+7.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269	args := Array new: na.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	271	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	272	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273
138 96cfb2a1348d Fix in BenchmarkPerform. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 135 diff changeset	274	r perform: s withArguments: args
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277	"Created: / 20-07-2013 / 11:17:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	278	"Modified: / 01-08-2013 / 23:30:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	benchmark8
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	284	\| na sels r s args \|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	286
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	na := 8.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288	sels := selectors at: 1+7.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	args := Array new: na.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	291	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	292	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293
138 96cfb2a1348d Fix in BenchmarkPerform. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 135 diff changeset	294	r perform: s withArguments: args
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297	"Created: / 20-07-2013 / 11:17:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	298	"Modified: / 01-08-2013 / 23:30:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301	benchmark9
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	304	\| na sels r s args \|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	305
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306	na := 9.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	307	sels := selectors at: 1+7.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	308	args := Array new: na.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	309	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	310	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	311	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	312
138 96cfb2a1348d Fix in BenchmarkPerform. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 135 diff changeset	313	r perform: s withArguments: args
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316	"Created: / 20-07-2013 / 11:17:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	317	"Modified: / 01-08-2013 / 23:30:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320	benchmarkA
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	323	\| na sels r s args \|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	325	na := 10.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	326	sels := selectors at: 1+7.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327	args := Array new: na.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	328	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	329	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	330	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	331
138 96cfb2a1348d Fix in BenchmarkPerform. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 135 diff changeset	332	r perform: s withArguments: args
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335	"Created: / 20-07-2013 / 11:17:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	336	"Modified: / 01-08-2013 / 23:30:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	338
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339	benchmarkB
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	342	\| na sels r s args \|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344	na := 11.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345	sels := selectors at: 1+7.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346	args := Array new: na.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	348	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	349	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350
138 96cfb2a1348d Fix in BenchmarkPerform. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 135 diff changeset	351	r perform: s withArguments: args
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354	"Created: / 20-07-2013 / 11:17:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	355	"Modified: / 01-08-2013 / 23:30:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	358	benchmarkC
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	359	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	361	\| na sels r s args \|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	362
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363	na := 12.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364	sels := selectors at: 1+7.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	365	args := Array new: na.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	366	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	367	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	368	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	369
138 96cfb2a1348d Fix in BenchmarkPerform. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 135 diff changeset	370	r perform: s withArguments: args
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	371	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	372
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	373	"Created: / 20-07-2013 / 11:18:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	374	"Modified: / 01-08-2013 / 23:31:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377	benchmarkD
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	380	\| na sels r s args \|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	381
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	382	na := 13.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	383	sels := selectors at: 1+7.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	384	args := Array new: na.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	386	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	387	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388
138 96cfb2a1348d Fix in BenchmarkPerform. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 135 diff changeset	389	r perform: s withArguments: args
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	391
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392	"Created: / 20-07-2013 / 11:18:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	393	"Modified: / 01-08-2013 / 23:31:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	394	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	395
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	396	benchmarkE
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	397	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	398
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	399	\| na sels r s args \|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	400
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	401	na := 14.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	402	sels := selectors at: 1+7.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	403	args := Array new: na.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	404	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	405	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	406	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407
138 96cfb2a1348d Fix in BenchmarkPerform. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 135 diff changeset	408	r perform: s withArguments: args
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411	"Created: / 20-07-2013 / 11:18:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	412	"Modified: / 01-08-2013 / 23:31:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	413	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	414
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	415	benchmarkF
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	416	<benchmark>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	418	\| na sels r s args \|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420	na := 15.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	421	sels := selectors at: 1+7.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	422	args := Array new: na.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423	1 to: iterations * 1000 do:[:i\|
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	424	r := receivers at: (recindices at: ((i \\ nreceivers) + 1)).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	425	s := sels at: (selindices at: ((i \\ nselectors) + 1)).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426
138 96cfb2a1348d Fix in BenchmarkPerform. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 135 diff changeset	427	r perform: s withArguments: args
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	430	"Created: / 20-07-2013 / 11:18:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	431	"Modified: / 01-08-2013 / 23:31:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432	! !
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434	!BenchmarkPerform methodsFor:'parameters'!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436	iterations
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	^ iterations
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	440	iterations:anInteger
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441	<parameter: 'How many interations in outer loop' type: #Integer default: 1000>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442	iterations := anInteger.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	444	"Modified: / 20-07-2013 / 01:16:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	445	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447	nreceivers
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448	^ nreceivers
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451	nreceivers:anInteger
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	452	<parameter: 'Number of different receivers to send messages to' type: #Integer>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	453	nreceivers := anInteger.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	454
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	455	"Modified: / 20-07-2013 / 01:06:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	456	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	457
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	458	nselectors
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	459	^ nselectors
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	460	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	461
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	462	nselectors:anInteger
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	463	<parameter: 'Number of different messages to send' type: #Integer>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	464	nselectors := anInteger.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466	"Modified: / 20-07-2013 / 01:07:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	467	! !
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	468
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	469	!BenchmarkPerform methodsFor:'running'!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	470
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	471	setUp
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	472	<setup>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	473
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	474	\| rng1 rng2 \|
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	475
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	476	nreceivers isNil ifTrue:[
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	477	BenchmarkParameterError new signal:'No value set for parameter ''nreceivers''!!'.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	478	].
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	479	nselectors isNil ifTrue:[
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	480	BenchmarkParameterError new signal:'No value set for parameter ''nselectors''!!'.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	481	].
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	482
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	483	receivers := Smalltalk allClasses asArray copyFrom: 1 to: nreceivers.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	484
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	485	rng1 := Random new seed: 173.
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	486	selectors := Array new: 16.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	487	1 to: 16 do:[:na\|
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	488	\| bucket \|
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	489
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	490	bucket := (1 to: nselectors) collect:[:i\|
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	491	\| no suffixSel suffixMethod \|
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	492	suffixSel := #(
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	493	"00" ''
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	494	"01" ':'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	495	"02" ':a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	496	"03" ':a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	497	"04" ':a:a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	498	"05" ':a:a:a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	499	"06" ':a:a:a:a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	500	"07" ':a:a:a:a:a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	501	"08" ':a:a:a:a:a:a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502	"09" ':a:a:a:a:a:a:a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503	"10" ':a:a:a:a:a:a:a:a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	"11" ':a:a:a:a:a:a:a:a:a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	505	"12" ':a:a:a:a:a:a:a:a:a:a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506	"13" ':a:a:a:a:a:a:a:a:a:a:a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	507	"14" ':a:a:a:a:a:a:a:a:a:a:a:a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	508	"15" ':a:a:a:a:a:a:a:a:a:a:a:a:a:a:'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	509	) at: na.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	510	suffixMethod := #(
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	511	"00" ''
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	512	"01" ':a1'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	513	"02" ':a1 a:a2'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	514	"03" ':a1 a:a2 a:a3'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	515	"04" ':a1 a:a2 a:a3 a:a4'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	516	"05" ':a1 a:a2 a:a3 a:a4 a:a5'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	517	"06" ':a1 a:a2 a:a3 a:a4 a:a5 a:a6'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	518	"07" ':a1 a:a2 a:a3 a:a4 a:a5 a:a6 a:a7'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	519	"08" ':a1 a:a2 a:a3 a:a4 a:a5 a:a6 a:a7 a:a8'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	520	"09" ':a1 a:a2 a:a3 a:a4 a:a5 a:a6 a:a7 a:a8 a:a9'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	521	"10" ':a1 a:a2 a:a3 a:a4 a:a5 a:a6 a:a7 a:a8 a:a9 a:aA'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	522	"11" ':a1 a:a2 a:a3 a:a4 a:a5 a:a6 a:a7 a:a8 a:a9 a:aA a:aB'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	523	"12" ':a1 a:a2 a:a3 a:a4 a:a5 a:a6 a:a7 a:a8 a:a9 a:aA a:aB a:aC'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	524	"13" ':a1 a:a2 a:a3 a:a4 a:a5 a:a6 a:a7 a:a8 a:a9 a:aA a:aB a:aC a:aD'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	525	"14" ':a1 a:a2 a:a3 a:a4 a:a5 a:a6 a:a7 a:a8 a:a9 a:aA a:aB a:aC a:aD a:aE'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	526	"15" ':a1 a:a2 a:a3 a:a4 a:a5 a:a6 a:a7 a:a8 a:a9 a:aA a:aB a:aC a:aD a:aE a:aF'
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	527	) at: na.
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	528	no := rng1 nextInteger printString.
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	529	Object compile: 'm' , no , suffixMethod , '
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	530	^ 123456' classified: 'benchmark-mocks'.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	531	('m', no , suffixSel) asSymbol.
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	532	].
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	533	selectors at: na put: bucket.
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	534	].
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	535
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	536	rng2 := Generators at: recdistrib.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	537	recindices := Array new: nreceivers.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	538	1 to: recindices size do:[:i\|
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	539	recindices at: i put: (rng2 value: recindices size).
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	540	].
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	541
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	542	rng2 := Generators at: seldistrib.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	543	selindices := Array new: nselectors.
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	544	1 to: selindices size do:[:i\|
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	545	selindices at: i put: (rng2 value: selindices size).
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	546	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	547
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	548	"Created: / 20-07-2013 / 00:55:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	549	"Modified: / 01-08-2013 / 23:19:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
135 b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	550	!
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	551
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	552	tearDown
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	553	<teardown>
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	554
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	555	selectors do:[:bucket\|
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	556	bucket do:[:selector\|
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	557	Object removeSelector: selector
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	558	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	559	]
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	560
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	561	"Created: / 20-07-2013 / 02:11:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	562	! !
b80ce920afe2 Added BenchmarkPerform to bemnchmark perform: methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	563
148 c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	564	!BenchmarkPerform class methodsFor:'documentation'!
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	565
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	566	version_HG
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	567
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	568	^ '$Changeset: <not expanded> $'
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	569	! !
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	570
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	571
c2a799334bf8 BenchmarkPerform: add sequential, uniform and normal distribution of both receivers and selectors. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 138 diff changeset	572	BenchmarkPerform initialize!

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 01 Aug 2013 23:33:11 +0100
changeset 148	c2a799334bf8
parent 138	96cfb2a1348d
child 149	37121ced3644
permissions	-rw-r--r--