设为首页收藏本站

 找回密码
 注册
查看: 229992|回复: 300

跨周期数据转换函数以及跨周期技术指标调用的实现 [复制链接]

Rank: 10Rank: 10Rank: 10

精华
0
UID
20842
积分
931
帖子
382
主题
2
阅读权限
255
注册时间
2010-12-3
最后登录
2022-2-15
发表于 2011-6-8 16:55:08 |显示全部楼层
本帖最后由 追涨杀跌 于 2011-12-26 14:17 编辑

TB的跨周期调用,以前已经有一些解决方案。但总体来说,使用还不够方便。以前的帖子中Nopain曾提出过一个算法,非常精巧。最近在这个算法的基础上, 把整个实现方法完善了一下。下面把总体思路和函数代码贴出来,请大家试用,也欢迎大家提出修改意见。

总体思路:
1、小周期调用大周期的数据;
2、具体方法是新编一个函数,用来根据小周期下的数据推算出大周期的BAR数据,为了省事,计算时,会将大周期下的开高低收以及成交量和持仓量等数据都算出来,然后将这些数据通过引用参数返回。当然有的朋友可能只需要一个收盘价就可以了,那样的话,可以自行修改这个函数,把多余的数据去掉;
3、返回的大周期数据将以序列变量的形式保留在对应的小周期K线上,以便以后调用;
4、另外为了便于大周期的数据计算出来后的回溯使用,函数会将小周期下当前BAR到大周期下的前一个BAR的最后一个小周期BAR需要回溯的BAR数目,作为函数的结果返回。这句话,不容易描述清楚,估计大家听起来也费力,但没关系,后面用例子来解释,知道这回事就行了。
5、另外还增加了一个返回值(也是通过引用参数返回),表示的是当前小周期K线对应的大周期K线在整个大周期中的索引值。举例来说,5分钟图,样本数300,那转换成30分钟周期图,总共应该是50根K线,那最新一根5分钟图对应的30分钟K线在整个30分钟图中的索引值就应该是49(类似CurrentBar 0-49);

好,其他先不废话,把代码贴出来,再举几个例子。

