恳请fish0451出手 移植个mt4的好公式--qqe

bluefox

您移植的stepma感觉很棒 偶然看到qqe这个指标 脱胎于rsi 感觉不错 但很多mt4代码看不懂 能否移植一下 谢谢
//+------------------------------------------------------------------+
//|            Qualitative Quantitative Estimation Indicator for Metatrader 4 |
//|            Copyright © 2006Roman Ignatov |
//|             mailto:roman.ignatov@gmail.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 200 Roman Ignatov"
#property link      "mailto:roman.ignatov@gmail.com  "

#property indicator_separate_window

#property indicator_buffers 2

#property indicator_color1 Navy
#property indicator_style1 STYLE_SOLID
#property indicator_width1 2

#property indicator_color2 Navy
#property indicator_style2 STYLE_DOT


extern int SF = 5;

int RSI_Period = 14;
int Wilders_Period;
int StartBar;

double TrLevelSlow[];
double AtrRsi[];
double MaAtrRsi[];
double Rsi[];
double RsiMa[];

int init()
{
    Wilders_Period = RSI_Period * 2 - 1;
    if (Wilders_Period < SF)
        StartBar = SF;
    else
        StartBar = Wilders_Period;
        
    IndicatorBuffers(6);
    SetIndexBuffer(0, RsiMa);
    SetIndexStyle(0, DRAW_LINE, STYLE_SOLID, 2);
    SetIndexLabel(0, "Value 1");
    SetIndexDrawBegin(0, StartBar);
    SetIndexStyle(1, DRAW_LINE, STYLE_DOT);
    SetIndexBuffer(1, TrLevelSlow);
    SetIndexLabel(1, "Value 2");
    SetIndexDrawBegin(1, StartBar);
    SetIndexBuffer(2, AtrRsi);
    SetIndexBuffer(3, MaAtrRsi);
    SetIndexBuffer(4, Rsi);
    IndicatorShortName(StringConcatenat  e("QQE(", SF, ")"));
    return(0);
}


int start()
{
    int counted, i;
    double rsi0, rsi1, dar, tr, dv;
   
    if(Bars <= StartBar)
        return (0);

    counted = IndicatorCounted();
    if(counted < 1)
        for(i = Bars - StartBar; i < Bars; i++)
        {
            TrLevelSlow = 0.0;
            AtrRsi = 0.0;
            MaAtrRsi = 0.0;
            Rsi = 0.0;
            RsiMa = 0.0;
        }
   
    counted = Bars - counted - 1;
        
    for (i = counted; i >= 0; i--)
        Rsi = iRSI(NULL, 0, RSI_Period, PRICE_CLOSE, i);

    for (i = counted; i >= 0; i--)
    {
        RsiMa = iMAOnArray(Rsi, 0, SF, 0, MODE_EMA, i);
        AtrRsi = MathAbs(RsiMa[i + 1] - RsiMa);
    }

    for (i = counted; i >= 0; i--)
        MaAtrRsi = iMAOnArray(AtrRsi, 0, Wilders_Period, 0, MODE_EMA, i);

    i = counted + 1;
    tr = TrLevelSlow;
    rsi1 = iMAOnArray(Rsi, 0, SF, 0, MODE_EMA, i);
    while (i > 0)
    {
        i--;
        rsi0 = iMAOnArray(Rsi, 0, SF, 0, MODE_EMA, i);
        dar = iMAOnArray(MaAtrRsi, 0, Wilders_Period, 0, MODE_EMA, i) * 4.236;

        dv = tr;
        if (rsi0 < tr)
        {
            tr = rsi0 + dar;
            if (rsi1 < dv)
                if (tr > dv)
                    tr = dv;
        }
        else if (rsi0 > tr)
        {
            tr = rsi0 - dar;
            if (rsi1 > dv)
                if (tr < dv)
                    tr = dv;
        }
        TrLevelSlow = tr;
        rsi1 = rsi0;
    }
   
    return(0);
}

bluefox

上个效果图 最下面的指标就是qqe

funnyhaah

这个图怎么看着这么诡异呢？

cfmx2007

都不上传上来，谁能帮你改啊。。。

fish0451

好！先收藏了，周末看看。

wk668668

