Buenas, no quiero algo asi como este indicador que solo en la tendencia actual de la parabolica sar me dibuje una sar en el PE y vaya hacia el lado contrario de la parabolica sar y ademas que si la rebasa el precio cambie de posicion como haria una parabolica sar normal solo que inicie del PE como en la imagen, adjunto el codigo :

//---------------------------------------------
//   PARABÓLICA PERSONALIZADA ANCLADA A PE
//   (Incluye cálculo de PSAR y PE original)
//   Pintado SOLO desde el último PE (sin cambiar tu lógica)
//---------------------------------------------
DEFPARAM DrawOnLastBarOnly = true

//==== Parámetros PSAR / Parabólica
increment = 0.02
initial   = 0.02
limite    = 0.2

//==== PSAR base
psar = SAR[0.02, 0.02, 0.2]

//==== Cálculo de PE (tal cual tu lógica original)
C1 = close > psar
C2 = close < psar

IF barindex = 0 THEN
CONTADOR = 0
CUENTA = 0
TENDENCIAANTERIOR = 0
PE = close

// >>> NUEVO: tracking del último PE y de la última barra
ONCE lastPEbar = 0
ONCE lastBarIndex = 0
ENDIF

// Actualizamos la última barra vista
lastBarIndex = MAX(lastBarIndex, barindex)

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

IF C1 THEN
IF CONTADOR > 1 THEN
PE = HIGHEST[CONTADOR](HIGH)
ELSE
PE = HIGH
ENDIF
ENDIF

IF C2 THEN
IF CUENTA > 1 THEN
PE = LOWEST[CUENTA](LOW)
ELSE
PE = LOW
ENDIF
ENDIF

// >>> NUEVO: detectar nuevo PE para anclar el dibujo
newPE = (PE <> PE[1])
IF newPE THEN
lastPEbar = barindex
ENDIF

//==== Variables de la parabólica anclada a PE (TU LÓGICA)
IF barindex = 0 THEN
isLong        = 1
af            = initial
hp            = high
lp            = low
Lparabolic    = PE
invLparabolic = PE
Sparabolic    = PE
invSparabolic = PE

// (Tenías startDraw; lo mantenemos pero NO lo usamos para pintar)
startDraw  = 0
ENDIF

// Si en las primeras velas se detecta claramente C1/C2, ajustamos isLong y puntos de arranque (TU LÓGICA)
IF barindex = 1 THEN
IF C1 THEN
isLong        = 1
Lparabolic    = PE
invLparabolic = PE
hp            = HIGH
af            = initial
startDraw     = barindex
// >>> anclamos también el PE de arranque
lastPEbar     = barindex
ELSIF C2 THEN
isLong        = 0
Sparabolic    = PE
invSparabolic = PE
lp            = LOW
af            = initial
startDraw     = barindex
// >>> anclamos también el PE de arranque
lastPEbar     = barindex
ENDIF
ENDIF

//==== Actualización en cada barra (TU LÓGICA INTACTA)
IF barindex >= 2 THEN

// Evolución de la curva según tendencia vigente
IF isLong THEN
// Largos
Lparabolic    = Lparabolic + af * (hp - Lparabolic)
Lparabolic    = MIN(Lparabolic, LOW[1])
Lparabolic    = MIN(Lparabolic, LOW[2])
invLparabolic = invLparabolic - af * (hp - Lparabolic)
ELSE
// Cortos
Sparabolic    = Sparabolic + af * (lp - Sparabolic)
Sparabolic    = MAX(Sparabolic, HIGH[1])
Sparabolic    = MAX(Sparabolic, HIGH[2])
invSparabolic = invSparabolic - af * (lp - Sparabolic)
ENDIF

reverse = 0

//---- Detección de giro y nuevo arranque en PE (TU LÓGICA)
IF isLong THEN
// Giro LARGO -> CORTO
IF LOW < Lparabolic THEN
isLong        = 0
reverse       = 1
// Nuevo tramo: arranca en PE
Sparabolic    = PE
invSparabolic = PE
lp            = LOW
af            = initial
startDraw     = barindex     // tú lo tenías así
// >>> y anclamos el dibujo al PE del giro
lastPEbar     = barindex
ENDIF
ELSE
// Giro CORTO -> LARGO
IF HIGH > Sparabolic THEN
isLong        = 1
reverse       = 1
// Nuevo tramo: arranca en PE
Lparabolic    = PE
invLparabolic = PE
hp            = HIGH
af            = initial
startDraw     = barindex     // tú lo tenías así
// >>> y anclamos el dibujo al PE del giro
lastPEbar     = barindex
ENDIF
ENDIF

//---- Gestión del AF si no hay giro (TU LÓGICA)
IF NOT reverse THEN
IF isLong THEN
IF HIGH > hp THEN
hp = HIGH
af = af + increment
af = MIN(af, limite)
ENDIF
ELSE
IF LOW < lp THEN
lp = LOW
af = af + increment
af = MIN(af, limite)
ENDIF
ENDIF
ENDIF

ENDIF

//=======================================================
//==== PINTADO SOLO EN LA ÚLTIMA BARRA DESDE EL ÚLTIMO PE
//==== (USANDO TUS SERIES YA CALCULADAS; SIN RE-CALCULAR)
//=======================================================
IF barindex = lastBarIndex THEN
// seguridad por si lastPEbar no se ha fijado aún
startBar = MAX(lastPEbar, 0)
IF startBar <= lastBarIndex THEN
FOR k = startBar TO lastBarIndex DO
// offset relativo para tomar el valor de tus series en la barra k
idx = lastBarIndex - k
IF isLong THEN
y = invLparabolic[idx]
DRAWPOINT(k, y, 2) COLOURED(0,255,255)
ELSE
y = invSparabolic[idx]
DRAWPOINT(k, y, 2) COLOURED(255,0,255)
ENDIF
NEXT
ENDIF
ENDIF

RETURN