跨周期数据转换函数以及跨周期技术指标调用的实现

追涨杀跌

回复 9# haomai01

跨周期的DMI指标，我随后就会贴上来，用法类似。按你的需求，只需要在小时图上调用，参数设成1440即可。

追涨杀跌

先满足haomai01朋友的需要， 把跨周期DMI函数先贴出来。函数名MtDMI

1. Params
   
2.         Numeric TimeFrame(1440);        // 目标时间周期参数，参数说明参见MtBar
   
3.         Numeric BarsBack(1);                 // 目标时间周期BAR偏移参数，说明见MtBar函数
   
4.         Numeric Length(14);
   
5.         NumericRef oDMIPlus;
   
6.         NumericRef oDMIMinus;
   
7.         NumericRef oADX;
   
8. Vars
   
9.         NumericSeries mtBarCnt;
   
10.         NumericSeries mtHigh;
    
11.         NumericSeries mtLow;
    
12.         NumericSeries mtClose;
    
13.         Numeric refCurBar;
    
14.         Numeric refOpen;
    
15.         Numeric refHigh;
    
16.         Numeric refLow;
    
17.         Numeric refClose;
    
18.         Numeric refVol;
    
19.         Numeric refOpenInt;
    
20. 
    
21.         NumericSeries DMIPlus;
    
22.         NumericSeries DMIMinus;
    
23.         NumericSeries DMI;
    
24.         NumericSeries ADX;
    
25.         NumericSeries ADXR;
    
26.         NumericSeries Volty;
    
27.         NumericSeries sDMI;
    
28.         NumericSeries sADX;
    
29.         NumericSeries sVolty;
    
30.         Numeric PlusDM;
    
31.         Numeric MinusDM;
    
32.         Numeric UpperMove;
    
33.         Numeric LowerMove;
    
34.         Numeric SumPlusDM(0);
    
35.         Numeric SumMinusDM(0);
    
36.         Numeric SumTR(0);
    
37.         NumericSeries AvgPlusDM;
    
38.         NumericSeries AvgMinusDM;
    
39.         Numeric SF;                        // smoothing factor
    
40.         Numeric Divisor;
    
41.         BoolSeries bStopLoop;
    
42.         Numeric i;
    
43.         Numeric j(0);
    
44.         Numeric K;
    
45.         Numeric nbHigh;
    
46.         NumericSeries TRValue;
    
47.         Numeric CumValue(0);
    
48. Begin
    
49.         mtBarCnt = MtBar(TimeFrame,BarsBack,refCurBar,refOpen,refHigh,refLow,refClose,refVol,refOpenInt);
    
50.         mtHigh = refHigh;
    
51.         mtLow = refLow;
    
52.         mtClose = refClose;
    
53.        
    
54.         SF = 1/Length;
    
55. 
    
56.         TRValue = IIF(mtHigh >= mtClose[mtBarCnt],mtHigh,mtClose[mtBarCnt]) - IIF(mtLow <= mtClose[mtBarCnt],mtLow,mtClose[mtBarCnt]);
    
57. 
    
58.         bStopLoop = bStopLoop[1];
    
59.         If (bStopLoop!=true)
    
60.         {
    
61.                 j = 0;
    
62.                 For i = 0 to Length
    
63.                 {
    
64.                         If (mtHigh[j] == InvalidNumeric)
    
65.                         {
    
66.                                 nbHigh = InvalidNumeric;
    
67.                                 i = Length + 1;
    
68.                         }
    
69.                         Else
    
70.                         {
    
71.                                 nbHigh = mtHigh[j];
    
72.                                 j = j + mtBarCnt[j];
    
73.                         }
    
74.                 }
    
75.                 if(nbHigh!=InvalidNumeric and mtHigh[j] != InvalidNumeric) bStopLoop = true;
    
76.         }
    
77.         If(nbHigh == InvalidNumeric)
    
78.         {
    
79.                 DMIPlus = InvalidNumeric;
    
80.                 DMIMinus = InvalidNumeric;
    
81.                 DMI = InvalidNumeric;
    
82.                 ADX = InvalidNumeric;
    
83.                 ADXR = InvalidNumeric;
    
84.                 Volty = InvalidNumeric;
    
85.                 //RSIValue = InvalidNumeric;
    
86.         }Else
    
