ATR=AverageTrueRange[10](close)

c2=low
c1=lowest[3](c2)-3*ExponentialAverage[10](ATR)
c3=highest[2](c1)

d2=high
d1=highest[3](d2)+3*ExponentialAverage[10](ATR)
d3=lowest[2](d1)

LastBarOnChart = ((date[1]<today and today<=date[0]) or date=today)and currenttime<time+1 and currenttime<>time
if LastBarOnChart then
if AfficherSLA=1 then
rem DRAWHLINE(c3) COLOURED (255,  0, 0)
endif
if AfficherSLV=1 then
rem DRAWHLINE(d3) COLOURED (  0,255, 0)
endif
endif
return C3*AfficherSLA coloured (255,0,0), D3*AfficherSLV coloured (0,255,0)