RSCMansfield2 actualizado a 2016.09.19

Los screeners de prorealtime no permiten la utilización de su indicador de la fuerza Mansfield. Por eso Javier Alfayate recomienda crear un indicador propio que recoja los cierres del S&P500 de las últimas 52 semanas. Así podremos subrepticiamente usar ese indicador en nuestros screeners.

En el vídeo que está a continuación, Javier explica el sistema.

¿El problema?

La fórmula de Alfayate exige introducir a mano los cierres del S&P500 de las últimas 52 semanas, lo que es un co... ya sabes. Por suerte hay algunas personas que lo van actualizando. Yo me he encontrado uno actualizado a julio de 2016 y lo he actualizado aún más a 16 de septiembre de 2016. Espero que os sea de utilidad.

Ah y por cierto, recordad que como solo se introducen los valores de las últimas 52 semanas, este índice solo tiene sentido en uso semanal y para lo ocurrido en las últimas 52 semanas.

REM Indicador realizado por Javier Alfayate
REM administrador de Aguila Roja Sistemas de
REM trading y autor de accionesdebolsa.com
REM si vas a utilizar este código, no lo difundas
REM sin autorización expresa de mi parte.

REM este indicador está diseñado para los foreos
REM y no es un código definitivo. Es necesaria la
REM actualización de ciertos valores para su
REM correcto funcionamiento.

CountR=0
i=51

R = Close[i] / 1931.34
CountR = CountR + R
i=i-1

R = Close[i] / 1951.36
CountR = CountR + R
i=i-1

R = Close[i] / 2014.89
CountR = CountR + R
i=i-1

R = Close[i] / 2033.11
CountR = CountR + R
i=i-1

R = Close[i] / 2075.15
CountR = CountR + R
i=i-1

R = Close[i] / 2079.36
CountR = CountR + R
i=i-1

R = Close[i] / 2099.20
CountR = CountR + R
i=i-1

R = Close[i] / 2023.04
CountR = CountR + R
i=i-1

R = Close[i] / 2089.17
CountR = CountR + R
i=i-1

R = Close[i] / 2090.11
CountR = CountR + R
i=i-1

R = Close[i] / 2091.69
CountR = CountR + R
i=i-1

R = Close[i] / 2012.37
CountR = CountR + R
i=i-1

R = Close[i] / 2005.52
CountR = CountR + R
i=i-1

R = Close[i] / 2060.99
CountR = CountR + R
i=i-1

R = Close[i] / 2043.94
CountR = CountR + R
i=i-1

R = Close[i] / 1922.03
CountR = CountR + R
i=i-1

R = Close[i] / 1880.29
CountR = CountR + R
i=i-1

R = Close[i] / 1906.90
CountR = CountR + R
i=i-1

R = Close[i] / 1940.24
CountR = CountR + R
i=i-1

R = Close[i] / 1880.02
CountR = CountR + R
i=i-1

R = Close[i] / 1864.78
CountR = CountR + R
i=i-1

R = Close[i] / 1917.78
CountR = CountR + R
i=i-1

R = Close[i] / 1948.05
CountR = CountR + R
i=i-1

R = Close[i] / 1999.99
CountR = CountR + R
i=i-1

R = Close[i] / 2022.19
CountR = CountR + R
i=i-1

R = Close[i] / 2049.56
CountR = CountR + R
i=i-1

R = Close[i] / 2035.94
CountR = CountR + R
i=i-1

R = Close[i] / 2072.78
CountR = CountR + R
i=i-1

R = Close[i] / 2047.60
CountR = CountR + R
i=i-1

R = Close[i] / 2080.73
CountR = CountR + R
i=i-1

R = Close[i] / 2091.58
CountR = CountR + R
i=i-1

R = Close[i] / 2065.30
CountR = CountR + R
i=i-1

R = Close[i] / 2057.14
CountR = CountR + R
i=i-1

R = Close[i] / 2046.61
CountR = CountR + R
i=i-1

R = Close[i] / 2052.32
CountR = CountR + R
i=i-1

R = Close[i] / 2099.06
CountR = CountR + R
i=i-1

R = Close[i] / 2099.13
CountR = CountR + R
i=i-1

R = Close[i] / 2096.07
CountR = CountR + R
i=i-1

R = Close[i] / 2071.22
CountR = CountR + R
i=i-1

R = Close[i] / 2037.30
CountR = CountR + R
i=i-1

R = Close[i] / 2102.95
CountR = CountR + R
i=i-1
R = Close[i] / 2129.90
CountR = CountR + R
i=i-1
R = Close[i] / 2161.74
CountR = CountR + R
i=i-1
R = Close[i] / 2175.03
CountR = CountR + R
i=i-1
R = Close[i] / 2173.60
CountR = CountR + R
i=i-1
R = Close[i] / 2182.87
CountR = CountR + R
i=i-1
R = Close[i] / 2184.05
CountR = CountR + R
i=i-1
R = Close[i] / 2183.87
CountR = CountR + R
i=i-1
R = Close[i] / 2169.04
CountR = CountR + R
i=i-1
R = Close[i] / 2179.98
CountR = CountR + R
i=i-1
R = Close[i] / 2127.81
CountR = CountR + R
i=i-1
R = Close[i] / 2139.16
CountR = CountR + R

BasePrice = CountR / 52
FR = ((R / BasePrice) - 1) * 10

CERO = 0
SENYAL = FR
RETURN CERO AS "CERO", SENYAL AS "FR"