uses
Classes, SysUtils, f, numericalutilities, math;
[...]
type
TSCAM = class(TObject)
protected
firstAs, firstThetas : Array[0..1000] of Array [1..100] of Real;
[...]
Procedure TSCAM.CalculateFirstMeanAndVariance();
var
parameterCounter : Integer;
begin
for parameterCounter := 0 to ParametersHighestIndex do
begin
AVariance[parameterCounter] := Variance(@firstAs[parameterCounter][1],100);
// ThetaVariance[parameterCounter] := Variance(@firstThetas[parameterCounter][1],BurntInNumber);
end;
end;