الله يسعدك اخوي الداب 300
_section_begin("harmonic patterns");
//abdulkareem alghamdi - june 2012
percentage = param("percentage", 5, 1, 100, 0.1);
showtarget = paramlist("show target from:", "off|c-d|a-d |x-a|b-c");
showtargetext = paramtoggle("show target extensions?", "no|yes");
back = param("look back", 1, 1, 100, 1);
currection = param("currection:", 50, 5, 100,1);
//----------------------------------------------------------------------------------------
ax = bx = cx = dx = xx= 0;
ay = by = cy = dy = xy = 0;
bcon = scon = xcon = 0;
//----------------------------------------------------------------------------------------
procedure setuppattern(per, back)
{
backl = lastvalue(troughbars(l, per, back ));
backh = lastvalue(peakbars(h, per, back ));
backl2 = lastvalue(troughbars(l, per, back +1));
backh2 = lastvalue(peakbars(h, per, back+1));
backl3 = lastvalue(troughbars(l, per, back +2));
backh3 = lastvalue(peakbars(h, per, back +2));
if(backl < backh)
{
if(backl2 < backh)
for(i=back+1; backl2 < backh and i < back+currection; i++)
backl2 = lastvalue(troughbars(l, per, back + i));
if(backh2 < backl2)
for(i=back+1; backh2 < backl2 and i < back+currection; i++)
backh2 = lastvalue(peakbars(h, per, back + i));
if(backl3 < backh2)
for(i=back+2; backl3 < backh2 and i < back+currection; i++)
backl3 = lastvalue(troughbars(l, per, back + i));
if(backh3 < backl3)
for(i=back+2; backh3 < backl3 and i < back+currection; i++)
backh3 = lastvalue(peakbars(h, per, back + i));
}
else
{
if(backh2 < backl)
for(i=back+1; backh2 < backl and i < back+currection; i++)
backh2 = lastvalue(peakbars(h, per, back + i));
if(backl2 < backh2)
for(i=back+1; backl2 < backh2 and i < back+currection; i++)
backl2 = lastvalue(troughbars(l, per, back + i));
if(backh3 < backl2)
for(i=back+2; backh3 < backl2 and i < back+currection; i++)
backh3 = lastvalue(peakbars(h, per, back + i));
if(backl3 < backh3)
for(i=back+2; backl3 < backh3 and i < back+currection; i++)
backl3 = lastvalue(troughbars(l, per, back + i));
}
ax = barcount-1-lastvalue(max(backh2, backl2));
bx = barcount-1-lastvalue(min(backl2, backh2));
cx = barcount-1-lastvalue(max(backh, backl));
dx = barcount-1-lastvalue(min(backl, backh));
if(backl > backh)
{
ay = lastvalue((ref(l, -backl2)));
by = lastvalue((ref(h, -backh2)));
cy = lastvalue((ref(l, -backl)));
dy = lastvalue((ref(h, -backh)));
xy = lastvalue((ref(h, -backh3)));
xx = barcount-1-backh3;
xcon = xy > by and backh3 > backl2;
con = ((by-cy)/(by-ay)) > 0.3 and ((by-cy)/(by-ay)) < 0.8;
con = con and (ax < bx) and (bx < cx) and (cx < dx) and (ay < cy) and (cy <
by) and (by < dy);
con = con and backl2 > backh2 and backl > backh;
con = con and ((by-cy)/(by-ay)) >=0.3 and ((dy-cy)/(by-cy))>=1;
scon = con and ((dy-cy)/(xy-ay)) >=0.5 and ((by-ay)/(xy-ay))>=0.3;
}
else
{
ay = lastvalue((ref(h, -backh2)));
by = lastvalue((ref(l, -backl2)));
cy = lastvalue((ref(h, -backh)));
dy = lastvalue((ref(l, -backl)));
xy = lastvalue((ref(l, -backl3)));
xx = barcount-1-backl3;
xcon = xy < by and backl3 > backh2;
con = ((cy-by)/(ay-by)) > 0.5 and ((cy-by)/(ay-by)) < 0.8;
con = con and (ax < bx) and (bx < cx) and (cx < dx) and (ay > cy) and (cy >
by) and (by > dy);
con = con and backl2 < backh2 and backl < backh;
con = con and ((cy-dy)/(ay-xy))>=0.3 and ((ay-by)/(ay-xy)) >=0.3;
bcon = con and ((cy-dy)/(ay-by)) >=0.3 and ((cy-dy)/(cy-by)) >=1;
}
}
//----------------------------------------------------------------------------------------
//----------------------------------------------------------------------------------------
setuppattern(percentage, back) ;
color = iif(bcon, colorgold, colorred);
//----------------------------------------------------------------------------------------
if(bcon or scon)
{
plot(linearray(ax, ay, bx, by), "", color);//ab
plot(linearray(bx, by, cx, cy), "", color);//bc
plot(linearray(cx, cy, bx, by), "", color);//xb
plot(linearray(ax,ay,cx,cy,back),"ac ",paramcolor( "ac", colorred ),styleline,null, null );
plot(linearray(xx,xy,bx,by,back),"xb ",paramcolor( "xb", colorred ),styleline,null, null );
plot(linearray(cx, cy, ax, ay), "", color);//ca
plot(linearray(cx, cy, dx, dy), "", color);//cd
plot(linearray(ax, ay, cx, cy),"", color, styledashed);//ac
plot(linearray(bx, by, dx, dy),"", color, styledashed);//bd
plottext("a"+strformat("=%.2f", ay), ax, ay, colorwhite);
plottext("b"+strformat("=%.2f", by), bx, by, colorwhite);
plottext("c"+strformat("=%.2f", cy), cx, cy, colorwhite);
plottext("d"+strformat("=%.2f", dy), dx, dy, colorwhite);
plottext(strformat("%.3f", abs((cy-by)/(ay-by))), (ax+cx)/2, (ay+cy)/2,
colorwhite);
plottext(strformat("%.3f", abs((dy-cy)/(by-cy))), (bx+dx)/2, (by+dy)/2,
colorwhite);
if(xcon)
{
plot(linearray(xx, xy, ax, ay), "", color);
plottext("x"+strformat("=%.2f", xy), xx, xy, colorwhite);
plot(linearray(xx, xy, bx, by),"", color, styledashed);
plot(linearray(xx, xy, dx, dy),"", color, styledashed);
plottext(strformat("%.3f", (ay-by)/(ay-xy)), (xx+bx)/2, (xy+by)/2,
colorwhite);
plottext(strformat("%.3f", (cy-dy)/(ay-xy)), (xx+dx)/2, (xy+dy)/2,
colorwhite);
}
if(showtarget!="off")
{
if(showtarget=="c-d")
{
farx = cx;
fary = cy;
}
else
{
farx = ax;
fary = ay;
}
nearx = dx;
neary = dy;
if(showtarget=="x-a")
{
farx = xx;
fary = xy;
nearx = ax;
neary = ay;
}
if(showtarget=="b-c")
{
farx = bx;
fary = by;
nearx = cx;
neary = cy;
}
rangex = farx-nearx;
rangey = fary-neary;
plot(linearray(farx, fary, nearx, neary), "", colorgreen, styledashed);
plot(linearray(nearx+(rangex*0.236),neary+(rangey*0.236),barcount-1,neary+(rangey*0.236)),
"", colorgreen, styledashed|stylenolabel);
plottext(strformat("%.2f",neary+(rangey*0.236))
,barcount,neary+(rangey*0.236), colorwhite);
plot(linearray(nearx+(rangex*0.382),neary+(rangey*0.382),barcount-1,neary+(rangey*0.382)),
"", colorgreen, styledashed|stylenolabel);
plottext(strformat("%.2f",neary+(rangey*0.382))
,barcount,neary+(rangey*0.382), colorwhite);
plot(linearray(nearx+(rangex*0.5),neary+(rangey*0.5),barcount-1,neary+(rangey*0.5)),
"", colorgreen, styledashed|stylenolabel);
plottext(strformat("%.2f",neary+(rangey*0.5)) ,barcount,neary+(rangey*0.5),
colorwhite);
plot(linearray(nearx+(rangex*0.618),neary+(rangey*0.618),barcount-1,neary+(rangey*0.618)),
"", colorgreen, styledashed|stylenolabel);
plottext(strformat("%.2f",neary+(rangey*0.618))
,barcount,neary+(rangey*0.618), colorwhite);
plot(linearray(nearx+(rangex*0.786),neary+(rangey*0.786),barcount-1,neary+(rangey*0.786)),
"", colorgreen, styledashed|stylenolabel);
plottext(strformat("%.2f",neary+(rangey*0.786))
,barcount,neary+(rangey*0.786), colorwhite);
plot(linearray(farx,fary,barcount-1,fary), "", colorgreen,
styledashed|stylenolabel);
plottext(strformat("%.2f",fary) ,barcount,fary, colorwhite);
plot(linearray(nearx,neary,barcount-1,neary), "", colorgreen,
styledashed|stylenolabel);
plottext(strformat("%.2f",neary) ,barcount,neary, colorwhite);
if(showtargetext)
{
plot(linearray(farx,neary+(rangey*1.27),barcount-1,neary+(rangey*1.27)), "",
colorgreen, styledashed|stylenolabel);
plottext(strformat("%.2f",neary+(rangey*01.27))
,barcount,neary+(rangey*1.27), colorwhite);
plot(linearray(farx,neary+(rangey*1.618),barcount-1,neary+(rangey*1.618)),
"", colorgreen, styledashed|stylenolabel);
plottext(strformat("%.2f",neary+(rangey*01.618))
,barcount,neary+(rangey*1.618), colorwhite);
}
}
}
//----------------------------------------------------------------------------------------
plot(c, "", iif(o>c, colorred, colorgreen), paramstyle("price
style",stylebar,maskprice));
title = name()+" - "+interval(2)+" - "+"{{date}} - "+strformat("open=%.2f,
high=%.2f, low=%.2f, close=%.2f", o, h, l, c)+strformat(" (%.2f %.2f%%)",
c-ref(c, -1), selectedvalue(roc(c, 1)));
_section_end();
filter=bcon;
addtextcolumn ( fullname(), "full__________name", 1.2 );
addcolumn(bcon , "_____", 1.2 );
_SECTION_BEGIN("Fib Retracements");
nbar = Param("Term",5,2,9,1);
fibs = ParamToggle("Plot Fibs","Off|On",0);
Hlb = Param ("Hi LookBack",2,1,BarCount-1,1);
Llb = Param ("Lo LookBack",1,1,BarCount-1,1);
Back = Param ("Extend Left = 2",1,1,500,1);
Fwd = Param("Plot Forward", 0, 0, 500, 1);
text = ParamToggle("Plot Text","Off|On",1);
hts = Param ("Text Shift", -7.5,-50,50,0.10);
style =ParamStyle("Line Style",styleLine,styleNoLabel);
x = BarIndex();
pRp = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) <= H; // fractals in place of peak
yRp0 = SelectedValue(ValueWhen( pRp,H,Hlb ));
xRp0 = SelectedValue(ValueWhen( pRp,x,Hlb));
pSp = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) >= L; // fractals in place of trough
ySp0 = SelectedValue(ValueWhen( pSp, L,Llb));
xSp0 = SelectedValue(ValueWhen( pSp,x,Llb));
pkval=ValueWhen(pRp,H);
trval=ValueWhen(pSp,L);
UP = xRp0>xSp0;//upSwing
DN = xSp0>xRp0;//DownSwing
RT=IIf(UP,-100*(yRp0-L)/(yRp0-ySp0),100*(H-ySp0)/(yRp0-ySp0));
Delta = (yRp0 - ySp0) OR (ySp0-yRp0);
function fib(ret)
{
retval = (Delta * ret);
Fibval =
IIf(ret < 1.0 AND xSp0 < xRp0, yRp0 - retval,
IIf(ret < 1.0 AND xSp0 > xRp0, ySp0 + retval,
IIf(ret > 1.0 AND xSp0 < xRp0, yRp0 - retval,
IIf(ret > 1.0 AND xSp0 > xRp0, ySp0 + retval, Null))));
return FibVal;
}
x0 = Min(xSp0,xRp0)-Back;
x1 = (BarCount -1);
r236 = fib(0.236); r236I = LastValue (r236,1);
r382 = fib(0.382); r382I = LastValue (r382,1);
r050 = fib(0.50); r050I = LastValue (r050,1);
r618 = fib(0.618); r618I = LastValue (r618,1);
r786 = fib(0.786); r786I = LastValue (r786,1);
e127 = fib(1.27); e127I = LastValue (e127,1);
e162 = fib(1.62); e162I = LastValue (e162,1);
e200 = fib(2.00); e200I = LastValue (e200,1);
e262 = fib(2.62); e262I = LastValue (e262,1);
e324 = fib(3.24); e324I = LastValue (e324,1);
e424 = fib(4.24); e424I = LastValue (e424,1);
p00 = IIf(xSp0 > xRp0,ySp0,yRp0); p00I = LastValue (p00,1);
p100 = IIf(xSp0 < xRp0,ySp0,yRp0); p100I = LastValue (p100,1);
color00 =IIf(xSp0 > xRp0,colorLime,colorRed);
color100 =IIf(xSp0 < xRp0,colorLime,colorRed);
numbars = LastValue(Cum(Status("barvisible")));
fraction= IIf(StrRight(Name(),3) == "", 3.2, 3.2);
if(fibs==1)
{
Plot(LineArray(xRp0-Fwd,yRp0,x1,yRp0,Back),"res",31,9|styleNoRescale,Null,Null,Fwd);
Plot(LineArray(xSp0-Fwd,ySp0,x1,ySp0,Back),"sup",31,9|styleNoRescale,Null,Null,Fwd);
Plot(LineArray(x0-Fwd,r236,x1,r236,back),"",31,style|styleNoRescale, Null,Null,Fwd);
Plot(LineArray(x0-Fwd,r382,x1,r382,Back),"",31,style|styleNoRescale, Null,Null,Fwd);
Plot(LineArray(x0-Fwd,r050,x1,r050,Back),"",31,style|styleNoRescale, Null,Null,Fwd);
Plot(LineArray(x0-Fwd,r618,x1,r618,Back),"",31,style|styleNoRescale, Null,Null,Fwd);
Plot(LineArray(x0-Fwd,r786,x1,r786,Back),"",31,style|styleNoRescale, Null,Null,Fwd);
Plot(LineArray(x0-Fwd,e127,x1,e127,Back),"e127",31,style|styleNoRescale,Null,Null,Fwd);
Plot(LineArray(x0-Fwd,e162,x1,e162,Back),"e162",31,style|styleNoRescale,Null,Null,Fwd);
Plot(LineArray(x0-Fwd,e200,x1,e200,Back),"p200",31,8|styleNoRescale,Null,Null,Fwd);
Plot(LineArray(x0-Fwd,e262,x1,e262,Back),"p262",31,style|styleNoRescale,Null,Null,Fwd);
Plot(LineArray(x0-Fwd,e324,x1,e324,Back),"p324",31,style|styleNoRescale,Null,Null,Fwd);
Plot(LineArray(x0-Fwd,e424,x1,e424,Back),"p424",31,style|styleNoRescale,Null,Null,Fwd);
}
if(text==1)
{
PlotText(" 0% = " + WriteVal(p00,fraction),LastValue(BarIndex())-(numbars/hts), p00I + 0.05, color00);
PlotText("23% = " + WriteVal(r236,fraction),LastValue(BarIndex())-(numbars/hts), r236I + 0.05, 45);
PlotText("38% = " + WriteVal(r382,fraction),LastValue(BarIndex())-(numbars/hts), r382I + 0.05, 44);
PlotText("50% = " + WriteVal(r050,fraction),LastValue(BarIndex())-(numbars/hts), r050I + 0.05, 41);
PlotText("62% = " + WriteVal(r618,fraction),LastValue(BarIndex())-(numbars/hts), r618I + 0.05, 43);
PlotText("78% = " + WriteVal(r786,fraction),LastValue(BarIndex())-(numbars/hts), r786I + 0.05, 42);
PlotText("100% = " + WriteVal(p100,fraction),LastValue(BarIndex())-(numbars/hts),p100I + 0.05, color100);
PlotText("127% = " + WriteVal(e127,fraction),LastValue(BarIndex())-(numbars/hts),e127I + 0.05, 47);
PlotText("162% = " + WriteVal(e162,fraction),LastValue(BarIndex())-(numbars/hts),e162I + 0.05, 47);
PlotText("200% = " + WriteVal(e200,fraction),LastValue(BarIndex())-(numbars/hts),e200I + 0.05, 47);
PlotText("262% = " + WriteVal(e262,fraction),LastValue(BarIndex())-(numbars/hts),e262I + 0.05, 47);
PlotText("324% = " + WriteVal(e324,fraction),LastValue(BarIndex())-(numbars/hts),e324I + 0.05, 47);
PlotText("424% = " + WriteVal(e424,fraction),LastValue(BarIndex())-(numbars/hts),e424I + 0.05, 25);
}
_SECTION_END();
كذا تمام او بس تبغا نسبة 50 و 61 بس و خذ راحتك اطلب الله يوفقك
26-10-2014, 10:13 AM
تعليمات المشاركة