87.         {
    
88.                 If(bStopLoop !=true)
    
89.                 {
    
90.                         j = 0;
    
91.                         K = 0;
    
92.                         For i = 1 To Length
    
93.                         {
    
94.                                 j = K + mtBarCnt[K];
    
95. 
    
96.                                 PlusDM = 0 ;
    
97.                                 MinusDM = 0 ;
    
98.                                 UpperMove = High[K] - High[j] ;
    
99.                                 LowerMove = Low[j] - Low[K] ;
    
100.                                 if (UpperMove > LowerMove and UpperMove > 0 )
     
101.                                 {
     
102.                                         PlusDM = UpperMove;
     
103.                                 }else if (LowerMove > UpperMove and LowerMove > 0)
     
104.                                 {
     
105.                                         MinusDM = LowerMove ;
     
106.                                 }
     
107.                                 SumPlusDM = SumPlusDM + PlusDM ;
     
108.                                 SumMinusDM = SumMinusDM + MinusDM ;
     
109.                                 SumTR = SumTR + TRValue[K] ;
     
110. 
     
111.                                 K = j ;
     
112.                         }
     
113.                         AvgPlusDM = SumPlusDM / Length ;
     
114.                         AvgMinusDM = SumMinusDM / Length ;
     
115.                         sVolty = SumTR / Length ;
     
116.                 }
     
117.                 Else
     
118.                 {
     
119.                         PlusDM = 0 ;
     
120.                         MinusDM = 0 ;
     
121.                         UpperMove = mtHigh - mtHigh[mtBarCnt] ;
     
122.                         LowerMove = mtLow[mtBarCnt] - mtLow ;
     
123.                         if (UpperMove > LowerMove and UpperMove > 0 )
     
124.                         {
     
125.                                 PlusDM = UpperMove;
     
126.                         }else if (LowerMove > UpperMove and LowerMove > 0 )
     
127.                         {
     
128.                                 MinusDM = LowerMove ;
     
129.                         }
     
130.                         AvgPlusDM = AvgPlusDM[mtBarCnt] + SF * ( PlusDM - AvgPlusDM[mtBarCnt] ) ;
     
131.                         AvgMinusDM = AvgMinusDM[mtBarCnt] + SF * ( MinusDM - AvgMinusDM[mtBarCnt] ) ;
     
132.                         sVolty = sVolty[mtBarCnt] + SF * ( TRValue  - sVolty[mtBarCnt] ) ;
     
133.                 }
     
134. 
     
135.                 if (sVolty > 0)
     
136.                 {
     
137.                         DMIPlus = 100 * AvgPlusDM / sVolty ;
     
138.                         DMIMinus = 100 * AvgMinusDM / sVolty ;
     
139.                 }else
     
140.                 {
     
141.                         DMIPlus = 0 ;
     
142.                         DMIMinus = 0 ;
     
143.                 }
     
144. 
     
145.                 Divisor = DMIPlus + DMIMinus ;
     
146.                 if (Divisor > 0)
     
147.                 {
     
148.                         sDMI = 100 * Abs( DMIPlus - DMIMinus ) / Divisor;
     
149.                 }else
     
150.                 {
     
151.                         sDMI = 0 ;
     
152.                 }
     
153. 
     
154.                 if (bStopLoop != true)
     
155.                 {
     
156.                         K = 0;
     
157.                         j = 0;
     
158.                         For i = 0 To Length - 1
     
159.                         {
     
160.                                 CumValue = CumValue + sDMI[K];
     
161.                                 j = K + mtBarCnt[K];
     
162.                                 If (mtHigh[j] != InvalidNumeric) K = j;
     
163.                                 else
     
164.                                 {
     
165.                                         j = i;
     
166.                                         i = Length + 1;
     
167.                                 }
     
168.                         }
     
169.                         sADX = CumValue / j ;
     
170.                         ADXR = ( sADX + sADX[ K-1 ] ) * 0.5 ;
     
171.                 }else  
     
172.                 {
     
173.                         sADX = sADX[mtBarCnt] + SF * ( sDMI - sADX[mtBarCnt] ) ;
     
174.                         j = 0;
     
175.                         For i = 0 To Length-1
     
176.                         {
     
177.                                 j = j + mtBarCnt[j];
     
178.                         }
     
179.                         ADXR = ( sADX + sADX[ j ] ) * 0.5 ;
     
180.                 }
     
181.                 Volty = sVolty;
     
182.                 DMI = sDMI;
     
183.                 ADX = sADX;
     
184. 
     
185.         }
     
