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

作者：開拓者 TB 來源：cxh99.com 發布時間：2015年06月09日

咨詢內容：       TB的跨周期調用，論壇以前已經有一些解決方案。但對很多人來說不夠方便，本方案主要參考了追漲殺跌的一些基礎函數，兼顧了使用方便、運算性能速度、精確，在具體的算法上如均線ma 標準差std 等不用因為數據源的變化而重新編寫算法函數。

      比如close 的ma  myValue 的ma 都可以用一個 iMA函數解決。iMA的形式之所以不用  iMA(iPrice 數據源,TimeFrame 時間周期,Length 算法參數) 而是選擇  iMA((iPrice 數據源,mtBarCnt ,Length1);是為了運算速度，否則如果一個策略多次用到跨周期的算法函數內部會多次重復計算mtBarCnt值 ,  會影響運算速度。
TB技術人員： 此函數是追漲殺跌的MtBar 函數為了和后面函數包的美觀修改了函數名
1. //------------------------------------------------------------------------
2. // 簡稱: iBar
3. // 名稱:
4. // 類別: 用戶函數
5. // 類型: 用戶函數
6. // 輸出: 數值型
7. //------------------------------------------------------------------------
9. Params
10. Numeric TimeFrame(1440);
11. // 目標時間周期：月線=40320，周線=10080，日線=1440，4小時線=240
12. // 其他1小時內的周期等于相應的分鐘數，如：1小時=60， 30分鐘=30。。。
13. // 支持不規則分鐘數，如3分鐘，8分鐘，之類都行
15. Numeric BarsBack(1);
16. // 目標時間周期BAR偏移：
17. // 1--表示將目標時間周期下的前1根K線數據作為與當前Bar對應的目標時間周期下的K線數據
18. // 0--表示將目標時間周期下的截止到目前為止的數據轉換為與當前BAR對應的目標時間周期下K線數據
20. NumericRef oCurBar; // 目標時間周期下的Bar索引
21. NumericRef oOPenHT; // 目標時間周期下的開盤價
22. NumericRef oHighHT; // 目標時間周期下的最高價
23. NumericRef oLowHT; // 目標時間周期下的最低價
24. NumericRef oCloseHT; // 目標時間周期下的收盤價
25. NumericRef oVolHT; // 目標時間周期下的成交量
26. NumericRef oOpenIntHT; // 目標時間周期下的持倉量
28. Vars
29. NumericSeries barCnt;
30. NumericSeries CurBar;
31. NumericSeries barCntSum;
32. NumericSeries OpenHT;
33. NumericSeries HighHT;
34. NumericSeries LowHT;
35. NumericSeries CloseHT;
36. NumericSeries VolHT;
37. NumericSeries OpenIntHT;
38. Numeric CurTime;
39. Numeric PreTime;
40. bool condition(false);
41. Numeric i;
42. Begin
43. If (TimeFrame == 40320) // 月線
44. {
45. CurTime = Month;
46. PreTime = Month[1];
47. }
48. Else If (TimeFrame == 10080) // 周線
49. {
50. CurTime = IntPart(DateDiff(19700105,Date)/7);
51. PreTime = IntPart(DateDiff(19700105,Date[1])/7);
52. }
53. Else // 其他時間周期
54. {
55. CurTime = IntPart((DateDiff(19700105,date)*1440 + Hour*60 + Minute)/TimeFrame);
56. PreTime = IntPart((DateDiff(19700105,date[1])*1440 + Hour[1]*60 + Minute[1])/TimeFrame);
57. }
58. condition = CurTime != PreTime;
60. If (CurrentBar==0) // 如果是第一根Bar, CurBar=0
61. {
62. barCnt = 0;
63. CurBar = 0;
64. OpenHT = Open;
65. HighHT = High;
66. LowHT = Low;
67. CloseHT = Close;
68. VolHT = Vol;
69. OpenIntHT = OpenInt;
70. }
71. Else
72. {
73. If(Condition)
74. // 如果在目標周期下，屬于另一根K線，則CurBar加1
75. {
76. barCnt = 1;
77. CurBar = CurBar[1] + 1;
78. OpenHT = Open;
79. HighHT = High;
80. LowHT = Low;
81. VolHT = Vol;
82. }Else
83. // 如果在目標周期下，屬于同一根K線，則CurBar不變，但最高價和最低價要記錄價格的變化，成交量要累加
84. {
85. barCnt = barCnt[1] + 1;
86. CurBar = CurBar[1];
87. OpenHT = OpenHT[1];
88. HighHT = Max(HighHT[1],High);
89. LowHT = Min(LowHT[1],Low);
90. VolHT = VolHT[1] + Vol;
91. }
92. // 收盤價和持倉量總是取最新值
93. CloseHT = Close;
94. OpenIntHT = OpenInt;
95. }
97. // 上面的程序，在每根小周期的K線上，記錄了它所屬的大時間周期下的開高低收等值的變化。
98. // 接下來，要把在大的時間周期級別上，屬于同一根K線的開高低收這些數據，記錄在這一組小周期K線的最后一根上。
99. barCntSum = barCnt ;
100. If(BarsBack == 0)
101. // 如果Bar偏移參數為0，則取每根小周期K線上保留的大時間周期截止到這根小周期K線為止的BAR數據
102. {
103. barCntSum = 0 ;
104. }Else If(BarsBack == 1)
105. // 如果Bar偏移參數為1，則取大時間周期的上一根K線的BAr數據
106. {
107. barCntSum = barCnt ;
108. }Else
109. // 如果BAR偏移參數為其他，則取大時間周期的指定偏移后的那根K線的BAR數據
110. {
111. For i = 2 To BarsBack
112. {
113. barCntSum = barCntSum + barCnt[barCntSum];
114. }
115. }
117. // 最后將相應的K線數據作為引用參數返回
118. oCurBar = CurBar;
119. oOpenHT = OpenHT[barCntSum];
120. oHighHT = HighHT[barCntSum];
121. oLowHT = LowHT[barCntSum];
122. oCloseHT = CloseHT[barCntSum];
123. oVolHT = VolHT[barCntSum];
124. oOpenIntHT = OpenIntHT[barCntSum];
125. Return barCnt;
126. End
復制代碼
TB客服： iBar 參數太多調用聲明參數太麻煩以下為簡便寫法
1. //------------------------------------------------------------------------
2. // 簡稱: inBar
3. // 名稱: 讀書山林
4. // 類別: 用戶函數
5. // 類型: 用戶函數
6. // 輸出: 數值型
7. //------------------------------------------------------------------------
8. Params
9. Numeric TimeFrame(1440); // 目標時間周期參數，參數說明參見MtBar
10. Numeric BarsBack(1); // 目標時間周期BAR偏移參數，說明見MtBar函數
11. Vars
12. NumericSeries mtBarCnt;
13. Numeric refCurBar;
14. Numeric refOpen;
15. Numeric refHigh;
16. Numeric refLow;
17. Numeric refClose;
18. Numeric refVol;
19. Numeric refOpenInt;
21. Numeric SumValue(0);
22. Numeric i;
23. Numeric j(0);
24. Begin
25. mtBarCnt=iBar(TimeFrame,BarsBack,refCurBar,refOpen,refHigh,refLow,refClose,refVol,refOpenInt);
27. Return mtBarCnt;
28. End
復制代碼
網友回復： 本帖最后由讀書山林于 2015-5-21 02:19 編輯

跨周期求和函數
1. //------------------------------------------------------------------------
2. // 簡稱: iSum
3. // 名稱: 跨周期求和函數讀書山林
4. // 類別: 用戶函數
5. // 類型: 用戶函數
6. // 輸出: 數值型
7. //------------------------------------------------------------------------
9. Params
10. NumericSeries iPrice(1);
11. NumericSeries BarCnt(0);
12. Numeric Length(10);
13. Vars
14. NumericSeries SumValue(0);
15. Numeric i;
16. Numeric j(0);
17. Begin
18. If(Length==0)
19. {
20. Return iPrice;
21. }Else
22. {
23. j=0;
24. SumValue = 0;
25. For i = 1 to Length
26. {
27. If (iPrice[j] <> InvalidNumeric)
28. {
29. SumValue = SumValue + iPrice[j];
30. j = j + BarCnt[j];
31. }
32. else Break;
33. }
34. }
35. Return SumValue;
36. End
復制代碼
網友回復： 本帖最后由讀書山林于 2015-5-9 00:28 編輯
1. //------------------------------------------------------------------------
2. // 簡稱: iMA
3. // 名稱: 跨周期求均值讀書山林
4. // 類別: 用戶函數
5. // 類型: 用戶函數
6. // 輸出: 數值型
7. //------------------------------------------------------------------------
8. Params
9. NumericSeries iPrice(1); //數據源必須為跨周期的值否則不能返回正確值
10. NumericSeries mtBarCnt(1) ;
11. Numeric Length(10);
12. Vars
13. Numeric SumValue(0);
14. Numeric i;
15. Numeric oMA;
16. Begin
17. SumValue = iSum(iPrice,mtBarCnt,Length);
18. oMA = SumValue/Length;
19. Return oMA;
20. End
復制代碼iMA 可求任意數據源

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

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