Forums › ProRealTime foro Español › Soporte ProScreener › Screener para buscar un máximo tras inversión de tendencia › Reply To: Screener para buscar un máximo tras inversión de tendencia
03/24/2025 at 3:07 PM
#245211
Prueba esto:
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 31 32 33 34 35 36 37 38 39 40 41 42 |
//DEFPARAM DrawOnLastBarOnly = true Period= 50 Maximo1 = 0 Maximo2 = 0 FOR i = (Period - 1) DOWNTO 0 IF Maximo1 = 0 THEN Maximo1 = high[i] Maximo2 = high[i] Bar1= BarIndex[i] Bar2= BarIndex[i] ENDIF IF high[i] < high[i+1] THEN IF high[i+1] > Maximo1 THEN Bar2= Bar1 Maximo2 = Maximo1 Maximo1 = high[i+1] Bar1= BarIndex[i+1] ELSIF high[i+1] > Maximo2 THEN Maximo2 = high[i+1] Bar2= BarIndex[i+1] ENDIF ENDIF IF i = 0 THEN IF high[i] > Maximo1 THEN Bar2= Bar1 Maximo2 = Maximo1 Maximo1 = high[i] Bar1 = BarIndex[i] ELSIF high[i] > Maximo2 THEN Maximo2 = high[i] Bar2 = BarIndex[i] ENDIF ENDIF NEXT //DrawSegment(Bar1,Maximo1,Bar2,Maximo2) style(line,5) coloured("Fuchsia") Signal = 0 IF (Bar1 <> Bar1[1]) OR (Bar2 <> Bar2[1]) THEN IF close > Average[55,1](close) THEN Signal = 1 ENDIF ENDIF SCREENER[Signal] |