TIMEFRAME(1 HOUR)
K4d=Stochastic[3,2](close)
D4d=average[3](K4d)
//d<30
IF (d4d[0]<30 and d4d[0]>d4d[1]) THEN
backgroundcolor (255,105,180) ///rouge
elsif (d4d[0]<30 and d4d[0]<d4d[1]) THEN
backgroundcolor (255,105,180) ///rouge
endif
//30<d<50
if (d4d[0]<50 AND d4d[0]>30 and d4d[0]>d4d[1]) THEN
backgroundcolor (0,255,255) ///bleu
elsif (d4d[0]<50 AND d4d[0]>30 and d4d[0]<d4d[1]) THEN
backgroundcolor (255,105,180) ///rouge
endif
//d<30
if (d4d[0]<30 and K4d[0]>K4d[1]) THEN
backgroundcolor (0,255,255) ///bleu
elsif (d4d[0]<30 and K4d[0]<K4d[1]) THEN
backgroundcolor (255,105,180) ///rouge
endif
//30<d<50
if (d4d[0]<50 AND d4d[0]>30 and K4d[0]>K4d[1]) THEN
backgroundcolor (0,255,255) ///bleu
elsif (d4d[0]<50 AND d4d[0]>30 and K4d[0]<K4d[1]) THEN
backgroundcolor (255,105,180)///rouge
endif
//d<30
IF (d4d[0]<30 and k4d[0]>d4d[0]) THEN
backgroundcolor (255,105,180)///rouge
elsif (d4d[0]<30 and k4d[0]<d4d[0]) THEN
backgroundcolor (255,105,180)///rouge
endif
//30<d<50
if (d4d[0]<50 AND d4d[0]>30 and k4d[0]>d4d[0]) THEN
backgroundcolor (0,255,255) ///bleu
elsif (d4d[0]<50 AND d4d[0]>30 and k4d[0]<d4d[0]) THEN
backgroundcolor (255,105,180)///rouge
endif
//d<30
IF (d4d[0]<30 and k4d[0]<d4d[0] and (abs(k4d[1]-k4d[0])<15)) THEN
backgroundcolor (255,105,180)///rouge
elsif (d4d[0]<30 and k4d[0]>d4d[0] and (abs(k4d[1]-k4d[0])<15)) THEN
backgroundcolor (255,105,180)///rouge
endif
//d<30
IF (d4d[0]<30 and k4d[0]<d4d[0] and (abs(k4d[1]-k4d[0])<30) and (abs(k4d[1]-k4d[0])>15)) THEN
backgroundcolor (255,105,180)///rouge
elsif (d4d[0]<30 and k4d[0]>d4d[0] and (abs(k4d[1]-k4d[0])<30)and (abs(k4d[1]-k4d[0])>15)) THEN
backgroundcolor (255,105,180)///rouge
endif
//d<30
IF (d4d[0]<30 and k4d[0]<d4d[0] and (abs(k4d[1]-k4d[0])<45) and (abs(k4d[1]-k4d[0])>30)) THEN
backgroundcolor (255,105,180) ///rouge
elsif (d4d[0]<30 and k4d[0]>d4d[0] and (abs(k4d[1]-k4d[0])<45)and (abs(k4d[1]-k4d[0])>30)) THEN
backgroundcolor (0,255,255) ///bleu
endif
//d<30
IF (d4d[0]<30 and k4d[0]<d4d[0] and (abs(k4d[1]-k4d[0])>45) ) THEN
backgroundcolor (255,105,180)///rouge
elsif (d4d[0]<30 and k4d[0]>d4d[0] and (abs(k4d[1]-k4d[0])>45)) THEN
backgroundcolor (0,255,255)///bleu
else
cj9=0
endif
//30<d<50
IF (d4d[0]<50 AND d4d[0]>30 and k4d[0]<d4d[0] and (abs(k4d[1]-k4d[0])<15)) THEN
backgroundcolor (255,105,180) ///rouge
elsif (d4d[0]<50 AND d4d[0]>30 and k4d[0]>d4d[0] and (abs(k4d[1]-k4d[0])<15)) THEN
backgroundcolor (0,255,255)///bleu
endif
//30<d<50
IF (d4d[0]<50 AND d4d[0]>30 and k4d[0]<d4d[0] and (abs(k4d[1]-k4d[0])<30) and (abs(k4d[1]-k4d[0])>15)) THEN
backgroundcolor (255,105,180)///rouge
elsif (d4d[0]<50 AND d4d[0]>30 and k4d[0]>d4d[0] and (abs(k4d[1]-k4d[0])<30) and (abs(k4d[1]-k4d[0])>15)) THEN
backgroundcolor (0,255,255) ///bleu
endif
//30<d<50
IF (d4d[0]<50 AND d4d[0]>30 and k4d[0]<d4d[0] and (abs(k4d[1]-k4d[0])<45) and (abs(k4d[1]-k4d[0])>30)) THEN
backgroundcolor (255,105,180) ///rouge
elsif (d4d[0]<50 AND d4d[0]>30 and k4d[0]>d4d[0] and (abs(k4d[1]-k4d[0])<45) and (abs(k4d[1]-k4d[0])>30)) THEN
backgroundcolor (0,255,255)///bleu
endif
//30<d<50
IF (d4d[0]<50 AND d4d[0]>30 and k4d[0]<d4d[0] and (abs(k4d[1]-k4d[0])>45) ) THEN
backgroundcolor (255,105,180) ///rouge
elsif (d4d[0]<50 AND d4d[0]>30 and k4d[0]>d4d[0] and (abs(k4d[1]-k4d[0])>45) ) THEN
backgroundcolor (0,255,255) ///bleu
endif
Return