新建用户函数MtBar, 返回值为数值类型,代码如下:
  1. Params
  2.         Numeric TimeFrame(1440);   
  3.         // 目标时间周期:月线=40320,周线=10080,日线=1440,4小时线=240
  4.         // 其他1小时内的周期等于相应的分钟数,如:1小时=60, 30分钟=30。。。
  5.         // 支持不规则分钟数,如3分钟,8分钟,之类都行
  6.         
  7.         Numeric BarsBack(1);
  8.         // 目标时间周期BAR偏移:
  9.         // 1--表示将目标时间周期下的前1根K线数据作为与当前Bar对应的目标时间周期下的K线数据
  10.         // 0--表示将目标时间周期下的截止到目前为止的数据转换为与当前BAR对应的目标时间周期下K线数据
  11.         
  12.         NumericRef oCurBar;                 // 目标时间周期下的Bar索引
  13.         NumericRef oOPenHT;         // 目标时间周期下的开盘价
  14.         NumericRef oHighHT;         // 目标时间周期下的最高价
  15.         NumericRef oLowHT;          // 目标时间周期下的最低价
  16.         NumericRef oCloseHT;        // 目标时间周期下的收盘价
  17.         NumericRef oVolHT;          // 目标时间周期下的成交量
  18.         NumericRef oOpenIntHT;      // 目标时间周期下的持仓量

  19. Vars
  20.         NumericSeries barCnt;
  21.         NumericSeries CurBar;
  22.         NumericSeries barCntSum;
  23.         NumericSeries OpenHT;
  24.         NumericSeries HighHT;
  25.         NumericSeries LowHT;
  26.         NumericSeries CloseHT;
  27.         NumericSeries VolHT;
  28.         NumericSeries OpenIntHT;
  29.         Numeric CurTime;
  30.         Numeric PreTime;
  31.         bool condition(false);
  32.         Numeric i;
  33. Begin
  34.         If (TimeFrame == 40320)                 // 月线
  35.         {
  36.                 CurTime = Month;
  37.                 PreTime = Month[1];
  38.         }
  39.         Else If (TimeFrame == 10080)                        // 周线
  40.         {
  41.                 CurTime = IntPart(DateDiff(19700105,Date)/7);
  42.                 PreTime = IntPart(DateDiff(19700105,Date[1])/7);
  43.         }
  44.         Else                                                                        // 其他时间周期
  45.         {
  46.                 CurTime = IntPart((DateDiff(19700105,date)*1440 + Hour*60 + Minute)/TimeFrame);
  47.                 PreTime = IntPart((DateDiff(19700105,date[1])*1440 + Hour[1]*60 + Minute[1])/TimeFrame);
  48.         }
  49.         condition = CurTime != PreTime;

  50.         If (CurrentBar==0)                // 如果是第一根Bar, CurBar=0
  51.         {
  52.                 barCnt = 0;
  53.                 CurBar = 0;
  54.                 OpenHT = Open;
  55.                 HighHT = High;
  56.                 LowHT = Low;
  57.                 CloseHT = Close;
  58.                 VolHT = Vol;
  59.                 OpenIntHT = OpenInt;
  60.         }
  61.         Else
  62.         {
  63.                 If(Condition)               
  64.                 // 如果在目标周期下,属于另一根K线,则CurBar加1
  65.                 {
  66.                         barCnt = 1;
  67.                         CurBar = CurBar[1] + 1;
  68.                         OpenHT = Open;
  69.                         HighHT = High;
  70.                         LowHT = Low;
  71.                         VolHT = Vol;
  72.                 }Else
  73.                 // 如果在目标周期下,属于同一根K线,则CurBar不变,但最高价和最低价要记录价格的变化,成交量要累加
  74.                 {
  75.                         barCnt = barCnt[1] + 1;
  76.                         CurBar = CurBar[1];
  77.                         OpenHT = OpenHT[1];
  78.                         HighHT = Max(HighHT[1],High);
  79.                         LowHT = Min(LowHT[1],Low);
  80.                         VolHT = VolHT[1] + Vol;
  81.                 }
  82.                 // 收盘价和持仓量总是取最新值
  83.                 CloseHT = Close;
  84.                 OpenIntHT = OpenInt;
  85.         }
  86.         
  87.         // 上面的程序,在每根小周期的K线上,记录了它所属的大时间周期下的开高低收等值的变化。
  88.         // 接下来,要把在大的时间周期级别上,属于同一根K线的开高低收这些数据,记录在这一组小周期K线的最后一根上。
  89.         barCntSum = barCnt ;
  90.         If(BarsBack == 0)
  91.         // 如果Bar偏移参数为0,则取每根小周期K线上保留的大时间周期截止到这根小周期K线为止的BAR数据
  92.         {
  93.                 barCntSum = 0 ;
  94.         }Else If(BarsBack == 1)
  95.         // 如果Bar偏移参数为1,则取大时间周期的上一根K线的BAr数据
  96.         {
  97.                 barCntSum = barCnt ;
  98.         }Else
  99.         // 如果BAR偏移参数为其他,则取大时间周期的指定偏移后的那根K线的BAR数据
  100.         {
  101.                 For i = 2 To BarsBack
  102.                 {
  103.                         barCntSum = barCntSum + barCnt[barCntSum];
  104.                 }
  105.         }

  106.         // 最后将相应的K线数据作为引用参数返回
  107.         oCurBar = CurBar;
  108.         oOpenHT = OpenHT[barCntSum];
  109.         oHighHT = HighHT[barCntSum];
  110.         oLowHT = LowHT[barCntSum];
  111.         oCloseHT = CloseHT[barCntSum];
  112.         oVolHT = VolHT[barCntSum];
  113.         oOpenIntHT = OpenIntHT[barCntSum];
  114.         Return barCnt;
  115. End
复制代码
已有 31 人评分威望 收起 理由
milier45 + 2
mashaobin + 2
scqh10700621 + 2
qq17373132105 + 2
tangwen831 + 2 很给力!

总评分: 威望 + 71   查看全部评分

Rank: 10Rank: 10Rank: 10

精华
0
UID
20842
积分
931
帖子
382
主题
2
阅读权限
255
注册时间
2010-12-3
最后登录
2022-2-15
发表于 2011-6-8 17:16:25 |显示全部楼层
忘了说一句,以上代码是在TB V4中编写与调试的。

