Por casualidad he llegado a este post.

//-----------------------------------------------//
//-----------------------------------------------//
// inputs
//-----------------------------------------------//
src=(open+high+low+close)/4
x=5
z=25
revpct=0.01
ialert=25
rsiprd=14
ob=70
os=30
//-----------------------------------------------//

//-----------------------------------------------//
rv=rsi[rsiprd](src)
//-----------------------------------------------//
// Bullish Divergence
//-----------------------------------------------//
//--- Define lower low in price
llvx=lowest[x](src)
llvz=lowest[z](src)
srcLL=src>llvx*(1+revpct) and llvx<llvz[x]
//--- Define higher low in RSI
llvrsix=lowest[x](rv)
llvrsiz=lowest[z](rv)
rsiHL=rv>llvrsix and llvrsix>llvrsiz[x] and llvrsix<os

bullishDiv=srcLL and rsiHL

if bullishDiv then
count=1
else
count=1+count
endif

if count<ialert then
bullishDivAlert=10+50
else
bullishDivAlert=50
endif
colorbetween(bullishDivAlert,50,"green",100)
//-----------------------------------------------//
// Bearish Divergence
//-----------------------------------------------//
//--- define higher high in price
hhvx=highest[x](src)
hhvz=highest[z](src)
srcHH=src<hhvx*(1-revpct) and hhvx>hhvz[x]

//--- define lower high in rsi
hhvrsix=highest[x](rv)
hhvrsiz=highest[z](rv)
rsiLH=rv<hhvrsix and hhvrsix<hhvrsiz[x] and hhvrsix>ob

bearishDiv=srcHH and rsiLH
if bearishDiv then
countbear=1
else
countbear=1+countbear
endif

if countbear<ialert then
bearishDivAlert=50-10
else
bearishDivAlert=50
endif
colorbetween(bearishDivAlert,50,"red",100)
//-----------------------------------------------//
if bullishdiv then
red=0
green=255
blue=0
elsif bearishdiv then
red=255
green=0
blue=0
else
red=0
green=0
blue=255
endif
//-----------------------------------------------//
return rv as "RSI" coloured(red,green,blue)style(line,2), bullishDivAlert coloured("green"), bearishDivAlert coloured("red"), ob style(dottedline), os style(dottedline), 50 as "midline"