Eccolo (nel codice ci sono i commenti con i colori ed a cosa corrispondono). Non ho messo la chiusura annuale né quella mensile perché c’è già quella settimanale che è la stessa:
DEFPARAM CalculateOnLastBars = 800
DEFPARAM DrawOnLastBarOnly = true
IF BarIndex = 0 THEN
MinSettPrec = 999999
MaxSettPrec = 0
MinSett = 999999
MaxSett = 0
MyBar = 0
AperturaAnno = open
AperturaMese = open
ENDIF
IF DayOfWeek = 1 AND (DayOfWeek[1] <> DayOfWeek) THEN
MyBar = BarIndex
MinSettPrec = MinSett
MaxSettPrec = MaxSett
MinSett = 999999
MaxSett = 0
Apertura = open
ENDIF
IF Month <> Month[1] THEN
AperturaMese = open
ENDIF
IF Year <> Year[1] THEN
AperturaAnno = open
ENDIF
MinSett = min(MinSett,low)
MaxSett = max(MaxSett,high)
DRAWSEGMENT(MyBar,MaxSettPrec,BarIndex,MaxSettPrec) coloured(0,0,255,255) //BLU (Settimana Prec.)
DRAWSEGMENT(MyBar,MinSettPrec,BarIndex,MinSettPrec) coloured(0,0,255,255) //BLU " "
DRAWSEGMENT(MyBar,MaxSett,BarIndex,MaxSett) coloured(0,128,0,255) //VERDE (Settimana corrente)
DRAWSEGMENT(MyBar,MinSett,BarIndex,MinSett) coloured(0,128,0,255) //VERDE " "
DRAWSEGMENT(MyBar,Apertura,BarIndex,Apertura) coloured(238,18,137,255) //ROSA (Apertura settimana)
DRAWSEGMENT(MyBar,close,BarIndex,close) coloured(0,238,238,255) //CELESTE (Chiusura settimana)
DRAWSEGMENT(MyBar,AperturaMese,BarIndex,AperturaMese)coloured(255,215,0,255)//ORO (Apertura mese)
DRAWSEGMENT(MyBar,AperturaAnno,BarIndex,AperturaAnno)coloured(91,91,91,255) //GRIGIO (Apertura Anno)
RETURN