pvi = PositiveVolumeIndex(close)
 
pvim = ExponentialAverage(pvi)
 
pvimax = highest[90](pvim)
 
pvimin = lowest[90](pvim)
 
oscp = (pvi - pvim) * 100/ (pvimax - pvimin)
 
nvi =NegativeVolumeIndex(close)
 
nvim = ExponentialAverage(nvi)
 
nvimax = highest[90](nvim)
 
nvimin = lowest[90](nvim)
 
azul = (nvi - nvim) * 100/ (nvimax - nvimin)
 
xmf = MoneyFlowIndex[14]
 
OB1 = (BollingerUp[25](TotalPrice) + BollingerDown[25](TotalPrice)) / 2
OB2 = BollingerUp[25](TotalPrice) - BollingerDown[25](TotalPrice)
 
BollOsc = ((TotalPrice - OB1) / OB2 ) * 100
 
xrsi = rsi [14](TotalPrice)
 
STOC = Stochastic[21,3](TotalPrice)
 
marron = (xrsi + xmf + BollOsc + (STOC / 3))/2
 
verde = marron + oscp
 
media = ExponentialAverage(marron)
 
bandacero= 0
 
return verde COLOURED(102,255,102) as "verde" , marron COLOURED(255,204,153) as "marron" , marron COLOURED(51,0,0) as "lmarron" , azul COLOURED(0,255,255) as "azul" , verde COLOURED(0,102,0) as "lineav" , azul COLOURED(0,0,102) as "lazul" , media COLOURED(255,0,0) as "media" , bandacero COLOURED(0,0,0) as "cero"