福利 跨周期的傻瓜式解决方案

读书山林

大周期上回溯[N]怎么办 很重要的函数iRef  很多童鞋改写一些算法不正确就是因为忽视了算法内部的回溯值

1. //------------------------------------------------------------------------
   
2. // 简称: iRef
   
3. // 名称: 跨周期求回溯值 读书山林
   
4. // 类别: 用户函数
   
5. // 类型: 用户函数
   
6. // 输出: 数值型
   
7. //------------------------------------------------------------------------
   
8. 
   
9. Params
   
10. 
    
11.         NumericSeries mtBarCnt(0);        // MtBar函数返回的mtBarCnt值
    
12.         Numeric Length(10);         // 目标周期下的回溯周期
    
13. Vars
    
14.         Numeric Length0(2);   
    
15.         Numeric i;
    
16.         Numeric j(0); // 与目标周期下的回溯周期 等值的小周期回溯周期值
    
17. Begin
    
18.         If(Length==0)
    
19.         {
    
20.           Return 0;          
    
21.         }Else   If(Length==1)
    
22.         {
    
23.           Return mtBarCnt;       
    
24.         }Else
    
25.         {
    
26.           j=0;
    
27.           Length0=Length;
    
28. 
    
29.           For i = 1 to Length0
    
30.           {
    
31.                 If (mtBarCnt[j] <> InvalidNumeric)
    
32.                 {
    
33.                         j = j + mtBarCnt[j];
    
34.                 }
    
35.                 else Break;
    
36.          }
    
37.          Return j;
    
38.         }
    
39. End

复制代码

读书山林

iEMA

1. //------------------------------------------------------------------------
   
2. // 简称: iEMA
   
3. // 名称: 读书山林
   
4. // 类别: 用户函数
   
5. // 类型: 用户函数
   
6. // 输出: 数值型
   
7. //------------------------------------------------------------------------
   
8. Params
   
9.         NumericSeries iPrice;
   
10.         NumericSeries mtBarCnt;
    
11.         Numeric Length(10);
    
12. Vars
    
13.         Numeric sFcactor;
    
14.         NumericSeries XAvgValue;
    
15.         
    
16. Begin
    
17.                 sFcactor = 2 / ( Length + 1 );
    
18.                 if ( XAvgValue[mtBarCnt] == InvalidNumeric)
    
19.                 {
    
20.                         XAvgValue = iPrice;
    
21.                 }else
    
22.                 {
    
23.                         XAvgValue = XAvgValue[mtBarCnt] + sFcactor * ( iPrice - XAvgValue[mtBarCnt] ) ;
    
24.                 }        
    
25.                 Return XAvgValue;
    
26. End

复制代码

feiniulala0723

好东西，谢谢分享！

读书山林

iAMA   跨周期求考夫曼

1. //------------------------------------------------------------------------
   
2. // 简称: iAMA
   
3. // 名称: 跨周期求考夫曼 读书山林
   
4. // 类别: 用户函数
   
5. // 类型: 用户函数
   
6. // 输出: 数值型
   
7. //------------------------------------------------------------------------
   
8. 
   
9. 
   
10. Params
    
11.         NumericSeries Price(1);
    
12.         NumericSeries mtBarCnt(1);       
    
13.         Numeric EffRatioLength(10);
    
14.         Numeric FastAvgLength(2);
    
15.         Numeric SlowAvgLength(30);
    
16. Vars
    
17.         Numeric oEffRatioLength(10);
    
18.         Numeric NetChg(0);
    
19.         Numeric TotChg(0);
    
20.         Numeric EffRatio(0);
    
21.         Numeric ScaledSFSqr(0);
    
22.         NumericSeries AMAValue;       
    
23.         Numeric SFDiff;
    
24.         NumericSeries sumx;       
    
25. Begin
    
26.               if ( AMAValue[mtBarCnt] == InvalidNumeric)
    
27.               {
    
28.                   AMAValue = Price;
    
29.                   Return AMAValue;
    
30.                }
    
31.                
    
32.                oEffRatioLength=iRef(mtBarCnt,EffRatioLength);
    
33.                
    
34.                 NetChg = Abs( Price - Price[oEffRatioLength] );
    
