MACFibo_v1

//+------------------------------------------------------------------+
//|                                                      MACFibo.mq4 |
//|                                                     Dinesh Yadav |
//|                                              dineshydv@gmail.com |
//+------------------------------------------------------------------+
#property copyright "Dinesh Yadav"
#property link      "dineshydv@gmail.com"
// based on MAC-Fibo system

#property indicator_chart_window

extern string MA_Mode_Types="0=SMA; 1=EMA; 2=SMMA; 3=LWMA;";
extern int Fast_MA=5;
extern int Fast_Mode=1;
extern int Slow_MA=20;
extern int Slow_Mode=0;
extern color Long_Entry_Clr=Blue;
extern color Shrt_Entry_Clr=Red;

double CrossUP[],CrossDN[];
int bars_snc_dn_strtd=0,bars_snc_up_strtd=0;
double POINT_A,POINT_B;
string TRADE;

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init() { return(0); }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit() { ObjectsDeleteAll(); return(0); }
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
  {
   int i,counter;
   double MA5_now,MA20_now,MA5_prv,MA20_prv,MA5_aft,MA20_aft;
   double Range,AvgRange;

   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-=1+9;

   double this_trnd_low=99999,this_trnd_high=0;

   for(i=limit; i>=0; i--)
     {
      counter=i; Range=0; AvgRange=0;
      for(counter=i;counter<=i+9;counter++)
        { AvgRange=AvgRange+MathAbs(High[counter]-Low[counter]); }
      Range=AvgRange/10;

      MA5_now = iMA(NULL, 0, Fast_MA, 0, Fast_Mode, PRICE_CLOSE, i);
      MA5_prv = iMA(NULL, 0, Fast_MA, 0, Fast_Mode, PRICE_CLOSE, i+1);
      MA5_aft = iMA(NULL, 0, Fast_MA, 0, Fast_Mode, PRICE_CLOSE, i-1);
      MA20_now = iMA(NULL, 0, Slow_MA, 0, Slow_Mode, PRICE_CLOSE, i);
      MA20_prv = iMA(NULL, 0, Slow_MA, 0, Slow_Mode, PRICE_CLOSE, i+1);
      MA20_aft = iMA(NULL, 0, Slow_MA, 0, Slow_Mode, PRICE_CLOSE, i-1);

      // 5EMA cross above 20SMA UP
      if((MA5_now>MA20_now) && (MA5_prv<MA20_prv) && (MA5_aft>MA20_aft))
        {
         TRADE="BUY";
         //Print("MA Cross UP : bars_snc_dn_strtd ", bars_snc_dn_strtd);
         int low_bar_shft=iLowest(NULL,0,MODE_LOW,bars_snc_dn_strtd,i);
         //CrossUP[i] = Low[i] - Range*0.5; Trend="UP"; 
         POINT_A=Close[i];
         POINT_B=Low[low_bar_shft];

         // Draw POINT_A, POINT_B and connecting line
         //Print("POINT_A: ",POINT_A," POINT_B: ", POINT_B, " Drawing Line.");
         DrawObjects("MACFIBO-A "+i,i+1,POINT_A,i-1,POINT_A,Long_Entry_Clr,3);
         DrawObjects("MACFIBO-B "+i,low_bar_shft+1,POINT_B,low_bar_shft-1,POINT_B,Long_Entry_Clr,3);
         DrawObjects("MACFIBO-Line "+i,low_bar_shft,POINT_B,i,POINT_A,Long_Entry_Clr,3);
        }
      // 5EMA cross below 20SMA DN
      else if((MA5_now<MA20_now) && (MA5_prv>MA20_prv) && (MA5_aft<MA20_aft))
        {
         TRADE="SELL";
         //Print("MA Cross DN : bars_snc_up_strtd ", bars_snc_up_strtd);
         int High_bar_shft=iHighest(NULL,0,MODE_HIGH,bars_snc_up_strtd,i);
         //CrossDN[i] = Low[i] + Range*0.5; Trend="DN"; 
         POINT_A=Close[i];
         POINT_B=High[High_bar_shft];

         // Draw POINT_A, POINT_B and connecting line
         //Print("POINT_A: ",POINT_A," POINT_B: ", POINT_B, " Drawing Line.");
         DrawObjects("MACFIBO-A "+i,i+1,POINT_A,i-1,POINT_A,Shrt_Entry_Clr,3);
         DrawObjects("MACFIBO-B "+i,High_bar_shft+1,POINT_B,High_bar_shft-1,POINT_B,Shrt_Entry_Clr,3);
         DrawObjects("MACFIBO-Line "+i,High_bar_shft,POINT_B,i,POINT_A,Shrt_Entry_Clr,3);
        }
      else { TRADE="NA"; }

      if(MA5_now<MA20_now) // Trend is DN
        {
         bars_snc_up_strtd=0; bars_snc_dn_strtd++; //Print("MA DN : bars_snc_dn_strtd ", bars_snc_dn_strtd); 
        }
      else if(MA5_now>MA20_now) // Trend is UP
        {
         bars_snc_up_strtd++; bars_snc_dn_strtd=0; //Print("MA UP : bars_snc_up_strtd ", bars_snc_up_strtd);
        }

     }
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void DrawObjects(string ObjName,int shft_bgn,double Price_Bgn,int shft_end,double Price_End,color clr,int wdth)
  {
   ObjectDelete(ObjName);
   ObjectCreate(ObjName,OBJ_TREND,0,Time[shft_bgn],Price_Bgn,Time[shft_end],Price_End);
   ObjectSet(ObjName,OBJPROP_WIDTH,wdth);
   ObjectSet(ObjName,OBJPROP_RAY,false);
   ObjectSet(ObjName,OBJPROP_STYLE,STYLE_SOLID);
   ObjectSet(ObjName,OBJPROP_COLOR,clr);
  }

//+------------------------------------------------------------------+