//+------------------------------------------------------------------+ 
//|                                     Bollinger Bands Bi-Color.mq4 | 
//|                                 G. GOUSSET  and Nicolas Vitale   | 
//|                                http://www.trading-automatique.fr | 
//+------------------------------------------------------------------+ 
#property copyright "G. GOUSSET  and Nicolas Vitale" 
#property link      "http://www.trading-automatique.fr" 


#property indicator_chart_window 
#property indicator_buffers 5 
#property indicator_color1 Red // bande boll sup décroissante 
#property indicator_color2 Green // bande boll sup croissante 
#property indicator_color3 LightSeaGreen // moyenne 
#property indicator_color4 Red // bande boll inf décroissante 
#property indicator_color5 Green // bande boll inf croissante 


//---- indicator parameters 
extern int Periode = 20; 
extern int Decal_Band = 0; 
extern double EType_Band = 2.0; 

//---- buffers 
double MovingBuffer[]; // valeurs de la moyenne 
double UpperBuffer[]; // toutes les valeurs de la bande sup d'abord placées dans ce tableau 
double LowerBuffer[]; // toutes les valeurs de la bande inf d'abord placées dans ce tableau 

// puis on fera une sélection selon 

double UpperBGreen[] ; // boll sup croissante 
double UpperBRed[] ; // boll sup décroissante 
double LowerBGreen[] ; // boll inf croissante 
double LowerBRed[] ; // boll inf décroissante 

double EType[] ; // Ecart-Type 

//+------------------------------------------------------------------+ 
//| initialisation | 
//+------------------------------------------------------------------+ 
int init() 
{ 
//---- indicators 
IndicatorBuffers(8); 

SetIndexStyle(0,DRAW_LINE,0,2); 
SetIndexBuffer(0,UpperBRed); // on trace la partie décroissante de la bande sup en rouge 
SetIndexStyle(1,DRAW_LINE,0,2); 
SetIndexBuffer(1,UpperBGreen); // on trace la partie croissante de la bande sup en vert 

SetIndexStyle(2,DRAW_LINE,0,1); 
SetIndexBuffer(2,MovingBuffer); // tracé de la moyenne 

SetIndexStyle(3,DRAW_LINE,0,2); 
SetIndexBuffer(3,LowerBRed); // on trace la partie décroissante de la bande inf en rouge 
SetIndexStyle(4,DRAW_LINE,0,2); 
SetIndexBuffer(4,LowerBGreen); // on trace la partie croissante de la bande inf en vert 

SetIndexStyle(5,DRAW_NONE); 
SetIndexBuffer(5,UpperBuffer); 

SetIndexStyle(6,DRAW_NONE); 
SetIndexBuffer(6,LowerBuffer); 

SetIndexStyle(7,DRAW_NONE); 
SetIndexBuffer(7,EType); 


//---- 
return(0); 
} 
//+------------------------------------------------------------------+ 
//| Bollinger Bands | 
//+------------------------------------------------------------------+ 
int start() 
{ 
int index ; 

int limit=Bars-Periode; 

for(index=limit-2 ; index>=0 ; index--) 
{ 
MovingBuffer[index]=iMA(NULL,0,Periode,Decal_Band,MODE_SMA,PRICE_CLOSE,index); 
EType[index] = iStdDev(NULL,0,Periode,Decal_Band,MODE_SMA,PRICE_CLOSE,index); 

UpperBuffer[index] = MovingBuffer[index] + EType[index] * EType_Band ; // on construit la bande sup 

LowerBuffer[index] = MovingBuffer[index] - EType[index] * EType_Band ; // et la bande inf 

UpperBGreen[index] = UpperBuffer[index] ; // puis transfert de toutes les valeurs de la bande sup 
UpperBRed[index] = UpperBuffer[index] ; // dans les tableaux "vert" et "rouge" 

LowerBGreen[index] = LowerBuffer[index] ; // idem avec toutes les valeurs de la bande inf 
LowerBRed[index] = LowerBuffer[index] ; // vers les tableaux "vert" et "rouge" 

if ((UpperBuffer[index] > UpperBuffer[index+1])&&(UpperBuffer[index+1] > UpperBuffer[index+2])) UpperBRed[index+1] = EMPTY_VALUE ; // test croissance bande sup et 
else if((UpperBuffer[index] < UpperBuffer[index+1])&&(UpperBuffer[index+1] < UpperBuffer[index+2])) UpperBGreen[index+1] = EMPTY_VALUE ; // un seul tableau reste renseigné avec une valeur 

if ((LowerBuffer[index] > LowerBuffer[index+1])&&(LowerBuffer[index+1] > LowerBuffer[index+2])) LowerBRed[index+1] = EMPTY_VALUE ; // idem avec la bande inf 
else if ((LowerBuffer[index] < LowerBuffer[index+1])&&(LowerBuffer[index+1] < LowerBuffer[index+2]))LowerBGreen[index+1] = EMPTY_VALUE ; 

} // fin boucle index 

//---- 
return(0); 
} 
//+------------------------------------------------------------------+