Programando el indicador RSCMansfield2 para PRT

| junio 26, 2013 | 57 Comentarios

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”

Tags: , , , ,

Categoría: Aprender, Screeners

Comentarios (57)

Trackback URL | Comments RSS Feed

  1. Sergio dice:

    Muchas gracias!!!!

  2. Jed Barttlet dice:

    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.

  3. Juan dice:

    ¿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.

  4. Ramón dice:

    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)

  5. Ramón dice:

    Ok, ya esta. Es un indicador no un screener..

  6. Alexis dice:

    Javier

    Al copiar el programa me sale el siguiente error:

    Carácter no autorizadolinea 223, columna 22

  7. artzai dice:

    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

  8. artzai dice:

    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.

  9. artzai dice:

    Solucionado!!,

    ha bastado con borrar esa linea e introducirla a mano.

    :-)

  10. Rafa Cabedo dice:

    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

  11. Jose Ignacio dice:

    Hola, muchas gracias por este gran aporte.

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

    Muchas gracias.

    Un Saludo

  12. Juan Jose dice:

    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.

  13. Jose Matias dice:

    Ú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

  14. roberto dice:

    Gracias a Jose Matias por actualizar el RScMansfild2.
    Saludos Roberto.

  15. Rafael dice:

    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

    • 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.

  16. Jose Matias dice:

    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

  17. arrocal dice:

    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.

    • 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.

  18. arrocal dice:

    Muchas gracias Javier. Era eso, funcionó perfectamente.

    Un saludo.

  19. Marti dice:

    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”

  20. JavierFree dice:

    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?

  21. Manuel dice:

    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”

  22. Jose Maria dice:

    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”

  23. Luis Enrique dice:

    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”

    • Si no te da cero es porque los 52 valores semanales no son los correctos. Si fuera así, te daría cero. Mándame un mensaje y te mando mi código actualizado.

      • Ana Maria Domenech dice:

        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?

        • 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í).

  24. Luis Enrique dice:

    Cuando está escrito el indicador, hablas de agregar el indicador,dónde se hace ??
    Luis

  25. Octavio Ascanio dice:

    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.

  26. lucas dice:

    octavio, muchas gracias me ha venido de perlas.

  27. jose dice:

    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

  28. Manu dice:

    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”

  29. jmsc dice:

    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.

  30. Ivan dice:

    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”

  31. andres dice:

    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

Deja un comentario


Logo FinancialRed
Logo FinancialRed