Download Support Resistance Modified for Amibroker AFL (Script)

SUPPORT RESISTANCE MODIFIED AFL SCRIPT

One of the best Scripts that Listing Indicators/Formulas for Amibroker (AFL).
Download Amibroker AFL Script. It’s easy to download.

Meet Our Amibroker AFL Script

WHY SUPPORT RESISTANCE MODIFIED FOR AMIBROKER AFL SCRIPT?

Because This AFL is one of the best indicator for any kind of trading market like Stock or Forex Market.
Form AFL Script, you may get a lot of Buy Sell Signal as well as direction what to do.
Also, Raw Source Code of Amibroker Afl include and define here.

How to Setup Amibroker AFL Script

Copy the Amibroker AFL Code.
Create a new file and Paste the code in the file. Name of the file should be XXXX.afl
Copy XXXX.afl file to \Program Files\Amibroker\Formula\
For 64 bit operating system, Copy XXXX.afl file to \Program Files(x86)\AmiBroker\Formulas\
Open Amibroker and Open a Blank Chart
Go to Charts and apply/drag-and-drop the newly added indicator over blank chart.
That’s it, you are done. Now you will be able to use the new indicator.

Download Support Resistance Modified For Amibroker AFL Script

//------------------------------------------------------------------------------
//  Formula Name	:      SUPPORT RESISTANCE MODIFIED AFL for Amibroker by pipschart
//  Author	:      KrT group
//  Uploader	:      www.pipschart.com
//  E-mail		:      info@pipschart.com
//  Amibroker Blog	:      www.pipschart.com/amibroker
//  Origin		:      Modified & Collected from different sources.
//------------------------------------------------------------------------------

_SECTION_BEGIN("KrT group");
GfxSetBkMode(1);
X=750;
Y=1;
Font=10;
GfxSelectFont("Impact",Font*2.2, 550);GfxSetTextColor(colorRed);GfxTextOut("KrT group",x,y+10);
GfxSelectFont("Impact",Font*2.2, 550);GfxSetTextColor(colorGreen);GfxTextOut("RESEARCH",x+120,Y+10);

_SECTION_END();

//------------------------------------------------------------------------------
   SetChartOptions(0,chartShowDates);
   SetChartBkColor(16);
   GraphXSpace=Param("GraphXSpace",10,-100,100,1);
   SetBarFillColor(IIf(O>C,24,19));
   Plot(C,"Price",IIf(O>C,32,34),64);
   dtn=DateNum();
   haC=EMA((O+H+L+C)/4,3);    haO=AMA(Ref(haC,-1),0.5);
   haH=Max(H,Max(haC,haO));   haL=Min(L,Min(haC,haO));

//==============================
_SECTION_BEGIN("HL Pivots");
//==============================
   psh= ParamToggle("Pivot Shapes","Off|On",1);
   plb= ParamToggle("Pivot Labels","Off|On",1);
   snd= ParamToggle("Sound Alerts","Off|On",1);
   lbk= Param("Hi Lo Lookback",350,50,5000,10);
   nbz= Param("Swing Bars",20,5,150,1);
   tht= Param("Hi Label Adjust",0.65,0.10,5,0.05)*ATR(5);
   lbk= Min(BarCount-1,Lbk);
   bc=BarCount-1;
