Fuerza Relativa Mansfield para Screener de PRT actualizada 2016.12.06

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”