跨周期数据转换函数以及跨周期技术指标调用的实现

flyfish

参考了mtmacd和mtkdj，尝试写了mtWR，不知道有没有问题，请高手看看

Params
        Numeric TimeFrame(15); // 目标时间周期参数，参数说明参见MtBar
        Numeric BarsBack(1); // 目标时间周期BAR偏移参数，说明见MtBar函数
        Numeric Length(30); // 均线周期

        NumericRef oWRvalue; // 以目标时间周期下的K线数据计算出的WR值
Vars
        NumericSeries mtBarCnt;
        Numeric refCurBar;
        Numeric refOpen;
        Numeric refHigh;
        Numeric refLow;
        Numeric refClose;
        Numeric refVol;
        Numeric refOpenInt;

        NumericSeries mtHigh;
        NumericSeries mtLow;
        NumericSeries mtClose;
        Numeric HH;
        Numeric Divisor;
Begin
        mtBarCnt = MtBar(TimeFrame,BarsBack,refCurBar,refOpen,refHigh,refLow,refClose,refVol,refOpenInt);
        mtHigh = refHigh;
        mtLow = refLow;
        mtClose = refClose;
        HH = Highest(mtHigh, Length);
        Divisor = HH - Lowest(mtLow, Length);
        If(Divisor <> 0) oWRvalue = 100 - (HH-mtClose)/Divisor*100;
        Else oWRvalue = Divisor;
        Return mtBarCnt;
End

flyfish

测试了一下MtWR，似乎不对，计算出来的目标周期的WR值不正确。

Params
        Numeric TimeFrame(15);
        Numeric BarsBack(1);   
        Numeric Length(30);                        
Vars
        NumericSeries WRvalue;
                Numeric oWRvalue;
        Numeric PreBar;
Begin
        PreBar = MtWR(TimeFrame,BarsBack,Length,oWRvalue);
        WRvalue = oWRvalue;

        PlotNumeric("WR",WRvalue);
        PlotNumeric("Ref1",20);
        PlotNumeric("Ref2",80);
End

flyfish

找到问题了，原来是5m周期下的Length设置不对。

比如我想计算15m周期下的WR(30)，那么在5m周期下就要计算MTWR(90)才行。计算MTWR(30)就不对了。

慕容表哥

很好很强大，留个板凳，慢慢细看

6481830

好贴。花了一个上午认真看代码，总算搞明白了。

guguzhang

老师帮我写个SAR的跨周期策略（5分钟取30分钟的SAR呢）？

guguzhang

老师帮我写个SAR的跨周期策略（5分钟取30分钟的SAR呢）？

慕容表哥

看得半懂半不懂的，哪位大大来帮忙解惑

CurTime，PreTime 分别代表是么意思，dateDiff为何起点从19700105开始

慕容表哥

慕容表哥 发表于 2012-10-24 13:56
看得半懂半不懂的，哪位大大来帮忙解惑

CurTime，PreTime 分别代表是么意思，dateDiff为何起点从19700105 ...

哪位大大帮忙“详细解释”下下面对时间处理的代码？
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;

洪涛股份

老大，在1分钟周期里面怎么获取5日均线的数据呢？