186.         oDMIPlus = DMIPlus;
     
187.         oDMIMinus = DMIMinus;
     
188.         oADX = ADX;
     
189.         return mtBarCnt;
     
190. End

复制代码

追涨杀跌

同样举个例子。公式应用TestMtDMI

1. Params
   
2.         Numeric TimeFrame(1440);        // 目标时间周期参数，参数说明参见MtBar
   
3.         Numeric BarsBack(1);                 // 目标时间周期BAR偏移参数，说明见MtBar函数
   
4.         Numeric Length(20);                       
   
5.         Numeric Offset(2);
   
6.         Numeric Lots(1);
   
7.        
   
8. Vars
   
9.         NumericSeries DMIPlus;
   
10.         NumericSeries DMIMinus;
    
11.         NumericSeries ADX;
    
12.         NumericSeries PreBar;
    
13. 
    
14.         Numeric DPlus;
    
15.         Numeric DMinus;
    
16.         Numeric tADX;
    
17. 
    
18. Begin
    
19.         PreBar = MtDMI(TimeFrame,BarsBack,Length,DPLus,DMinus,tADX);
    
20.         DMIPlus = DPlus;
    
21.         DMIMinus = DMinus;
    
22.         ADX = tADX;
    
23. 
    
24.         PlotNumeric( "DMI+" ,DMIPlus);
    
25.         PlotNumeric( "DMI-" ,DMIMinus);
    
26.         PlotNumeric( "ADX" ,ADX);
    
27.        
    
28.         If ( MarketPosition != 1 and DMIPlus>DMIMinus and DMIPlus[PreBar]<DMIMinus[PreBar])
    
29.         {
    
30.                 Buy(Lots,Open);
    
31.         }
    
32.         If ( MarketPosition !=-1 and DMIPlus<DMIMinus and DMIPlus[PreBar]>DMIMinus[PreBar])
    
33.         {
    
34.                 SellShort(Lots,Open);
    
35.         }
    
36. End

复制代码

在小时图上插入该公式应用即可，参数默认我就是日线1440，如需其他周期，直接改参数就可

haomai01

绝对的大侠风范，写代码高手啊！崇拜啊！水平高的也许很多，但是难得有追涨杀跌这样急网友所急！谢谢了！

hugh1982

给写一个5日交易10的金叉死叉的，调用周线周期，第一要满足5叉10，又要满足在周线的5日均线以上

追涨杀跌

回复 16# hugh1982

按照你的意思，大致写了一下，看看是否符合你的要求。

1. //------------------------------------------------------------------------
   
2. // 简称: TestMtMa_V2
   
3. // 名称: 周线加日线均线策略
   
4. // 类别: 公式应用
   
5. // 类型: 用户应用
   
6. // 输出:
   
7. //------------------------------------------------------------------------
   
8. 
   
9. Params
   
10.         Numeric TimeFrame(10080);        // 目标时间周期：周线
    
11.         Numeric BarsBack(1);                // 以前一周的均线来判断
    
12. 
    
13.         Numeric WeekLength(5);                // 周线的均线周期               
    
14.         Numeric Length1(5);                        // 日线的短期均线周期
    
15.         Numeric Length2(10);                // 日线的长期均线周期
    
16.         Numeric Lots(1);                        // 交易头寸大小
    
17. Vars
    
18.         NumericSeries WeekMA;
    
19.         Numeric oWeekMA;
    
20. 
    
21.         NumericSeries MA1;
    
22.         NumericSeries MA2;
    
23. Begin
    
