pvi = PositiveVolumeIndex(close)

pvim = ExponentialAverage[m](pvi)

pvimax = highest[90](pvim)

pvimin = lowest[90](pvim)

oscp = (pvi - pvim) * 100/ (pvimax - pvimin)

nvi =NegativeVolumeIndex(close)

nvim = ExponentialAverage[m](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[m](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"