Hola,

Aquí tienes el código con las 3 líneas.

//-------------------------------------------------------//
//-----Inputs--------------------------------------------//
itvs=9 //Short interval
itvm=36 //Middle interval
itvl=52 //Long interval
src=close
upperband=80 //High Line %
lowerband=-80 //Low Line %
//-------------------------------------------------------//
//-----RCI Short Term------------------------------------//
ditvs=0
for i=0 to itvs-1 do

psh=src[i]
orditvs=1
ssh=0
for j=0 to itvs-1 do
if psh<src[j] then
orditvs=orditvs+1
else
if psh=src[j] then
ssh=ssh+1
orditvs=orditvs+(ssh-1)/2
endif
endif
next

ditvs=ditvs+pow((i+1)-orditvs,2)
next

RCIShort=(1-6*ditvs/(itvs*(itvs*itvs-1)))*100
//-------------------------------------------------------//
//-----RCI Middle Term---------------------------------------//
ditvm=0
for i=0 to itvm-1 do

pmd=src[i]
orditvm=1
smd=0
for j=0 to itvm-1 do
if pmd<src[j] then
orditvm=orditvm+1
else
if pmd=src[j] then
smd=smd+1
orditvm=orditvm+(smd-1)/2
endif
endif
next

ditvm=ditvm+pow((i+1)-orditvm,2)
next

RCIMiddle=(1-6*ditvm/(itvm*(itvm*itvm-1)))*100
//-----RCI Long Term-------------------------------------//
ditvl=0
for i=0 to itvl-1 do

plg=src[i]
orditvl=1
slg=0
for j=0 to itvl-1 do
if plg<src[j] then
orditvl=orditvl+1
else
if plg=src[j] then
slg=slg+1
orditvl=orditvl+(slg-1)/2
endif
endif
next

ditvl=ditvl+pow((i+1)-orditvl,2)
next

RCILong=(1-6*ditvl/(itvl*(itvl*itvl-1)))*100
//-------------------------------------------------------//
return RCIShort as "RCI Short" coloured("red"), RCIMiddle as "RCI Middle"coloured("blue"), RCILong as "RCI Long"coloured("green"), upperband as "High Line %"style(dottedline), lowerband as "Low Line %" style(dottedline)

EURUSD-Daily.png