Programando el indicador RSCMansfield2 para PRT

Programando el indicador RSCMansfield2 para PRT

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”

Autor

Javier Alfayate