24.         MtMa(TimeFrame,BarsBack,WeekLength,oWeekMA);
    
25.         WeekMA = oWeekMA;
    
26.         PlotNumeric("WeekMA",WeekMA);
    
27. 
    
28.         MA1 = AverageFC(Close,Length1);
    
29.         MA2 = AverageFC(Close,Length2);
    
30.         PlotNumeric("MA1",MA1);
    
31.         PlotNumeric("MA2",MA2);
    
32.        
    
33.         If (MA1[1]>WeekMA and MA2[1]>WeekMA)                // 日线短期均线和长期均线均再周线5周期均线之上
    
34.         {
    
35.                 if (MarketPosition!=1 and MA1[1]>MA2[1])
    
36.                 {
    
37.                         Buy(Lots,Open);
    
38.                 }
    
39.                 if (MarketPosition==1 and MA1[1]<MA2[1])
    
40.                 {
    
41.                         Sell(Lots,Open);
    
42.                 }
    
43.         }
    
44.         If (MA1[1]<WeekMA and MA2[1]<WeekMA)                // 日线短期均线和长期均线均再周线5周期均线之下
    
45.         {
    
46.                 if (MarketPosition!=-1 and MA1[1]<MA2[1])
    
47.                 {
    
48.                         SellShort(Lots,Open);
    
49.                 }
    
50.                 if (MarketPosition==-1 and MA1[1]>MA2[1])
    
51.                 {
    
52.                         BuyToCover(Lots,Open);
    
53.                 }
    
54.         }
    
55. End

复制代码

freetiger

多谢追涨杀跌的分享！
编译TestMtMa时通不过：函数[MtMa]没有被声明，C0134，行26

追涨杀跌

Mtma函数的代码，前面已经提供了。你需要依次编译MtBar、MtMa，然后再编译后面的TestMtMa_V2 。

追涨杀跌

拖了好几天了，一直没有把跨周期已经完成的几个指标贴上来。致富网友，也提出了很高的要求，我试着来写一写吧。
首先把跨周期的KDJ指标完成，新建函数MtKDJ，代码如下：

1. Params
   
2.         Numeric TimeFrame(1440);        // 目标时间周期参数，参数说明参见MtBar
   
3.         Numeric BarsBack(1);         // 目标时间周期BAR偏移参数，说明见MtBar函数
   
4.         Numeric Length(14);                       
   
5.         Numeric SlowLength(3);       
   
6.         Numeric SmoothLength(3);
   
7.        
   
8.         NumericRef oKValue;
   
9.         NumericRef oDValue;
   
10. Vars
    
11.         NumericSeries mtBarCnt;
    
12.         NumericSeries mtOpen;
    
13.         NumericSeries mtHigh;
    
14.         NumericSeries mtLow;
    
15.         NumericSeries mtClose;
    
16.         NumericSeries mtVol;
    
17.         NumericSeries mtOpenInt;
    
18.         Numeric refCurBar;
    
19.         Numeric refOpen;
    
20.         Numeric refHigh;
    
21.         Numeric refLow;
    
22.         Numeric refClose;
    
23.         Numeric refVol;
    
24.         Numeric refOpenInt;
    
25. 
    
26.         NumericSeries HighestValue;                               
    
27.         NumericSeries LowestValue;                                       
    
28.         NumericSeries KValue;
    
29.         Numeric DValue;
    
30.         Numeric i;
    
31.         Numeric j(0);
    
32.         Numeric SumHLValue(0);
    
33.         Numeric SumCLValue(0);
    
34.         Numeric sumValue(0);
    
35. 
    
36. Begin
    
37.         mtBarCnt = MtBar(TimeFrame,BarsBack,refCurBar,refOpen,refHigh,refLow,refClose,refVol,refOpenInt);
    
38.         mtHigh = refHigh;
    
39.         mtLow = refLow;
    
40.         mtClose = refClose;
    
41.        
    
42.         HighestValue = mtHigh;
    
43.         LowestValue = mtLow;
    
44.         For i = 1 to Length-1
    
