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

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

الله يجزاك بكل خير ويوفقك

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

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

خالد عندي نفس معادلتك باختلاف النموذج

_section_begin("a b c");
// afl code by edward pottasch, jan 2013
// 123 pattern (as part of uncompleted abcd pattern)
requesttimedrefresh(0.1,true);
xx=barindex();x=xx;lx=lastvalue(x);
nbar=param("n pivot bars",5,2,50,1);
tf=param("time frame (min)",5,1,1440,1);tfrm=in1minute*tf;
cleanpivots=paramtoggle("use clean pivots","off|on",1);
pivotsymmetry=paramtoggle("use symmetric pivots","off|on",0);
dispbe123=paramtoggle("display bearish 123","off|on",1);
dispbu123=paramtoggle("display bullish 123","off|on",1);
dispberetracevalues=paramtoggle("display retrace value (bearish)","off|on",1);
dispburetracevalues=paramtoggle("display retrace value (bullish)","off|on",1);
displabels=paramtoggle("display labels","off|on",1);
entrytype=paramtoggle("entry type","regular|agressive",1);
signalrangecheck=paramtoggle("signal entry range limit","off|on",1);
extendrange=param("extended entry range",100,0,500,1);
minretrace=param("retrace minimum",0.382,0,2,0.01);
maxretrace=param("retrace maximum",0.88,0,6,0.01);

timeframeset(tfrm);
if(pivotsymmetry)
{
fc=1;
pk=h>ref(hhv(h,nbar*fc),-1) and ref(hhv(h,nbar),nbar)<=h;
tr=l<ref(llv(l,nbar*fc),-1) and ref(llv(l,nbar),nbar)>=l;
}
else
{
fc=2;
pk=h>ref(hhv(h,nbar*fc),-1) and ref(hhv(h,nbar),nbar)<=h;
tr=l<ref(llv(l,nbar*fc),-1) and ref(llv(l,nbar),nbar)>=l;
}

px0=valuewhen(pk,x,0); tx0=valuewhen(tr,x,0);
px1=valuewhen(pk,x,1); tx1=valuewhen(tr,x,1);
px2=valuewhen(pk,x,2); tx2=valuewhen(tr,x,2);
px3=valuewhen(pk,x,3); tx3=valuewhen(tr,x,3);
ph0=valuewhen(pk,h,0); tl0=valuewhen(tr,l,0);
ph1=valuewhen(pk,h,1); tl1=valuewhen(tr,l,1);
ph2=valuewhen(pk,h,2); tl2=valuewhen(tr,l,2);
ph3=valuewhen(pk,h,3); tl3=valuewhen(tr,l,3);