接下来,我们来实现跨周期的求和函数MtSummation,上面的函数中特地返回了一个值oCurBar,就是我上面提到的大周期下的BAR索引值,就是想为实现MtSummationFC留下的伏笔,等以后有时间再解决。现在先还是用最笨的循环累加的算法。
  1. Params
  2.         NumericSeries Price(1);
  3.         NumericSeries BarCnt(0);
  4.         Numeric Length(10);
  5. Vars
  6.         NumericSeries SumValue(0);
  7.         Numeric i;
  8.         Numeric j(0);
  9. Begin
  10.         SumValue = 0;
  11.         For i = 1 to Length
  12.         {
  13.                 If (Price[j] <> InvalidNumeric)
  14.                 {
  15.                         SumValue = SumValue + Price[j];
  16.                         j = j + BarCnt[j];
  17.                 }
  18.                 else Break;
  19.         }
  20.         Return SumValue;
  21. End
复制代码

使用道具 举报

Rank: 10Rank: 10Rank: 10

精华
0
UID
20842
积分
931
帖子
382
主题
2
阅读权限
255
注册时间
2010-12-3
最后登录
2022-2-15
发表于 2011-6-8 17:22:36 |显示全部楼层
接下来,就可以实现计算跨周期简单移动平均的函数MtMa。
  1. Params
  2.         Numeric TimeFrame(1440);        // 目标时间周期参数,参数说明参见MtBar
  3.         Numeric BarsBack(1);                // 目标时间周期BAR偏移参数,说明见MtBar函数
  4.         Numeric Length(10);                        // 均线周期
  5.         NumericRef oMA;             // 以目标时间周期下的K线数据计算出的移动平均线
  6. Vars
  7.         NumericSeries mtBarCnt;
  8.         NumericSeries mtClose;
  9.         Numeric refCurBar;
  10.         Numeric refOpen;
  11.         Numeric refHigh;
  12.         Numeric refLow;
  13.         Numeric refClose;
  14.         Numeric refVol;
  15.         Numeric refOpenInt;
  16.        
  17.         Numeric SumValue(0);
  18.         Numeric i;
  19.         Numeric j(0);
  20. Begin
  21.         mtBarCnt = MtBar(TimeFrame,BarsBack,refCurBar,refOpen,refHigh,refLow,refClose,refVol,refOpenInt);
  22.         mtClose = refClose;

  23.         SumValue = MtSummation(mtClose,mtBarCnt,Length);
  24.         oMA = SumValue/Length;
  25.         Return mtBarCnt;
  26. End
复制代码

使用道具 举报

Rank: 10Rank: 10Rank: 10

精华
0
UID
20842
积分
931
帖子
382
主题
2
阅读权限
255
注册时间
2010-12-3
最后登录
2022-2-15
发表于 2011-6-8 17:51:14 |显示全部楼层
现在可以举个例子来说明,怎么用上面的几个函数来做交易策略了。假如我们的策略如下:
1、我们以日线的均线交叉来判断大趋势,然后在5分钟图上来做交易;
2、日线的短期均线上穿长期均线,则只做多,不做空;反之只做空,不做多;
3、确定了大趋势后,我们再根据5分钟图来判断小趋势,以决定进场时机。我们仍然用均线来判断,在多头大趋势下,如果5分钟的短期均线上穿长期均线,则进场做多,反穿出场,但不反手做空;在空头大趋势下,类似;
我们在5分钟图上调用刚才的函数的来实现。新建公式应用TestMtMa,代码如下:
  1. Params
  2.         Numeric TimeFrame(1440);        // 目标时间周期参数,参数说明参见MtBar
  3.         Numeric BarsBack(1);                // 目标时间周期BAR偏移参数,说明见MtBar函数

  4.         Numeric Length1(10);                // 大周期的短期均线周期               
  5.         Numeric Length2(20);                // 大周期的长期均线周期
  6.         Numeric Length3(10);                // 小周期的短期均线周期
  7.         Numeric Length4(20);                // 小周期的长期均线周期
  8.         Numeric Lots(1);
  9. Vars
  10.         NumericSeries MA1;
  11.         NumericSeries MA2;
  12.         Numeric oMA1;
  13.         Numeric oMA2;

  14.         NumericSeries MA3;
  15.         NumericSeries MA4;
  16. Begin
  17.         MtMa(TimeFrame,BarsBack,Length1,oMA1);
  18.         MA1 = oMA1;
  19.         PlotNumeric("MA1",MA1);
  20.         MtMa(TimeFrame,BarsBack,Length2,oMA2);
  21.         MA2 = oMA2;
  22.         PlotNumeric("MA2",MA2);
  23.         MA3 = AverageFC(Close,Length3);
  24.         MA4 = AverageFC(Close,Length4);
  25.         PlotNumeric("MA3",MA3);
  26.         PlotNumeric("MA4",MA4);
  27.        
  28.        
  29.         If (MA1>MA2)                // 大周期均线金叉,多头趋势
  30.         {
  31.                 if (MarketPosition!=1 and MA3[1]>MA4[1])
  32.                 {
  33.                         Buy(Lots,Open);
  34.                 }
  35.                 if (MarketPosition==1 and MA3[1]<MA4[1])
  36.                 {
  37.                         Sell(Lots,Open);
  38.                 }
  39.         }
  40.         If (MA1<MA2)                // 大周期均线死叉,空头趋势
  41.         {
  42.                 if (MarketPosition!=-1 and MA3[1]<MA4[1])
  43.                 {
  44.                         SellShort(Lots,Open);
  45.                 }
  46.                 if (MarketPosition==-1 and MA3[1]>MA4[1])
  47.                 {
  48.                         BuyToCover(Lots,Open);
  49.                 }
  50.         }
  51. End
