Eccolo:

//DEFPARAM CalculateOnLastBars = 1000
// definizione delle candele HA
if barindex > 1 then
   xClose  = (open+close+low+high)/4    //TotalPrice
   xOpen   = (xOpen[1]+xClose[1])/2
   haHigh  = Max(xOpen, xClose)
   haLow   = Min(xOpen, xClose)
   xHigh   = Max(High,haHigh)
   xLow    = Min(Low,haLow)
   //xRange  = abs(xClose - xOpen)
else
   xClose  = (open+close+low+high)/4    //TotalPrice
   xOpen   = (Open[1]+Close[1])/2
   haHigh  = Max(xOpen, xClose)
   haLow   = Min(xOpen, xClose)
   xHigh   = Max(High,haHigh)
   xLow    = Min(Low,haLow)
   //xRange  = abs(xClose - xOpen)
endif
// Bollinger BB%
p       = 20
dev     = 2.0
BollInf = Average[p,0](xclose) - (dev * std[p](xclose))
BollSup = Average[p,0](xclose) + (dev * std[p](xclose))
pB      = ((xclose - BollInf) / (BollSup - BollInf)) * 100
//
// colore VIOLA per difetto
r = 186
g = 85
b = 211
// Visibilità massima
a = 255
//
IF pB <= 100 AND pB > 50 THEN
   r = 0
   g = 128                                //Verde
   b = 0
ELSIF pB >= -100 AND pB <= 50 THEN
   r = 255                                //Rosso
   g = 0
   b = 0
ENDIF
DRAWCANDLE(xOpen,xHigh,xLow,xClose) coloured(r,g,b,a)
return

x-13.jpg