//================
   xH=H-H;   xL=L-L;   yH=H-H;   yL=L-L;   xR=H-H;   xS=L-L;
   xrb=0;    xSb=0;    yR0=0;    yS0=0;    xR0=0;    xS0=0;   xx=0;
   xHH= HHVBars(H,nbz);  xLL= LLVBars(L,nbz);
   yHH= HHV(H,nbz);      yLL= LLV(L,nbz);
   viz= Status("BarVisible");
   vbz= LastValue(Highest(IIf(viz,BarIndex(),0)));
   _TRACE("Last visible bar: "+ vbz);
   bct= (BarCount-1);  dir = "";
   if(xLL[bc]<xhh [bc])  { dir="D"; } else { dir="U"; }
    for(i=0; i<lbk; i++)  {  bc=bct-i;
     if(xLL[bc]<xHH[bc])  { if(dir=="U"){dir="D";
      xx=bc-xLL[bc];  xL[xx]=1;  
      yL[xSb]=L[xx];  xS[xSb]=xx; xSb++; }
     } else { if(dir=="D")  { dir = "U";
        xx=bc-xHH[bc];  xH[xx]=1;  yH[xrb]=H[xx];  xR[xrb]=xx;xrb++; }}}
        xP= 0;  yP= 0;  xS0= xS[0];  yS0=yL[0];  xR0= xR[0];  yR0= yH[0];
     if(xS0>xR0) { xP=bc-xHH[bc];  yP= yHH[bc];
      if(yR0<yp AND xP>xS0 AND xP<bc ) {  xH[xP]=1;
       for(j=0; j<xrb; j++) { yH[xrb-j]= yH[xrb-(j+1)];
        xR[xrb-j]= xR[xrb-(j+1)];  }
        yH[0]= yP;  xR[0]= xP;  xrb++;  }
        } else { xP= bc-xLL[bc]; yP= yLL[bc];
           if(yS0>yP AND xP>xR0 AND xP</bc><bc ) {  xL[xP]=1;
            for(j=0; j<xSb; j++) { yL[xSb-j]= yL[xSb-(j+1)];  xS[xSb-j]= xS[xSb-(j+1)];  }
             yL[0]=yP;  xS[0]=xP;  xSb++;  }}
   ushp=shapeHollowUpArrow;   dshp=shapeHollowDownArrow;
   if(psh) { PlotShapes(xH*dshp,42,0,H,-10);  PlotShapes(xL*ushp,43,0,L,-10); }
   if(snd) {
    AlertIf(xL==1,"SOUND C:\\Windows\\Media\\Windows XP Startup.wav","Audio alert",2);
    AlertIf(xH==1,"SOUND C:\\Windows\\Media\\Ringin.wav","Audio alert",2);  }
   Buy=(xL);  Sell=(xH);  Cover=(xL);  Short=(xH); Long=Flip(Buy,Sell);  Shrt=Flip(Sell,Buy);
   SellPrice=ValueWhen(Sell,H,1);  BuyPrice= ValueWhen(Buy,L,1);
   if(plb) {
    for(i=0; i<BarCount; i++) { 
     if(Buy[i] )PlotText("\n\n"+ StrRight(NumToStr(L[i],6.2),5),i-1,L[i],43,16); 
     if(Sell[i])PlotText(StrRight(NumToStr(H[i],6.2),5),i-1,H[i]+tht[i],32,16); }
   }