复制代码

使用道具 举报

Rank: 10Rank: 10Rank: 10

精华
0
UID
20842
积分
931
帖子
382
主题
2
阅读权限
255
注册时间
2010-12-3
最后登录
2022-2-15
发表于 2011-6-8 17:53:29 |显示全部楼层
如果上面的策略,我们不想用日线均线来判断大趋势,而改用小时线来判断,则只要将参数TimeFrame改为60, 就可以了。

使用道具 举报

Rank: 5Rank: 5

精华
0
UID
7099
积分
614
帖子
120
主题
22
阅读权限
60
注册时间
2010-3-3
最后登录
2019-3-24
发表于 2011-6-12 20:25:09 |显示全部楼层
本帖最后由 道勤 于 2011-6-12 20:58 编辑

很好很强大,慢慢学习。   使用起来非常方便啊,只要修改时间参数就行了,十分感谢!!

使用道具 举报

Rank: 4

精华
0
UID
5754
积分
531
帖子
115
主题
57
阅读权限
50
注册时间
2009-10-27
最后登录
2023-11-3
发表于 2011-6-13 01:23:20 |显示全部楼层
请问怎么在小时K线调用DMI的指标

使用道具 举报

Rank: 4

精华
0
UID
5754
积分
531
帖子
115
主题
57
阅读权限
50
注册时间
2009-10-27
最后登录
2023-11-3
发表于 2011-6-13 01:23:53 |显示全部楼层
请问怎么在小时K线调用日线DMI的指标

使用道具 举报

Rank: 10Rank: 10Rank: 10

精华
0
UID
20842
积分
931
帖子
382
主题
2
阅读权限
255
注册时间
2010-12-3
最后登录
2022-2-15
发表于 2011-6-13 01:40:52 |显示全部楼层
谢谢道勤的鼓励! 继续把其他几个常用指标的跨周期函数贴出来。
新建MtMacd函数,代码如下:
  1. Params
  2.         Numeric TimeFrame(1440);        // 目标时间周期参数,参数说明参见MtBar
  3.         Numeric BarsBack(1);         // 目标时间周期BAR偏移参数,说明见MtBar函数
  4.         Numeric FastLength(12);
  5.         Numeric SlowLength(26);
  6.         Numeric MACDLength(9);
  7.        
  8.         NumericRef oMACDValue;      // 以目标时间周期下的K线数据计算出的MACDValue
  9.         NumericRef oAvgMACD;        // 以目标时间周期下的K线数据计算出的AvgMACD

  10. Vars
  11.         NumericSeries mtBarCnt;
  12.         NumericSeries mtCurBar;
  13.         NumericSeries mtClose;
  14.         Numeric refCurBar;
  15.         Numeric refOpen;
  16.         Numeric refHigh;
  17.         Numeric refLow;
  18.         Numeric refClose;
  19.         Numeric refVol;
  20.         Numeric refOpenInt;
  21.        
  22.         NumericSeries MACDValue;
  23.         NumericSeries AvgMACD;
  24.         Numeric sFcactor;
  25.         NumericSeries XAvgValue1;
  26.         NumericSeries XAvgValue2;
  27.        
  28. Begin

  29.         mtBarCnt = MtBar(TimeFrame,BarsBack,refCurBar,refOpen,refHigh,refLow,refClose,refVol,refOpenInt);
  30.         mtCurBar = refCurBar;
  31.         mtClose = refClose;
  32.        
  33.         sFcactor = 2 / ( FastLength + 1 );
  34.         if (MtCurBar == 0 || XAvgValue1[mtBarCnt] == InvalidNumeric) XAvgValue1 = mtClose;
  35.         else XAvgValue1 = XAvgValue1[mtBarCnt] + sFcactor * ( mtClose - XAvgValue1[mtBarCnt] ) ;

  36.         sFcactor = 2 / ( SlowLength + 1 );
  37.         if (MtCurBar == 0 || XAvgValue2[mtBarCnt] == InvalidNumeric) XAvgValue2 = mtClose;
  38.         else XAvgValue2 = XAvgValue2[mtBarCnt] + sFcactor * ( mtClose - XAvgValue2[mtBarCnt] ) ;

  39.         MACDValue = XAvgValue1 - XAvgValue2;

  40.         sFcactor = 2 / ( MACDLength + 1 );
  41.         if (MtCurBar == 0 || AvgMACD[mtBarCnt] == InvalidNumeric) AvgMACD = MACDValue;
  42.         else AvgMACD = AvgMACD[mtBarCnt] + sFcactor * ( MACDValue - AvgMACD[mtBarCnt] ) ;

  43.         oMACDValue = MACDValue;
  44.         oAvgMACD = AvgMACD;
  45.         return mtBarCnt;
  46. End
