Hello,
I copied the code posted by Nicolas in his arrays post and tried to improve it. Unfortunately I couldn’t;)
In detail, I modified 3 points:
- the fractal to find the top and bottoms, but it’s a detail
- I’m mixing bottoms and tops to find overlap, instead of classic support and resistance
- to avoid having multiple zone mixing each other around the same price, I tried to add a third array, in order to store the levels found, and then displayed only those which have enough space space between them. However, this is the part bugging…
Does someone knows how to fix the third point? I think the error is around the part:
for x=0 to lastset($overlap) do
if abs(($BOTy[y]+$TOPy[i])/2 – $overlap[x])>percent*2 then
count=count+1
endif
if count=lastset($overlap) then
….
defparam calculateonlastbars=200
barlimit = 200
percent=0.1
//the fractal code to find top/bottoms
if low[1]>low[4] and low[2]>low[4] and low[3]>low[4] and low[4]<low[5] and low[4]<low[6] and low[4]<low[7] then
$BOTy[lastset($BOTy)+1] = close[4] //store fractal value
$BOTx[lastset($BOTx)+1] = barindex[4] //stire fractal barindex
endif
if high[1]<high[4] and high[2]<high[4] and high[3]<high[4] and high[4]>high[5] and high[4]>high[6] and high[4]>high[7] then
$TOPy[lastset($TOPy)+1] = close[4] //store fractal value
$TOPx[lastset($TOPx)+1] = barindex[4] //store fractal barindex
endif
if(islastbarupdate and isset($topy[0]) and isset($boty[0])) then
for i = 0 to lastset($TOPy) do //loop through the tops
for y = 0 to lastset($BOTy) do //check each bottom
change=abs(($BOTy[y]-$topy[i])/$topy[i]) //percent range between a top and a bottom
if change<=percent/100 and barindex-$BOTx[y]<barlimit and $topx[i]<>$BOTx[y] then
if isset($overlap[0]) then //if the array is not empty
count=0
for x=0 to lastset($overlap) do // loop through the array of level
if abs(($BOTy[y]+$TOPy[i])/2 - $overlap[x])>percent*2 then // if the new level has enough space with those existing, I increment
count=count+1
endif
if count=lastset($overlap) then
$overlap[lastset($overlap)+1]=($BOTy[y]+$TOPy[i])/2
if close>min($BOTy[y],$topy[i]) then //define the color
r=0
g=255
else
r=255
g=0
endif
//plot points at each tops
DRAWPOINT($topx[i],$topy[i],2) COLOURED (r,g,0) BORDERCOLOR (r,g,0)
DRAWPOINT($BOTx[y],$BOTy[y],2) COLOURED (g,r,0) BORDERCOLOR (g,r,0)
//plot the zone
drawrectangle(min($BOTx[y],$topx[i]),$BOTy[y],barindex,$topy[i]) coloured(r,g,50,50) bordercolor(r,g,0)
endif
next
else
$overlap[lastset($overlap)+1]=($BOTy[y]+$TOPy[i])/2
if close>min($BOTy[y],$topy[i]) then //define the color
r=0
g=255
else
r=255
g=0
endif
//plot points at each tops
DRAWPOINT($topx[i],$topy[i],2) COLOURED (r,g,0) BORDERCOLOR (r,g,0)
DRAWPOINT($BOTx[y],$BOTy[y],2) COLOURED (g,r,0) BORDERCOLOR (g,r,0)
//plot the zone
drawrectangle(min($BOTx[y],$topx[i]),$BOTy[y],barindex,$topy[i]) coloured(r,g,50,50) bordercolor(r,g,0)
endif
endif
next
next
for i = 0 to lastset($BOTy) do //loop through the bottoms
for y = 0 to lastset($TOPy) do //check first bottom with other bottoms
change=abs(($TOPy[y]-$boty[i])/$boty[i]) //percent range between the 2 bottoms
if change<=percent/100 and barindex-$TOPx[y]<barlimit and $BOTx[i]<>$TOPx[y] then
if isset($overlap[0]) then
count=0
for x=0 to lastset($overlap) do
if abs(($BOTy[i]+$TOPy[y])/2 - $overlap[x])>percent*2 then
count=count+1
endif
next
if count=lastset($overlap) then
$overlap[lastset($overlap)+1]=($BOTy[i]+$TOPy[y])/2
if close<max($TOPy[y],$boty[i]) then //define the color
r=255
g=0
else
r=0
g=255
endif
DRAWPOINT($botx[i],$boty[i],2) COLOURED (r,g,0) BORDERCOLOR (r,g,0)
DRAWPOINT($TOPx[y],$TOPy[y],2) COLOURED (g,r,0) BORDERCOLOR (g,r,0)
drawrectangle(min($TOPx[y],$botx[i]),$TOPy[y],barindex,$boty[i]) coloured(r,g,50,50) bordercolor(r,g,0)
endif
else
$overlap[lastset($overlap)+1]=($BOTy[i]+$TOPy[y])/2
if close<max($TOPy[y],$boty[i]) then //define the color
r=255
g=0
else
r=0
g=255
endif
DRAWPOINT($botx[i],$boty[i],2) COLOURED (r,g,0) BORDERCOLOR (r,g,0)
DRAWPOINT($TOPx[y],$TOPy[y],2) COLOURED (g,r,0) BORDERCOLOR (g,r,0)
drawrectangle(min($TOPx[y],$botx[i]),$TOPy[y],barindex,$boty[i]) coloured(r,g,50,50) bordercolor(r,g,0)
endif
endif
next
next
endif
return
