通过自定义函数实现Beta贝塔系数

易得君1号

贝塔系数的用法:  
Beta(N)为当前股票收益与大盘收益相比的贝塔系数，该系数表明大盘每变动1%,则该股票将变动N%  
例如:Beta(10)表示10周期贝塔系数。

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

1. function MyBeta(N)
   
2. begin
   
3.     sx := 0; sy := 0; sxy := 0; sy2 := 0;
   
4.         
   
5.     for i = CurrCalcBar+1-n to CurrCalcBar do
   
6.     begin
   
7.         x := (c[i] - c[i-1]) / c[i-1];
   
8.         y := (IndexC[i] - IndexC[i-1]) / IndexC[i-1];
   
9.                
   
10.         sx := sx + x;
    
11.         sy := sy + y;
    
12.         sxy := sxy + x*y;
    
13.         sy2 := sy2 + y*y;
    
14.     end
    
15. 
    
16.     ex := sx / N;
    
17.     ey := sy / N;
    
18.     exy := sxy / N;
    
19.     ey2 := sy2 / N;
    
20.    
    
21.     betaV := (exy-ex*ey) / (ey2-ey*ey);
    
22. 
    
23.     return betaV;
    
24. end
    
25. 
    
26. // a和b的值相同
    
27. a:MyBeta(10);  // 调用自定义函数MyBeta
    
28. b:Beta(10);    // 调用系统Beta函数
    

复制代码