if(cleanpivots)
{
tr=iif((tr==1 and pk==1) and px2<tx2 and lx!=barcount-1,false,tr);
pk=iif((tr==1 and pk==1) and px2>tx2 and lx!=barcount-1,false,pk);

px0=valuewhen(pk,x,0); tx0=valuewhen(tr,x,0);
px1=valuewhen(pk,x,1); tx1=valuewhen(tr,x,1);
px2=valuewhen(pk,x,2); tx2=valuewhen(tr,x,2);
px3=valuewhen(pk,x,3); tx3=valuewhen(tr,x,3);
ph0=valuewhen(pk,h,0); tl0=valuewhen(tr,l,0);
ph1=valuewhen(pk,h,1); tl1=valuewhen(tr,l,1);
ph2=valuewhen(pk,h,2); tl2=valuewhen(tr,l,2);
ph3=valuewhen(pk,h,3); tl3=valuewhen(tr,l,3);

tr=iif(tr and ((tx0<px0 and tl1>tl0) or (tx2>px1 and tl1>tl2) or (px0==px1 and tl1>tl0) or (tl1>tl0 and px0==tx0)),false,tr);
pk=iif(pk and ((px0<tx0 and ph1<ph0) or (px2>tx1 and ph1<ph2) or (tx0==tx1 and ph1<ph0) or (ph1<ph0 and px0==tx0)),false,pk);

px0=valuewhen(pk,x,0); tx0=valuewhen(tr,x,0);
px1=valuewhen(pk,x,1); tx1=valuewhen(tr,x,1);
px2=valuewhen(pk,x,2); tx2=valuewhen(tr,x,2);
px3=valuewhen(pk,x,3); tx3=valuewhen(tr,x,3);
ph0=valuewhen(pk,h,0); tl0=valuewhen(tr,l,0);
ph1=valuewhen(pk,h,1); tl1=valuewhen(tr,l,1);
ph2=valuewhen(pk,h,2); tl2=valuewhen(tr,l,2);
ph3=valuewhen(pk,h,3); tl3=valuewhen(tr,l,3);

tr=iif(tr and ((tx0<px0 and tl1>tl0) or (tx2>px1 and tl1>tl2) or (px0==px1 and tl1>tl0) or (tl1>tl0 and px0==tx0)),false,tr);
pk=iif(pk and (((px0<tx0 and ph1<ph0) or px2>tx1 and ph1<ph2) or (tx0==tx1 and ph1<ph0) or (ph1<ph0 and px0==tx0)),false,pk);

px0=valuewhen(pk,x,0); tx0=valuewhen(tr,x,0);
px1=valuewhen(pk,x,1); tx1=valuewhen(tr,x,1);
px2=valuewhen(pk,x,2); tx2=valuewhen(tr,x,2);
px3=valuewhen(pk,x,3); tx3=valuewhen(tr,x,3);
ph0=valuewhen(pk,h,0); tl0=valuewhen(tr,l,0);
ph1=valuewhen(pk,h,1); tl1=valuewhen(tr,l,1);
ph2=valuewhen(pk,h,2); tl2=valuewhen(tr,l,2);
ph3=valuewhen(pk,h,3); tl3=valuewhen(tr,l,3);
}
pkh=iif(pk,h,null);
trl=iif(tr,l,null);
timeframerestore();
fact=nz(max(tfrm/60,interval()/60)/(interval()/60));
if(fact==0)fact=1;
lkbk=nz(tfrm/interval());
if(lkbk>1)
{
pk=timeframeexpand(pk,tfrm,expandfirst);
pkh=timeframeexpand(pkh,tfrm,expandfirst);
pkhs=iif(!isempty(pkh),1,0);pkhs=pkhs-ref(pkhs,-1);
pk=pk and h==pkh;
cond1=sum(pk,barssince(pkhs==1)+1)==1 and pk;
pk=pk and cond1;

tr=timeframeexpand(tr,tfrm,expandfirst);
trl=timeframeexpand(trl,tfrm,expandfirst);
trls=iif(!isempty(trl),1,0);trls=trls-ref(trls,-1);
tr=tr and l==trl;
cond1=sum(tr,barssince(trls==1)+1)==1 and tr;
tr=tr and cond1;

px0=valuewhen(pk,x,0); tx0=valuewhen(tr,x,0);
px1=valuewhen(pk,x,1); tx1=valuewhen(tr,x,1);
px2=valuewhen(pk,x,2); tx2=valuewhen(tr,x,2);
px3=valuewhen(pk,x,3); tx3=valuewhen(tr,x,3);
ph0=valuewhen(pk,h,0); tl0=valuewhen(tr,l,0);
ph1=valuewhen(pk,h,1); tl1=valuewhen(tr,l,1);
ph2=valuewhen(pk,h,2); tl2=valuewhen(tr,l,2);
ph3=valuewhen(pk,h,3); tl3=valuewhen(tr,l,3);
}

ll=tr and tl1<tl2;
hl=tr and tl1>tl2;
hh=pk and ph1>ph2;
lh=pk and ph1<ph2;
dt=pk and ph1==ph2;
db=tr and tl1==tl2;

ll_h=iif(ll,1,0);
hl_h=iif(hl,2,0);
hh_h=iif(hh,3,0);
lh_h=iif(lh,4,0);
dt_h=iif(dt,5,0);
db_h=iif(db,6,0);

combi=ll_h+hl_h+lh_h+hh_h+dt_h+db_h;

t0=valuewhen(combi,combi,0);
t1=valuewhen(combi,combi,1);
t2=valuewhen(combi,combi,2);
t3=valuewhen(combi,combi,3);
t4=valuewhen(combi,combi,4);
t5=valuewhen(combi,combi,5);

