Programando el indicador RSCMansfield2 para PRT

analistas2

Hola, buenos días. Hoy subo un nuevo vídeo de formación sobre PRT – ProRealTime con el cuarto vídeo de la segunda serie, esta vez sobre el indicador de fortaleza y debilidad RSCMansfield2 y su valor para los screeners.

Como muchos me habéis ido pidiendo sobre cómo empezar de cero y poco a poco en bolsa, el vídeo de hoy se enmarca dentro de la serie que comencé hace un par de meses para configurar la plantilla y hacer búsquedas profesionales de buenos valores.

Gracias por esos «me gusta» que me ayudan a difundir este trabajo:

Todo sobre screeners en PRT – ProRealTime en mi canal Jalfayate.

Indicadores y Screeners:

¿Qué son?
¿Para qué sirven?
¿Cómo se configuran?

Y otros detalles a tener en cuenta para buscadores. Hoy especialmente entrada de Mano Fuerte y cómo detectarla.

Más info en mis libros de bolsa, mi blog de accionesdebolsa.com y en mi Twitter.

www.accionesdebolsa.com-libros-y-referen­cias

VÍDEO SOBRE RSCMansfield2: LOS CAPÍTULOS DE MI CANAL JALFAYATE EN YOUTUBE


 

Código RSCMansfield2 (26/06/2013):
—————-

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] / 1354.68
CountR = CountR + R
i=i-1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

R = Close[i] / 1588.03
CountR = CountR + R

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

CERO = 0
SENYAL = FR
RETURN CERO AS «CERO», SENYAL AS «FR»

Publicidad

