{ Geometric Mean Function }
Inputs: Price(NumericSeries), Length(NumericSimple);
Variables: Product(0), ix(0);
Product = 1;
For ix = 0 to Length-1
begin
Product = Product * Price[ix];
end;
GeometricMean = Power(Product, 1/Length);
{ Geometric Mean Indicator }
input...