Stock-Future-Detector-System

Stock-Future-Detector-System

Stock-Future-Detector-System
Stock-Future-Detector-System

//www.aflcode.com
_SECTION_BEGIN("Chart Settings");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor(ParamColor("Outer Panel",1));
SetChartBkGradientFill(ParamColor("Upper Chart",1),ParamColor("Lower Chart",23));
GraphXSpace=Param("GraphXSpace",10,0,100,1);
dec = (Param("Decimals",2,0,7,1)/10)+1;
bi = BarIndex();
Lbi = LastValue(BarIndex());
sbi = SelectedValue(bi);
x1= BarCount-1;
SetBarFillColor (IIf(C>O,19,IIf(C<O,24,42))); 
Plot(C,"",IIf(C>O,51,IIf(C<O,33,55)),64); 

//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
_SECTION_BEGIN("SV X Pivots");
pct = Param( "Pivot %",0.18,0.10,60,0.01);
plt = ParamToggle("Plot Zig ","Off|On",0);
ppa = ParamToggle("Plot Pattern Lines","Off|On",1);
plx = ParamToggle("Plot Time Lines","Off|On",1);
Vsh= Param("Time Line V Shift",0.25,0,10,0.01);
ptx = ParamToggle("Plot Text","Off|On",1);
HiLb= Param("Hi Lookback",1,1,x1,1);
LoLb= Param("Lo Lookback",1,0,x1,1);
//==============================
pk=PeakBars(H,pct)==0; tr=TroughBars(L,pct)==0;
zHi=Zig(H,pct); zLo=Zig(L,pct); HLAvg=(zHi+zLo)/2;
zp=IIf(pk,zHi,IIf(tr,zLo,IIf(HLAvg>Ref(HLAvg,-1),H,L)));
za=Zig(zp,pct);
pR=Ref(za,-1)<za AND za>Ref(za,1);//pk
pS=Ref(za,-1)>za AND za<Ref(za,1);//tr
//==============================
if(plt==1)Plot(za,"ZIG",42,32|4096);
//==============================
//Support
xs0 = SelectedValue(ValueWhen(PS,bi,LoLb));
xs1 = SelectedValue(ValueWhen(pS,bi,LoLb+1));
xs2 = SelectedValue(ValueWhen(pS,bi,LoLb+2));
xs3 = SelectedValue(ValueWhen(pS,bi,LoLb+3));
xs4 = SelectedValue(ValueWhen(pS,bi,LoLb+4));
ys0 = SelectedValue(ValueWhen(pS,L,LoLb));
ys1 = SelectedValue(ValueWhen(pS,L,LoLb+1));
ys2 = SelectedValue(ValueWhen(pS,L,LoLb+2));
ys3 = SelectedValue(ValueWhen(pS,L,LoLb+3));
ys4 = SelectedValue(ValueWhen(pS,L,LoLb+4));
//Resistance
xr0 = SelectedValue(ValueWhen(pR,bi,HiLb));
xr1 = SelectedValue(ValueWhen(pR,bi,HiLb+1));
xr2 = SelectedValue(ValueWhen(pR,bi,HiLb+2));
xr3 = SelectedValue(ValueWhen(pR,bi,HiLb+3));
xr4 = SelectedValue(ValueWhen(pR,bi,HiLb+4));
yr0 = SelectedValue(ValueWhen(pR,H,HiLb));
yr1 = SelectedValue(ValueWhen(pR,H,HiLb+1));
yr2 = SelectedValue(ValueWhen(pR,H,HiLb+2));
yr3 = SelectedValue(ValueWhen(pR,H,HiLb+3));
yr4 = SelectedValue(ValueWhen(pR,H,HiLb+4));
Sup = xs0>xr0;
Res = xr0>xs0;
xsh = 50;
xsbi = IIf(Res, xr0-xsh, xs0-xsh);//xstart

