PARANOIA

Paranoia , según la real academia de la lengua española  es una perturbación mental fijada en una idea o en un orden de ideas.
También es un indicador de última generación que intenta juntar en un solo indicador el  Macd , el Rsi y el estocástico , todos a la vez.
El nombre viene de que este indicador es una paranoia de Curses , el propietario del blog chartcurses.wordpress.com con un desarrollo de la idea original de mano de Jose Callao  jose7674.blogspot.com.es

Su aspecto visual así como unas pequeñas instrucciones de uso los teneís en estos gráficos que me mandó Jose :

Estamos de enhorabuena mangurrianes , en primicia para Bolsatrilera y todos sus lectores , se me ha cedido el código de este cañero indicador para su divulgación.

En el código original todas los parámetros de las variables se colocaban en el cuadro de variables .Para hacer más sencillo el paso de este código a la plataforma Prorealtime , me he tomado la libertad de incluir los parámetros en el código a excepción de n (detector de divergencias).

Dicen que de bien nacido es ser agradecido , así que desde aquí , demoslé las gracias a Jose y a Curses por cedernos esta herramienta :

-----------------------------------------------------------------------------------------------------

//INDICADOR PARANOIA
//DESARROLLADO POR CURSES Y JOSE 7674
// TWITTER: @cursetes
// chartcurses.wordpress.com


rem partimos del rsi, macd y estocastico
rem dándole mas importancial al macd, menos al rsi y mucho menos al estocastico
rem todas las variable son editables, excepto las proporciones


//PARANOIA RAPIDO
a=(RSI[13](close)-50)/50
valor1=ExponentialAverage[5](close)
valor2=ExponentialAverage[13](close)
valor3=valor1/valor2
valor4=ExponentialAverage[7](valor3)
b=(valor3/valor4-1)*100
c=(Stochastic[6,3](close)-50)/50
paranoiar=(((a*23.6)+(b*61.8)+(c*14.6))/3)/10



//PARANOIA LENTO
a2=((RSI[21](close))-50)/50
valor12=ExponentialAverage[12](close)
valor22=ExponentialAverage[26](close)
valor32=valor12/valor22
valor42=ExponentialAverage[9](valor32)
b2=(valor32/valor42-1)*100
c2=(Stochastic[21,3](close)-50)/50
paranoial=(((a2*23.6)+(b2*61.8)+(c2*14.6))/3)/10

cero=0
superior= 2 //zona de sobrecompra en diario
inferior= -2 //zona de sobreventa en diario


///La variable N es el numero de barras hacia atras que utilizamos para encontrar una divergencia


///Divergencias Paranoiar (RAPIDO)
IF (BarIndex > 10+1+N) THEN


IF (paranoiar[1]>paranoiar AND paranoiar[1]>paranoiar[2]) THEN
extremum2=paranoiar[1]
extremum1=highest[N](paranoiar)


preciomax2=close[1]
preciomax=Highest[N](close)
ENDIF


IF (paranoiar[1]<paranoiar AND paranoiar[1]<paranoiar[2]) THEN
extremum22=paranoiar[1]
extremum11=lowest[N](paranoiar)


preciomin2=close[1]
preciomin=lowest[N](close)
ENDIF


REM aseguramos que el maximo actual es inferior al maximo de las N barras previas
IF(extremum2<extremum1 AND preciomax2>preciomax[1]) THEN
signal = -0.25
ELSE
signal = 0
ENDIF


IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN
signal = 0.25
ENDIF


ENDIF


///Divergencia paranoiaL (lento)


IF (BarIndex > 10+1+N) THEN


IF (paranoial[1]>paranoial AND paranoial[1]>paranoial[2]) THEN
extremum4=paranoial[1]
extremum3=highest[N](paranoial)


preciomax4=close[1]
preciomax3=Highest[N](close)
ENDIF


IF (paranoial[1]<paranoial AND paranoial[1]<paranoial[2]) THEN
extremum44=paranoial[1]
extremum33=lowest[N](paranoial)


preciomin4=close[1]
preciomin3=lowest[N](close)
ENDIF


REM aseguramos que el maximo actual es inferior al maximo de las N barras previas
IF(extremum4<extremum3 AND preciomax4>preciomax3[1]) THEN
signal2 = -0.5
ELSE
signal2 = 0
ENDIF


IF(extremum44>extremum33 AND preciomin4<preciomin3[1]) THEN
signal2 = 0.5
ENDIF


ENDIF


RETURN signal2 as "dlento", signal as "drapido", paranoiar as "paranoiar", paranoial as "Paranoial", cero as "0", superior as "2", inferior as "-2"

--------------------------------------------------------------------------------------------------------

En el cuadro de variables :

n = detector de divergencias = 15


Configurar dlento y drapido en estilo histograma añadiendo colores para positivo y negativo.