Duyuru

Collapse
Henüz duyuru yok

Rsi Mini Max with Support and Resistance for Amibroker (AFL)

Collapse
X
 
  • Filtreleme
  • Zaman
  • Göster
Hepsini Sil
yeni mesajlar

  • Rsi Mini Max with Support and Resistance for Amibroker (AFL)

    _SECTION_BEGIN("RSI(14,30,70)MinMax");
    SetChartOptions(0,0,chartGrid30|chartGrid50|chartG rid70);
    periods = Param( "Periods", 14, 1, 200, 1 );
    maxClip = Param( "maxClip", 70, 1, 100, 1 );
    minClip = Param( "minClip", 30, 1, 100, 1 );
    Plot( RSI(periods),"",colorCustom12,styleLine+styleThick );
    r = RSI(periods);
    PlotOHLC( r,r,50,r, "", IIf( r > 50, colorRed, colorBrightGreen), styleCloud |styleNoLabel | styleClipMinMax, minClip, maxClip );
    _SECTION_END();
    Plot( 30 , "", colorDarkRed);
    Plot(50, "", colorDarkRed,styleDashed);
    Plot(70, "", colorDarkRed);
    numbars = LastValue(Cum(Status("barvisible")));
    fraction= IIf(StrRight(Name(),3) == "",3.2,3.2);
    hts = Param ("Text Shift", -50,-100,100,10);
    PlotText(">>" + WriteVal(C,fraction),
    SelectedValue(BarIndex()+1)-(numbars/hts),SelectedValue(r),colorWhite);
    PlotText("Bot= " + WriteVal(30,fraction),
    SelectedValue(BarIndex()+2)-(numbars/hts),SelectedValue(30),colorDarkRed);
    PlotText("Top= " + WriteVal(70,fraction),
    SelectedValue(BarIndex()+2)-(numbars/hts),SelectedValue(70),colorDarkRed);
    _SECTION_END();



    _SECTION_BEGIN("TD Fractl LINE");
    strength = Param("Strength",1,1,15,1);
    pR=PeakBars(RSI(14),strength)==0;
    PlotShapes(shapeSmallCircle*pR,colorWhite,0,r,0);
    _SECTION_END();

    _SECTION_BEGIN("TD Fractl LINE");
    pS =TroughBars(RSI(14),strength)==0;
    PlotShapes(shapeSmallCircle*pS,colorYellow,0,r,0);
    _SECTION_END();

    _SECTION_BEGIN("Price Risistance");
    RT=SelectedValue(ValueWhen(pR,r));
    ST=SelectedValue(ValueWhen(pS,r));
    Plot(RT,"",colorCustom7,styleThick);
    Plot(ST,"",colorYellow,styleThick);
    _SECTION_END();


    _SECTION_BEGIN("RT,ST ");
    { GfxSelectFont("Arial",11, 700 );
    GfxSetBkMode(1);
    GfxSetTextColor(colorCustom12);
    GfxTextOut("RT= "+WriteVal(H,format=1.2)+"",930,1);
    GfxSetTextColor(colorYellow);
    GfxTextOut("ST= "+WriteVal(L,format=1.2)+"",930,20);

    }
    _SECTION_END();



    _SECTION_BEGIN("Buy/Sell Arrows");
    shapesswitch = ParamToggle("Arrows","On,Off",1);
    UPcolor = ParamColor( "UP Color", colorBlue );
    DOWNcolor = ParamColor( "Down Color", colorRed );
    Buy=Cross( RSI( periods), 30 );
    Sell=Cross( 70, RSI( periods) );
    shape = Buy * shapeSmallUpTriangle + Sell * shapeSmallDownTriangle;
    PlotShapes( IIf(shapesswitch,-1e10,shape), IIf( Buy, UPcolor, DOWNcolor ));
    _SECTION_END();

    _SECTION_BEGIN("EMA Time Frame");
    r= RSI(14);
    pR=PeakBars(RSI(14),1)==0;
    pivothigh = Ref(pR,-1)<pR AND pR>Ref(pR,1);
    y0=SelectedValue(ValueWhen(pivothigh,RSI(14),2));
    y1=SelectedValue(ValueWhen(pivothigh,RSI(14),1));
    x0=SelectedValue(ValueWhen(pivothigh,Cum( 1)-1,2));
    x1=SelectedValue(ValueWhen(pivothigh,Cum( 1)-1,1));
    LineA=LineArray(x0,y0,x1,y1,1);
    pS =TroughBars(RSI(14),1)==0;
    pivotlow = Ref(pS,-1)<pS AND pS>Ref(pS,1);
    yt0=SelectedValue(ValueWhen(pivotlow,RSI(14),2));
    yt1=SelectedValue(ValueWhen(pivotlow,RSI(14),1));
    xt0=SelectedValue(ValueWhen(pivotlow,Cum( 1)-1,2));
    xt1=SelectedValue(ValueWhen(pivotlow,Cum( 1)-1,1));
    LineB=LineArray(xt0,yt0,xt1,yt1,1);

    _SECTION_BEGIN("DIV");
    u00=LastValue(Peak(r,1,2));
    u11=LastValue(Peak(r,1,1));
    a00=BarCount - 1 - LastValue(PeakBars(r,1,2));
    price_start1=Close[a00];
    a11=BarCount - 1 - LastValue(PeakBars(r,1,1));
    price_end1=Close[a11];
    Line = LineArray(a00,u00,a11,u11, 0 );
    LastPointSell = LineArray(a11-1,u11-1,a11,u11,0);

    GG=u11<u00 AND price_end1>price_start1;
    PlotShapes(shapeSmallCircle*GG ,colorCustom12,0,Line,5);

    PlotShapes(shapeSmallDownTriangle*GG,colorRed,0,La stPointSell,-15);
    _SECTION_END();

    _SECTION_BEGIN("DIV");
    u0=LastValue(Trough(r,1,2));
    u1=LastValue(Trough(r,1,1));
    a0=BarCount - 1 - LastValue(TroughBars(r,1,2));
    price_start=Close[a0];
    a1=BarCount - 1 - LastValue(TroughBars(r,1,1));
    price_end=Close[a1];
    Line = LineArray(a0,u0,a1,u1, 0 );

    TT=u1>u0 AND price_end<price_start;
    LastPointBuy = LineArray(a1-1,u1-1,a1,u1,0);
    PlotShapes(shapeSmallCircle*TT,colorCustom11,0,Lin e,-5);
    PlotShapes(shapeSmallUpTriangle*TT,colorCustom11,0 ,LastPointBuy,-15);
    _SECTION_END();

    r= RSI(14);
    W1=ValueWhen(HHV(r,14),r,1);
    strength = Param("Strength",5,2,15,1);
    bi = Cum(1)-1;

    function GetTop(bars)
    {
    Top =r== HHV(r,2*bars) AND Ref(HHV(r,bars),bars) < r;
    Top = Top AND LastValue(bi)-ValueWhen(Top,bi) > bars;
    return Top;
    }

    function GetValley(bars)
    {
    Valley = W1== LLV(W1,2*bars) AND Ref(LLV(W1,bars),bars) >W1;
    Valley = Valley AND LastValue(bi)-ValueWhen(Valley,bi) > bars;
    return Valley;
    }
    P1 = GetTop(strength);
    V1 = GetValley(Strength);
    RF=ValueWhen(P1,r);
    SF=ValueWhen(V1,W1);
    cbar = Param("cbar",4,2,50,1);
    RF1 = IIf(RF AND BarsSince(P1) <=cbar,RF,Null);
    SF1 = IIf(SF AND BarsSince(V1) <=cbar,SF,Null);
    Plot(RF1,"",colorWhite,styleDots | styleNoLine);
    Plot(SF1,"",colorWhite,styleDots | styleNoLine);
    Plot(RF,"",colorOrange,40+16|styleNoLabel);
    Plot(SF,"",colorOrange,40+16|styleNoLabel);
    PlotShapes(IIf(P1, shapeSmallSquare,shapeNone),colorYellow,0,r,10);
    PlotShapes(shapeSmallCircle*P1,colorBlack,0,r,10);
    PlotShapes(IIf(V1, shapeSmallSquare,shapeNone),colorYellow,0,W1,-10);
    PlotShapes(shapeSmallCircle*V1,colorBlack,0,W1,-10);
    numbars = SelectedValue(Cum(Status("barvisible")));
    fraction= IIf(StrRight(Name(),3) == "",3.2,3.2);
    hts = Param ("Text Shift", -50,-100,100,10);
    PlotText("" + WriteVal(RF,fraction),
    SelectedValue(BarIndex()+10)-(numbars/hts),SelectedValue(RF),colorWhite,colorOrange);
    PlotText("" + WriteVal(SF,fraction),
    SelectedValue(BarIndex()+10)-(numbars/hts),SelectedValue(SF),colorWhite,colorOrange);


    _SECTION_BEGIN("Unnamed 24");

    Lbp=Param("lbp",50,1,500,5);
    rp=Param("rp",14,5,100,1);
    b30=(Sum(RSI(rp)<30,Lbp))*100/Lbp;
    b30n50=(Sum(RSI(rp)>30 && RSI(rp)<50,Lbp))*100/Lbp;
    b50n70=(Sum((RSI(rp)>50 && RSI(rp)<70),Lbp))*100/Lbp;
    a70=(Sum(RSI(rp)>70,Lbp))*100/Lbp;
    GfxSetBkColor(colorBlack);
    GfxSetTextColor(colorYellow);
    GfxTextOut(" bellow 30= "+b30+"%",5,20);
    GfxTextOut(" above 30 & bellow 50= "+b30n50+"%",5,40);
    GfxTextOut(" above 50 & bellow 70= "+b50n70+"%",5,60);
    GfxTextOut(" above 70 = "+a70+"%",5,80);
    GfxTextOut(" total="+(b30+b30n50+b50n70+a70)+"%",5,100);
    _SECTION_BEGIN("RSI");
    SetChartOptions(0,0,chartGrid30|chartGrid70);
    periods = Param( "Periods", 14, 1, 200, 1 );
    Plot( vrsi = RSI( periods), _DEFAULT_NAME(),colorCustom12,styleNoLine| styleNoLabel );
    if( Status("action") == actionCommentary )
    SetChartOptions(0,chartShowArrows|chartShowDates);
    priceTitle=StrFormat(" {{NAME}} {{VALUES}}");

    if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )
    {
    ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
    }






    Olduğu kadar olmadığı kader ..

  • #3
    Cevap: Rsi Mini Max with Support and Resistance for Amibroker (AFL)

    Üstad yukarıda ki formül bende çalışmıyor. Yardımcı olur musunuz?

    Teşekkürler

    Yorum yap


    • #4
      Cevap: Rsi Mini Max with Support and Resistance for Amibroker (AFL)

      Merhaba,
      Eğer haala ilgileniyorsanız kod ile 3 yerde hata var. Arada boşluk oluşmuş formul satırında :
      SetChartOptions(0,0,chartGrid30|chartGrid50|chartG rid70); - Burada G ile r arasında
      PlotShapes(shapeSmallDownTriangle*GG,colorRed,0,La stPointSell,-15); Burada a ile s arasında
      PlotShapes(shapeSmallCircle*TT,colorCustom11,0,Lin e,-5); ve burada n ile e arasında

      Bu boşlukları silerseniz formül çalışır. Saygılar..

      Yorum yap

      Neler Oluyor

      Collapse

      Şu anda 1 kullanıcı aktif olarak bulunuyor. Bunlardan 0 üye 1 ziyaretçidir..

      Şimdiye kadar aynı anda 38,901 kullanıcı 18-12-2019 tarihinde saat 18:29 içinde çevrimiçi oldu.

      Hazırlanıyor...
      X