It is therefore added on the price another indicator to see the information given on the price directly.
//
//============================== Trend Haussier
//Configuration haussière
if close > open then
UValeur1 = 0 + (close-open)
DValeur1 = 0
UValeur2 = UValeur1 + (open-low)
DValeur2 = 0
DValeur3 = 0 - (high-close)
UValeur3 = 0
XValeur1 = 0
XValeur2 = 0
endif
//Valeur Absolue Haussière
VHAbsolu = 0 + (UValeur1+UValeur2+UValeur3+XValeur1)
HMM1 = 2*WeightedAverage[round(20/2)](VHAbsolu) - WeightedAverage[20](VHAbsolu)
HMM = WeightedAverage[round(SQRT(20))](HMM1)
UP1 = HMM+STD[9]*1
UP2 = HMM+STD[26]*1
UP3 = HMM+STD[52]*1
UP = (UP1+UP2+UP3)/3
//============================== Trend Baissier
//Configuration baissière
if close < open then
DValeur1 = 0 - (open-close)
UValeur1 = 0
DValeur2 = DValeur1 - (high-open)
UValeur2 = 0
UValeur3 = 0 + (close-low)
DValeur3 = 0
XValeur1 = 0
XValeur2 = 0
endif
//Valeur Absolue Baissière
VBAbsolu = 0 - (DValeur1+DValeur2+DValeur3+XValeur2)
BMM1 = 2*WeightedAverage[round(20/2)](VBAbsolu) - WeightedAverage[20](VBAbsolu)
BMM = WeightedAverage[round(SQRT(20))](BMM1)
BP1 = BMM+STD[9]*1
BP2 = BMM+STD[26]*1
BP3 = BMM+STD[52]*1
DW = (BP1+BP2+BP3)/3
//============================== Trend Neutre
//Configuration Neutre
if close = open then
XValeur1 = 0 + (high-open)
XValeur2 = 0 - (open-low)
UValeur1 = 0
UValeur2 = 0
DValeur1 = 0
DValeur2 = 0
endif
//============================== Calcul Secondaire
//Nuage du Trend
if UP > DW then
drawcandle (DW,UP,DW,UP) coloured (36,147,219,90)
elsif UP < DW then
drawcandle (DW,UP,DW,UP) coloured (101,101,101,90)
endif
//Force du Trend
Force = (UP+DW)/2
if Force > Force[1] then
R = 8
G = 126
B = 22
elsif Force < Force[1] then
R = 162
G = 8
B = 8
endif
//============================== Fin
return XValeur1 coloured (36,147,219,50) style (histogram,1) as "XValeur1" , XValeur2 coloured (101,101,101,50) style (histogram,1) as "XValeur2" , UValeur1 coloured (36,147,219) style (histogram,1) as "UValeur1" , DValeur1 coloured (101,101,101) style (histogram,1) as "UValeur1" , UValeur2 coloured (36,147,219,50) style (histogram,1) as "UValeur2" , DValeur2 coloured (101,101,101,50) style (histogram,1) as "UValeur2" , UValeur3 coloured (36,147,219,50) style (histogram,1) as "UValeur3" , DValeur3 coloured (101,101,101,50) style (histogram,1) as "UValeur3" , Force coloured (R,G,B) style (line,2) as "Force"
//
//============================== Trend Haussier
//Configuration haussière
if close > open then
UValeur1 = 0 + (close-open)
DValeur1 = 0
UValeur2 = UValeur1 + (open-low)
DValeur2 = 0
DValeur3 = 0 - (high-close)
UValeur3 = 0
XValeur1 = 0
XValeur2 = 0
endif
//Valeur Absolue Haussière
VHAbsolu = 0 + (UValeur1+UValeur2+UValeur3+XValeur1)
HMM1 = 2*WeightedAverage[round(20/2)](VHAbsolu) - WeightedAverage[20](VHAbsolu)
HMM = WeightedAverage[round(SQRT(20))](HMM1)
UP1 = HMM+STD[9]*1
UP2 = HMM+STD[26]*1
UP3 = HMM+STD[52]*1
UP = (UP1+UP2+UP3)/3
//============================== Trend Baissier
//Configuration baissière
if close < open then
DValeur1 = 0 - (open-close)
UValeur1 = 0
DValeur2 = DValeur1 - (high-open)
UValeur2 = 0
UValeur3 = 0 + (close-low)
DValeur3 = 0
XValeur1 = 0
XValeur2 = 0
endif
//Valeur Absolue Baissière
VBAbsolu = 0 - (DValeur1+DValeur2+DValeur3+XValeur2)
BMM1 = 2*WeightedAverage[round(20/2)](VBAbsolu) - WeightedAverage[20](VBAbsolu)
BMM = WeightedAverage[round(SQRT(20))](BMM1)
BP1 = BMM+STD[9]*1
BP2 = BMM+STD[26]*1
BP3 = BMM+STD[52]*1
DW = (BP1+BP2+BP3)/3
//============================== Trend Neutre
//Configuration Neutre
if close = open then
XValeur1 = 0 + (high-open)
XValeur2 = 0 - (open-low)
UValeur1 = 0
UValeur2 = 0
DValeur1 = 0
DValeur2 = 0
endif
//============================== Calcul Secondaire
if barindex>1 then
haclose=(open+close+low+high)/4
haopen=(haopen[1]+haclose[1])/2
endif
//Force du Trend
Force = (UP+DW)/2
if Force > Force[1] then
ST = 1
elsif Force < Force[1] then
ST = 0
endif
//Up
U1 = haclose => haopen and UP > DW
U2 = ST = 1
if U1 and U2 then
signalU = 1
else
signalU = 0
endif
//Up
XU1 = close => open and UP > DW
XU2 = ST = 1
if XU1 and XU2 then
XsignalU = 1
else
XsignalU = 0
endif
if signalU = 1 and Heinkin then
drawcandle(haopen,high,low,haclose)coloured(36,147,219)
endif
if XsignalU = 1 and Chandelier then
drawcandle(open,high,low,close)coloured(36,147,219)
endif
//Down
D1 = haclose =< haopen and DW > UP
D2 = ST = 1
if D1 and D2 then
signalD = 1
else
signalD = 0
endif
//Down
XD1 = close =< open and DW > UP
XD2 = ST = 1
if XD1 and XD2 then
XsignalD = 1
else
XsignalD = 0
endif
if signalD = 1 and Heinkin then
drawcandle(haopen,high,low,haclose)coloured(101,101,101)
endif
if XsignalD = 1 and Chandelier then
drawcandle(open,high,low,close)coloured(101,101,101)
endif
//============================== Fin
return