深圳风采计划: 新写开拓者 TB 1分钟图形下计算60分钟WR的程序[开拓者公式]

  • 因为编写的策略需要用到跨周期,最近研究了论坛里面的跨周期内容集中贴里面的内容,编写了这个WR的跨周期程序??墒歉崭战哟B没多久,不知道编写有无纰漏,所以贴出来请大家指正,谢了。

    1、首先使用了管理员nopain大虾提供的用户函数TransMinsData

    Params
            NumericSeries Price(1);
            Numeric nMinSet(5);
            Numeric MinsAgo(2);
    Vars
            NumericSeries barCnt;
            NumericSeries MinData;
            Numeric i;
            Numeric j;
            Numeric nIndex(0);
    Begin
            If(IntPart(Minute%nMinSet)==0)
            {
                    barCnt = 1;
            }Else
            {
                    barCnt = barCnt[1] + 1;
            }
            MinData = Price;
                   
            If(MinsAgo == 0)
            {
                    return MinData;
            }Else
            {
                    For i = 1 To MinsAgo
                    {
                            If( i == 1)
                            {        
                                    j = 0;
                            }Else
                            {
                                    j = j + BarCnt[j];                                
                            }
                            If (j > CurrentBar ) Return InvalidNumeric;
                            nIndex = nIndex + BarCnt[j];
                    }
                    Return MinData[nIndex];
            }
    End


    2、1分钟图形下计算60分钟WR的程序
    新建技术指标,命名为My60minsWR,代码如下:


    Params
            Numeric Length(5);
    Vars
            Numeric Divisor;
            Numeric PRValue;
            Numeric HighestValue;
            Numeric i;
            Numeric LowestValue;
            NumericSeries MyHigh;
                    NumericSeries MyLow;
            NumericSeries MyClose;
    Begin
            MyHigh = DataConvert(High,"min",60,"High");
                    MyLow = DataConvert(Low,"min",60,"Low");
            MyClose = DataConvert(Close,"min",60,"Close");
            HighestValue = MyHigh;
            LowestValue = MyLow;       

            For i = Length-1 DownTo 0
            {
                    If(TransMinsData(MyHigh,60,i) > HighestValue)
                            HighestValue = TransMinsData(MyHigh,60,i);
            }

            For i = Length-1 DownTo 0
            {
                    If(TransMinsData(MyLow,60,i) < LowestValue)
                            LowestValue = TransMinsData(MyLow,60,i);
             }

            Divisor =HighestValue - LowestValue;
            If (Divisor <> 0 )
            PRValue = (MyClose - HighestValue)/Divisor * 100;
            else
                    PRValue = Divisor;
            PlotNumeric("WR",PRValue);

    End

     

福利彩票深圳风采开奖 www.ucl52.cn  

有思路,想编写各种指标公式,程序化交易模型,选股公式,预警公式的朋友

可联系技术人员 QQ: 262069696  点击在线交流进行 有偿 编写!不贵!点击查看价格!

 


【字体: 】【打印文章】【查看评论

相关文章

    没有相关内容
 
  • 大同文化旅游商品创意设计大赛启动 2019-05-25
  • [微笑]你说的这种情况越来越少了,一是人们的素质都在不断提高,二是有相应的管理机制。 2019-05-24
  • 就算平时再怎么会穿,她们都还是会有穿错的时候! 2019-05-23
  • 韩国前总统李明博体力不支 用拳头撑墙走进法庭受审 2019-05-22
  • 第十届全国优秀生产力理论与实践成果奖在京揭晓 2019-05-21
  • 上合国家青年的“青岛情缘” 2019-05-20
  • 赵旭日:对阵恒大很有缘 比赛要一场一场去踢 2019-05-19
  • 北京构建砂石骨料绿色供应链 绿色运输可减少百万吨碳排放 2019-05-19
  • 85后女青年刘阿娟带领果农发展绿色无公害果品 2019-05-18
  • 传媒期刊秀:《对外传播》 2019-05-17
  • 玉竹斑斑,【端午节】快乐![放鞭炮][大笑] 2019-05-16
  • 少1人战世界杯!克罗地亚锋霸确认被开除 2019-05-16
  • 感受冬季渔猎奇观 30名专业冬捕师现场示范 2019-05-15
  • 滴滴,你的“美好出行”承诺何时能兑现 2019-05-15
  • 你爱看的极简艺术史:5分钟一览中华书法四千年 2019-05-14
  • 405| 996| 277| 743| 569| 689| 322| 510| 170| 414|