Comme ceci ? J’ai uniquement ajouté un test de la couleur de la bougie.

value = 0
clong1 = low < low[1] and low<low[2]
clong2 = close >= low[1]-1 and open >= low[1]-1
clong3 = abs(open - close) < 4*range/10
clong4 = open > (low + range*5/10) and close > (low + range*5/10)
cshort1 = high > high[1] and high > high[2]
cshort2 = close <= high[1]+1 and open <= high[1]+1
cshort3 = abs(open - close) < 4*range/10
cshort4 = open < (high - range*5/10) and close < (high - range*5/10)

if clong1 and clong2 and clong3 and clong4 and close>open then
value = 10
elsif cshort1 and cshort2 and cshort3 and cshort4 and close<open then
value = -10
endif

return value

just a little

clong1 = low < low[1] and low<low[2]
clong2 = close >= low[1]-1 and open >= low[1]-1
clong3 = abs(open - close) < 4*range/10
clong4 = open > (low + range*5/10) and close > (low + range*5/10)
cshort1 = high > high[1] and high > high[2]
cshort2 = close <= high[1]+1 and open <= high[1]+1
cshort3 = abs(open - close) < 4*range/10
cshort4 = open < (high - range*5/10) and close < (high - range*5/10)


// graphics on Chart
rL = 255
gL = 0
bL = 0

rS = 0
gS = 0
bS = 255

PIP                 = 10*Pipsize   ///ARROW DISTANCE
LIN                 = 3             //LENGTH OF SEGMENT OF SUPPORT OR RESISTENCE
RESISTENCE          = 1*Pipsize    //DISTANCE OF THE SEGMENT OF THE RESISTENCE
SUPPORT             = 1*Pipsize

if clong1 and clong2 and clong3 and clong4 and close>open then
DRAWARROWDOWN(barindex,HIGH+PIP)coloured(rS,gS,bS)
DRAWSEGMENT(barindex,HIGH+RESISTENCE,barindex-LIN, HIGH+RESISTENCE) coloured(rS,gS,bS)
elsif cshort1 and cshort2 and cshort3 and cshort4 and close<open then
DRAWARROWUP(barindex,LOW-PIP)coloured(rL,gL,bL)
DRAWSEGMENT(barindex,LOW-SUPPORT,barindex-LIN, LOW-SUPPORT )coloured(rL,gL,bL)
endif
 
return