45.         {
    
46.                 j = j + mtBarCnt[j];
    
47.                 If (mtHigh[j] == InvalidNumeric) HighestValue = InvalidNumeric;
    
48.                 Else If ( mtHigh[j] > HighestValue) HighestValue = mtHigh[j];
    
49.                 If (mtLow[j] == InvalidNumeric) LowestValue = InvalidNumeric;
    
50.                 Else If ( mtLow[j] < LowestValue) LowestValue = mtLow[j];
    
51.         }
    
52. 
    
53.         j = 0;
    
54.         For i = 1 to SlowLength
    
55.         {
    
56.                 If (mtClose[j] == InvalidNumeric)
    
57.                 {
    
58.                         SumHLValue = 0;     //InvalidNumeric;
    
59.                         SumCLValue = 0;     //InvalidNumeric;
    
60.                 }
    
61.                 Else
    
62.                 {
    
63.                         SumCLValue = SumCLValue + mtClose[j] - LowestValue[j];
    
64.                         SumHLValue = SumHLValue + HighestValue[j] - LowestValue[j];
    
65.                         j = j + mtBarCnt[j];
    
66.                 }
    
67.         }
    
68. 
    
69.         If (SumHLValue <> 0)
    
70.         {
    
71.                 KValue = SumCLValue/SumHLValue*100;
    
72.         }Else
    
73.         {
    
74.                 KValue = 0;
    
75.         }
    
76. 
    
77.         j = 0;
    
78.         For i = 1 to SmoothLength
    
79.         {
    
80.                 If (KValue[j] == InvalidNumeric) SumValue = 0;     //InvalidNumeric;
    
81.                 Else
    
82.                 {
    
83.                         SumValue = SumValue + KValue[j];
    
84.                         j = j + mtBarCnt[j];
    
85.                 }
    
86.         }
    
87.         DValue = SumValue/SmoothLength;
    
88. 
    
89.         oKValue = KValue;
    
90.         oDValue = DValue;
    
91.         return mtBarCnt;
    
92. End

复制代码

然后和往常一样，写个调用的例子，新建公式应用TestMtKdj，随便在日线以下的时间周期中使用，参数为1440，表示求日线KDJ，根据日线KDJ，金叉买入，死叉卖出，不管交叉发生的位置。代码如下：

1. Params
   
2.         Numeric TimeFrame(1440);        // 日线
   
3.         Numeric BarsBack(1);        // 求前一日的值
   
4.         Numeric Length(14);                       
   
5.         Numeric SlowLength(3);       
   
6.         Numeric SmoothLength(3);
   
7.         Numeric Lots(1);
   
8. Vars
   
9.         NumericSeries KValue;
   
10.         NumericSeries DValue;
    
11.         Numeric ooKValue;
    
12.         Numeric ooDValue;
    
13.         Numeric PreBar;
    
14. Begin
    
15.         PreBar = MtKDJ(TimeFrame,BarsBack,Length,SlowLength,SmoothLength,ooKValue,ooDValue);
    
16.         KValue = ooKValue;
    
17.         DValue = ooDValue;
    
18. 
    
19.         PlotNumeric("K",KValue);
    
20.         PlotNumeric("D",DValue);
    
21.         PlotNumeric("J",3*KValue - 2*DValue);
    
22.         PlotNumeric("Ref1",20);
    
23.         PlotNumeric("Ref2",80);
    
24. 
    
25.         If (KValue[PreBar] < DValue[PreBar] and KValue>DValue)
    
26.         {
    
27.                 Buy(Lots,Open);
    
28.         }
    
29.         If (KValue[PreBar] > DValue[PreBar] and KValue<DValue)
    
30.         {
    
31.                 SellShort(Lots,Open);
    
32.         }
    
33. End

复制代码

追涨杀跌

继续。。。跨周期BOLL线指标，新建函数MtBoll，代码如下：

1. Params
   
2.         Numeric TimeFrame(1440);        // 目标时间周期参数，参数说明参见MtBar
   
3.         Numeric BarsBack(1);         // 目标时间周期BAR偏移参数，说明见MtBar函数
   
4.         Numeric Length(20);                       
   
5.         Numeric Offset(2);
   
6.         NumericRef oUpLine;                        // 上轨
   
