Este indicador me dibuja el punto extremo de la tendencia actual de las sar pero quiero que me dibuje el punto extremo de la tendencia anterior no de la actual, alguien podria ayudarme.
DEFPARAM DrawOnLastBarOnly = true
// PUNTO EXTREMO AZUL
psar = SAR[0.02, 0.02, 0.2]
C1 = CLOSE > psar
C2 = CLOSE < psar
// 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
DRAWSEGMENT(barindex + 510, PE, barindex[510], PE) COLOURED(0, 0, 255) STYLE(dottedline1, 3)
DRAWTEXT("sar", barindex, PE, Dialog, Bold, 20) COLOURED(0, 0, 255)
ENDIF
IF C2 THEN
IF CUENTA > 1 THEN
PE = LOWEST[CUENTA](LOW)
ELSE
PE = LOW
ENDIF
DRAWSEGMENT(barindex + 510, PE, barindex[510], PE) COLOURED(0, 0, 255) STYLE(dottedline1, 3)
DRAWTEXT("sar", barindex, PE, Dialog, Bold, 20) COLOURED(0, 0, 255)
ENDIF
Ahi esta:
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