// 简称: RSI_test

// 名称: 相对强弱指数测试版

// 类别: 技术指标

// 类型: 其它类

// 输出:

//------------------------------------------------------------------------

Params

    Numeric  Length(14);

        Numeric  Oversold(30);

        Numeric  Overbought(70);

Vars

    Numeric  Upvalue(0);

        Numeric  Downvalue(0);

        Numeric  i;

    Numeric  RSvalue;

        Numeric  RSIvalue;

Begin

    If(CurrentBar < Length )

           RSIvalue = InvalidNumeric;

        Else

           For i = length - 1 DownTo 0

             {

                    If(Close > Close[i+1])

                          {

                             Upvalue = Upvalue + Close;

                          }

                        Else If(Close < Close[i+1])

              {

                             Downvalue = Downvalue + Close;

                          }                        

                        RSvalue = (Upvalue/Length)/(Downvalue/Length);

            RSIvalue = 100*RSvalue/(1+RSvalue);                         

                 }

        PlotNumeric("RSI",RSIvalue);

    PlotNumeric("超买",Overbought);

    PlotNumeric("超卖",Oversold);

End

//------------------------------------------------------------------------

// 编译版本        GS2004.06.12

// 用户版本        2009/09/06 08:57

// 版权所有        larsir

// 更改声明        TradeBlazer Software保留对TradeBlazer评台

//                        每一版本的TrabeBlazer公式修改和重写的权利

//------------------------------------------------------------------------