// BLAI5 KONCORDE v.09
// versión actualizada y reformulada
// programada por Blai5
// Junio 2008
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”