//+------------------------------------------------------------------+
//|                                                      MFE_Trap.mq4|
//|                                  Copyright (c) 2011, FX_Kuraisora|
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright ｩ 2010, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"

#property indicator_separate_window
#property indicator_buffers 4
#property indicator_color1 Green
#property  indicator_width1  1
#property indicator_color2 Lime
#property  indicator_width2  2
#property indicator_color3 DarkRed
#property  indicator_width3  1
#property indicator_color4 DeepPink//Red
#property  indicator_width4  2
#property indicator_level1 0


//---- buffers
double BullSM[];
double Bull[];
double BearSM[];
double Bear[];


extern int SMPriod = 200;//計算期間
extern double STDdouble = 1;//標準偏差倍率　1 = 1σ (68%)
extern int Label1 = 100;//インデックスPipsLevel

int init()
{
   IndicatorBuffers(4); 
   SetIndexBuffer(0, Bull);
   SetIndexBuffer(1, BullSM);
   SetIndexStyle(1,DRAW_LINE);
   SetIndexBuffer(2, Bear);
   SetIndexBuffer(3, BearSM);
   SetIndexStyle(3,DRAW_LINE);

   string label = "MFE_Trap Priod("+SMPriod+") Sigma("+STDdouble+") ";
   IndicatorShortName(label);
   SetLevelStyle(2,1,DimGray);
   SetIndexLabel(0, label);
   SetLevelValue(1,Label1);
//   SetLevelValue(2,100);
   return(0);
}



//---- Loop
int start()
{
   double spread = Ask-Bid;
   int limit = Bars-IndicatorCounted();
   double dHigh , dLow , dBullResult, dBearResult;
   for(int i=limit-1; i>=0; i--)
   {
   
         dHigh = High[i];
         dLow = Open[i];
         dBullResult = (dHigh - dLow)/Point;
         Bull[i]= dBullResult ;



      
      
         dHigh = Open[i];
         dLow = Low[i];
         dBearResult = (dHigh - dLow)/Point;
         Bear[i]= dBearResult ;


   }
   for(i=limit-1; i>=0; i--)
   {


//      BearSM[i] = iMAOnArray(Bear, 0, SMPriod, 0, MODE_EMA, i);
      BearSM[i] = iStdDevOnArray(Bear, 0, SMPriod, 0, MODE_EMA, i)*STDdouble;
//      BullSM[i] = iMAOnArray(Bull, 0, SMPriod, 0, MODE_EMA, i);
      BullSM[i] = iStdDevOnArray(Bull, 0, SMPriod, 0, MODE_EMA, i)*STDdouble;

   }

   return(0);
}