_SECTION_END();
//===========================
_SECTION_BEGIN("Sup & Res");
//===========================
   plt= ParamToggle("Sup_Res","Off|On",1);
   rpd= Param("Res Periods",2,0,200,1);
   spd= Param("Sup Periods",2,0,200,1);
   rsc= ParamToggle("Sup_Res","Off|On",1)*2048;
   sty= ParamStyle("Style",1)|rsc;
   rco= ParamColor("Res Color",22);
   sco= ParamColor("Sup Color",22);
   if(plt){
    pma= TEMA(H,rpd);
    pk= pma>Ref(pma,-1)AND Ref(pma,1)<h ;//Peak
    yp0= ValueWhen(pk,haH,0);
    yp1= ValueWhen(pk,haH,1);
    yp2= ValueWhen(pk,haH,2);
    pkM= yp2<yp1 AND yp1>yp0;   prq=Ref(pkM,-1)==0 AND pkM==1;//MajorPeak
    yR1= ValueWhen(prq,yp1,1);  xR1= ValueWhen(prq,dtn,1);
    yR1= IIf(dtn<selectedvalue (xR1),Null,SelectedValue(yR1));
    yR2= ValueWhen(prq,yp1,2);  xR2= ValueWhen(prq,dtn,2);
    yR2= IIf(dtn<SelectedValue(xR2),Null,SelectedValue(yR2));
    yR3= ValueWhen(prq,yp1,3);  xR3= ValueWhen(prq,dtn,3);
    yR3= IIf(dtn<SelectedValue(xR3),Null,SelectedValue(yR3));
    yR4= ValueWhen(prq,yp1,4);  xR4= ValueWhen(prq,dtn,4);
    yR4= IIf(dtn<SelectedValue(yR4),Null,SelectedValue(yR4));
    yR5= ValueWhen(prq,yp1,5);  xR5= ValueWhen(prq,dtn,5);
    yR5= IIf(dtn<SelectedValue(xR5),Null,SelectedValue(yR5));
    yR6= ValueWhen(prq,yp1,6);  xR6=ValueWhen(prq,dtn,6);
    yR6= IIf(dtn<SelectedValue(xR6),Null,SelectedValue(yR6));
    Plot(yR1,"R1",rco,1);
    Plot(IIf(yR2!=yR1,yR2,Null),"R2",rco,sty);  
    Plot(IIf(yR3!=yR2 AND yR3!=yR1,yR3,Null),"R3",rco,sty);
    Plot(IIf(yR4!=yR3 AND yR4!=yR2 AND yR4!= yR1,yR4,Null),"R4",rco,sty);  
    Plot(IIf(yR5!=yR4 AND yR5!=yR3 AND yR5!=yR2 AND yR5!=yR1,yR5,Null),"R5",rco,sty);
    Plot(IIf(yR6!=yR5 AND yR6!=yR4 AND yR6!=yR3 AND yR6!=yR2 AND yR6!=yR1,yR6,Null),"R6",rco,sty);
//=========================
//======== SUPPORT ========
//=========================
    tma= TEMA(L,spd);   
    tr= Ref(tma,1)>L AND tma<ref (tma,-1);//Trough
    yt0= ValueWhen(tr,haL,0);
    yt1= ValueWhen(tr,haL,1);
    yt2= ValueWhen(tr,haL,2);
    trM= yt2>yt1 AND yt1<yt0 ;
    psq= Ref(trM,-1)==0 AND trM==1;
    yS1= ValueWhen(psq,yt1,1);  xS1= ValueWhen(psq,dtn,1);
    yS1= IIf(dtn<SelectedValue(xS1),Null,SelectedValue(yS1));
    yS2= ValueWhen(psq,yt1,2);  xS2= ValueWhen(psq,dtn,2);
    yS2= IIf(dtn<SelectedValue(xS2),Null,SelectedValue(yS2));
    yS3= ValueWhen(psq,yt1,3);  xS3= ValueWhen(psq,dtn,3);
    yS3= IIf(dtn<SelectedValue(xS3),Null,SelectedValue(yS3));
    yS4= ValueWhen(psq,yt1,4);  xS4= ValueWhen(psq,dtn,4);
    yS4= IIf(dtn<SelectedValue(xS4),Null,SelectedValue(yS4));
    yS5= ValueWhen(psq,yt1,5);  xS5= ValueWhen(psq,dtn,5);
    yS5= IIf(dtn<SelectedValue(xS5),Null,SelectedValue(yS5));
    yS6= ValueWhen(psq,yt1,6);  xS6= ValueWhen(psq,dtn,6);
    yS6= IIf(dtn<SelectedValue(xS6),Null,SelectedValue(yS6));
    Plot(yS1,"S1",sco,sty);  
    Plot(IIf(yS2!=yS1,yS2,Null),"S2",sco,sty);  
    Plot(IIf(yS3!=yS2 AND yS3!=yS1,yS3,Null),"S3",sco,sty);
    Plot(IIf(yS4!=yS3 AND yS4!=yS2 AND yS4!= yS1,yS4,Null),"S4",sco,sty);  
    Plot(IIf(yS5!=yS4 AND yS5!=yS3 AND yS5!=yS2 AND yS5!=yS1,yS5,Null),"S4",sco,sty);
    Plot(IIf(yS6!=yS5 AND yS6!=yS4 AND yS6!=yS3 AND yS6!=yS2 AND yS6!=yS1,yS6,Null),"S4",sco,sty);
   }
_SECTION_END();

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

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

// Formula Name : SUPPORT RESISTANCE MODIFIED AFL for Amibroker by pipschart

// Author : KrT group

// Uploader : www.pipschart.com

// E-mail : info@pipschart.com

// Amibroker Blog : www.pipschart.com/amibroker

// Origin : Modified & Collected from different sources.

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