// bearisch 123 pattern
be123=pk and t1==4 and t2==2;
beax=valuewhen(be123,tx2);beay=valuewhen(be123,tl2);
bebx=valuewhen(be123,px2);beby=valuewhen(be123,ph2);
becx=valuewhen(be123,tx1);becy=valuewhen(be123,tl1);
bedx=valuewhen(be123,px1);bedy=valuewhen(be123,ph1);
beretrace=(beby-becy)/(beby-beay);
be123=be123 and beretrace>minretrace and beretrace<maxretrace and bedy>becy;
rr=barssince(be123)>=0 and barssince(be123)<extendrange;
idx=iif(rr,xx-valuewhen(be123,becx),null);
if(entrytype) aa=(becy-beay)/(becx-beax);else aa=0;bb=becy;
aa=valuewhen(be123,aa);bb=valuewhen(be123,bb);
beex=valuewhen(be123,px1);ii=px1-becx;beey=aa*ii+bb;
be123=be123 and beey<bedy;
betrendline=iif(idx,aa*idx+bb,null);bevalidsignalarea=flip(be123,ref(tr,-1));
if(signalrangecheck) betrendline=iif(bevalidsignalarea,betrendline,null);
short=cross(betrendline,c) and !isempty(betrendline);short=ref(short,-1);shortprice=o;
short=exrem(short,be123);sell=0;

// bullish 123 pattern
bu123=tr and t1==2 and t2==4;
buax=valuewhen(bu123,px2);buay=valuewhen(bu123,ph2);
bubx=valuewhen(bu123,tx2);buby=valuewhen(bu123,tl2);
bucx=valuewhen(bu123,px1);bucy=valuewhen(bu123,ph1);
budx=valuewhen(bu123,tx1);budy=valuewhen(bu123,tl1);
buretrace=(bucy-buby)/(buay-buby);
bu123=bu123 and buretrace>minretrace and buretrace<maxretrace and budy<bucy;;
rr=barssince(bu123)>=0 and barssince(bu123)<extendrange;
idx=iif(rr,xx-valuewhen(bu123,bucx),null);
if(entrytype) aa=(bucy-buay)/(bucx-buax);else aa=0;bb=bucy;
aa=valuewhen(bu123,aa);bb=valuewhen(bu123,bb);
buex=valuewhen(bu123,tx1);ii=tx1-bucx;buey=aa*ii+bb;
bu123=bu123 and buey>budy;
butrendline=iif(idx,aa*idx+bb,null);buvalidsignalarea=flip(bu123,ref(pk,-1));
if(signalrangecheck) butrendline=iif(buvalidsignalarea,butrendline,null);
buy=cross(c,butrendline) and !isempty(butrendline);buy=ref(buy,-1);buyprice=o;
buy=exrem(buy,bu123);cover=0;

graphxspace=5;setchartbkcolor(colorrgb(0,0,0));setchartoptions(0,chartshowdate s);
setbarfillcolor(iif(c>o,colorgreen,iif(c<=o,colorred,colorlightgrey)));
plot(c,"price",iif(c>o,colordarkgreen,iif(c<=o,colordarkred,colorlightgrey)),6 4,0,0,0,0);
plot(pkh,"",colorred,stylethick,0,0,0,-1);
plot(trl,"",colorbrightgreen,stylethick,0,0,0,-1);
plotshapes(shapesmallcircle*tr,iif(lx-valuewhen(tr,x)>nbar*fact,colorrgb(0,100,0),colorwhite),0,l,-10);
plotshapes(shapesmallcircle*pk,iif(lx-valuewhen(pk,x)>nbar*fact,colorrgb(255,0,0),colorwhite),0,h,10);

qq=interval()/60;
if(qq < 60){tf=" min";tt=qq;}
else if(qq >= 60 and qq < 1440){tf=" hrs";tt=qq/60;}
else if(qq >= 1440){tf=" days";tt=(qq/60)/24;}
qq=max(tfrm/60,interval()/60);
if(qq < 60){tfa=" min";tta=qq;}
else if(qq >= 60 and qq < 1440){tfa=" hrs";tta=qq/60;}
else if(qq >= 1440){tfa=" days";tta=(qq/60)/24;}

title = name() +
"\nnbar: " + nbar +
"\nchart tf: " + tt + tf +
"\ntrend tf: " + tta + tfa;

