通过自定义函数实现Geomean几何平均值

易得君1号

Geomean几何平均值的用法：
返回正数数组或区域的几何平均值。例如，可以使用函数 Geomean   
计算可变复利的平均增长率。  

用法:Geomean(X,N),得到X的N周期几何平均值.  
例如:Geomean(C,10),表示收盘价的10周期几何平均值

以下代码通过易得程序化自定义函数实现Geomean几何平均值函数，为您揭秘系统函数的神秘面纱并展示易得自定义函数的强大功能。

1. function MyGeomean(X, N)
   
2. begin
   
3.     if BarPos >= n then  
   
4.     begin  
   
5.         s := 1;  
   
6.         for i = BarPos downto BarPos -n+1 do  
   
7.             s := s * X[i];  
   
8.         res := pow(s, 1/N);  
   
9.         return res;  
   
10.     end  
    
11. end
    
12. 
    
13. // a和b的值相同
    
14. a:MyGeomean(c, 10);  // 调用自定义函数MyGeomean
    
15. b:Geomean(c, 10);    // 调用系统Geomean函数
    

复制代码