7.         NumericRef oDownLine;                // 下轨
   
8.         NumericRef oMidLine;                // 中轨
   
9. Vars
   
10.         NumericSeries mtBarCnt;
    
11.         NumericSeries mtClose;
    
12.         Numeric refCurBar;
    
13.         Numeric refOpen;
    
14.         Numeric refHigh;
    
15.         Numeric refLow;
    
16.         Numeric refClose;
    
17.         Numeric refVol;
    
18.         Numeric refOpenInt;
    
19. 
    
20.         Numeric tempBand;
    
21. 
    
22.         Numeric SumValue(0);
    
23.         Numeric i;
    
24.         Numeric j(0);
    
25.         Numeric SumSqr(0);
    
26.         Numeric VarPSValue;
    
27. 
    
28.        
    
29. Begin
    
30.         mtBarCnt = MtBar(TimeFrame,BarsBack,refCurBar,refOpen,refHigh,refLow,refClose,refVol,refOpenInt);
    
31.         mtClose = refClose;
    
32. 
    
33.         For i = 1 to Length
    
34.         {
    
35.                 If (mtClose[j] == InvalidNumeric) SumValue = InvalidNumeric;
    
36.                 Else
    
37.                 {
    
38.                         SumValue = SumValue + mtClose[j];
    
39.                         j = j + mtBarCnt[j];
    
40.                 }
    
41.         }
    
42. 
    
43.         oMidLine = SumValue/Length;
    
44. 
    
45.         If(Length > 1)
    
46.         {
    
47.                 j = 0;
    
48.                 for i = 0 to Length - 1
    
49.                 {
    
50.                         SumSqr = SumSqr + Sqr( mtClose[j] - oMidLine ) ;
    
51.                         j = j + mtBarCnt[j];
    
52.                 }
    
53.                 VarPSValue = SumSqr / (Length - 1) ;
    
54.         }Else
    
55.         {
    
56.                 VarPSValue = 0;
    
57.         }
    
58. 
    
59.         tempBand = iif(VarPSValue > 0,Sqrt(VarPSValue),0);
    
60. 
    
61.         oUpLine = oMidLine + Offset * tempBand;
    
62.         oDownLine = oMidLine - Offset * tempBand;
    
63.         Return mtBarCnt;
    
64. End

复制代码

再写个公式应用的例子，新建公式应用TestMtBoll，代码如下：

1. Params
   
2.         Numeric TimeFrame(1440);        // 目标时间周期参数，参数说明参见MtBar
   
3.         Numeric BarsBack(1);                 // 目标时间周期BAR偏移参数，说明见MtBar函数
   
4.         Numeric Length(20);                       
   
5.         Numeric Offset(2);
   
6.         Numeric Lots(1);
   
7. Vars
   
8.         NumericSeries UpLine;                        // 上轨
   
9.         NumericSeries DownLine;                        // 下轨
   
10.         NumericSeries MidLine;                        // 中轨
    
11.         NumericSeries PreBar;
    
12.         Numeric UpL;
    
13.         Numeric DnL;
    
14.         Numeric MdL;
    
15. Begin
    
16.         PreBar = MtBOLL(TimeFrame,BarsBack,Length,Offset,UpL,DnL,MdL);
    
17.         UpLine = UpL;
    
18.         DownLine = DnL;
    
19.         MidLine = MdL;
    
20. 
    
21.         PlotNumeric("UpLine",UpLine);
    
22.         PlotNumeric("DownLine",DownLine);
    
23.         PlotNumeric("MidLine",MidLine);
    
24.        
    
25.         If ( MarketPosition != 1 and Close[1]>MidLine[1] and UpLine[1]>UpLine[PreBar] and MidLine[1]>MidLine[PreBar])
    
26.         {
    
27.                 Buy(Lots,Open);
    
28.         }
    
29.         If ( MarketPosition !=-1 and Close[1]<MidLine[1] and DownLine[1]<DownLine[PreBar] and MidLine[1]<MidLine[PreBar])
    
30.         {
    
31.                 SellShort(Lots,Open);
    
32.         }
    
33. End

复制代码