abcdy_up=27;
abcdy_dn=15;
function getvisiblebarcount()
{
lvb=status("lastvisiblebar");
fvb=status("firstvisiblebar");
return min(lvb-fvb,barcount-fvb);
}
function gfxconvertpixelstobarx(pixels)
{
lvb=status("lastvisiblebar");
fvb=status("firstvisiblebar");
pxchartleft=status("pxchartleft");
pxchartwidth=status("pxchartwidth");
fac=pxchartwidth/pixels;
bar=(lvb-fvb)/fac;
return bar;
}
function gfxconvertpixeltovaluey(pixels)
{
local miny,maxy,pxchartbottom,pxchartheight;
miny=status("axisminy");
maxy=status("axismaxy");
pxchartbottom=status("pxchartbottom");
pxchartheight=status("pxchartheight");
fac=pxchartheight/pixels;
value=(maxy-miny)/fac;
return value;
}
function gfxconvertbartopixelx(bar)
{
lvb=status("lastvisiblebar");
fvb=status("firstvisiblebar");
pxchartleft=status("pxchartleft");
pxchartwidth=status("pxchartwidth");
return pxchartleft+bar*pxchartwidth/(lvb-fvb+1);
}
function gfxconvertvaluetopixely(value)
{
local miny,maxy,pxchartbottom,pxchartheight;
miny=status("axisminy");
maxy=status("axismaxy");
pxchartbottom=status("pxchartbottom");
pxchartheight=status("pxchartheight");
return pxchartbottom-floor(0.5+(value-miny)*pxchartheight/(maxy-miny));
}
allvisiblebars=getvisiblebarcount();
fvb=status("firstvisiblebar");
abcdy_up=gfxconvertpixeltovaluey(abcdy_up);
abcdy_dn=gfxconvertpixeltovaluey(abcdy_dn);

