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"