快捷导航

开拓者期货期权程序化系统交易论坛 › 论坛 › 交流与讨论 › TradeBlazer公式 › 跨周期数据转换函数以及跨周期技术指标调用的实现 ...

1 2 3 4 567 8 9 10 ... 31 下一页

返回列表

楼主: 追涨杀跌

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

mm000yy

初级散户

Rank: 2

精华: 0
UID: 190860
积分: 64
帖子: 50
主题: 0
阅读权限: 30
注册时间: 2014-7-19
最后登录: 2015-5-14

252^#

发表于 2015-1-5 12:40:14 |只看该作者

追涨杀跌发表于 2011-6-13 01:40
谢谢道勤的鼓励！继续把其他几个常用指标的跨周期函数贴出来。
新建MtMacd函数，代码如下： ...

NumericRef 这种变量到底怎么用啊？实在是搞不懂。

使用道具举报

plz727

期市新手

Rank: 1

精华: 0
UID: 185065
积分: 2
帖子: 2
主题: 0
阅读权限: 10
注册时间: 2014-4-17
最后登录: 2014-12-18

251^#

发表于 2014-11-28 22:07:55 |只看该作者

以跨周期为学习线索，慢慢啃。

使用道具举报

huson130

期市新手

Rank: 1

精华: 0
UID: 182602
积分: 31
帖子: 19
主题: 10
阅读权限: 10
注册时间: 2014-3-16
最后登录: 2015-8-3

250^#

发表于 2014-11-28 15:07:43 |只看该作者