_SECTION_BEGIN("KrT group");

GfxSetBkMode(1);

X=750;

Y=1;

Font=10;

GfxSelectFont("Impact",Font*2.2, 550);GfxSetTextColor(colorRed);GfxTextOut("KrT group",x,y+10);

GfxSelectFont("Impact",Font*2.2, 550);GfxSetTextColor(colorGreen);GfxTextOut("RESEARCH",x+120,Y+10);

_SECTION_END();

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

SetChartOptions(0,chartShowDates);

SetChartBkColor(16);

GraphXSpace=Param("GraphXSpace",10,-100,100,1);

SetBarFillColor(IIf(O>C,24,19));

Plot(C,"Price",IIf(O>C,32,34),64);

dtn=DateNum();

haC=EMA((O+H+L+C)/4,3); haO=AMA(Ref(haC,-1),0.5);

haH=Max(H,Max(haC,haO)); haL=Min(L,Min(haC,haO));

//==============================

_SECTION_BEGIN("HL Pivots");

//==============================

psh= ParamToggle("Pivot Shapes","Off|On",1);

plb= ParamToggle("Pivot Labels","Off|On",1);

snd= ParamToggle("Sound Alerts","Off|On",1);

lbk= Param("Hi Lo Lookback",350,50,5000,10);

nbz= Param("Swing Bars",20,5,150,1);

tht= Param("Hi Label Adjust",0.65,0.10,5,0.05)*ATR(5);

lbk= Min(BarCount-1,Lbk);

bc=BarCount-1;

//================

xH=H-H; xL=L-L; yH=H-H; yL=L-L; xR=H-H; xS=L-L;

xrb=0; xSb=0; yR0=0; yS0=0; xR0=0; xS0=0; xx=0;

xHH= HHVBars(H,nbz); xLL= LLVBars(L,nbz);

yHH= HHV(H,nbz); yLL= LLV(L,nbz);

viz= Status("BarVisible");

vbz= LastValue(Highest(IIf(viz,BarIndex(),0)));

_TRACE("Last visible bar: "+ vbz);

bct= (BarCount-1); dir = "";

if(xLL[bc]<xhh [bc]) { dir="D"; } else { dir="U"; }

for(i=0; i<lbk; i++) { bc=bct-i;

if(xLL[bc]<xHH[bc]) { if(dir=="U"){dir="D";

xx=bc-xLL[bc]; xL[xx]=1;

yL[xSb]=L[xx]; xS[xSb]=xx; xSb++; }

} else { if(dir=="D") { dir = "U";

xx=bc-xHH[bc]; xH[xx]=1; yH[xrb]=H[xx]; xR[xrb]=xx;xrb++; }}}

xP= 0; yP= 0; xS0= xS[0]; yS0=yL[0]; xR0= xR[0]; yR0= yH[0];

if(xS0>xR0) { xP=bc-xHH[bc]; yP= yHH[bc];

if(yR0<yp AND xP>xS0 AND xP<bc ) { xH[xP]=1;

for(j=0; j<xrb; j++) { yH[xrb-j]= yH[xrb-(j+1)];

xR[xrb-j]= xR[xrb-(j+1)]; }

yH[0]= yP; xR[0]= xP; xrb++; }

} else { xP= bc-xLL[bc]; yP= yLL[bc];

if(yS0>yP AND xP>xR0 AND xP</bc><bc ) { xL[xP]=1;

for(j=0; j<xSb; j++) { yL[xSb-j]= yL[xSb-(j+1)]; xS[xSb-j]= xS[xSb-(j+1)]; }

yL[0]=yP; xS[0]=xP; xSb++; }}

ushp=shapeHollowUpArrow; dshp=shapeHollowDownArrow;

if(psh) { PlotShapes(xH*dshp,42,0,H,-10); PlotShapes(xL*ushp,43,0,L,-10); }

if(snd) {

AlertIf(xL==1,"SOUND C:\\Windows\\Media\\Windows XP Startup.wav","Audio alert",2);

AlertIf(xH==1,"SOUND C:\\Windows\\Media\\Ringin.wav","Audio alert",2); }