for(i=0;i<allvisiblebars;i++)
{
if(ll[i+fvb] and displabels)
{
lvix=i+fvb;gfxselectfont("tahoma",8,500); gfxsetbkmode(1);
gfxsettextcolor(coloryellow);gfxtextout("ll",
gfxconvertbartopixelx(i)-3,gfxconvertvaluetopixely(l[lvix]-abcdy_dn));
}
if(hl[i+fvb] and displabels)
{
lvix=i+fvb;gfxselectfont("tahoma",8,500); gfxsetbkmode(1);
gfxsettextcolor(coloryellow);gfxtextout("hl",
gfxconvertbartopixelx(i)-3,gfxconvertvaluetopixely(l[lvix]-abcdy_dn));
}
if(db[i+fvb] and displabels)
{
lvix=i+fvb;gfxselectfont("tahoma",8,500); gfxsetbkmode(1);
gfxsettextcolor(coloryellow);gfxtextout("db",
gfxconvertbartopixelx(i)-3,gfxconvertvaluetopixely(l[lvix]-abcdy_dn));
}
if(hh[i+fvb] and displabels)
{
lvix=i+fvb;gfxselectfont("tahoma",8,500); gfxsetbkmode(1);
gfxsettextcolor(coloryellow);gfxtextout("hh",
gfxconvertbartopixelx(i)-5,gfxconvertvaluetopixely(h[lvix]+abcdy_up));
}
if(lh[i+fvb] and displabels)
{
lvix=i+fvb;gfxselectfont("tahoma",8,500); gfxsetbkmode(1);
gfxsettextcolor(coloryellow);gfxtextout("lh",
gfxconvertbartopixelx(i)-5,gfxconvertvaluetopixely(h[lvix]+abcdy_up));
}
if(dt[i+fvb] and displabels)
{
lvix=i+fvb;gfxselectfont("tahoma",8,500); gfxsetbkmode(1);
gfxsettextcolor(coloryellow);gfxtextout("dt",
gfxconvertbartopixelx(i)-5,gfxconvertvaluetopixely(h[lvix]+abcdy_up));
}
if(be123[i+fvb] and dispbe123)
{
gfxsetoverlaymode(1);
gfxselectpen(colorrgb(100,0,0),2);
gfxselectsolidbrush(colorrgb(20,0,0));
lvix=i+fvb;
gfxsetbkmode(1);gfxsetoverlaymode(1);gfxselectpen(colorrgb(100,0,0),1,1);
gfxmoveto(gfxconvertbartopixelx(i-(bedx[lvix]-becx[lvix])),gfxconvertvaluetopixely(becy[lvix]));
gfxlineto(gfxconvertbartopixelx(i),gfxconvertvaluetopixely(bedy[lvix]));
gfxmoveto(gfxconvertbartopixelx(i-(bedx[lvix]-bebx[lvix])),gfxconvertvaluetopixely(beby[lvix]));
gfxlineto(gfxconvertbartopixelx(i),gfxconvertvaluetopixely(bedy[lvix]));
gfxselectpen(colorrgb(100,0,0),3,0);
gfxmoveto(gfxconvertbartopixelx(i-(bedx[lvix]-beax[lvix])),gfxconvertvaluetopixely(beay[lvix]));
gfxlineto(gfxconvertbartopixelx(i-(bedx[lvix]-bebx[lvix])),gfxconvertvaluetopixely(beby[lvix]));
gfxmoveto(gfxconvertbartopixelx(i-(bedx[lvix]-beax[lvix])),gfxconvertvaluetopixely(beay[lvix]));
gfxlineto(gfxconvertbartopixelx(i-(bedx[lvix]-becx[lvix])),gfxconvertvaluetopixely(becy[lvix]));
gfxmoveto(gfxconvertbartopixelx(i-(bedx[lvix]-bebx[lvix])),gfxconvertvaluetopixely(beby[lvix]));
gfxlineto(gfxconvertbartopixelx(i-(bedx[lvix]-becx[lvix])),gfxconvertvaluetopixely(becy[lvix]));
gfxselectfont("tahoma",10,500);gfxsetbkmode(1);
gfxsettextcolor(colorrgb(200,0,0));gfxtextout("1",gfxconvertbartopixelx(i-(bedx[lvix]-bebx[lvix]))-7,gfxconvertvaluetopixely(beby[lvix]+1.5*abcdy_up));
gfxsettextcolor(colorrgb(200,0,0));gfxtextout("2",gfxconvertbartopixelx(i-(bedx[lvix]-becx[lvix]))-7,gfxconvertvaluetopixely(becy[lvix]-1.6*abcdy_dn));
gfxsettextcolor(colorrgb(200,0,0));gfxtextout("3",gfxconvertbartopixelx(i-(bedx[lvix]-bedx[lvix]))-7,gfxconvertvaluetopixely(bedy[lvix]+1.5*abcdy_up));
plot(linearray(becx[lvix],becy[lvix],beex[lvix],beey[lvix],0,true ),"",colorrgb(100,0,0),styledashed);
plot(betrendline,"",colorrgb(100,0,0),styledots|stylenoline,0,0,0,0);
plotshapes(iif(short,shapesmalldowntriangle,shapenone),colorred,0,h,iif(short and sell,-30,-15));
plotshapes(iif(short,shapesmallcircle,shapenone),colorwhite,0,shortprice,0);
if(dispberetracevalues)
{
gfxselectfont("tahoma",8,650); gfxsetbkmode(2);gfxsetoverlaymode(1);gfxsetbkcolor(colordarkred);gfxsettextcol or(colorwhite);
gfxtextout(""+prec(beretrace[lvix],2),gfxconvertbartopixelx(i-(bedx[lvix]-(beax[lvix]+becx[lvix])/2)),gfxconvertvaluetopixely((beay[lvix]+becy[lvix])/2));
}
}
if(bu123[i+fvb] and dispbu123)
{
gfxsetoverlaymode(1);
gfxselectpen(colorrgb(0,100,0),2);
gfxselectsolidbrush(colorrgb(0,20,0));
lvix=i+fvb;
gfxsetbkmode(1);gfxsetoverlaymode(1);gfxselectpen(colorrgb(0,100,0),1,1);
gfxmoveto(gfxconvertbartopixelx(i-(budx[lvix]-bucx[lvix])),gfxconvertvaluetopixely(bucy[lvix]));
gfxlineto(gfxconvertbartopixelx(i),gfxconvertvaluetopixely(budy[lvix]));
gfxmoveto(gfxconvertbartopixelx(i-(budx[lvix]-bubx[lvix])),gfxconvertvaluetopixely(buby[lvix]));
gfxlineto(gfxconvertbartopixelx(i),gfxconvertvaluetopixely(budy[lvix]));
gfxselectpen(colorrgb(0,100,0),3,0);
gfxmoveto(gfxconvertbartopixelx(i-(budx[lvix]-buax[lvix])),gfxconvertvaluetopixely(buay[lvix]));
gfxlineto(gfxconvertbartopixelx(i-(budx[lvix]-bubx[lvix])),gfxconvertvaluetopixely(buby[lvix]));
gfxmoveto(gfxconvertbartopixelx(i-(budx[lvix]-buax[lvix])),gfxconvertvaluetopixely(buay[lvix]));
gfxlineto(gfxconvertbartopixelx(i-(budx[lvix]-bucx[lvix])),gfxconvertvaluetopixely(bucy[lvix]));
gfxmoveto(gfxconvertbartopixelx(i-(budx[lvix]-bubx[lvix])),gfxconvertvaluetopixely(buby[lvix]));
gfxlineto(gfxconvertbartopixelx(i-(budx[lvix]-bucx[lvix])),gfxconvertvaluetopixely(bucy[lvix]));
gfxselectfont("tahoma",10,500);gfxsetbkmode(1);
gfxsettextcolor(colorrgb(0,200,0));gfxtextout("1",gfxconvertbartopixelx(i-(budx[lvix]-bubx[lvix]))+3,gfxconvertvaluetopixely(buby[lvix]-1.6*abcdy_dn));
gfxsettextcolor(colorrgb(0,200,0));gfxtextout("2",gfxconvertbartopixelx(i-(budx[lvix]-bucx[lvix]))+3,gfxconvertvaluetopixely(bucy[lvix]+1.5*abcdy_up));
gfxsettextcolor(colorrgb(0,200,0));gfxtextout("3",gfxconvertbartopixelx(i-(budx[lvix]-budx[lvix]))+3,gfxconvertvaluetopixely(budy[lvix]-1.6*abcdy_dn));
plot(linearray(bucx[lvix],bucy[lvix],buex[lvix],buey[lvix],0,true ),"",colorrgb(0,100,0),styledashed);
plot(butrendline,"",colorrgb(0,100,0),styledots|stylenoline,0,0,0,0);
plotshapes(iif(buy,shapeuparrow,shapenone),colordarkgreen,0,l,-15);
plotshapes(iif(buy,shapesmallcircle,shapenone),colorwhite,0,buyprice,0);
if(dispburetracevalues)
{
gfxselectfont("tahoma",8,650); gfxsetbkmode(2);gfxsetoverlaymode(1);gfxsetbkcolor(colordarkgreen);gfxsettextc olor(colorwhite);
gfxtextout(""+prec(buretrace[lvix],2),gfxconvertbartopixelx(i-(budx[lvix]-(buax[lvix]+bucx[lvix])/2)),gfxconvertvaluetopixely((buay[lvix]+bucy[lvix])/2));
}
}
}
_section_end();

