IV
//
//============================== Trend haussier
//Configuration haussière
if (close > open) then
UP = 1
else
UP = 0
endif
//Valeurs des configuration haussière
if (UP = 1) then
VHCORP = 0 + (close - open)
VHMECH = VHCORP + (open - low)
VHBMECH = 0 - (high - close)
elsif (UP = 0) then
VHCORP = 0
VHMECH = 0
VHBMECH = 0
endif
//Valeurs moyenne des corps haussier
VMHCORP1 = summation[5] (VHCORP)
VMHCORP2 = summation[15] (VHCORP)
VMHCORP = (VMHCORP1 + VMHCORP2) / 2
//Valeurs moyenne des mèches haussière
VMHMECH1 = summation[5] (VHMECH + VBHMECH + VNHMECH)
VMHMECH2 = summation[15] (VHMECH + VBHMECH + VNHMECH)
VMHMECH = (VMHMECH1 + VMHMECH2) / 2
//Valeurs des moyenne haussière
VMH = (VMHCORP + VMHMECH) / 2
//============================== Trend baissier
//Configuration baissière
if (close < open) then
DW = 1
else
DW = 0
endif
//Valeurs des configuration baissière
if (DW = 1) then
VBCORP = 0 - (open - close)
VBMECH = VBCORP - (high - open)
VBHMECH = 0 + (close - low)
elsif (DW = 0) then
VBCORP = 0
VBMECH = 0
VBHMECH = 0
endif
//Valeurs moyenne des corps baissier
VMBCORP1 = summation[5] (VBCORP)
VMBCORP2 = summation[15] (VBCORP)
VMBCORP = (VMBCORP1 + VMBCORP2) / 2
//Valeurs moyenne des mèches baissière
VMBMECH1 = summation[5] (VBMECH + VHBMECH + VNBMECH)
VMBMECH2 = summation[15] (VBMECH + VHBMECH + VNBMECH)
VMBMECH = (VMBMECH1 + VMBMECH2) / 2
//Valeurs des moyenne hbaissière
VMB1 = (VMBCORP + VMBMECH) / 2
VMB = (VMB1 - VMB1) - VMB1
//============================== Trend neutre
//Configuration neutre
if (close = open) then
NT = 1
else
NT = 0
endif
//Valeurs des configuration neutre
if (NT = 1) then
VNHMECH = 0 + (open - low)
VNBMECH = 0 - (high - open)
elsif (NT = 0) then
VNHMECH = 0
VNBMECH = 0
endif
//============================== Configuration de la ligne de force
//Paramettre de la force
UP1 = VMH + STD[5] * 1
UP2 = VMH + STD[15] * 1
UP = (UP1 + UP2) / 2
DW1 = VMB + STD[5] * 1
DW2 = VMB + STD[15] * 1
DW = (DW1 + DW2) / 2
LDF = (UP + DW) / 2
//coloration de la ligne de force
if (LDF > LDF[1]) then
R = 13
G = 127
B = 13
elsif (LDF < LDF[1]) then
R = 127
G = 13
B = 13
endif
//============================== Configuration du nuage directionnel
//Paramettre du nuage
if (VMH > VMB) and (LDF < LDF[1]) then
drawcandle (VMH,VMB,VMH,VMB) coloured (36,147,219,70)
elsif (VMH < VMB) and (LDF < LDF[1]) then
drawcandle (VMH,VMB,VMH,VMB) coloured (101,101,101,70)
elsif (VMH > VMB) and (LDF > LDF[1]) and (close-open > high-close) then
drawcandle (VMH,VMB,VMH,VMB) coloured (36,147,219,170)
elsif (VMH < VMB) and (LDF > LDF[1]) and (open-close > close-low) then
drawcandle (VMH,VMB,VMH,VMB) coloured (101,101,101,170)
elsif (VMH > VMB) and (LDF > LDF[1]) and (close < open) then
drawcandle (VMH,VMB,VMH,VMB) coloured (36,147,219,70)
elsif (VMH < VMB) and (LDF > LDF[1]) and (close > open) then
drawcandle (VMH,VMB,VMH,VMB) coloured (101,101,101,70)
elsif (VMH > VMB) and (LDF > LDF[1]) and (high-close > close-open) then
drawcandle (VMH,VMB,VMH,VMB) coloured (36,147,219,70)
elsif (VMH < VMB) and (LDF > LDF[1]) and (close-low > open-close) then
drawcandle (VMH,VMB,VMH,VMB) coloured (101,101,101,70)
endif
//============================== Fin
return VHCORP coloured (36,147,219) style (histogram,1) as "HCorp" , VHMECH coloured (36,147,219,50) style (histogram,1) as "HMeche" , VHBMECH coloured (101,101,101,50) style (histogram,1) as "HBMeche" , VBCORP coloured (101,101,101) style (histogram,1) as "BCorp" , VBMECH coloured (101,101,101,50) style (histogram,1) as "BMeche" , VBHMECH coloured (36,147,219,50) style (histogram,1) as "BHMeche" , VNHMECH coloured (36,147,219,50) style (histogram,1) as "HMeche Doji" , VNBMECH coloured (101,101,101,50) style (histogram,1) as "BMeche Doji" , LDF coloured (R,G,B) style (point,2) as "Force"