mm200=Average[200](close)
LRCentre = linearregression[len](totalprice)
if LRcentre<LRCentre[1] THEN
r=255
G=0
BelRouge=1
ELSE
BelRouge =0
endif
if LRcentre>LRCentre[1] THEN
r=0
G=255
Belvert=1
ELSE
belVert=0
endif
li224=0
if (ld8 = 0.0) then
ld8 = 1.0
ld16 = 0.0
if (Len - 1 >= 5) then
ld0 = Len - 1.0
else
ld0 = 5.0
endif
ld80 = 100.0 * ((High[li224] + Low[li224] + Close[li224]) / 3.0)
ld96 = 3.0 / (Len + 2.0)
ld104 = 1.0 - ld96
else
if (ld0 <= ld8) then
ld8 = ld0 + 1.0
else
ld8 = ld8+1.0
endif
ld88 = ld80
ld80 = 100.0 * ((High[li224] + Low[li224] + Close[li224]) / 3.0)
ld32 = ld80 - ld88
ld112 = ld104 * ld112 + ld96 * ld32
ld120 = ld96 * ld112 + ld104 * ld120
ld40 = 1.5 * ld112 - ld120 / 2.0
ld128 = ld104 * ld128 + ld96 * ld40
ld208 = ld96 * ld128 + ld104 * ld208
ld48 = 1.5 * ld128 - ld208 / 2.0
ld136 = ld104 * ld136 + ld96 * ld48
ld152 = ld96 * ld136 + ld104 * ld152
ld56 = 1.5 * ld136 - ld152 / 2.0
ld160 = ld104 * ld160 + ld96 * Abs(ld32)
ld168 = ld96 * ld160 + ld104 * ld168
ld64 = 1.5 * ld160 - ld168 / 2.0
ld176 = ld104 * ld176 + ld96 * ld64
ld184 = ld96 * ld176 + ld104 * ld184
ld144 = 1.5 * ld176 - ld184 / 2.0
ld192 = ld104 * ld192 + ld96 * ld144
ld200 = ld96 * ld192 + ld104 * ld200
ld72 = 1.5 * ld192 - ld200 / 2.0
if (ld0 >= ld8 and ld80 <> ld88) then
ld16 = 1.0
endif
if (ld0 = ld8 and ld16 = 0.0) then
ld8 = 0.0
endif
endif
if (ld0 < ld8 and ld72 > 0.0000000001) then
ld24 = 50.0 * (ld56 / ld72 + 1.0)
if (ld24 > 100.0) then
ld24 = 100.0
endif
if (ld24 < 0.0) then
ld24 = 0.0
endif
else
ld24 = 50.0
endif
if (ld24>ld24[1]) then
dirbar=1
endif
if (ld24<ld24[1]) then
dirbar=-1
endif
if (ld24=ld24[1]) then
dirbar=0
endif
//Zone bleu
Zbleu=dirbar<>dirbar[1]
//if Zbleu then
//BACKGROUNDCOLOR (214, 234, 248)
//endif
check=summation[6](zbleu)=1
//mode Range
if Rang THEN
if zbleu and ld24>70 THEN
DRAWARROWDOWN(barindex, high+5*pipsize) coloured (142, 68, 173)
endif
if zbleu and ld24<30 THEN
DRAWARROWUP(barindex, low-5*pipsize) coloured (142, 68, 173)
endif
endif
if ActivFlech then
if close > mm200 and check and ld24<50 and Belvert and not belvert[1] then
DRAWARROWUP(barindex, low - 2*pipsize)
ENDIF
if close> mm200 and zbleu and belvert and ld24<50 then
DRAWARROWUP(barindex, low - 2*pipsize) coloured (0,0,255)
endif
if close <MM200 and check and BelRouge and not BelRouge[1] and ld24>50 THEN
DRAWARROWDOWN(barindex, high+2*pipsize)
endif
if close< mm200 and zbleu and ld24>60 THEN
DRAWARROWDOWN(barindex, high+5*pipsize) coloured(200,0,0)
endif
endif
RETURN LRCentre coloured (r,g,0)style(line,2)