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 foreros
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]/230.793976
CountR=CountR+R
i=i-1
R= Close[i]/228.154373
CountR=CountR+R
i=i-1
R= Close[i]/230.195389
CountR=CountR+R
i=i-1
R= Close[i]/233.620010
CountR=CountR+R
i=i-1
R= Close[i]/235.209686
CountR=CountR+R
i=i-1
R= Close[i]/234.503159
CountR=CountR+R
i=i-1
R= Close[i]/233.845718
CountR=CountR+R
i=i-1
R= Close[i]/237.182022
CountR=CountR+R
i=i-1
R= Close[i]/239.595947
CountR=CountR+R
i=i-1
R= Close[i]/238.850174
CountR=CountR+R
i=i-1
R= Close[i]/238.094604
CountR=CountR+R
i=i-1
R= Close[i]/239.738861
CountR=CountR+R
i=i-1
R= Close[i]/238.427429
CountR=CountR+R
i=i-1
R= Close[i]/238.733093
CountR=CountR+R
i=i-1
R= Close[i]/242.134979
CountR=CountR+R
i=i-1
R= Close[i]/243.436584
CountR=CountR+R
i=i-1
R= Close[i]/243.466156
CountR=CountR+R
i=i-1
R= Close[i]/243.959167
CountR=CountR+R
i=i-1
R= Close[i]/240.715057
CountR=CountR+R
i=i-1
R= Close[i]/239.324738
CountR=CountR+R
i=i-1
R= Close[i]/241.148911
CountR=CountR+R
i=i-1
R= Close[i]/244.383163
CountR=CountR+R
i=i-1
R= Close[i]/243.140747
CountR=CountR+R
i=i-1
R= Close[i]/245.714355
CountR=CountR+R
i=i-1
R= Close[i]/247.181503
CountR=CountR+R
i=i-1
R= Close[i]/248.955292
CountR=CountR+R
i=i-1
R= Close[i]/252.066849
CountR=CountR+R
i=i-1
R= Close[i]/252.641602
CountR=CountR+R
i=i-1
R= Close[i]/254.782043
CountR=CountR+R
i=i-1
R= Close[i]/255.376617
CountR=CountR+R
i=i-1
R= Close[i]/256.109955
CountR=CountR+R
i=i-1
R= Close[i]/255.753189
CountR=CountR+R
i=i-1
R= Close[i]/255.525253
CountR=CountR+R
i=i-1
R= Close[i]/258.002594
CountR=CountR+R
i=i-1
R= Close[i]/262.065491
CountR=CountR+R
i=i-1
R= Close[i]/263.105988
CountR=CountR+R
i=i-1
R= Close[i]/264.096954
CountR=CountR+R
i=i-1
R= Close[i]/266.442871
CountR=CountR+R
i=i-1
R= Close[i]/265.795441
CountR=CountR+R
i=i-1
R= Close[i]/272.329315
CountR=CountR+R
i=i-1
R= Close[i]/276.811371
CountR=CountR+R
i=i-1
R= Close[i]/279.291412
CountR=CountR+R
i=i-1
R= Close[i]/285.436798
CountR=CountR+R
i=i-1
R= Close[i]/274.351227
CountR=CountR+R
i=i-1
R= Close[i]/260.456848
CountR=CountR+R
i=i-1
R= Close[i]/272.020508
CountR=CountR+R
i=i-1
R= Close[i]/273.614136
CountR=CountR+R
i=i-1
R= Close[i]/268.006592
CountR=CountR+R
i=i-1
R= Close[i]/277.757568
CountR=CountR+R
i=i-1
R= Close[i]/273.106201
CountR=CountR+R
i=i-1
R= Close[i]/258.049988
CountR=CountR+R
i=i-1
R= Close[i]/258.049988
CountR=CountR+R
BasePrice = CountR / 52
FR = ((R / BasePrice) – 1) * 10
CERO = 0
SENYAL = FR
RETURN CERO AS “CERO”, SENYAL AS “FR”