深圳风采2018048: 新写开拓者 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  点击在线交流进行 有偿 编写!不贵!点击查看价格!

 


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

相关文章

    没有相关内容
 
  • “中国网事·感动2017” 年度网络人物评选专家评审会在京召开 2019-03-27
  • 鄱阳湖花海:文明仍应成为最美风景 2019-03-25
  • 回复@IP比ID好:你的意思是不分老少不分男女不分勤懒不分聪笨……想干啥就干啥?或配置同样多的资源? 2019-03-25
  • 患了类风湿性关节炎,要不要忌口? 2019-03-24
  • 宝马中国创新日暨上海研发中心揭幕 专注于高新技术 2019-03-24
  • 悠长暑假荧屏满溢青春气息 2019-03-24
  • 国家级·西安经济技术开发区————西部网 陕西头条 2019-03-23
  • 2018沃尔沃北区世界杯之夜 2019-03-23
  • 拜腾概念车局部图曝光 将于6月12日全球首发 2019-03-22
  • 先生的这个跟帖,很有“核心意识和看齐意识”。 2019-03-22
  • 婚车停道路中间新人下车跳舞 交警一经查实将严处 2019-03-21
  • 成都与诗文中的“西楼” 2019-03-21
  • 置业指南:盘点沙坪坝在售楼盘 2019-03-20
  • 网友自嘲工资拖后腿 专家:衡量个人收入需更多数据 2019-03-19
  • 央视曝光“云南不合理低价游” 重庆涉事旅行社被罚30万元 2019-03-19
  • 745| 472| 425| 222| 924| 672| 310| 355| 370| 279|