DEFPARAM DrawOnLastBarOnly = true
// PUNTO EXTREMO AZUL
psar = SAR[0.02, 0.02, 0.2]
C1 = CLOSE > psar
C2 = CLOSE < psar
ONCE PrevioPE = 0
// Variables para controlar la tendencia
IF C1 AND NOT C1[1] THEN
CONTADOR = 1
TENDENCIAANTERIOR = 1
ELSIF C2 AND NOT C2[1] THEN
CUENTA = 1
TENDENCIAANTERIOR = -1
ELSIF TENDENCIAANTERIOR = 1 THEN
CONTADOR = CONTADOR[1] + 1
ELSIF TENDENCIAANTERIOR = -1 THEN
CUENTA = CUENTA[1] + 1
ENDIF
// Calcular el Punto Extremo (PE)
IF C1 THEN
IF CONTADOR > 1 THEN
PE = HIGHEST[CONTADOR](HIGH)
ELSE
PE = HIGH
ENDIF
IF PE <> PE[1] THEN
PrevioPE = PE[1]
ENDIF
DRAWSEGMENT(barindex + 510, PrevioPE, barindex[510], PrevioPE) COLOURED(0, 0, 255) STYLE(dottedline1, 3)
DRAWTEXT("sar #PrevioPE#", barindex, PrevioPE, Dialog, Bold, 20) COLOURED(0, 0, 255)
ENDIF
IF C2 THEN
IF CUENTA > 1 THEN
PE = LOWEST[CUENTA](LOW)
ELSE
PE = LOW
ENDIF
IF PE <> PE[1] THEN
PrevioPE = PE[1]
ENDIF
DRAWSEGMENT(barindex + 510, PrevioPE, barindex[510], PrevioPE) COLOURED(0, 0, 255) STYLE(dottedline1, 3)
DRAWTEXT("sar #PrevioPE#", barindex, PrevioPE, Dialog, Bold, 20) COLOURED(0, 0, 255)
ENDIF
RETURN