通过自定义函数实现BetaDown下跌贝塔系数

易得君1号

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

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

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

复制代码