//-----------------------------------------------//
//RSI Divergence Screener
//Iván González @ www.prorealcode.com
//Sharing ProRealTime knowledge
//-----------------------------------------------//
// inputs
//-----------------------------------------------//
src=(open+high+low+close)/4
x=5
z=25
revpct=0.01
//ialert=25
rsiprd=14
ob=70
os=30
//-----------------------------------------------//
// RSI calculation
//-----------------------------------------------//
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
//-----------------------------------------------//
// 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
Screener[(bullishdiv or bearishdiv) and Volume>1000000]
