rem ---------------------Manipulacion---------------------

rem Indicador que trata de diferenciar que parte del volumen de negociación
rem corresponde a manos débiles y a manos fuertes.
rem Creado por gestur

rem Variables que controlan el rango adaptativo del area azul y verde.

once divazul=1
once divverde=1

nvol=80
adapt=2
zoomazul=5
zoomverde=5

rem Periodo 1 y 2 de las medias moviles que se encargan de detectar cambios de direccion.
n1=50
n2=3
n3=6

m1 = Average[n1](close)
m2 = Average[n2](close)
m3 = Average[n3](close)

volm = average[nvol](volume)
diferencia1 = Average[2](m2) - Average[2](m1)
diferencia2 = Average[2](m3) - Average[2](m1)
mani1 = (m2 - m1 - diferencia1) / 2
mani2 = m3 - m1 - diferencia2
mani = mani1 + mani2
diferencia = diferencia1

volp = volume / volm

if volp = 0 then
volp = 1
volm = 1
endif

a = (diferencia / open) * volp
b = (close - m1) / close
c = (open - close[1]) / close[1]
d = (close - open) / close

rem Calculamos las franjas azul y verdes en funcion de los dos supuestos y los adaptamos al rango dinamico.
azul = (mani + ((d-c) * volp)) * volp - a
verde = b * volp

if volp <> 0 then
if averde[1] > 1 or averde[1] < -1 then 
divverde = divverde * (1 + adapt / 50) 
else 
divverde = divverde / (1 + adapt / 600) 
endif 
if aazul[1] > 1 or aazul[1] < -1 then
divazul = divazul * (1 + adapt / 50) 
else 
divazul = divazul / (1 + adapt / 600) 
endif 
averde = verde / divverde * zoomverde 
aazul = azul / divazul * zoomazul 
endif 
if averde > 8 then
averde = 8
endif
if averde < -8 then 
averde = -8 
endif 
if aazul > 8 then
aazul = 8
endif
if aazul <-8 then
aazul = -8
endif

rem Ajustamos el indice de manipulacion para que se mantenga en un rango razonable.
amani=mani/(highest[nvol](mani)-lowest[nvol](mani))*2

return 0 COLOURED (0,0,0) as "cero", aazul COLOURED(0,255,255) as "azul", averde COLOURED(102,255,102) as "verde", aazul COLOURED (0,51,255) as "lazul", averde COLOURED (0,153,51) as "lverde", amani COLOURED (153,102,0) as "mani"