IV
//
//==================== Indicateur
MM1 = 2*WeightedAverage[round(20/2)](close) - WeightedAverage[20](close)
MM = WeightedAverage[round(SQRT(20))](MM1)
Bolup1 = MM+STD[9]*1.0
Boldw1 = MM-STD[9]*1.0
Bolup2 = MM+STD[26]*1.0
Boldw2 = MM-STD[26]*1.0
Bolup3 = MM+STD[52]*1.0
Boldw3 = MM-STD[52]*1.0
Bolup = (Bolup1+Bolup2+Bolup3)/3
Boldw = (Boldw1+Boldw2+Boldw3)/3
Centralite = (Bolup+Boldw)/2
Bolup11 = MM+STD[9]*1.25
Boldw11 = MM-STD[9]*1.25
Bolup22 = MM+STD[26]*1.25
Boldw22 = MM-STD[26]*1.25
Bolup33 = MM+STD[52]*1.25
Boldw33 = MM-STD[52]*1.25
XBolup1 = (Bolup11+Bolup22+Bolup33)/3
XBoldw1 = (Boldw11+Boldw22+Boldw33)/3
Bolup111 = MM+STD[9]*0.75
Boldw111 = MM-STD[9]*0.75
Bolup222 = MM+STD[26]*0.75
Boldw222 = MM-STD[26]*0.75
Bolup333 = MM+STD[52]*0.75
Boldw333 = MM-STD[52]*0.75
XBolup2 = (Bolup111+Bolup222+Bolup333)/3
XBoldw2 = (Boldw111+Boldw222+Boldw333)/3
if Centralite > Centralite[1] then
RC = 36
GC = 147
BC = 219
elsif Centralite < Centralite[1] then
RC = 101
GC = 101
BC = 101
endif
return Bolup coloured(RC,GC,BC) style(line,2) as "ZoneAchat", Boldw coloured(RC,GC,BC) style(line,2) as "ZoneVente", XBolup1 coloured(73,73,73,70) style(dottedline,1) as "ZoneAchatSecondaire1", XBoldw1 coloured(73,73,73,70) style(dottedline,1) as "ZoneVenteSecondaire1",XBolup2 coloured(73,73,73,70) style(dottedline,1) as "ZoneAchatSecondaire2", XBoldw2 coloured(73,73,73,70) style(dottedline,1) as "ZoneVenteSecondaire2", Centralite coloured(RC,GC,BC) as "Centralite"