شرح كيفية صنع بعض معادلات الايمي بروكر

المشاركة الأصلية كتبت بواسطة douplexx

حياك الداب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(xx, xy, bx, by), "", color);//xb
plot(linearray(cx, cy, bx, by), "", color);//xb
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();



و بالتوفيق