标题：求调和平均数"这个函数如何编写

 你好,我发现金字塔没有"求调和平均数"这个函数,我需要用到这个函数,但不会编写(自定义),请问可不可以帮我编一下这个函数?

参考:交易开拓者的求调和平均数的函数是这样的:
Params
NumericSeries Price(1);
Numeric Length(10);
Vars
Numeric HarMeanValue;
Begin
If (Lowest(Price, Length) > 0 )
{
HarMeanValue = Length / Summation (1/Price, Length);
}else
{
HarMeanValue = -1;
}
Return HarMeanValue;
End