Buy=(xL); Sell=(xH); Cover=(xL); Short=(xH); Long=Flip(Buy,Sell); Shrt=Flip(Sell,Buy);

SellPrice=ValueWhen(Sell,H,1); BuyPrice= ValueWhen(Buy,L,1);

if(plb) {

for(i=0; i<BarCount; i++) {

if(Buy[i] )PlotText("\n\n"+ StrRight(NumToStr(L[i],6.2),5),i-1,L[i],43,16);

if(Sell[i])PlotText(StrRight(NumToStr(H[i],6.2),5),i-1,H[i]+tht[i],32,16); }

}

_SECTION_END();

//===========================

_SECTION_BEGIN("Sup & Res");

//===========================

plt= ParamToggle("Sup_Res","Off|On",1);

rpd= Param("Res Periods",2,0,200,1);

spd= Param("Sup Periods",2,0,200,1);

rsc= ParamToggle("Sup_Res","Off|On",1)*2048;

sty= ParamStyle("Style",1)|rsc;

rco= ParamColor("Res Color",22);

sco= ParamColor("Sup Color",22);

if(plt){

pma= TEMA(H,rpd);

pk= pma>Ref(pma,-1)AND Ref(pma,1)<h ;//Peak

yp0= ValueWhen(pk,haH,0);

yp1= ValueWhen(pk,haH,1);

yp2= ValueWhen(pk,haH,2);

pkM= yp2<yp1 AND yp1>yp0; prq=Ref(pkM,-1)==0 AND pkM==1;//MajorPeak

yR1= ValueWhen(prq,yp1,1); xR1= ValueWhen(prq,dtn,1);

yR1= IIf(dtn<selectedvalue (xR1),Null,SelectedValue(yR1));

yR2= ValueWhen(prq,yp1,2); xR2= ValueWhen(prq,dtn,2);

yR2= IIf(dtn<SelectedValue(xR2),Null,SelectedValue(yR2));

yR3= ValueWhen(prq,yp1,3); xR3= ValueWhen(prq,dtn,3);

yR3= IIf(dtn<SelectedValue(xR3),Null,SelectedValue(yR3));

yR4= ValueWhen(prq,yp1,4); xR4= ValueWhen(prq,dtn,4);

yR4= IIf(dtn<SelectedValue(yR4),Null,SelectedValue(yR4));

yR5= ValueWhen(prq,yp1,5); xR5= ValueWhen(prq,dtn,5);

yR5= IIf(dtn<SelectedValue(xR5),Null,SelectedValue(yR5));

yR6= ValueWhen(prq,yp1,6); xR6=ValueWhen(prq,dtn,6);

yR6= IIf(dtn<SelectedValue(xR6),Null,SelectedValue(yR6));

Plot(yR1,"R1",rco,1);

Plot(IIf(yR2!=yR1,yR2,Null),"R2",rco,sty);

Plot(IIf(yR3!=yR2 AND yR3!=yR1,yR3,Null),"R3",rco,sty);

Plot(IIf(yR4!=yR3 AND yR4!=yR2 AND yR4!= yR1,yR4,Null),"R4",rco,sty);

Plot(IIf(yR5!=yR4 AND yR5!=yR3 AND yR5!=yR2 AND yR5!=yR1,yR5,Null),"R5",rco,sty);

Plot(IIf(yR6!=yR5 AND yR6!=yR4 AND yR6!=yR3 AND yR6!=yR2 AND yR6!=yR1,yR6,Null),"R6",rco,sty);

//=========================

//======== SUPPORT ========

//=========================

tma= TEMA(L,spd);

tr= Ref(tma,1)>L AND tma<ref (tma,-1);//Trough

yt0= ValueWhen(tr,haL,0);

yt1= ValueWhen(tr,haL,1);

yt2= ValueWhen(tr,haL,2);

trM= yt2>yt1 AND yt1<yt0 ;

psq= Ref(trM,-1)==0 AND trM==1;

yS1= ValueWhen(psq,yt1,1); xS1= ValueWhen(psq,dtn,1);

yS1= IIf(dtn<SelectedValue(xS1),Null,SelectedValue(yS1));

yS2= ValueWhen(psq,yt1,2); xS2= ValueWhen(psq,dtn,2);

yS2= IIf(dtn<SelectedValue(xS2),Null,SelectedValue(yS2));

yS3= ValueWhen(psq,yt1,3); xS3= ValueWhen(psq,dtn,3);

yS3= IIf(dtn<SelectedValue(xS3),Null,SelectedValue(yS3));

yS4= ValueWhen(psq,yt1,4); xS4= ValueWhen(psq,dtn,4);

yS4= IIf(dtn<SelectedValue(xS4),Null,SelectedValue(yS4));

yS5= ValueWhen(psq,yt1,5); xS5= ValueWhen(psq,dtn,5);

yS5= IIf(dtn<SelectedValue(xS5),Null,SelectedValue(yS5));

yS6= ValueWhen(psq,yt1,6); xS6= ValueWhen(psq,dtn,6);

yS6= IIf(dtn<SelectedValue(xS6),Null,SelectedValue(yS6));

Plot(yS1,"S1",sco,sty);

Plot(IIf(yS2!=yS1,yS2,Null),"S2",sco,sty);

Plot(IIf(yS3!=yS2 AND yS3!=yS1,yS3,Null),"S3",sco,sty);

Plot(IIf(yS4!=yS3 AND yS4!=yS2 AND yS4!= yS1,yS4,Null),"S4",sco,sty);

Plot(IIf(yS5!=yS4 AND yS5!=yS3 AND yS5!=yS2 AND yS5!=yS1,yS5,Null),"S4",sco,sty);

Plot(IIf(yS6!=yS5 AND yS6!=yS4 AND yS6!=yS3 AND yS6!=yS2 AND yS6!=yS1,yS6,Null),"S4",sco,sty);

}

