Eccolo (i colori, se vuoi cambiarli, li trovi qui http://cloford.com/resources/colours/500col.htm):

// Swing di GANN
// dedicato a Katia
// creato da Luca De Florio per ProRealTime
defparam calculateonlastbars=1000
offset = 40*pipsize
if barindex=0 then
lasthigh=high
lastlow=low
oldrv=high
endif
// calcola le barre che hanno massimo e minimo piu' alto della precedente
if (high > lasthigh) AND (low > lastlow) then
rv = High[0]
lasthigh=rv
lastlow=low
lastrv=1
// Poi calcola le barre che hanno massimo e minimo piu' basso della precedente
elsif (high < lasthigh) AND (low < lastlow) then
rv = low[0]
lastlow=rv
lasthigh=high
lastrv=2
else
// nel caso di inside o outside, controlla la barra precedente,
// se era High prende il valore high, se era Low prende il valore Low
if lastrv=1 and high>lasthigh then
rv=high
lasthigh=high
lastlow= low
elsif lastrv=2 and low<lastlow then
rv=low
lasthigh=high
lastlow= low
else
rv=oldrv
endif
 
endif
// Solo nel caso della prima barra, si parte dall'High del giorno
oldrv=rv
SwingChange = (close < rv AND close[1] > rv[1]) OR (close > rv AND close[1] < rv[1])
IF SwingChange THEN
IF close < rv THEN
Prezzo = low[1]
DRAWTEXT("#Prezzo#",barindex-1,low[1] - Offset) coloured(0,128,0,255)
PreviousBar   = CurrentBar
PreviousPrice = CurrentPrice
CurrentBar    = BarIndex -1
CurrentPrice  = rv[1] //Prezzo
ELSE
Prezzo = high[1]
DRAWTEXT("#Prezzo#",barindex-1,high[1] + Offset) coloured(0,128,0,255)
PreviousBar   = CurrentBar
PreviousPrice = CurrentPrice
CurrentBar    = BarIndex -1
CurrentPrice  = rv[1] //Prezzo
ENDIF
DRAWSEGMENT(PreviousBar,PreviousPrice,CurrentBar,CurrentPrice) coloured(0,205,0,255)
ENDIF
return rv as "Swing"

x-21.jpg