st = supertrend[3,10]
CambioVerde = close crosses over St
CambioRosso = close crosses under St
if cambioVerde then
c=close
t=time/10000
BarraEntryLong=barindex
a=round(St)
LimSup = Barindex - BarraEntryShort -1
LimInf = Barindex - BarraMin
for i=LimSup downto LimInf do
if High[i]>RR then
RR=High[i]
BarraRR=barindex-i
endif
next
tProfit=time[barindex-BarraMin]/10000
tRR=time[barindex-BarraRR]/10000
DRAWTEXT("#c#", barindex, high+5)
DRAWTEXT("Entry", barindex, high+7)
drawtext("#t#",barindex, high+9)
DRAWTEXT("#a#", barindex, St-2)
DRAWTEXT("Risk", barindex, St-4)
DRAWTEXT("#Minimo#", BarraMin, Minimo-11)
DRAWTEXT("MaxProfit", BarraMin, Minimo-13)
DRAWTEXT("#tProfit#", BarraMin, Minimo-15)
DRAWTEXT("RR", BarraRR, RR+6)
DRAWTEXT("#RR#", BarraRR, RR+4)
DRAWTEXT("#tRR#", BarraRR, RR+2)
BarraMax=barindex
Massimo=close
RR=close
BarraRR=barindex
endif
if close[1] > St[1] then
if High > Massimo then
Massimo=High
BarraMax=barindex
endif
endif
if cambioRosso then
c=close
t=time/10000
BarraEntryShort=barindex
a=round(St)
LimSup = Barindex - BarraEntryLong - 1
LimInf = Barindex - BarraMax
for i=LimSup downto LimInf do
if Low[i]<RR then
RR=Low[i]
BarraRR=barindex-i
endif
next
tProfit=time[barindex-BarraMax]/10000
tRR=time[barindex-BarraRR]/10000
DRAWTEXT("#c#", barindex, Low-5)
DRAWTEXT("Entry", barindex, Low-7)
drawtext("#t#",barindex, low-9)
DRAWTEXT("#a#", barindex, St+2)
DRAWTEXT("Risk", barindex, St+4)
DRAWTEXT("#Massimo#", BarraMax, Massimo+11)
DRAWTEXT("MaxProfit", BarraMax, Massimo+13)
DRAWTEXT("#tProfit#", BarraMax, Massimo+15)
DRAWTEXT("#RR#", BarraRR, RR-5)
DRAWTEXT("RR", BarraRR, RR-7)
DRAWTEXT("#tRR#", BarraRR, RR-9)
BarraMin=Low
Minimo=close
RR=close
BarraRR=barindex
endif
if close[1] < St[1] then
if Low < Minimo then
Minimo=Low
BarraMin=barindex
endif
endif
return
.