复制代码

使用道具 举报

Rank: 10Rank: 10Rank: 10

精华
0
UID
20842
积分
931
帖子
382
主题
2
阅读权限
255
注册时间
2010-12-3
最后登录
2022-2-15
发表于 2011-6-13 01:57:13 |显示全部楼层
编译好上面的MtMacd函数后,以后就可以随时通过调用这个函数来显示跨周期的MACD指标,以及在小周期上根据大周期的MACD指标进行交易,下面继续举个例子,也是在V4中实现,把指标和交易指令放在一个公式应用中,注意要在“属性设置”中,设置成“子图显示”。这次简单点,没有做成多周期共振,只是简单地在5分钟图表上,根据30分钟的MACD指标交叉来进行交易,代码如下:
  1. Params
  2.         Numeric TimeFrame(30);                // 目标时间周期参数,参数说明参见MtBar
  3.         Numeric BarsBack(1);                 // 目标时间周期BAR偏移参数,说明见MtBar函数
  4.         Numeric FastLength(12);
  5.         Numeric SlowLength(26);
  6.         Numeric MACDLength(9);
  7.     Numeric Lots(1);
  8. Vars
  9.         NumericSeries MACDValue;
  10.         NumericSeries AvgMACD;
  11.         NumericSeries MACDDiff;
  12.         Numeric ooMACDValue;
  13.         Numeric ooAvgMACD;
  14.         Numeric PreBar;
  15. Begin
  16.         PreBar = MtMACD(TimeFrame,BarsBack,FastLength,SlowLength,MACDLength,ooMACDValue,ooAvgMACD);
  17.         MACDVAlue = ooMACDValue;
  18.         AvgMACD = ooAvgMACD;
  19.         MACDDiff = MACDValue - AvgMACD;

  20.         PlotNumeric("MACD",MACDValue);
  21.         PlotNumeric("MACDAvg",AvgMACD);
  22.         If (MACDDiff >= 0)       
  23.                 PlotNumeric("MACDDiff",MACDDiff,0,Red);
  24.         Else
  25.                 PlotNumeric("MACDDiff",MACDDiff,0,Green);
  26.         PlotNumeric("零线",0);

  27.         If (MacdDiff[PreBar]<0 and MacdDiff>0)
  28.         {
  29.                 Buy(Lots,Open);
  30.         }
  31.         If (MacdDiff[PreBar]>0 and MacdDiff<0)
  32.         {
  33.                 SellShort(Lots,Open);
  34.         }
  35. End
复制代码

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

bottom

静态版|手机版|联系我们|交易开拓者 ( 粤ICP备07044698   

GMT+8, 2024-3-19 11:25

Powered by Discuz! X2 LicensedChrome插件扩展

© 2011-2012 交易开拓者 Inc.

回顶部