za=Zig(zp,0.01);
pR=Ref(za,-1)<za AND za>Ref(za,1);//pk
pS=Ref(za,-1)>za AND za<Ref(za,1);//tr
eLy = SelectedValue(ValueWhen(pS,L,0));
eHy = SelectedValue(ValueWhen(pR,H,0));
d1 = IIf(sup,ely,ehy);
c1 = IIf(sup,ehy,ely);
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
_SECTION_BEGIN("Patterns");
//Assign Letter to Pivots
if(Res==1) {
col= 40; colp= 32; va1= 0.30; va2= -0.30;
Sx = xs4; Sy = ys4; Tx = xr4; Ty = yr4;
Ux = xs3; Uy = ys3; Vx = xr3; Vy = yr3;
Wx = xs2; Wy = ys2; Xx = xr2; Xy = yr2;
Ax = xs1; Ay = ys1; Bx = xr1; By = yr1;
Cx = xs0; Cy = ys0; Dx = xr0; Dy = yr0; 
}
if(Sup==1) {
col= 51; colp= 43; va1= -0.30; va2= 0.30;
Sx = xr4; Sy = yr4; Tx = xs4; Ty = ys4;
Ux = xr3; Uy = yr3; Vx = xs3; Vy = ys3;
Wx = xr2; Wy = yr2; Xx = xs2; Xy = ys2;
Ax = xr1; Ay = yr1; Bx = xs1; By = ys1;
Cx = xr0; Cy = yr0; Dx = xs0; Dy = ys0;
}
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
//Calculate Hi Lo Retracements
WX=(abs(xy-wy)/abs(wy-vy))*100;
XA=abs(Xy-Ay)/abs(Xy-Wy)*100;
AB=abs(By-Ay)/abs(Xy-Ay)*100;
BC=abs(By-Cy)/abs(By-Ay)*100;
CD=abs(Dy-Cy)/abs(By-Cy)*100;
CE=(abs(Cy-c1)/abs(Cy-By))*100;
DE=(abs(Dy-d1)/abs(Cy-Dy))*100;

