//-----Inputs------------------------------------------------//
prd = 10 // Pivots calculation periods
bull1 = 30 // % Minimum bullish trend first the bottom
bear1 = 10 // % Minimum bear market to create the bottom
diftop = 2 // % Diference between tops
difbot = 2 // % Diference between bottoms
//------------Pivots low-------------------------------------//
if low > low[prd] and lowest[prd](low) > low[prd] and low[prd] < lowest[prd](low)[prd+1] then
$pl[z+1] = low[prd]
$plx[z+1] = barindex[prd]
//drawtext("L",barindex[prd],low[prd]-0.2*tr)
//drawpoint(barindex[prd],low[prd],2)coloured("blue")
z = z + 1
endif
//-----------------------------------------------------------//
if z > 2 then
pl1 = $pl[max(0,z-2)]
pl2 = $pl[max(0,z-1)]
pl3 = $pl[z]
ph1 = highest[max(0,($plx[max(0,z-1)]-$plx[max(0,z-2)]))](high)[barindex-$plx[max(0,z-1)]]
ph2 = highest[max(0,($plx[max(0,z)]-$plx[max(0,z-1)]))](high)[barindex-$plx[max(0,z)]]
endif
//------------------------------------------------------------//
c1 = (ph1/pl1-1)*100 > bull1
c2 = (pl2/ph1-1)*100 < -bear1
c3 = abs(ph2/ph1-1)*100 < diftop
c4 = abs(pl3/pl2-1)*100 < difbot
setup = c1 and c2 and c3 and c4
screener[setup]
