// ----------------------------------------------//
// Sistema de acumulación escalonada con TP fijo
// ----------------------------------------------//
levelAmount = 1000
SLperc = 2
TPperc = 5
maxLevels = 10
// ----------------------------------------------//
if not onmarket then
z=0
unset($level)
unset($buyprice)
unset($takeprofitplevel)
unset($nextlevel)
else
for i=1 to z do
if $takeprofitplevel[i]<>0 and close>$takeprofitplevel[i] then
sell n contract at market
$takeprofitplevel[i]=0
endif
next
endif
if not onmarket and close>highest[20](high)[1] then
n=round(levelAmount/close)
$level[z+1]=1
$buyprice[z+1]=close
$takeprofitplevel[z+1]=close*(1+TPperc/100)
$nextlevel[z+1]=close*(1-SLperc/100)
z=z+1
buy n contract at market
elsif longonmarket and z>0 and z<maxLevels and close<$nextlevel[z] then
n=round(levelAmount/close)
$level[z+1]=z+1
$buyprice[z+1]=close
$takeprofitplevel[z+1]=close*(1+TPperc/100)
$nextlevel[z+1]=close*(1-SLperc/100)
z=z+1
buy n contract at market
endif
graphonprice $takeprofitplevel[1]coloured("green")
graphonprice $takeprofitplevel[2]coloured("cyan")
graphonprice $takeprofitplevel[3]coloured("yellow")
graphonprice $takeprofitplevel[4]coloured("lime")
graphonprice $nextlevel[1]coloured("red")
graphonprice $nextlevel[2]coloured("fuchsia")
graphonprice $nextlevel[3]coloured("orange")