35.                 sumx = Abs( Price - Price[mtBarCnt] );
    
36.                 TotChg = iSum(sumx ,mtBarCnt ,EffRatioLength );               
    
37.                 EffRatio = IIF(TotChg > 0, NetChg / TotChg, 0);
    
38.                 SFDiff = 2 / ( FastAvgLength + 1 ) - 2 / ( SlowAvgLength + 1 );               
    
39.                 ScaledSFSqr = Sqr( 2 / ( SlowAvgLength + 1 ) + EffRatio * SFDiff );               
    
40.                 AMAValue = AMAValue[mtBarCnt] + ScaledSFSqr * ( Price - AMAValue[mtBarCnt] );
    
41. 
    
42.                Return AMAValue;
    
43. End

复制代码

读书山林

再举个调用实例

1. //------------------------------------------------------------------------
   
2. // 简称: testAMA
   
3. // 名称:
   
4. // 类别: 公式应用
   
5. // 类型: 用户应用
   
6. // 输出:
   
7. //------------------------------------------------------------------------
   
8. Params  
   
9.         Numeric TimeFrame(30);        // 目标时间周期参数，参数说明参见iBar
   
10.         Numeric BarsBack(1);          // 目标时间周期BAR偏移参数，说明见MtBar函数
    
11.         Numeric EffRatioLength(10);
    
12.         Numeric FastAvgLength(2);
    
13.         Numeric SlowAvgLength(30);
    
14. Vars
    
15.         Numeric closeX(1);  
    
16.         Numeric AMAValue(1);
    
17.         NumericSeries mtBarCnt(1);        
    
18. Begin
    
19.         closeX=iPrice0("Close",TimeFrame,BarsBack);//跨周期的数据源
    
20.         mtBarCnt=inBar(TimeFrame,BarsBack);       // 跨周期的inBar
    
21.        
    
22.         AMAValue=iAMA(closeX,mtBarCnt,EffRatioLength,FastAvgLength,SlowAvgLength);
    
23.         PlotNumeric("AdpMa",AMAValue);       
    
24. End

复制代码

读书山林

1. //------------------------------------------------------------------------
   
2. // 简称: iHHV
   
3. // 名称: 跨期求Highest
   
4. // 类别: 用户函数
   
5. // 类型: 用户函数
   
6. // 输出: 数值型
   
7. //------------------------------------------------------------------------
   
8. 
   
9. Params
   
10.         NumericSeries Price(0);
    
11.         NumericSeries mtBarCnt(0);        
    
12.         Numeric Length(5);
    
13. Vars
    
14.         Numeric HighestValue;
    
15.         Numeric i;
    
16.         Numeric j;       
    
17. Begin                       
    
18.         HighestValue = Price;               
    
19.         for i=1 to Length - 1
    
20.        {
    
21.                 j=iRef(mtBarCnt,i);
    
22.                 If(Price[j] > HighestValue)
    
23.                         HighestValue = Price[j];
    
24.         }
    
25.         Return HighestValue;
    
26. End

复制代码

读书山林

1. //------------------------------------------------------------------------
   
2. // 简称: iLLV
   
3. // 名称: 跨期求Lowest
   
4. // 类别: 用户函数
   
5. // 类型: 用户函数
   
6. // 输出: 数值型
   
7. //------------------------------------------------------------------------
   
8. 
   
9. Params
   
10.         NumericSeries Price(0);
    
11.         NumericSeries mtBarCnt(0);                
    
12.         Numeric Length(5);
    
13. Vars
    
14.         Numeric LowestValue;
    
15.         Numeric i;
    
16.         Numeric j;               
    
17. Begin
    
18.         LowestValue = Price;       
    
19.         for i=1 to Length - 1
    
20.        {
    
21.                 j=iRef(mtBarCnt,i);       
    
22.                 If(Price[j] < LowestValue)
    
23.                         LowestValue = Price[j];
    
24.         }
    
25.         Return LowestValue;
    
26. 
    
27. End

复制代码

glaceage

还没完全看懂 谢谢山林老师 留着细细看

读书山林

glaceage 发表于 2015-5-10 22:58
还没完全看懂 谢谢山林老师 留着细细看

会用调用就行，调用已经很方便了

tsbftwo

非常感谢！