//Calculate Hi-Hi Lo-Lo Retracements
XBi= abs(Xy-By)/(abs(Xy-Ay))*100;
XBe= abs(By-Ay)/(abs(Xy-Ay))*100;
XB = IIf(By>=Ay,XBe,XBi);
XD=abs(Dy-Ay)/abs(Xy-Ay)*100;
ACi=abs(Cy-Ay)/abs(By-Ay)*100;
ACe=abs(By-Cy)/abs(By-Ay)*100;
AC = IIf(Cy>=Ay,ACi,ACe);
BDi=abs(Dy-By)/abs(By-Cy)*100;
BDe=abs(Dy-Cy)/abs(By-Cy)*100;
BD = IIf(Dy>=By,BDe,BDi);
//Plot Labels and Retracements
if(ptx==1) {
PlotText(" S ",sx,sy + va2, col,1); PlotText(" T ",tx,ty + va1, col,1);
PlotText(" U ",ux,uy + va2, col,1); PlotText(" V ",vx,vy + va1, col,1);
PlotText(" W ",IIf(sup,xr2,xs2),wy + va2, col,1); 
PlotText(" X = "+NumToStr(WX,1.1)+" % ",xx,xy + va1, col,1);
PlotText(" A = "+NumToStr(XA,1.1)+" % ",ax,ay + va2, col,1); 
PlotText(" B = "+NumToStr(AB,1.1)+" % ",bx,by + va1, col,1);
PlotText(" C = "+NumToStr(BC,1.1)+" % ",cx,cy + va2, col,1); 
PlotText(" D = "+NumToStr(CD,1.1)+" % ",dx,dy + va1, colp,1);
PlotText(" "+NumToStr(de,1.1)+"%",(dx+x1)/2,(dy+d1)/2,42,1);
PlotText(" "+NumToStr(ce,1.1)+"%",(cx+x1)/2,(cy+c1)/2,42,1);
PlotText(" "+NumToStr(XB,1.1)+" %",((xx+bx)/2)-2,(xy+by)/2, 40,1);
PlotText(" "+NumToStr(XD,1.1)+" %",(xx+dx)/2,(xy+dy)/2, 34,1);
PlotText(" "+NumToStr(AC,1.1)+" %",(ax+cx)/2-2,(ay+cy)/2, 10,1);
PlotText(" "+NumToStr(BD,1.1)+" %",((bx+dx)/2)-2,(by+dy)/2, 10,1);
}
//Plot Hi-Hi Lo-Lo Lines
if(ppa==1) {
Plot(LineArray(dx,dy,x1,d1,0),"",42,32|4096);
Plot(LineArray(cx,cy,x1,c1,0),"",42,32|4096);
Plot(LineArray(sx,sy,ax,ay,1),"",35,41|4096|2048);
Plot(LineArray(ux,uy,ax,ay,1),"",25,41|4096|2048);
Plot(LineArray(bx,by,dx,dy,0),"",34,32|4096);
Plot(LineArray(ax,ay,cx,cy,0),"",34,32|4096);
Plot(LineArray(xx,xy,dx,dy,0),"",32,32|4096);
Plot(LineArray(xx,xy,bx,by,0),"",32,32|4096);
}
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
//Count Bars Between Pivots
xXA=xsbi+abs(ax-xx);
xXB=xsbi+abs(bx-xx);
xXC=xsbi+abs(cx-xx);
xXD=xsbi+abs(dx-xx);
xAB=xsbi+abs(bx-ax);
xAC=xsbi+abs(cx-ax);
xAD=xsbi+abs(dx-ax);
xBC=xsbi+abs(cx-bx);
xBD=xsbi+abs(dx-bx);
xCD=xsbi+abs(dx-cx);
//==============================
if(plx==1) {
bc=IIf(sup,sbi-xs0,sbi-xr0);
tp=IIf(sup,ys0-Vsh,yr0+Vsh);
if(Res==1) {
col=42;
Plot(bi==xCD, "", colorYellow, styleHistogram|styleOwnScale,0,1,xsh);//sample code if lines are preferred
PlotText("XA\n | "+NumToStr(abs(xx-ax)-bc,1),xxa+xsh,tp,col,1);
PlotText("XB\n | "+NumToStr(abs(bx-xx)-bc,1),xxb+xsh,tp,col,1);
PlotText("XC\n | "+NumToStr(abs(cx-xx)-bc,1),xxc+xsh,tp,col,1);
PlotText("XD\n | "+NumToStr(abs(xx-dx)-bc,1),xxd+xsh,tp,col,1);
PlotText("AB\n | "+NumToStr(abs(bx-ax)-bc,1),xab+xsh,tp,col,1);
PlotText("AC\n | "+NumToStr(abs(cx-ax)-bc,1),xac+xsh,tp,col,1);
PlotText("AD\n | "+NumToStr(abs(dx-ax)-bc,1),xad+xsh,tp,col,1);
PlotText("BC\n | "+NumToStr(abs(cx-bx)-bc,1),xbc+xsh,tp,col,1);
PlotText("BD\n | "+NumToStr(abs(dx-bx)-bc,1),xbd+xsh,tp,col,1);
PlotText("CD\n | "+NumToStr(abs(dx-cx)-bc,1),xcd+xsh,tp,col,1);
}
if(Sup==1) {
col=34;
Plot(bi==xCD, "", colorYellow, styleHistogram|styleOwnScale,0,1,xsh);//sample code if lines are preferred
PlotText("| "+NumToStr(abs(xx-ax)-bc,1)+"\nXA",xxa+xsh,tp,col,1);
PlotText("| "+NumToStr(abs(bx-xx)-bc,1)+"\nXB",xxb+xsh,tp,col,1);
PlotText("| "+NumToStr(abs(cx-xx)-bc,1)+"\nXC",xxc+xsh,tp,col,1);
PlotText("| "+NumToStr(abs(xx-dx)-bc,1)+"\nXD",xxd+xsh,tp,col,1);
PlotText("| "+NumToStr(abs(bx-ax)-bc,1)+"\nAB",xab+xsh,tp,col,1);
PlotText("| "+NumToStr(abs(cx-ax)-bc,1)+"\nAC",xac+xsh,tp,col,1);
PlotText("| "+NumToStr(abs(dx-ax)-bc,1)+"\nAD",xad+xsh,tp,col,1);
PlotText("| "+NumToStr(abs(cx-bx)-bc,1)+"\nBC",xbc+xsh,tp,col,1);
PlotText("| "+NumToStr(abs(dx-bx)-bc,1)+"\nBD",xbd+xsh,tp,col,1);
PlotText("| "+NumToStr(abs(dx-cx)-bc,1)+"\nCD",xcd+xsh,tp,col,1);
}
}
//example of plotting line with start at a future point
f50= ys0+(abs(yr0-ys0)*0.50);
Plot(LineArray(xxb,f50,xxd,f50,0),"",29,32,0,0,xsh );
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Title = EncodeColor(55)+ Title = Name() + " " + EncodeColor(32) + Date() + " " + EncodeColor(5) + "{{INTERVAL}} " +
EncodeColor(55)+ " Open = "+ EncodeColor(52)+ WriteVal(O,dec) + 
EncodeColor(55)+ " High = "+ EncodeColor(5) + WriteVal(H,dec) +
EncodeColor(55)+ " Low = "+ EncodeColor(32)+ WriteVal(L,dec) + 
EncodeColor(55)+ " Close = "+ EncodeColor(52)+ WriteVal(C,dec)+
EncodeColor(55)+ " Volume = "+ EncodeColor(52)+ WriteVal(V,1);
Next
« Prev Post
Previous
Next Post »
Subscribe to: Post Comments (Atom)