这个看起很高超样，帮你顶！ 期待高手出招！！！

hedgehog

mt4如此有名，果然不是盖的啊，看画面确实不错

bluefox

//------------------------------------------------------------------------
// 简称: rsi
// 名称: rsi
// 类别: 用户函数
// 类型: 内建函数
// 输出: 数值型
//------------------------------------------------------------------------

Params
        Numeric Length(14) ;

Vars
        NumericSeries NetChgAvg( 0 );
        NumericSeries TotChgAvg( 0 );
        Numeric Change( 0 );
        Numeric SF( 0 );
        Numeric ChgRatio( 0 ) ;
        Numeric RSIValue;
Begin
        SF = 1/Length;
        If(CurrentBar < Length)
        {
                RSIValue = InvalidNumeric;
        }Else
        {
                If(CurrentBar == Length)
                {
                        NetChgAvg = ( Close - Close[Length] ) / Length ;
                        TotChgAvg = AverageFC( Abs( Close - Close[1] ), Length ) ;
                }
               
                If(CurrentBar>length)
                {
                        Change = Close - Close[1] ;
                        NetChgAvg = NetChgAvg[1] + SF * ( Change - NetChgAvg[1] ) ;
                        TotChgAvg = TotChgAvg[1] + SF * ( Abs( Change ) - TotChgAvg[1] ) ;
                }
               
                If( TotChgAvg <> 0 )
                {
                        ChgRatio = NetChgAvg / TotChgAvg ;
                }else
                {
                        ChgRatio = 0 ;
                }
               
                RSIValue = 50 * ( ChgRatio + 1 ) ;
        }

        Return rsivalue;
End

//------------------------------------------------------------------------
// 编译版本        GS2004.06.12
// 用户版本        2009/02/28 10:04
// 版权所有         
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

bluefox

另 在tb中 ema对应函数XAverage

fish0451

//------------------------------------------------------------------------
// 简称: qqe
// 名称:
// 类别: 技术指标
// 类型: 其它类
// 输出:
//------------------------------------------------------------------------
Params
        Numeric SF(5);                       
        Numeric RSI_Period(14);       
        Numeric rat(4.236);
Vars
        NumericSeries TrLevelSlow(0);       
        NumericSeries AtrRsi(0);       
        NumericSeries MaAtrRsi(0);       
        NumericSeries Rsi(0);
        NumericSeries RsiMa(0);
        Numeric Wilders_Period(0);       
        Numeric dar(0);       
        NumericSeries  smin(0);
    NumericSeries  smax(0);
        NumericSeries p;
       
Begin
        Wilders_Period=RSI_Period * 2 - 1;
        If(BarStatus==0)
        {
                 TrLevelSlow=0;
         AtrRsi=0;
         MaAtrRsi=0;
         Rsi=0;
         RsiMa=0;
                 p=0;
        }
        if(CurrentBar>RSI_Period)
        {
                Rsi=iRSI(Close,RSI_Period);
                RsiMa=XAverage(Rsi,SF);
                AtrRsi=Abs(RsiMa[1] - RsiMa);
                MaAtrRsi=XAverage(AtrRsi,Wilders_Period);
                dar=XAverage(MaAtrRsi,Wilders_Period) * rat;       
                smax=RsiMa+dar;
                smin=RsiMa-dar;

                p=p[1];

                if (RsiMa>smax[1]) {p=1; }         
                if (RsiMa<smin[1]) {p=-1;}

                if(p>0)
          {
                if(smin<smin[1])
                        smin=smin[1];
                TrLevelSlow=smin;
                if(TrLevelSlow<TrLevelSlow[1])
                        TrLevelSlow=TrLevelSlow[1];
          }
          Else
          {
                if(smax>smax[1])
                        smax=smax[1];
                TrLevelSlow=smax;
                if(TrLevelSlow>TrLevelSlow[1])
                        TrLevelSlow=TrLevelSlow[1];
          }
                PlotNumeric("RsiMa",RsiMa);
                PlotNumeric("TrLevelSlow",TrLevelSlow);
        }

End


//------------------------------------------------------------------------
// 编译版本        GS2004.06.12
// 用户版本        2009/02/28 20:14
// 版权所有        fish0451
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------