1分钟图形下计算30分钟ATR的程序

1. 新建用户函数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. 新建技术指标，命名为My30MinsATR，代码如下：

Params

        Numeric Length(10);

Vars

        NumericSeries MyClose;

        NumericSeries MyHigh;

        NumericSeries MyLow;

        Numeric AvgTrueHigh;

        Numeric AvgTrueLow;

        Numeric SumValue(0);

        Numeric Value1;

        Numeric i;

Begin

        MyClose = DataConvert(Close,"min",30,"Close");

        MyHigh = DataConvert(High,"min",30,"High");

    MyLow = DataConvert(Low,"min",30,"Low");



        For i = Length-1 DownTo 0

        {

                Value1 = Max(TransMinsData(MyClose,30,i+1),TransMinData(MyHigh,30,i));

                SumValue = SumValue + Value1;

        }

        AvgTrueHigh = SumValue/Length;

        

        SumValue = 0;

        For i = Length-1 DownTo 0

        {

                Value1 = Min(TransMinsData(MyClose,30,i+1),TransMinData(MyLow,30,i));                

                SumValue = SumValue + Value1;

        }

        AvgTrueLow = SumValue/Length;



        PlotNumeric("My30MinATR",AvgTrueHigh-AvgTrueLow);

End

3. 在使用时需根据参数设置合适数量的分钟线，另外，该函数因为用到了循环语句，如果周期参数设置太大，计算时会比较慢。
   程序化交易, TradeBlazer, 跨周期,

                                                    风险提示及免责条款

市场有风险，投资需谨慎。本文不构成个人投资建议，也未考虑到个别用户特殊的投资目标、财务状况或需要。用户应考虑本文中的任何意见、观点或结论是否符合其特定状况。据此投资，责任自负。

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！