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

coolyks

山林大神你好，请问一下你的解决方案是否解决了夜盘归属到第二天日K线的问题？如果没解决的话，应该从什么思路去解决呢？

wwq1989

比如我的策略运行在1小时K线周期里面，但是我想调用日线周期里面的5日、10日、20日均线，代码怎么写

wwq1989

比如我的策略运行在1小时K线周期里面，但是我想调用日线周期里面的5日、10日、20日均线，代码怎么写

读书山林

coolyks 发表于 2017-7-17 09:34
山林大神你好，请问一下你的解决方案是否解决了夜盘归属到第二天日K线的问题？如果没解决的话，应该从什么 ...

1. //------------------------------------------------------------------------
   
2. // 简称: iBar
   
3. // 名称:
   
4. // 类别: 用户函数
   
5. // 类型: 用户函数
   
6. // 输出: 数值型
   
7. //------------------------------------------------------------------------
   
8. 
   
9. Params
   
10.         Numeric TimeFrame(1440);   
    
11.         // 目标时间周期：月线=40320，周线=10080，日线=1440，4小时线=240
    
12.         // 其他1小时内的周期等于相应的分钟数，如：1小时=60， 30分钟=30。。。
    
13.         // 支持不规则分钟数，如3分钟，8分钟，之类都行
    
14.         
    
15.         Numeric BarsBack(1);
    
16.         // 目标时间周期BAR偏移：
    
17.         // 1--表示将目标时间周期下的前1根K线数据作为与当前Bar对应的目标时间周期下的K线数据
    
18.         // 0--表示将目标时间周期下的截止到目前为止的数据转换为与当前BAR对应的目标时间周期下K线数据
    
19.         
    
20.         NumericRef oCurBar;                 // 目标时间周期下的Bar索引
    
21.         NumericRef oOPenHT;         // 目标时间周期下的开盘价
    
22.         NumericRef oHighHT;         // 目标时间周期下的最高价
    
23.         NumericRef oLowHT;          // 目标时间周期下的最低价
    
24.         NumericRef oCloseHT;        // 目标时间周期下的收盘价
    
25.         NumericRef oVolHT;          // 目标时间周期下的成交量
    
26.         NumericRef oOpenIntHT;      // 目标时间周期下的持仓量
    
27. 
    
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,TrueDate(0))*1440 + Hour*60 + Minute)/TimeFrame);
    
56.                 PreTime = IntPart((DateDiff(19700105,TrueDate(1))*1440 + Hour[1]*60 + Minute[1])/TimeFrame);
    
57.         }
    
58.         condition = CurTime != PreTime;
    
59. 
    
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.         }
    
96.         
    
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.         }
     
116. 
     
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

复制代码

把基础函数更新下就好
把Date函数替换为TrueDate 其他函数不变

读书山林

......

lkcxhhj

谢谢读书山林。
不过群还是加不上。

TBzhanghu888

读书山林 发表于 2015-5-8 23:52
白线就是Mean  自定义的数据源的跨周期值

山林老师，为什么小周期上（比如1分钟）显示的大周期均线数值和目标周期（比如日线图）数值不一样？

qdq333

看不到啊

wanygqh

请问ihhv如何调用，谢谢