N=40///N is the number of bars to look back for a divergence. Normal values are 20-40. Must be the same in both indicators
//% Bollinger
bollUp=BollingerUp[20](close)
bollDw=BollingerDown[20](close)
Pboll = (close-bolldw)/(bollUp-bollDw )*100
IF (BarIndex > 10+1+N) THEN
///divergencia bajista
IF (Pboll[1]>Pboll AND Pboll[1]>Pboll[2]) THEN
extremum2=Pboll[1]
extremum1=highest[N](Pboll)
preciomax2=close[1]
preciomax=Highest[N](close)
IF(extremum2<extremum1 AND preciomax2>preciomax[1]) THEN
for i=1 to N
if Pboll[i]=extremum1 then
zz=i
drawsegment (barindex[1], Pboll[1], barindex[zz], Pboll[zz]) coloured(200,0,0)
endif
next
endif
endif
///divergencia alcista
IF (Pboll[1]<Pboll AND Pboll[1]<Pboll[2]) THEN
extremum22=Pboll[1]
extremum11=lowest[N](Pboll)
preciomin2=close[1]
preciomin=lowest[N](close)
IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN
for i2=1 to N
if Pboll[i2]=extremum11[1] then
zz2=i2
drawsegment(barindex[1], Pboll[1], barindex[zz2], Pboll[zz2]) coloured(0,200,0)
endif
next
ENDIF
ENDIF
endif
return Pboll as "%Boll", 0 as "0"