Else If (TimeFrame == 10080)                      // 周线
      {
            CurTime = IntPart(DateDiff(19700105,Date)/7);
            PreTime = IntPart(DateDiff(19700105,Date[1])/7);
想请教下老师，，Pretime里面的Data[1],为什么日期只往前挪了一天，周线就可以取前面一根呢？麻烦老师给讲下，谢谢。

使用道具举报

huson130

期市新手

Rank: 1

精华: 0
UID: 182602
积分: 31
帖子: 19
主题: 10
阅读权限: 10
注册时间: 2014-3-16
最后登录: 2015-8-3

249^#

发表于 2014-11-27 23:38:24 |只看该作者

太牛了。。。膜拜追涨杀跌老师~~~~

使用道具举报

小米

超级版主

Rank: 10

精华: 3
UID: 5
积分: 26584
帖子: 12686
主题: 49
阅读权限: 200
注册时间: 2007-7-20
最后登录: 2021-11-3

248^#

发表于 2014-11-24 14:10:09 |只看该作者

leonying 发表于 2014-11-24 13:26
请“追涨杀跌”老师或此论坛上的大牛指导下：如何在1m里跨周期显示3m的当前macd值，而不是跨周期显示前一 ...

将BtBar函数里的barback这个参数的值设为0即可。。

使用道具举报

leonying

期市新手

Rank: 1

精华: 0
UID: 190379
积分: 3
帖子: 3
主题: 0
阅读权限: 10
注册时间: 2014-7-11
最后登录: 2014-11-24

247^#

发表于 2014-11-24 13:26:27 |只看该作者

请“追涨杀跌”老师或此论坛上的大牛指导下：如何在1m里跨周期显示3m的当前macd值，而不是跨周期显示前一个macd的值？请指导下。谢！

使用道具举报

haoliangbohai

初级散户

Rank: 2

精华: 0
UID: 194546
积分: 65
帖子: 47
主题: 13
阅读权限: 30
注册时间: 2014-9-29
最后登录: 2017-11-16

246^#

发表于 2014-11-18 19:55:13 |只看该作者

很牛，很好很强大

使用道具举报

leonying

期市新手

Rank: 1

精华: 0
UID: 190379
积分: 3
帖子: 3
主题: 0
阅读权限: 10
注册时间: 2014-7-11
最后登录: 2014-11-24

245^#

发表于 2014-11-4 11:10:23 |只看该作者

请问“追涨杀跌”老师，如何在1m里跨周期显示3m的当前macd值，而不是跨周期显示前一个macd的值？请指导下。谢！

使用道具举报

cgzx101427

期市新手

Rank: 1

精华: 0
UID: 126091
积分: 10
帖子: 6
主题: 3
阅读权限: 10
注册时间: 2011-1-1
最后登录: 2014-11-30

244^#

发表于 2014-11-2 22:49:18 |只看该作者

SAR 跨周期函数

Params
Numeric TimeFrame(1440); // 目标时间周期：月线=40320，周线=10080，日线=1440，4小时线=240
// 其他1小时内的周期等于相应的分钟数，如：1小时=60， 30分钟=30。
// 支持不规则分钟数，如3分钟，8分钟等。注：目标周期即是长时间框架的周期
Numeric BarsBack(1); // 目标时间周期BAR偏移：
// 1--表示将目标时间周期下的前1根K线数据作为与当前Bar对应的目标时间周期下的K线数据
// 0--表示将目标时间周期下的截止到目前为止的数据转换为与当前BAR对应的目标时间周期下K线数据
Numeric AfStep(0.02);
Numeric AfLimit(0.2);
NumericRef oParOpen;
NumericRef oPosition;
Vars
Numeric oCurBar; // 目标时间周期下的Bar索引
Numeric oOPenHT; // 目标时间周期下的开盘价
Numeric oHighHT; // 目标时间周期下的最高价
Numeric oLowHT; // 目标时间周期下的最低价
Numeric oCloseHT; // 目标时间周期下的收盘价
Numeric oVolHT; // 目标时间周期下的成交量
Numeric oOpenIntHT; // 目标时间周期下的持仓量
Numeric oTransition;
Numeric oParClose;
NumericSeries barCnt;
NumericSeries CurBar;
NumericSeries barCntSum;
NumericSeries OpenHT;
NumericSeries HighHT;
NumericSeries LowHT;
NumericSeries CloseHT;
NumericSeries VolHT;
NumericSeries OpenIntHT;
Numeric CurTime;
Numeric PreTime;
bool condition(false);
Numeric i;
NumericSeries Af(0);
NumericSeries ParOpen(0);
NumericSeries Position(0);
NumericSeries HHValue(0);
NumericSeries LLValue(0);
Begin
//跨周期函数 -------------------------------------------------------------------------------
If (TimeFrame == 40320) // 月线
{
CurTime = Month;
PreTime = Month[1];
}
Else If (TimeFrame == 10080) // 周线
{
CurTime = IntPart(DateDiff(19700105,Date)/7);
PreTime = IntPart(DateDiff(19700105,Date[1])/7);
}
Else // 其他时间周期
{
CurTime = IntPart((DateDiff(19700105,date)*1440 + Hour*60 + Minute)/TimeFrame);
PreTime = IntPart((DateDiff(19700105,date[1])*1440 + Hour[1]*60 + Minute[1])/TimeFrame);
}
condition = CurTime!=PreTime;
If (CurrentBar==0) // 如果是第一根Bar, CurBar=0
{
barCnt = 0;
CurBar = 0;
OpenHT = Open;
HighHT = High;
LowHT = Low;
CloseHT = Close;
VolHT = Vol;
OpenIntHT = OpenInt;
}
Else
{
If(Condition)
// 如果在目标周期下，属于另一根K线，则CurBar加1
{
barCnt = 1;
CurBar = CurBar[1] + 1;
OpenHT = Open;
HighHT = High;
LowHT = Low;
VolHT = Vol;
}Else
// 如果在目标周期下，属于同一根K线，则CurBar不变，但最高价和最低价要记录价格的变化，成交量要累加
{
barCnt = barCnt[1] + 1;
CurBar = CurBar[1];
OpenHT = OpenHT[1];
HighHT = Max(HighHT[1],High);
LowHT = Min(LowHT[1],Low);
VolHT = VolHT[1] + Vol;
}
// 收盘价和持仓量总是取最新值
CloseHT = Close;
OpenIntHT = OpenInt;
}
// 上面的程序，在每根小周期的K线上，记录了它所属的大时间周期下的开高低收等值的变化。
// 接下来，要把在大的时间周期级别上，属于同一根K线的开高低收这些数据，记录在这一组小周期K线的最后一根上。
barCntSum = barCnt ;
If(BarsBack == 0) // 如果Bar偏移参数为0，则取每根小周期K线上保留的大时间周期截止到这根小周期K线为止的BAR数据
{
barCntSum = 0 ;
}Else If(BarsBack == 1) // 如果Bar偏移参数为1，则取大时间周期的上一根K线的BAr数据
{
barCntSum = barCnt ;
}Else // 如果BAR偏移参数为其他，则取大时间周期的指定偏移后的那根K线的BAR数据
{
For i = 2 To BarsBack
{
barCntSum = barCntSum + barCnt[barCntSum];
}
}
// 最后将相应的K线数据作为引用参数返回
oCurBar = CurBar;
oOpenHT = OpenHT[barCntSum];
oHighHT = HighHT[barCntSum];
oLowHT = LowHT[barCntSum];
oCloseHT = CloseHT[barCntSum];
oVolHT = VolHT[barCntSum];
oOpenIntHT = OpenIntHT[barCntSum];
//-------------------------------------------------------------------------------------------
//SAR值算法------------------------------------------------------------------------------------------
If (curBar == 1 and Condition)
{
Position = 1 ;
oTransition = 1 ;
Af = AfStep ;
HHValue = HighHT[barCntSum] ;
LLValue = LowHT[barCntSum] ;
oParClose = LLValue ;
ParOpen = oParClose + Af * ( HHValue - oParClose) ;
If (ParOpen > LowHT[barCntSum])
{
ParOpen = LowHT[barCntSum] ;
}
}Else If(CurBar>1 and condition)
{
oTransition = 0 ;
If (HighHT[barCntSum] > HHValue[barCntSum+BarCnt])
{
HHValue = HighHT[barCntSum];
}Else
{
HHValue = HHValue[barCntSum+BarCnt];
}
If (LowHT[barCntSum] < LLValue[barCntSum+BarCnt])
{
LLValue = LowHT[barCntSum];
}Else
{
LLValue = LLValue[barCntSum+BarCnt];
}
If ( Position[barCntSum+BarCnt] == 1)
{
If ( LowHT[barCntSum] <= ParOpen[barCntSum+BarCnt])
{
Position = -1 ;
oTransition = -1 ;
oParClose = HHValue ;
HHValue = HighHT[barCntSum] ;
LLValue = LowHT[barCntSum] ;
Af = AfStep ;
ParOpen = oParClose + Af * ( LLValue - oParClose ) ;
If (ParOpen < HighHT[barCntSum])
{
ParOpen = HighHT[barCntSum] ;
}
If (ParOpen < HighHT[barCntSum+BarCnt])
{
ParOpen = HighHT[barCntSum+BarCnt] ;
}
}Else
{
Position = Position[barCntSum+BarCnt];
oParClose = ParOpen[barCntSum+BarCnt] ;
If (HHValue > HHValue[barCntSum+BarCnt] and Af[barCntSum+BarCnt] < AfLimit )
{
If(Af[barCntSum+BarCnt]+AfStep > AfLimit)
{
Af = AfLimit ;
}Else
{
Af = Af[barCntSum+BarCnt]+AfStep;
}
}Else
{
Af = Af[barCntSum+BarCnt];
}
ParOpen = oParClose + Af * ( HHValue - oParClose ) ;
If (ParOpen > LowHT[barCntSum])
{
ParOpen = LowHT[barCntSum] ;
}
If (ParOpen > LowHT[barCntSum+BarCnt])
{
ParOpen = LowHT[barCntSum+BarCnt];
}
}
}Else
{
If (HighHT[barCntSum] >= ParOpen[barCntSum+BarCnt])
{
Position = 1 ;
oTransition = 1 ;
oParClose = LLValue ;
HHValue = HighHT[barCntSum] ;
LLValue = LowHT[barCntSum] ;
Af = AfStep ;
ParOpen = oParClose + Af * ( HHValue - oParClose) ;
If (ParOpen > LowHT[barCntSum])
{
ParOpen = LowHT[barCntSum] ;
}
If (ParOpen > LowHT[barCntSum+BarCnt])
{
ParOpen = LowHT[barCntSum+BarCnt];
}
}Else
{
Position = Position[barCntSum+BarCnt];
oParClose = ParOpen[barCntSum+BarCnt];
If (LLValue < LLValue[barCntSum+BarCnt] And Af[barCntSum+BarCnt] < AfLimit )
{
If(Af[barCntSum+BarCnt]+AfStep > AfLimit)
{
Af = AfLimit ;
}Else
{
Af = Af[barCntSum+BarCnt]+AfStep;
}
}Else
{
Af = Af[barCntSum+BarCnt];
}
ParOpen = oParClose + Af * ( LLValue - oParClose ) ;
If (ParOpen < HighHT[barCntSum])
{
ParOpen = HighHT[barCntSum] ;
}
If (ParOpen < HighHT[barCntSum+BarCnt])
{
ParOpen = HighHT[barCntSum+BarCnt] ;
}
}
}
}
oParOpen = ParOpen;
oPosition = Position;
Return True;
end

复制代码

使用道具举报

duck_arrow

高级散户

Rank: 4

精华: 0
UID: 115197
积分: 307
帖子: 23
主题: 9
阅读权限: 50
注册时间: 2013-1-28
最后登录: 2018-8-6

243^#

发表于 2014-10-27 22:45:26 |只看该作者

CMI跨周期函数

Params
      Numeric TimeFrame(1440);    // 目标时间周期参数，参数说明参见MtBar
      Numeric BarsBack(1);       // 目标时间周期BAR偏移参数，说明见MtBar函数
      Numeric Length(30);       // 均线周期
      NumericRef oCMI;          // 以目标时间周期下的K线数据计算出的移动平均线
Vars
      NumericSeries mtBarCnt;
      NumericSeries mtClose;
NumericSeries mtHigh;
NumericSeries mtLow;
      NumericSeries HighestValue;
      NumericSeries LowestValue;
      Numeric refCurBar;
      Numeric refOpen;
      Numeric refHigh;
      Numeric refLow;
      Numeric refClose;
      Numeric refVol;
      Numeric refOpenInt;
Numeric Num(0);
Numeric Denom(1);
      Numeric i;
      Numeric j(0);
Begin
      mtBarCnt = MtBar(TimeFrame,BarsBack,refCurBar,refOpen,refHigh,refLow,refClose,refVol,refOpenInt);
      mtClose = refClose;
mtHigh = refHigh;
mtLow = refLow;
HighestValue = mtHigh;
      LowestValue = mtLow;
      For i = 1 to Length - 1
      {
            j = j + mtBarCnt[j];
            If (mtHigh[j] == InvalidNumeric) HighestValue = InvalidNumeric;
            Else If ( mtHigh[j] > HighestValue) HighestValue = mtHigh[j];
            If (mtLow[j] == InvalidNumeric) LowestValue = InvalidNumeric;
            Else If ( mtLow[j] < LowestValue) LowestValue = mtLow[j];
      }
Denom = HighestValue - LowestValue;
Num = mtClose[Length-1] - mtClose;
Num = Abs(Num);
oCMI = 0.0;
If(Denom <> 0)
{
oCMI = (Num / Denom) * 100;
}
      Return mtBarCnt;
End

使用道具举报

1 2 3 4 567 8 9 10 ... 31 下一页

返回列表

bottom

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

GMT+8, 2024-5-4 04:51

		自动登录	找回密码
密码			注册