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

作者：開拓者 TB 來(lái)源：cxh99.com 發(fā)布時(shí)間：2015年06月09日

咨詢內(nèi)容：       TB的跨周期調(diào)用，論壇以前已經(jīng)有一些解決方案。但對(duì)很多人來(lái)說不夠方便，本方案主要參考了追漲殺跌的一些基礎(chǔ)函數(shù)，兼顧了使用方便、運(yùn)算性能速度、精確，在具體的算法上如均線ma 標(biāo)準(zhǔn)差std 等不用因?yàn)閿?shù)據(jù)源的變化而重新編寫算法函數(shù)。

      比如close 的ma  myValue 的ma 都可以用一個(gè) iMA函數(shù)解決。iMA的形式之所以不用  iMA(iPrice 數(shù)據(jù)源,TimeFrame 時(shí)間周期,Length 算法參數(shù)) 而是選擇  iMA((iPrice 數(shù)據(jù)源,mtBarCnt ,Length1);是為了運(yùn)算速度，否則如果一個(gè)策略多次用到跨周期的算法函數(shù)內(nèi)部會(huì)多次重復(fù)計(jì)算mtBarCnt值 ,  會(huì)影響運(yùn)算速度。
TB技術(shù)人員： 此函數(shù)是追漲殺跌的MtBar 函數(shù) 為了和后面函數(shù)包的美觀修改了函數(shù)名
1. //------------------------------------------------------------------------
2. // 簡(jiǎn)稱: iBar
3. // 名稱:
4. // 類別: 用戶函數(shù)
5. // 類型: 用戶函數(shù)
6. // 輸出: 數(shù)值型
7. //------------------------------------------------------------------------
9. Params
10. Numeric TimeFrame(1440);
11. // 目標(biāo)時(shí)間周期：月線=40320，周線=10080，日線=1440，4小時(shí)線=240
12. // 其他1小時(shí)內(nèi)的周期等于相應(yīng)的分鐘數(shù)，如：1小時(shí)=60， 30分鐘=30。。。
13. // 支持不規(guī)則分鐘數(shù)，如3分鐘，8分鐘，之類都行
15. Numeric BarsBack(1);
16. // 目標(biāo)時(shí)間周期BAR偏移：
17. // 1--表示將目標(biāo)時(shí)間周期下的前1根K線數(shù)據(jù)作為與當(dāng)前Bar對(duì)應(yīng)的目標(biāo)時(shí)間周期下的K線數(shù)據(jù)
18. // 0--表示將目標(biāo)時(shí)間周期下的截止到目前為止的數(shù)據(jù)轉(zhuǎn)換為與當(dāng)前BAR對(duì)應(yīng)的目標(biāo)時(shí)間周期下K線數(shù)據(jù)
20. NumericRef oCurBar; // 目標(biāo)時(shí)間周期下的Bar索引
21. NumericRef oOPenHT; // 目標(biāo)時(shí)間周期下的開盤價(jià)
22. NumericRef oHighHT; // 目標(biāo)時(shí)間周期下的最高價(jià)
23. NumericRef oLowHT; // 目標(biāo)時(shí)間周期下的最低價(jià)
24. NumericRef oCloseHT; // 目標(biāo)時(shí)間周期下的收盤價(jià)
25. NumericRef oVolHT; // 目標(biāo)時(shí)間周期下的成交量
26. NumericRef oOpenIntHT; // 目標(biāo)時(shí)間周期下的持倉(cāng)量
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 // 其他時(shí)間周期
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. // 如果在目標(biāo)周期下，屬于另一根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. // 如果在目標(biāo)周期下，屬于同一根K線，則CurBar不變，但最高價(jià)和最低價(jià)要記錄價(jià)格的變化，成交量要累加
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. // 收盤價(jià)和持倉(cāng)量總是取最新值
93. CloseHT = Close;
94. OpenIntHT = OpenInt;
95. }
97. // 上面的程序，在每根小周期的K線上，記錄了它所屬的大時(shí)間周期下的開高低收等值的變化。
98. // 接下來(lái)，要把在大的時(shí)間周期級(jí)別上，屬于同一根K線的開高低收這些數(shù)據(jù)，記錄在這一組小周期K線的最后一根上。
99. barCntSum = barCnt ;
100. If(BarsBack == 0)
101. // 如果Bar偏移參數(shù)為0，則取每根小周期K線上保留的大時(shí)間周期截止到這根小周期K線為止的BAR數(shù)據(jù)
102. {
103. barCntSum = 0 ;
104. }Else If(BarsBack == 1)
105. // 如果Bar偏移參數(shù)為1，則取大時(shí)間周期的上一根K線的BAr數(shù)據(jù)
106. {
107. barCntSum = barCnt ;
108. }Else
109. // 如果BAR偏移參數(shù)為其他，則取大時(shí)間周期的指定偏移后的那根K線的BAR數(shù)據(jù)
110. {
111. For i = 2 To BarsBack
112. {
113. barCntSum = barCntSum + barCnt[barCntSum];
114. }
115. }
117. // 最后將相應(yīng)的K線數(shù)據(jù)作為引用參數(shù)返回
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
復(fù)制代碼
TB客服： iBar 參數(shù)太多調(diào)用聲明參數(shù)太麻煩以下為簡(jiǎn)便寫法
1. //------------------------------------------------------------------------
2. // 簡(jiǎn)稱: inBar
3. // 名稱: 讀書山林
4. // 類別: 用戶函數(shù)
5. // 類型: 用戶函數(shù)
6. // 輸出: 數(shù)值型
7. //------------------------------------------------------------------------
8. Params
9. Numeric TimeFrame(1440); // 目標(biāo)時(shí)間周期參數(shù)，參數(shù)說明參見MtBar
10. Numeric BarsBack(1); // 目標(biāo)時(shí)間周期BAR偏移參數(shù)，說明見MtBar函數(shù)
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
復(fù)制代碼
網(wǎng)友回復(fù)： 本帖最后由讀書山林于 2015-5-21 02:19 編輯

跨周期求和函數(shù)
1. //------------------------------------------------------------------------
2. // 簡(jiǎn)稱: iSum
3. // 名稱: 跨周期求和函數(shù) 讀書山林
4. // 類別: 用戶函數(shù)
5. // 類型: 用戶函數(shù)
6. // 輸出: 數(shù)值型
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
復(fù)制代碼
網(wǎng)友回復(fù)： 本帖最后由讀書山林于 2015-5-9 00:28 編輯
1. //------------------------------------------------------------------------
2. // 簡(jiǎn)稱: iMA
3. // 名稱: 跨周期求均值讀書山林
4. // 類別: 用戶函數(shù)
5. // 類型: 用戶函數(shù)
6. // 輸出: 數(shù)值型
7. //------------------------------------------------------------------------
8. Params
9. NumericSeries iPrice(1); //數(shù)據(jù)源必須為跨周期的值否則不能返回正確值
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
復(fù)制代碼iMA 可求任意數(shù)據(jù)源

人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看

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

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