_section_begin("traingle 2");
function calculateposition(array,shift)
{
result = null;
for( i = 0; i < barcount; i++ )
{
if (array[ i ] == 1)
{
k = i - shift[ i ];
if( k >= 0 and k < barcount ) result[ k ] = 1;
}
}
return result;
}
function pattern_func(plow,bi,t1,t2,t3,aa,aabar,bb,bbbar,cc,ccbar,nbar)
{
pattern =
(t3 == 1) and (t2 == 3) and (t1 == 2) and plow and
bbbar - aabar > nbar and ccbar - bbbar > nbar;

return pattern;
}

// e.m.pottasch, 2/21/2011
// example code triangle fill using arrays

//setbarsrequired(sbrall,sbrall);
bi = barindex();
nbar = param("nbar",7,2,50,1);

// define fractals
phigh = h > ref(hhv(h,nbar),-1) and ref(hhv(h,nbar),nbar) <= h;
phighprice = valuewhen(phigh,h);
plow = l < ref(llv(l,nbar),-1) and ref(llv(l,nbar),nbar) >= l;
plowprice = valuewhen(plow,l);

ll = iif( plow and plowprice < ref(plowprice, -1), 1, 0 );
hl = iif( plow and plowprice >= ref(plowprice, -1), 2, 0 );
lh = iif( phigh and phighprice < ref(phighprice, -1), 3, 0 );
hh = iif( phigh and phighprice >= ref(phighprice, -1), 4, 0 );

