Hola JEA,
Pruebe estos…
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
Periods = 20 BullBAR = close > close[1] BearBAR = close < close[1] AdvBAR = 1 AdvVOL = 1 DecBAR = 1 DecVOL = 1 myTrin = 0 IF BarIndex >= Periods THEN FOR i = 0 TO Periods IF BullBAR[i] THEN AdvBAR = AdvBAR + 1 AdvVOL = AdvVOL + volume[i] ELSIF BearBAR[i] THEN DecBAR = DecBAR + 1 DecVOL = DecVOL + volume[i] ENDIF NEXT IndexBAR = AdvBAR / DecBAR IndexVOL = AdvVOL / DecVOL myTrin = IndexBAR / IndexVOL ENDIF Signal = 0 IF myTrin>0.2 and myTrin<0.4 THEN Signal=1 ENDIF Cond1=close>4 and volume>50000 SCREENER[Signal and cond1](myTrin as "TRIN") |
