RSCMansfield2 ProRealTime indicator

This is the code of the RSCMansfield2 indicator for ProRealTime.
You can use it for your own screeners.

Updated every weekend.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Leave a Reply

Your email address will not be published. Required fields are marked *