MACD_1_line

//+------------------------------------------------------------------+
//|                                                  MACD_1_line.mq4 |
//|                                      Copyright © 2010, DimDimych |
//|                                                     dm34@mail.ru |
//|                                && komposter komposterius@mail.ru |
//+------------------------------------------------------------------+
#property copyright "DimDimych"
#property link      "dm34@mail.ru"

#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 White
#property indicator_color2 Blue

extern int     FastEMA                    = 12;
extern int     SlowEMA                    = 26;
extern int     SignalSMA                  = 9;
extern bool    SoundAlerts                = true;
extern bool    DrawArrows                 = true;
extern int      Arrows_width=1;
extern bool      DrawTrendLine=true;
extern int      TrendLine_width            = 2;
extern int      TrendLine_style            = STYLE_SOLID;
extern color   color_DN                     = White;
extern color   color_UP                     = Blue;
extern int      BarsCount=300;
extern int      MinBars=1;

double Buff_up[];
double Buff_dn[];
double Buff_temp[];
double Buff_temp_sig[];

string   short_name="";
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int init() 
  {
   IndicatorBuffers(4);

   SetIndexStyle(0,DRAW_LINE,0,2);
   SetIndexBuffer(0,Buff_dn);
   SetIndexStyle(1,DRAW_LINE,0,2);
   SetIndexBuffer(1,Buff_up);

   SetIndexBuffer(2,Buff_temp);
   SetIndexBuffer(3,Buff_temp_sig);

   short_name="MACD_line("+FastEMA+","+SlowEMA+","+SignalSMA+")";
   IndicatorShortName(short_name);
   if(MinBars<1) MinBars=1;
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int deinit()
  {
   int n=ObjectsTotal();
   for(int i=n-1; i>=0; i--)
     {
      string sName=ObjectName(i);
      if(StringFind(sName,short_name)==0)
        {
         ObjectDelete(sName);
        }
     }
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start() 
  {
   double sl;
   double atr=iATR(Symbol(),0,50,1);
  
   int counted_bars=IndicatorCounted();
   if(counted_bars<0) return(-1);
   if(counted_bars>0) counted_bars--;
   int limit=Bars-counted_bars;
   if(counted_bars==0) limit-=2;
      
//---------
   for(int i=limit;i>=0;i--)
     {
      Buff_temp[i]     =iMACD(NULL,0,FastEMA,SlowEMA,SignalSMA,PRICE_CLOSE,MODE_MAIN,i);
      Buff_temp_sig[i] =iMACD(NULL,0,FastEMA,SlowEMA,SignalSMA,PRICE_CLOSE,MODE_SIGNAL,i);
     }
//---------   
   double value=0;
   for(i=limit;i>=0;i--)
     {
      Buff_up[i] = EMPTY_VALUE;
      Buff_dn[i] = EMPTY_VALUE;

      if(Buff_temp[i]>=Buff_temp_sig[i])
        {
         value-=0.1;
         Buff_up[i]=value;
         if(Buff_dn[i+1]!=EMPTY_VALUE)
            Buff_up[i+1]=Buff_dn[i+1];
        }
      else if(Buff_temp[i]<Buff_temp_sig[i])
        {
         value+=0.1;
         Buff_dn[i]=value;
         if(Buff_up[i+1]!=EMPTY_VALUE)
            Buff_dn[i+1]=Buff_up[i+1];
        }
     }
//---------
   if(DrawArrows)
     {
      for(i=limit;i>=0;i--)
        {
         if(Buff_temp[i]<Buff_temp_sig[i])
           {
            if(Buff_temp[i+1]>Buff_temp_sig[i+1])
              {
               DrawAr("dn",i);
              }
           }
         if(Buff_temp[i]>Buff_temp_sig[i])
           {
            if(Buff_temp[i+1]<Buff_temp_sig[i+1])
              {
               DrawAr("up",i);
              }
           }
        }
     }
//---------  
   int start_i=-1,pre_cross=0,bars,end_bar;
   string str_time;
   double change_up,change_dn;
   
   if (counted_bars<BarsCount) return(0);

   for(i=BarsCount; i>=0; i--)
     {
      if(pre_cross==0)
        {
         if(Buff_up[i]!=EMPTY_VALUE)
           {
            pre_cross=1;
            start_i=i;
            continue;
           }
         if(Buff_dn[i]!=EMPTY_VALUE)
           {
            pre_cross=-1;
            start_i=i;
            continue;
           }
        }
      else
        {
         if((Buff_up[i]!=EMPTY_VALUE && pre_cross<0) || (Buff_dn[i]!=EMPTY_VALUE && pre_cross>0) || i==0)
           {
            if(start_i-i<=MinBars)
              {
               i++;
               start_i=-1;
               pre_cross=0;
               continue;
              }

            end_bar=i+1;

            if(i==0)
              {
               end_bar=0;
              }

            change_up = Buff_up[end_bar]-Buff_up[start_i+1];
            change_dn = Buff_dn[end_bar]-Buff_dn[start_i+1];
            str_time=TimeToStr(Time[start_i]);

            if(DrawTrendLine)
              {
               if(change_dn>0)
                 {
                  trend("_trend_price_"+str_time,0,Time[start_i+1],Open[start_i+1],Time[end_bar],Open[end_bar],TrendLine_width,TrendLine_style,color_UP);
                 }
               if(change_up>0)
                 {
                  trend("_trend_price_"+str_time,0,Time[start_i+1],Open[start_i+1],Time[end_bar],Open[end_bar],TrendLine_width,TrendLine_style,color_DN);
                 }
              }
            i++;
            start_i=-1;
            pre_cross=0;
           }
        }
     }

//---------   
   if(Buff_temp[0]>Buff_temp_sig[0] && Buff_temp[1]<=Buff_temp_sig[1] && High[0]==Low[0] && High[0]==Close[0] && High[0]==Low[0])
     {
      sl=Low[iLowest(Symbol(),0,MODE_LOW,4,0)]-atr/2.0;
      if(SoundAlerts) Alert("Long "+Symbol()+"! Stop "+DoubleToStr(sl,Digits));
     }
   if(Buff_temp[0]<Buff_temp_sig[0] && Buff_temp[1]>=Buff_temp_sig[1] && High[0]==Low[0] && High[0]==Close[0] && High[0]==Low[0])
     {
      sl=High[iHighest(Symbol(),0,MODE_HIGH,4,0)]+atr/2.0;
      if(SoundAlerts) Alert("Short "+Symbol()+"! Stop "+DoubleToStr(sl,Digits));
     }
   return(0);
  }
//----------------------------------------------------
void trend(string name,int window,datetime time1,double level1,datetime time2,double level2,int width,int style,color col)
  {
   ObjectDelete(short_name+name);
   ObjectCreate(short_name+name,OBJ_TREND,window,time1,level1,time2,level2);
   ObjectSet(short_name+name,OBJPROP_COLOR,col);
   ObjectSet(short_name+name,OBJPROP_RAY,false);
   ObjectSet(short_name+name,OBJPROP_WIDTH,width);
   ObjectSet(short_name+name,OBJPROP_STYLE,style);
  }
//----------------------------------------------------
void DrawAr(string ssName,int i)
  {
   string sName=short_name+" "+ssName+" "+TimeToStr(Time[i],TIME_DATE|TIME_MINUTES);
   ObjectCreate(sName,OBJ_ARROW,0,Time[i],0);
   if(ssName=="up")
     {
      ObjectSet(sName,OBJPROP_ARROWCODE,225);
      ObjectSet(sName,OBJPROP_PRICE1,Low[i]-5*Point);
      ObjectSet(sName,OBJPROP_COLOR,color_UP);
     }
   if(ssName=="dn")
     {
      ObjectSet(sName,OBJPROP_ARROWCODE,226);
      ObjectSet(sName,OBJPROP_PRICE1,High[i]+7*Point);
      ObjectSet(sName,OBJPROP_COLOR,color_DN);
     }
   ObjectSet(sName,OBJPROP_WIDTH,Arrows_width);
  } 
//+------------------------------------------------------------------+