combi = ll + hl + lh + hh;

t1 = valuewhen(combi,combi,1);
t2 = valuewhen(combi,combi,2);
t3 = valuewhen(combi,combi,3);

aa = valuewhen(plow,l,2);
aabar = valuewhen(plow,bi,2);
bb = valuewhen(phigh,h,1);
bbbar = valuewhen(phigh,bi,1);
cc = valuewhen(plow,l,1);
ccbar = valuewhen(plow,bi,1);

// calculate the end point of the pattern => c
pattern = pattern_func(plow,bi,t1,t2,t3,aa,aabar,bb,bbbar,cc,ccbar,nbar);

// calculate the starting point of the pattern => a
dbar = iif(pattern,ccbar-aabar,0);
hhh1 = calculateposition(pattern,dbar);
// calculate the middle point of the pattern => b
dbar = iif(pattern,ccbar-bbbar,0);
hhh2 = calculateposition(pattern,dbar);

// define x-axis range between a-c
rangeac = flip(hhh1,pattern);
// define x-axis range between a-b
rangeab = flip(hhh1,hhh2);
// define x-axis range between b-c
rangebc = flip(hhh2,pattern);

// extend ac
rangeac = iif(ref(rangeac,-1),ref(rangeac,-1),rangeac);

// now define the legs of the triangle
// ac leg
startval1 = valuewhen(plow,l,1);
endval1 = valuewhen(plow,l,0);
startbar1 = valuewhen(plow,bi,1);
endbar1 = valuewhen(plow,bi,0);
aa1 = (endval1-startval1)/(endbar1-startbar1);
bb1 = startval1;
acleg = aa1 * (bi - startbar1) + bb1;
acleg = iif(acleg and rangeac,acleg,null);

// ab leg
startval1 = valuewhen(plow,l,1);
endval1 = valuewhen(phigh,h,0);
startbar1 = valuewhen(plow,bi,1);
endbar1 = valuewhen(phigh,bi,0);
aa1 = (endval1-startval1)/(endbar1-startbar1);
bb1 = startval1;
ableg = aa1 * (bi - startbar1) + bb1;
ableg = iif(ableg and rangeab,ableg,null);

// bc leg
startval1 = valuewhen(phigh,h,1);
endval1 = valuewhen(plow,l,0);
startbar1 = valuewhen(phigh,bi,1);
endbar1 = valuewhen(plow,bi,0);
aa1 = (endval1-startval1)/(endbar1-startbar1);
bb1 = startval1;
bcleg = aa1 * (bi - startbar1) + bb1;
bcleg = iif(bcleg and rangebc,bcleg,null);

// define top and bottom array for polygon fill
toplinearray = iif(ableg,ableg,bcleg);
bottomlinearray = acleg;
toplinearray = iif(bottomlinearray and isempty(toplinearray),bottomlinearray,toplinearray);

// chart
graphxspace = 5;
setchartoptions(0, chartshowdates);
plot( c, "\nprice",colorbrightgreen, stylecandle );
plotshapes(shapesmallcircle*plow,colorgreen,0,l,-10);
plotshapes(shapesmallcircle*phigh,colorred,0,h,10);
plotshapes(iif(pattern,shapeuptriangle,shapenone),colorbrightgreen,0,l,-25);
plotshapes(iif(pattern,shapehollowuptriangle,shapenone),colorwhite,0,l,-25);
//plot(acleg,"",colorwhite,styleline);
//plot(ableg,"",colorwhite,styleline);
//plot(bcleg,"",colorwhite,styleline);
plot(toplinearray,"",colorwhite,styleline);
plot(bottomlinearray,"",colorwhite,styleline);

fillonoff = paramtoggle("fill pattern","fill off|fill on",1);
if (fillonoff)
{
plotohlc(toplinearray,toplinearray,bottomlinearray,bottomlinearray,"",
coloraqua, stylecloud | stylenolabel );
setchartbkcolor( paramcolor("background",colorblack));
}
_section_end();

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