///////////////////////////////////////////////////////////////////////////////////////////// Définition de la tendance : Trend Enveloppes & ATR & Supertrend Extended dans le même sens
timePerioda=14
Deviationa=0.1
pricea=customclose
dsma = WeightedAverage[timePerioda](pricea)
valuesLow = (1 - deviationa / 100) * dsma
valuesHigh = (1 + deviationa / 100) * dsma
inputsa=pricea
if (inputsa > valuesHigh) then
trenda = 1
elsif (inputsa < valuesLow) then
trenda = -1
endif
EnvelopUp = (trenda > 0)
EnvelopDn = (trenda < 0)
indicator4, indicator3 = CALL "Supertrend Extended"
STUp = (indicator3 > indicator4)
STDN = (indicator3 < indicator4)
LimitATR = CALL "ATR ADX Trend"(close)
ATRUp = (close > LimitATR)
ATRDn = (close < LimitATR)
if EnvelopUp and STUp and ATRUp then
DRAWTEXT("▲", BarIndex,6.0,SansSerif,BOLD,12) COLOURED(32,0,192)
elsif EnvelopDn and STDn and ATRDn then
DRAWTEXT("▼", BarIndex,6.0,SansSerif,BOLD,12) COLOURED(255,0,0)
elsif (envelopDn and STUp and ATRUp) or (envelopUp and STUp and ATRDN) or (envelopUp and STDn and ATRUp) then
DRAWTEXT("●", BarIndex,6.0,SansSerif,BOLD,20) COLOURED(35, 206, 235)
elsif (envelopDn and STUP and ATRDN) or (envelopDn and STDn and ATRUP) or (envelopUp and STDn and ATRDn) then
DRAWTEXT("●", BarIndex,6.0,SansSerif,BOLD,20) COLOURED(255, 165, 0)
endif
if IsLastBarOnChart then
drawtext(" TREND",barindex,6,dialog,bold,12)
endif
//////////////////////////////////////////////////////////////////////////////////////////////////////////////
Hi=7.5
Lo=-1.0
Return Hi,Lo