61 responses to “Programando el indicador RSCMansfield2 para PRT

  1. Muchas gracias por tu trabajo y por su difusión, Javier. Sigo aprendiendo día a día en tu blog y releyendo tus libros.

      1. Esperando ansioso. Ya podía haber en la universidad española más de un profesor tan claro como tú.

        Un cordial saludo.

  2. ¿Este indicador sería válido en un gráfico diario? ¿o habría que modificarlo y poner 250 valores diarios?

    Gracias por tu interés en enseñar tus conocimientos Javier.

  3. Javier, haciendo la programación me sale el siguiente mensaje:

    Error de sintaxis linea 228 columna 39
    Return: uso restringido a programación de indicadores (probuilder)

  4. Javier

    Al copiar el programa me sale el siguiente error:

    Carácter no autorizadolinea 223, columna 22

  5. Hola Javier,

    He copiado el código y al intentar validar el indicador me sale el siguiente error:

    Erros de sintaxis: linea223 caracter 23

    y el número 1 subrayado en rojo.

    Lo he revisado todo y está copiado exactamente igual. No se

  6. El error sale en una de las últimas líneas:

    FR = ((R / BasePrice) – 1) * 10

    El número 1 esta subrrayado en rojo, y ponga lo que ponga ahí lo marca en rojo.

  7. VALORES ACTUALIZADOS 01/02/2014

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    R = Close[i] / 1782.59
    CountR = CountR + R

  8. Hola, muchas gracias por este gran aporte.

    Entiendo que hay que modificarlo para aplicarlo a un valor en concreto. ¿No?

    Muchas gracias.

    Un Saludo

  9. Buenos días, primero quiero agradecerte todo lo que haces para que a las personas que estamos aprendiendo nos resulte todo más fácil. Llevo una semana con tus indicadores y sreener y salvo algún problema puntual , no había tenido ningún problema. Sin embargo con este si. He copiado el código y lo he revisado y me sale en la primera linea error de sintáis en la asignación. No se si he cometido algún error que no he sido capaz de ver… En fin que os agradecería que me comentarais algo. Gracias de verdad.

  10. Última actualización

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    R = Close[i] / 1815.69
    CountR = CountR + R

  11. Buenas,
    He actualizado el RSCManfield2 ha esta semana incluyendo la vela semanal aun en formación y los valores que me da el indicador no se corresponden con RSCManfield que viene por defecto en ProRealTime. Mi pregunta es si ha habido algún cambio en la programación de este indicador para ProRealTime. Gracias de antemano

    1. Yo lo tengo actualizado (el RSCMansfield2) y da clavado con el que da PRT. No he notado ningún cambio en su programación, aunque eres la tercera persona que me lo dice en 1 mes. Puede ser que no tengas actualizados todos los registros del RSC.

  12. A mí tampoco me cuadraba el MANSFIELD2 pero después de revisar los valores varias veces ya está a 0.

    Aquí dejo la actualización de la semana del 30/06/2014

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    R = Close[i] / 1985.44
    CountR = CountR + R

  13. Muchas gracias Javier por todo lo que haces por la comunidad. Espero que te sea recompensada.

    He hecho el indicador según las instrucciones de arriba, y también según las indicaciones de tu libro «Enséñame la Pasta» y al validarlo me dice:

    Error en indicador: RSC Mansfield2 Se espera un campo entero positivo con[ ]

    No me sale ningún error de sintaxis.

    Otra cosa, si quisiera utilizar el indicador en mensual, cómo lo tendría que configurar.

    Gracias, un saludo.

    1. Si te da ese error es porque tendrás alguna línea de más que haga una comparación adicional. Si haces 53 comparaciones o más el valor de i sale negativo y da error. Comprueba el número de comparaciones que haces.

      Para hacerlo en mensual tendrías que hacer 12 comparaciones mensuales en vez de 52 semanales. necesitarías por tanto menos líneas de código y comparaciones.

  14. Buenas, dejo actualizado RSCMansfield2 a 22/08/2104
    saludos
    —————————————————-

    CountR=0
    i=51

    R = Close[i] / 1632.97
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1655.17
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1687.99
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1709.91
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1691.75
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1690.50
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1703.20
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1744.50
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1759.77
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1761.64
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1770.61
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1798.18
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1804.76
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1805.81
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1805.09
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1775.32
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1818.31
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1841.40
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1831.37
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1842.37
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1838.70
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1790.29
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1782.59
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1797.02
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1838.63
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1836.25
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1859.45
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1878.04
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1841.13
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1866.40
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1857.62
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1865.09
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1815.69
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1864.85
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1863.40
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1881.14
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1878.48
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1877.86
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1900.53
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1923.57
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1949.44
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1936.16
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1962.87
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1960.96
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1985.44
    CountR = CountR + R
    i=i-1

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

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

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

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

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

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

    R = Close[i] / 1988.40
    CountR = CountR + R

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

    CERO = 0
    SENYAL = FR
    RETURN CERO AS «CERO», SENYAL AS «FR»

  15. Hola Javier, encantado de saludarte. En primer lugar quería darte las gracias por compartir tu conocimiento.

    Y comentarte que tengo un problema con el código del Mansfield2, he intentado todo lo que se me ocurre pero me da un error en la linea 4 carácter 22 (es una coma) lo curioso es que la elimino y entonces el error pasa a la linea de abajo..

    He visto que recomiendas revisarlo todo y así lo he hecho, he intentado meterlo a mano, lo he copiado varias veces cerrando el programa y volviéndolo a abrir y nada.. Podrías ayudarme?

    1. Tendría que ver la foto del error y el código, así no te puedo ayudar mucho porque pueden ser varios los motivos. Puedes escribirme a mi correo: jalfayate arroba bolsa punto com.

  16. Actualizado hasta 24/10/2014:

    CountR=0
    i=51

    R = Close[i] / 1761.64
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1770.61
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1798.18
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1804.76
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1805.81
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1805.09
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1775.32
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1818.31
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1841.40
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1831.37
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1842.37
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1838.70
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1790.29
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1782.59
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1797.02
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1838.63
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1836.25
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1859.45
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1878.04
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1841.13
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1866.40
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1857.62
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1865.09
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1815.69
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1864.85
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1863.40
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1881.14
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1878.48
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1877.86
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1900.53
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1923.57
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1949.44
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1936.16
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1962.87
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1960.96
    CountR = CountR + R
    i=i-1
    R = Close[i] / 1985.44
    CountR = CountR + R
    i=i-1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    R = Close[i] / 1964.58
    CountR = CountR + R

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

    CERO = 0
    SENYAL = FR
    RETURN CERO AS «CERO», SENYAL AS «FR»

  17. me esta dando todo el rato un error en la linia 192 caracter 16, lo que seria la ultima frase las comillas del CERO

    RETURN CERO AS “CERO”, SENYAL AS “FR”

  18. Javier, haciendo el indicador mansfield 2 no logro sacarlo.
    He metido los 8 ultimos valores del mansfield y no me da cero. No sé si tienes alguna idea. te copio mi indicador.
    CountR=0
    i=51

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    R = Close[i] / 1626.73
    CountR = CountR + R
    i=i-1
    R= Close [i] / 2067.56
    CountR = CountR + R
    i=i-1

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

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

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

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

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

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

    R = Close[i] / 2023.03
    CountR = CountR + R

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

    CERO = 0
    SENYAL = FR
    RETURN CERO AS «CERO», SENYAL AS «FR»

      1. Hola Javier,

        He leído tu libro y estoy siguiendo tus videos de youtube para instalarme todos los screeners que explicas. Me he quedado «tirada» en el screener RSC Mansfield 2, la última línea me da error. He hecho 40 cambios y no consigo acertar.

        Si pongo:
        RETURN CERO AS «CERO» , SENYAL AS «FR»

        me dice:
        RETURN: uso restringido a programación de indicadores (ProBuilder)

        Si pongo:
        RETURNCERO AS «CERO» , SENYAL AS «FR»

        Me dice:
        Error de sintaxis: línea 215, Carácter 12 Uno de los siguientes caracteres sería más adecuado que «AS»: – «,»

        Si le pongo un punto en lugar de una coma me dice que no es válido….. etc etc

        ¿Puedes ayudarme?

        1. El primer error es porque estás programando un indicador en la ventana de programación de un screener. Para indicadores, vas al cuadradito de arriba de añadir indicador, para screeners a mostrar – proscreener.

          Programa el indicador en la ventana para ello pero no cambies nada de la programación que está bien (hay que actualizar cada semana el RSC Mansfield 2 eso sí).

  19. Hola:

    He estado viendo tus videos de youtube y me parecen muy interesantes. Para no tener que estar todo el rato pendientes de actualizar a mano este indicador he generado un script que a partir de los datos semanales de yahoo finance regenera todo el indicador para hacer copy/paste en tiempo real.
    Si lo quereis usar lo he puesto en http://www.tavius.com/cgi-bin/rscmansfield2

    Un saludo y gracias por compartir con nosotros tus conocimientos.

  20. Estoy intentando copiar el screener del Rscmanfield2 y me da un error.Alguien me sabe dar una solución,he probado de todo pero nada gracias.
    ERROR DE SINTAXIS:LINEA 227 CARACTER 16.Uno de los siguientes caracteres sería más adecuado que «»:
    – una cotización

  21. ACTUALIZADO 02-07-2016

    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] / 2076.62
    CountR = CountR + R
    i=i-1

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

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

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

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

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

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

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

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

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

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

    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

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

    CERO = 0
    SENYAL = FR
    RETURN CERO AS «CERO», SENYAL AS «FR»

  22. Buenas,

    Para utilizarlo en diario no valdría? Hay algun enlace donde se pueda actualizar y hacer copiar / pegar en diario? Gracias Javier por tu amena y didactica aportacion al mundo del trading.

    1. En diario puedes hacerlo igual salvo por la ventana de datos, que será 52 días en vez de 52 semanas. Para que te saliera parecido tendrías que tomar al menos 200 registros en diario.

      1. Hola Javier,

        He añadido 52 registros en diario y me cuadra el SP. Añadiendole más registros no sale. Le llegue a poner 250 registros y me salia la curva plana.

        Estoy en lo cierto?

        1. Javier, al cambiar el cociente en la formula final del indicador a 260 (son los registros que añadí) me cuadra, por eso me salia plana.Arreglado.Disculpa y gracias.

  23. Actualizado hasta el cierre de 16 de septiembre de 2016

    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»

  24. Hola

    Hola Javier,

    En primer lugar agradecerte toda la información que proporcionas y la forma en que lo haces , excelente !!!

    Soy bastante nuevo en este mundo y quiero incorporar el Indicador Mansfield en PRT
    Por lo que he entendido hay que actualizarlo :

    1 ¿Como se sabe de que fecha es un código? los números que van cambiando 2127 ,2139, 2179,… ¿vienen publicados en algún sitio?

    2 en estos meses hay alguna web o alguien que lo proporcione actualizado ?

    Gracias

  25. Actualización de valores hasta la semana pasada para el rscmansfield2

    CountR=0
    i=51
    R= Close[i]/17128.55
    CountR=CountR+R
    i=i-1
    R= Close[i]/17552.17
    CountR=CountR+R
    i=i-1
    R= Close[i]/17425.03
    CountR=CountR+R
    i=i-1
    R= Close[i]/16346.45
    CountR=CountR+R
    i=i-1
    R= Close[i]/15988.08
    CountR=CountR+R
    i=i-1
    R= Close[i]/16093.51
    CountR=CountR+R
    i=i-1
    R= Close[i]/16466.30
    CountR=CountR+R
    i=i-1
    R= Close[i]/16204.97
    CountR=CountR+R
    i=i-1
    R= Close[i]/15973.84
    CountR=CountR+R
    i=i-1
    R= Close[i]/16391.99
    CountR=CountR+R
    i=i-1
    R= Close[i]/16639.97
    CountR=CountR+R
    i=i-1
    R= Close[i]/17006.77
    CountR=CountR+R
    i=i-1
    R= Close[i]/17213.31
    CountR=CountR+R
    i=i-1
    R= Close[i]/17602.30
    CountR=CountR+R
    i=i-1
    R= Close[i]/17515.73
    CountR=CountR+R
    i=i-1
    R= Close[i]/17792.75
    CountR=CountR+R
    i=i-1
    R= Close[i]/17576.96
    CountR=CountR+R
    i=i-1
    R= Close[i]/17897.46
    CountR=CountR+R
    i=i-1
    R= Close[i]/18003.75
    CountR=CountR+R
    i=i-1
    R= Close[i]/17773.64
    CountR=CountR+R
    i=i-1
    R= Close[i]/17740.63
    CountR=CountR+R
    i=i-1
    R= Close[i]/17535.32
    CountR=CountR+R
    i=i-1
    R= Close[i]/17500.94
    CountR=CountR+R
    i=i-1
    R= Close[i]/17873.22
    CountR=CountR+R
    i=i-1
    R= Close[i]/17807.06
    CountR=CountR+R
    i=i-1
    R= Close[i]/17865.34
    CountR=CountR+R
    i=i-1
    R= Close[i]/17675.16
    CountR=CountR+R
    i=i-1
    R= Close[i]/17400.75
    CountR=CountR+R
    i=i-1
    R= Close[i]/17949.37
    CountR=CountR+R
    i=i-1
    R= Close[i]/18146.74
    CountR=CountR+R
    i=i-1
    R= Close[i]/18516.55
    CountR=CountR+R
    i=i-1
    R= Close[i]/18570.85
    CountR=CountR+R
    i=i-1
    R= Close[i]/18432.24
    CountR=CountR+R
    i=i-1
    R= Close[i]/18543.53
    CountR=CountR+R
    i=i-1
    R= Close[i]/18576.47
    CountR=CountR+R
    i=i-1
    R= Close[i]/18552.57
    CountR=CountR+R
    i=i-1
    R= Close[i]/18395.40
    CountR=CountR+R
    i=i-1
    R= Close[i]/18491.96
    CountR=CountR+R
    i=i-1
    R= Close[i]/18085.45
    CountR=CountR+R
    i=i-1
    R= Close[i]/18123.80
    CountR=CountR+R
    i=i-1
    R= Close[i]/18261.45
    CountR=CountR+R
    i=i-1
    R= Close[i]/18308.15
    CountR=CountR+R
    i=i-1
    R= Close[i]/18240.49
    CountR=CountR+R
    i=i-1
    R= Close[i]/18138.38
    CountR=CountR+R
    i=i-1
    R= Close[i]/18145.71
    CountR=CountR+R
    i=i-1
    R= Close[i]/18161.19
    CountR=CountR+R
    i=i-1
    R= Close[i]/17888.28
    CountR=CountR+R
    i=i-1
    R= Close[i]/18847.66
    CountR=CountR+R
    i=i-1
    R= Close[i]/18867.93
    CountR=CountR+R
    i=i-1
    R= Close[i]/19152.14
    CountR=CountR+R
    i=i-1
    R= Close[i]/19170.42
    CountR=CountR+R
    i=i-1
    R= Close[i]/19216.55
    CountR=CountR+R
    BasePrice = CountR / 52
    FR = ((R / BasePrice) – 1) * 10
    CERO = 0
    SENYAL = FR
    RETURN CERO AS “CERO”, SENYAL AS “FR”

    Un saludo a todos. Espero que os sea útil. Iván de Bolsam.com

  26. Mansfield 2 actualizado a 23/12/2016
    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]/2043.94
    CountR=CountR+R
    i=i-1
    R= Close[i]/1922.03
    CountR=CountR+R
    i=i-1
    R= Close[i]/1880.33
    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.05
    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.58
    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.41
    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
    i=i-1
    R= Close[i]/2164.69
    CountR=CountR+R
    i=i-1
    R= Close[i]/2168.27
    CountR=CountR+R
    i=i-1
    R= Close[i]/2153.74
    CountR=CountR+R
    i=i-1
    R= Close[i]/2132.98
    CountR=CountR+R
    i=i-1
    R= Close[i]/2141.16
    CountR=CountR+R
    i=i-1
    R= Close[i]/2126.41
    CountR=CountR+R
    i=i-1
    R= Close[i]/2085.18
    CountR=CountR+R
    i=i-1
    R= Close[i]/2164.45
    CountR=CountR+R
    i=i-1
    R= Close[i]/2181.90
    CountR=CountR+R
    i=i-1
    R= Close[i]/2213.35
    CountR=CountR+R
    i=i-1
    R= Close[i]/2191.95
    CountR=CountR+R
    i=i-1
    R= Close[i]/2259.53
    CountR=CountR+R
    i=i-1
    R= Close[i]/2258.07
    CountR=CountR+R
    i=i-1
    R= Close[i]/2263.79
    CountR=CountR+R
    BasePrice = CountR / 52
    FR = ((R / BasePrice) – 1) * 10
    CERO = 0
    SENYAL = FR
    RETURN CERO AS “CERO”, SENYAL AS “FR”

  27. Buenos días Javier.

    Aunque suene reiterativo, felicidades por tu trabajo. Dicho esto, estoy utilizando RSCM2 como screener para detectar sectores débiles en europa, y no sólo me muestra los débiles, sino los fuertes también.
    Alguna sugerencia? Gracias de antemano

    ignored, FR=call «RSC Mansfield2»

    SCREENER [ FR <-1](FR AS "FUERZA")

Comments are closed.