Better dependencies in Distributions

Author: jecisc

src/BaselineOfPolyMath/BaselineOfPolyMath.class.st

@@ -45,7 +45,7 @@ BaselineOfPolyMath >> baseline: spec [
 				package: 'Math-Complex'
 					with: [ spec requires: #('Math-Numerical' 'Math-Polynomials') ];
 				package: 'Math-Helpers';
-				package: 'Math-Distributions' with: [ spec requires: #('PolyMathDataStructures' 'Math-Quantile') ];
+				package: 'Math-Distributions' with: [ spec requires: #('PolyMathDataStructures' 'Math-Quantile' 'Math-Core-Process') ];
 				package: 'Math-Core-Process' with: [ spec requires: #('Math-Helpers') ];
 				package: 'Math-Numerical' with: [ spec requires: #('PolyMathDataStructures' 'Math-Helpers' 'Math-Core-Process' 'Math-Distributions' 'Math-StatisticalMoments' 'Math-Series') ];
 				package: 'Math-Polynomials' with: [ spec requires: #('PolyMathDataStructures' 'Math-Helpers' 'Math-Core-Process' 'Math-Distributions' 'Math-StatisticalMoments' 'Math-Series') ];

src/Math-Distributions/PMTrapezeIntegrator.class.st

@@ -5,8 +5,9 @@ A PMTrapezeIntegrator is the base class for integration methods. You should not
 "
 Class {
 	#name : #PMTrapezeIntegrator,
-	#superclass : #PMFunctionalIterator,
+	#superclass : #PMIterativeProcess,
 	#instVars : [
+		'functionBlock',
 		'from',
 		'to',
 		'sum',
@@ -28,9 +29,10 @@ PMTrapezeIntegrator class >> function: aBlock from: aNumber1 to: aNumber2 [
 
 { #category : #operation }
 PMTrapezeIntegrator >> computeInitialValues [
-		"Private"
+	"Private"
+
 	step := to - from.
-	sum := ( ( functionBlock value: from) + ( functionBlock value: to)) * step /2.
+	sum := (functionBlock value: from) + (functionBlock value: to) * step / 2.
 	result := sum
 ]
 
@@ -69,3 +71,24 @@ PMTrapezeIntegrator >> initialize: aBlock from: aNumber1 to: aNumber2 [
 	functionBlock := aBlock.
 	self from: aNumber1 to: aNumber2
 ]
+
+{ #category : #initialization }
+PMTrapezeIntegrator >> initializeIterations [
+	"If no initial value has been defined, take 0 as the starting point (for lack of anything better)."
+
+	super initializeIterations.
+	functionBlock ifNil: [ self error: 'No function supplied' ].
+	self computeInitialValues
+]
+
+{ #category : #information }
+PMTrapezeIntegrator >> relativePrecision: aNumber [
+
+	^ self precisionOf: aNumber relativeTo: result abs
+]
+
+{ #category : #initialization }
+PMTrapezeIntegrator >> setFunction: aBlock [
+
+	functionBlock := aBlock
+]

src/Math-Numerical/PMFunctionalIterator.class.st

@@ -36,19 +36,19 @@ PMFunctionalIterator >> computeInitialValues [
 { #category : #operation }
 PMFunctionalIterator >> initializeIterations [
 	"If no initial value has been defined, take 0 as the starting point (for lack of anything better)."
-
-	functionBlock isNil ifTrue: [self error: 'No function supplied'].
+	super initializeIterations.
+	functionBlock ifNil: [self error: 'No function supplied'].
 	self computeInitialValues
 ]
 
 { #category : #information }
 PMFunctionalIterator >> relativePrecision: aNumber [
-	^self precisionOf: aNumber relativeTo: result abs
+
+	^ self precisionOf: aNumber relativeTo: result abs
 ]
 
 { #category : #initialization }
 PMFunctionalIterator >> setFunction: aBlock [
-	( aBlock respondsTo: #value:)
-		ifFalse:[ self error: 'Function block must implement the method value:'].
+
 	functionBlock := aBlock
 ]