 |
| Automatic Pivot Support Resistance |
//www.aflcode.com 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("Name"); GfxSetOverlayMode(1); pxh= Status("pxHeight"); pxw=Status("pxWidth"); GfxSelectFont("Tahoma",pxh/8); GfxSetTextColor(ColorHSB(42,42,42)); GfxSetTextAlign(6); GfxSetBkMode(0); //GfxTextOut(Name(),pxw/2,pxh/12); GfxSelectFont("Tahoma",pxh/18); //GfxTextOut(IndustryID(1),pxw/2,pxh/4); GfxSelectFont("Tahoma",pxh/18); GfxSelectFont("Tahoma",pxh/36); GfxTextOut("Sup/Res",pxw/2,pxh/3); _SECTION_END(); //============================== _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) { 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();
Sign up here with your email
ConversionConversion EmoticonEmoticon