اصحاب الايمي بروكر ممكن معادله موجات اليوت والذئب ؟؟؟

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

version(5.20);
setchartbkcolor(16);
setbarsrequired(sbrall);
graphxspace=param("graphxspace",15,-100,300,1);
daynum= now(9);//day of the week
satsun= iif((daynum==1 or daynum==7),1,0);
dec= iif(strright(name(),3) == "", 3.2, 3.2);
dec= (param("decimals",2,0,7,1)/10)+1;
uc= paramcolor("up candle fill color",19);
dc= paramcolor("dn candle fill color",24);
nc= paramcolor("neutral fill color",21);
bc= barcount-1;
x= barindex();
lx= lastvalue(x);
sx= selectedvalue(x);
//==============================
setbarfillcolor(iif(c>o,uc,iif(c<o,dc,nc)));
plot(c,"",iif(c>ref(c,-1),34,iif(c<ref(c,-1),32,42)),64);
plot(ma(c,200),"",52,4);
//========= gfx status =========
lvb= status("lastvisiblebar");
fvb= status("firstvisiblebar");
mny= status("axisminy"); mxy= status("axismaxy");
pxl= status("pxchartleft"); pxw= status("pxchartwidth");
pxh= status("pxchartheight"); pxb= status("pxchartbottom");
mth= mxy-mny;
tvb= lvb-fvb;
function tpx(x) { return pxl+(x-fvb)*pxw/(tvb+1); }
function tpy(y) { return pxb-floor(0.5 +(y-mny)*pxh/mth); }
//======== gfx flat line ========
procedure sln(xs,ys,xe,col,thk,sty) {
xs=lastvalue(tpx(xs)); ys=lastvalue(tpy(ys));
xe=lastvalue(tpx(xe)); av=xs>0 and xe>xs;
gfxselectpen(col,thk,sty); gfxsetbkcolor(16);
iif(av,gfxpolyline(xs,ys,xe,ys),null); }
//======== fib function =========
f0=0; f1=0; p=0; n=0; d=0;
function fvd(fib) {
fv=fib*d; ffv=iif(p,f0+fv,f0-fv);
return iif(ffv>0,ffv,null); }
//======== plot shapes ========
procedure pshp(x,y,shp,co,shf) {
x=selectedvalue(x); y=selectedvalue(y);
plotshapes(iif(barindex()==x,shp,0),co,0,y,shf); }
//======== fractal peak trough ========
x= barindex();
function pkid(nb){ p=h==hhv(h,2*nb)and ref(hhv(h,nb),nb)<h;
return p and lastvalue(x)-valuewhen(p,x)>nb; }
function trid(nb){ t=l==llv(l,2*nb)and ref(llv(l,nb),nb)>l;
return t and lastvalue(x)-valuewhen(t,x)>nb; }
//=============================
_section_begin("select pivots");
//=============================
//setbarsrequired(sbrall,sbrall);
nn= param("fractal minimum",7,2,150,1);
plf= paramlist("pivots/ribbon","off|fractals|ribbon|both",0);
wwv=paramtoggle("plot wolfe wave","off|on",1);
cvg= paramtoggle("require convergence","off|on",1);
sym= paramtoggle("require symmetry","off|on",1);
fib=paramtoggle("fib retracements","off|on",1);
mnr= param("min time retrace %",0.50,0.50,1.00,0.01);//min % of p1-p2 bars
mxr= param("max time retrace %",1.62,1.00,4.00,0.01);//max % of p1-p2 bars
mx5= param("max p5 time retrace %",2.62,1,5,0.01);//max % of p2-p3 bars
nmn= param("near 5 %",0.62,0.50,0.995,0.001);//% of retrace
//==================
x= barindex();
lx=lastvalue(x);
//==================
pk= pkid(nn); tr= trid(nn);
tx1= valuewhen(tr,x,1); px2= valuewhen(pk,x,2);
pk= iif(pk,iif(px2<tx1,pk,iif(valuewhen(pk,h,2)>h,false,pk)),pk);
px1= valuewhen(pk,x,1); tx2= valuewhen(tr,x,2);
tr= iif(tr,iif(tx2<px1,tr,iif(valuewhen(tr,l,2)<l,false,tr)),tr);
px0= valuewhen(pk,x,0); tx0= valuewhen(tr,x,0);
py0= valuewhen(pk,h,0); ty0= valuewhen(tr,l,0);
pk= iif(pk and px0>x,iif(px0<tx0,iif(py0>=h,false,pk),pk),pk);
tr= iif(tr and tx0>x,iif(tx0<px0,iif(ty0<=l,false,tr),tr),tr);
//===================
px= barssince(pk==1); tx= barssince(tr==1);
sup= selectedvalue(px) > selectedvalue(tx);
res= selectedvalue(tx)>= selectedvalue(px);
shp=shapesmallcircle;
col= iif(pk==1,42,iif(tr==1,10,iif(px>tx,19,iif(tx>px,24,29))));
if(plf=="ribbon" or plf=="both")plot(2.25,"f
swing",col,styleownscale|stylearea|4096,-1,100);
if(plf=="fractals" or plf=="both"){plotshapes(shp*pk,42,0,h,5);
plotshapes(shp*tr,10,0,l,-5);}
//===================
yr1= valuewhen(pk,h,1); xr1= valuewhen(pk,x,1);
yr2= valuewhen(pk,h,2); xr2= valuewhen(pk,x,2);
yr3= valuewhen(pk,h,3); xr3= valuewhen(pk,x,3);
ys1= valuewhen(tr,l,1); xs1= valuewhen(tr,x,1);
ys2= valuewhen(tr,l,2); xs2= valuewhen(tr,x,2);
ys3= valuewhen(tr,l,3); xs3= valuewhen(tr,x,3);
//======== 5 point bear wave ========
be45xr= (xs1-xr2)/(xs2-xr3);
be55xr= (xr1-xs1)/(xr2-xs2);
becvg5= (yr2-ys1)<=(yr3-ys2);
be45xv= be45xr>=mnr and be45xr<=mxr;
be55xv= be55xr>=mnr and be55xr<=mx5;
if(sym==0)bexo5= xr1>xs1 and xs1>xr2 and xr2>xs2 and xs2>xr3;
if(cvg==0)bepo5= yr2>yr3 and yr1>yr2 and ys1>ys2 and ys1<yr2;
if(sym==1)bexo5= xr1>xs1 and xs1>xr2 and xr2>xs2 and xs2>xr3 and be45xv and
be55xv;
if(cvg==1)bepo5= yr2>yr3 and yr1>yr2 and ys1>ys2 and ys1<yr2 and becvg5;
bq5= bexo5 and bepo5;
//===================
x15= selectedvalue(valuewhen(bq5,xr3));
y15= selectedvalue(valuewhen(bq5,yr3));//p1
x25= selectedvalue(valuewhen(bq5,xs2));
y25= selectedvalue(valuewhen(bq5,ys2));//p2
x35= selectedvalue(valuewhen(bq5,xr2));
y35= selectedvalue(valuewhen(bq5,yr2));//p3
x45= selectedvalue(valuewhen(bq5,xs1));
y45= selectedvalue(valuewhen(bq5,ys1));//p4
x55= selectedvalue(valuewhen(bq5,xr1));
y55= selectedvalue(valuewhen(bq5,yr1));//p5
ln135= linearray(x15,y15,x35,y35,1);
ln245= linearray(x25,y25,x45,y45,1);
trgt5= linearray(x15,y15,x45,y45,1);
//========= bear plotting =========
if(wwv) {
plot(ln135,"",25,4|2048);
plot(ln245,"",43,4|2048);
plot(trgt5,"",42,4|2048);
pshp(x15,y15,shapedigit1,42,15); pshp(x25,y25,shapedigit2,42,-15);
pshp(x35,y35,shapedigit3,42,15); pshp(x45,y45,shapedigit4,42,-15);
pshp(x55,y55,shapedigit5,42,15);
}
x5up= valuewhen(x>x45,cross(h,ln135));
x5dn= valuewhen(x>x45,cross(ln135,h));
near= valuewhen(x>x45,c>ln245+(ln135-ln245)*nmn and c<ln135 and not x5up and
not x5dn);
//======== bear price & time fibs ========
if(fib) {
//======== price fibs ========
p=x45>x35; n=x45<x35; f0=y45; f1=y35; d=y35-y45;//price fibs
i618=fvd(0.618); i127=fvd(1.27); i162=fvd(1.62);
//====== price ap fibs ======
p=x45>x35; n=x45<x35; f0=y45; f1=y35; d=y35-y25;//ap fibs
a618=fvd(0.618); a100=fvd(1.00); a127=fvd(1.27);
a162=fvd(1.62); a200=fvd(2.00); a224=fvd(2.24); a262=fvd(2.62);
//======== time fibs ========
p=x45>x35; n=x45<x35; f0=x45; f1=x35; d=x35-x25;//time fibs
x500=fvd(0.500); x618=fvd(0.618); x100=fvd(1.00);
x162=fvd(1.618); x262=fvd(2.62);
//======== plotting ========
sln(x500,i618,x162,43,1,1); sln(x500,i127,x162,36,1,1);
sln(x500,i162,x162,34,1,1); sln(x500,y35,x162,32,1,1);
sln(x500,a618,x162,43,1,0); sln(x500,a100,x262,55,1,0);
sln(x500,a127,x262,44,1,0); sln(x500,a162,lx,34,1,0);
sln(x100,a200,lx,52,1,0); sln(x100,a224,lx,42,1,0);
sln(x100,a262,lx,51,1,0);
}
//===================
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxx
//======== 5 point bull wave ========
bu45xr= (xr1-xs2)/(xr2-xs3);
bu55xr= (xs1-xr1)/(xs2-xr2);
bucvg5= (yr1-ys2)<=(yr2-ys3);
bu45xv= bu45xr>=mnr and bu45xr<=mxr;
bu55xv= bu55xr>=mnr and bu55xr<=mx5;
if(sym==0)buxo5= xs1>xr1 and xr1>xs2 and xs2>xr2 and xr2>xs3;
if(cvg==0)bupo5= yr2>ys3 and yr2>yr1 and ys3>ys2 and ys2>ys1 and yr2>yr1 and
yr1>ys3;
if(sym==1)buxo5= xs1>xr1 and xr1>xs2 and xs2>xr2 and xr2>xs3 and bu45xv and
bu55xv;
if(cvg==1)bupo5= yr2>ys3 and yr2>yr1 and ys3>ys2 and ys2>ys1 and yr2>yr1 and
yr1>ys3 and bucvg5;
pq5= buxo5 and bupo5;
//===================
x15= selectedvalue(valuewhen(pq5,xs3));
y15= selectedvalue(valuewhen(pq5,ys3));//p1
x25= selectedvalue(valuewhen(pq5,xr2));
y25= selectedvalue(valuewhen(pq5,yr2));//p2
x35= selectedvalue(valuewhen(pq5,xs2));
y35= selectedvalue(valuewhen(pq5,ys2));//p3
x45= selectedvalue(valuewhen(pq5,xr1));
y45= selectedvalue(valuewhen(pq5,yr1));//p4
x55= selectedvalue(valuewhen(pq5,xs1));
y55= selectedvalue(valuewhen(pq5,ys1));//p5
ln135= linearray(x15,y15,x35,y35,1);
ln245= linearray(x25,y25,x45,y45,1);
trgt5= linearray(x15,y15,x45,y45,1);
//========= bull plotting =========
if(wwv) {
plot(ln135,"",27,4|2048);
plot(ln245,"",32,4|2048);
plot(trgt5,"",51,4|2048);
pshp(x15,y15,shapedigit1,43,-15); pshp(x25,y25,shapedigit2,43,15);
pshp(x35,y35,shapedigit3,43,-15); pshp(x45,y45,shapedigit4,43,15);
pshp(x55,y55,shapedigit5,10,-15);
}
x5up= valuewhen(x>x45,cross(l,ln135));
x5dn= valuewhen(x>x45,cross(ln135,l));
near= valuewhen(x>x45,c<ln245-(ln245-ln135)*nmn and not x5up and not x5dn);
//======== bear price & time fibs ========
if(fib) {
//======== price fibs ========
p=x45<x35; n=x45>x35; f0=y45; f1=y35; d=y45-y35;//price fibs
i618=fvd(0.618); i127=fvd(1.27); i162=fvd(1.62);
//====== price ap fibs ======
p=x45<x35; n=x45>x35; f0=y45; f1=y35; d=y25-y35;//ap fibs
a618=fvd(0.618); a100=fvd(1.00); a127=fvd(1.27);
a162=fvd(1.62); a200=fvd(2.00); a224=fvd(2.24); a262=fvd(2.62);
//======== time fibs ========
p=x45>x35; n=x45<x35; f0=x45; f1=x35; d=x35-x25;//time fibs
x500=fvd(0.500); x618=fvd(0.618); x100=fvd(1.00);
x162=fvd(1.618); x262=fvd(2.62);
//======== plotting ========
sln(x500,i618,x162,43,1,1); sln(x500,i127,x162,36,1,1);
sln(x500,i162,x162,34,1,1); sln(x500,y35,x162,32,1,1);
sln(x500,a618,x162,43,1,0); sln(x500,a100,x262,55,1,0);
sln(x500,a127,lx,44,1,0); sln(x500,a162,lx,34,1,0);
sln(x100,a200,lx,52,1,0); sln(x100,a224,lx,42,1,0);
sln(x100,a262,lx,51,1,0);
}
requesttimedrefresh(1);
title = "\\c55" + title = name() + " " + fullname()+ " \\c32" +
date() + " \\c43" + "{{interval}} " +
"\\c55 open = \\c43" + writeval(o,dec) +
"\\c55 high = \\c43" + writeval(h,dec) +
"\\c55 low = \\c32" + writeval(l,dec) +
"\\c55 close = \\c52" + writeval(c,dec)+
"\\c55 volume = \\c43"+ writeval(v,dec) +
"\\c55 atr-9 = \\c42" + writeval(atr(9),dec) +
"\\c55 fractal =\\c10"+nn+"\\c55 bars " +
"\\c55 x = " + writeval(x,1)+"\n\n" +
"\\c55x4 retrace = \\c43"+ writeval(be45xr,1.2)+"%\n" +
"\\c55x5 retrace = \\c43"+ writeval(be55xr,1.2);
_section_begin("background");
setchartoptions(0,chartshowarrows|chartshowdates);
pricetitle=strformat("---- {{name}} ---------- {{values}}");
title ="averages" + pricetitle;
if( paramtoggle("tooltip shows", "all values|only prices" ) )
{
tooltip=strformat("open: %g\nhigh: %g\nlow: %g\nclose: %g (%.1f%%)\nvolume: "+numtostr( v, 1 ), o, h, l, c, selectedvalue( roc( c, 1 )));
}
setchartbkcolor(paramcolor("outer panel color ",colorblack)); // color of outer border
setchartbkgradientfill( paramcolor("inner panel color upper half",colorblack),paramcolor("inner panel color lower half",colorblack)); // color of inner panel
_section_end();

_section_begin("background text");
gfxsetbkmode(0); // transparent
gfxselectfont("tahoma", status("pxheight")/12 );
gfxtextout( "abo saleh", status("pxwidth")/2, status("pxheight")/3 );
gfxselectfont("tahoma", status("pxheight")/20 );
status("pxheight")/2 ;
setchartoptions(0,chartshowarrows|chartshowdates);graphxspace=5;


_section_begin("adx");
uptrend=pdi()>mdi()and signal()<macd();
downtrend=mdi()>pdi()and signal()>macd();
plot( 2, "adx",iif( uptrend, colorbrightgreen, iif( downtrend, colorred, colorblack )), styleownscale|stylearea|stylenolabel, -0.5, 100 );
_section_end();
graphxspace=5;