Puoi utilizzare questo codice che ha fatto lo stesso:

prd = 20
atr=averagetruerange[14](close)
////////pivothigh
if high[prd]=highest[2*prd+1](high) then
   ph = high[prd]
   phx = barindex[prd]
   drawpoint(phx,ph,2)Coloured("blue")
   drawtext("#ph#",phx,ph+0.5*atr)
endif
////////pivotlow
if low[prd]=lowest[2*prd+1](low) then
   pl = low[prd]
   plx = barindex[prd]
   drawpoint(plx,pl,2)Coloured("red")
   drawtext("#pl#",plx,pl-0.5*atr)
endif

return

Né il codice, né la formula degli indicatori proprietari di ProRealTime (ed è comprensibile) non sono disponinbili.

Il codice di  mi sembra quallo che ci si avvicina di più, in ogni caso prova anche questo, che però ti da il segnale con una barra di ritardo:

ONCE LookBack = 30
ONCE Last     = 0
Massimo = highest[LookBack](high)
Minimo  = lowest[LookBack](low)
IF high[1] = Massimo AND (Last <> 1) THEN
   Last = 1
   drawtext("●",BarIndex[1],high[1] + (range[1] / 2),dialog,bold,20) coloured(25,25,112,220)
ENDIF
IF low[1] = Minimo AND Last <> -1 THEN
   Last = -1
   drawtext("●",BarIndex[1],low[1] - (range[1] / 2),dialog,bold,20) coloured(176,23,31,220)
ENDIF
RETURN

questo fa in modo che dopo un Massimo non ce ne possa essere un altro se prima non si verifica un Minimo e viceversa, quindi devono alternarsi.