_SECTION_END();

【 More About Support Resistance Modified for Amibroker AFL ⋡

♌

DOWNLOAD SUPPORT RESISTANCE MODIFIED AFL CODE

Download Amibroker AFL Script directly from here. If you are not familiar with copy-paste to input AFL then you may download a raw file from here. This gives you a direct AFL File. Just download it and copy the file and paste it into the Amibroker formulas folder. Open Amibroker Software and watch the AFL in AFL Section.

♍

SUPPORT RESISTANCE MODIFIED AFL CHART

In the trading world, there is one line expressed. Chart Can Talk. Yes, that’s true. In every chart like Amibroker AFL Chart or MT4 Chart can talk. The chart shows you the actual situation in the market. Buy-Sell Signal may generate and interpret clearly. That’s why anyone can find out the reality.

♊

SUPPORT RESISTANCE MODIFIED AFL VIDEO

Every Stock Trading or Forex trading needs a platform where anyone can get the freedom to analyze. This Amibroker AFL Script gives you those opportunities. But if you do not catch the real signal in real-time then you lose money as well as waste time. For this reason, watch videos first and then earn. Don’t lose money.

What Are You Waiting For?

Find the Latest Amibroker AFL Scripts. It’s absolutely Free!

AMIBROKER AFL SCRIPTS ➜

STRIVE WITH YOUR ASSETS

100%

“The parable of those who spend their substance in the way of Allah is that of a grain of corn: it groweth seven ears, and each ear Hath a hundred grains.Allah giveth manifold increase to whom He pleaseth: And Allah careth for all and He knoweth all things.” | Al-Quran (Surah Al-Baqara, 261)

pipschart

Making Profit Fast With Forex Market

Download Support Resistance Modified for Amibroker AFL (Script)

SUPPORT RESISTANCE MODIFIED AFL SCRIPT

Meet Our Amibroker AFL Script

WHY SUPPORT RESISTANCE MODIFIED FOR AMIBROKER AFL SCRIPT?

How to Setup Amibroker AFL Script

【 More About Support Resistance Modified for Amibroker AFL ⋡

DOWNLOAD SUPPORT RESISTANCE MODIFIED AFL CODE

SUPPORT RESISTANCE MODIFIED AFL CHART

SUPPORT RESISTANCE MODIFIED AFL VIDEO

What Are You Waiting For?

0 thoughts on “Download Support Resistance Modified for Amibroker AFL (Script)”

Leave a Reply Cancel reply