Four_MA_Strength

ÿþ//+----------------------------------------------------------------------+

//|                                                 Four_MA_Strength.mq5 |

//|        Copyright © 2006 , kurkafund on 11/05/2006 by David Honeywell |

//|                      kurkafund@yahoo.com , transport.david@gmail.com |

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

//--- 02B>@AB2> 8=48:0B>@0

#property copyright "Copyright © 2006, Custom Built For kurkafund on 11/05/2006 by David Honeywell"

//--- AAK;:0 =0 A09B 02B>@0

#property link      "kurkafund@yahoo.com , transport.david@gmail.com"

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

//|                            Custom Built For kurkafund on 11/05/2006 by David Honeywell , transport.david@gmail.com |

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

//--- =><5@ 25@A88 8=48:0B>@0

#property version   "1.00"

//---- >B@8A>2:0 8=48:0B>@0 2 >B45;L=>< >:=5

#property indicator_separate_window  

//--- 4;O @0AG5B0 8 >B@8A>2:8 8=48:0B>@0 8A?>;L7>20=> 420 1CD5@0

#property indicator_buffers 2

//--- 8A?>;L7>20=> 2A53> 420 3@0D8G5A:8E ?>AB@>5=8O

#property indicator_plots   2

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

//|  0@0<5B@K >B@8A>2:8 <54256L53> 8=48:0B>@0   |

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

//--- >B@8A>2:0 8=48:0B>@0 1 2 2845 38AB>3@0<<K

#property indicator_type1   DRAW_HISTOGRAM

//--- 2 :0G5AB25 F25B0 <54256L59 ;8=88 8=48:0B>@0 8A?>;L7>20= @>7>2K9 F25B

#property indicator_color1  clrMagenta

//--- B>;I8=0 ;8=88 8=48:0B>@0 1 @02=0 4

#property indicator_width1  4

//--- >B>1@065=85 1KG59 <5B:8 8=48:0B>@0

#property indicator_label1  "Four_MA_Strength Upper"

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

//|  0@0<5B@K >B@8A>2:8 1KGL3> 8=48:0B>@0       |

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

//--- >B@8A>2:0 8=48:0B>@0 2 2 2845 38AB>3@0<<K

#property indicator_type2   DRAW_HISTOGRAM

//--- 2 :0G5AB25 F25B0 1KG59 ;8=88 8=48:0B>@0 8A?>;L7>20= 75;5=K9 F25B

#property indicator_color2  clrLime

//--- B>;I8=0 ;8=88 8=48:0B>@0 2 @02=0 4

#property indicator_width2  4

//--- >B>1@065=85 <54256L59 <5B:8 8=48:0B>@0

#property indicator_label2 "Four_MA_Strength Lower"

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

//|  >1JO2;5=85 :>=AB0=B                         |

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

#define RESET  0 // >=AB0=B0 4;O 2>72@0B0 B5@<8=0;C :><0=4K =0 ?5@5AGQB 8=48:0B>@0

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

//| E>4=K5 ?0@0<5B@K 8=48:0B>@0                 |

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

input int Ma1_Period = 8; // Averaging period 1 for calculation.

input ENUM_MA_METHOD Ma1_Method = MODE_EMA; // MA method 1. It can be any of the Moving Average method enumeration value.

input ENUM_APPLIED_PRICE Ma1_Price  = PRICE_CLOSE; // Applied price 1. It can be any of Applied price enumeration values.



input int Ma2_Period = 24; // Averaging period 2 for calculation.

input ENUM_MA_METHOD Ma2_Method = MODE_EMA; // MA metho 2. It can be any of the Moving Average method enumeration value.

input ENUM_APPLIED_PRICE Ma2_Price  = PRICE_CLOSE; // Applied price 2. It can be any of Applied price enumeration values.



input int Ma3_Period = 72; // Averaging period 3 for calculation.

input ENUM_MA_METHOD Ma3_Method = MODE_EMA; // MA method 3. It can be any of the Moving Average method enumeration value.

input ENUM_APPLIED_PRICE Ma3_Price  = PRICE_CLOSE; // Applied price 3. It can be any of Applied price enumeration values.



input int Ma4_Period = 216; // Averaging period 4 for calculation.

input ENUM_MA_METHOD Ma4_Method = MODE_EMA; // MA method 4. It can be any of the Moving Average method enumeration value.

input ENUM_APPLIED_PRICE Ma4_Price  = PRICE_CLOSE; // Applied price 4. It can be any of Applied price enumeration values.



input double  HighLevel=+3.501;         // C@>25=L ?5@5:C?;5==>AB8

input double  LowLevel=-3.501;          // C@>25=L ?5@5?@>40==>AB8

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

//--- >1JO2;5=85 48=0<8G5A:8E <0AA82>2, :>B>@K5 2 40;L=59H5< 1C4CB 8A?>;L7>20=K 2 :0G5AB25 8=48:0B>@=KE 1CD5@>2

double LowerBuffer[],UpperBuffer[];

//---

//---- 1JO2;5=85 F5;KE ?5@5<5==KE =0G0;0 >BAGQB0 40==KE

int min_rates_total;

//---- 1JO2;5=85 F5;KE ?5@5<5==KE 4;O E5=4;>2 8=48:0B>@>2

int MA_Handle[4];

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

//| Custom indicator initialization function                         |

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

int OnInit()

  {

//--- 8=8F80;870F8O 3;>10;L=KE ?5@5<5==KE 

   min_rates_total=int(MathMax(Ma1_Period,MathMax(Ma2_Period,MathMax(Ma3_Period,Ma4_Period))))+1;



//---- ?>;CG5=85 E5=4;0 8=48:0B>@0 iMA 1

   MA_Handle[0]=iMA(NULL,0,Ma1_Period,0,Ma1_Method,Ma1_Price);

   if(MA_Handle[0]==INVALID_HANDLE)

     {

      Print(" 5 C40;>AL ?>;CG8BL E5=4; 8=48:0B>@0 iMA 1");

      return(INIT_FAILED);

     }

//---- ?>;CG5=85 E5=4;0 8=48:0B>@0 iMA 2

   MA_Handle[1]=iMA(NULL,0,Ma2_Period,0,Ma2_Method,Ma2_Price);

   if(MA_Handle[1]==INVALID_HANDLE)

     {

      Print(" 5 C40;>AL ?>;CG8BL E5=4; 8=48:0B>@0 iMA 2");

      return(INIT_FAILED);

     }

//---- ?>;CG5=85 E5=4;0 8=48:0B>@0 iMA 3

   MA_Handle[2]=iMA(NULL,0,Ma3_Period,0,Ma3_Method,Ma3_Price);

   if(MA_Handle[2]==INVALID_HANDLE)

     {

      Print(" 5 C40;>AL ?>;CG8BL E5=4; 8=48:0B>@0 iMA 3");

      return(INIT_FAILED);

     }

//---- ?>;CG5=85 E5=4;0 8=48:0B>@0 iMA 4

   MA_Handle[3]=iMA(NULL,0,Ma4_Period,0,Ma4_Method,Ma4_Price);

   if(MA_Handle[3]==INVALID_HANDLE)

     {

      Print(" 5 C40;>AL ?>;CG8BL E5=4; 8=48:0B>@0 iMA 4");

      return(INIT_FAILED);

     }

//--- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 8=48:0B>@=K9 1CD5@

   SetIndexBuffer(0,LowerBuffer,INDICATOR_DATA);

//--- >ACI5AB2;5=85 A42830 =0G0;0 >BAG5B0 >B@8A>2:8 8=48:0B>@0 1

   PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total);

//--- 8=45:A0F8O M;5<5=B>2 2 1CD5@5 :0: 2 B09<A5@88

   ArraySetAsSeries(LowerBuffer,true);

   

//--- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 8=48:0B>@=K9 1CD5@

   SetIndexBuffer(1,UpperBuffer,INDICATOR_DATA);

//--- >ACI5AB2;5=85 A42830 =0G0;0 >BAG5B0 >B@8A>2:8 8=48:0B>@0 2

   PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total);

//--- 8=45:A0F8O M;5<5=B>2 2 1CD5@5 :0: 2 B09<A5@88

   ArraySetAsSeries(UpperBuffer,true);

   

//--- #AB0=>2:0 D>@<0B0 B>G=>AB8 >B>1@065=8O 8=48:0B>@0

   IndicatorSetInteger(INDICATOR_DIGITS,2);

//--- 8<O 4;O >:>= 40==KE 8 <5B:0 4;O ?>4>:>= 

   string short_name="Four_MA_Strength";

   IndicatorSetString(INDICATOR_SHORTNAME,short_name);

   

//---- :>;8G5AB2>  3>@87>=B0;L=KE C@>2=59 8=48:0B>@0 3   

   IndicatorSetInteger(INDICATOR_LEVELS,3);

//---- 7=0G5=8O 3>@87>=B0;L=KE C@>2=59 8=48:0B>@0   

   IndicatorSetDouble(INDICATOR_LEVELVALUE,0,HighLevel);

   IndicatorSetDouble(INDICATOR_LEVELVALUE,1,0.0);

   IndicatorSetDouble(INDICATOR_LEVELVALUE,2,LowLevel);

//---- 2 :0G5AB25 F25B>2 ;8=89 3>@87>=B0;L=KE C@>2=59 8A?>;L7>20=K

   IndicatorSetInteger(INDICATOR_LEVELCOLOR,0,clrMediumSeaGreen);

   IndicatorSetInteger(INDICATOR_LEVELCOLOR,1,clrGray);

   IndicatorSetInteger(INDICATOR_LEVELCOLOR,2,clrRed);

//---- 2 ;8=88 3>@87>=B0;L=>3> C@>2=O 8A?>;L7>20= :>@>B:89 HB@8E-?C=:B8@  

   IndicatorSetInteger(INDICATOR_LEVELSTYLE,0,STYLE_DASHDOTDOT);

   IndicatorSetInteger(INDICATOR_LEVELSTYLE,1,STYLE_DASHDOTDOT);

   IndicatorSetInteger(INDICATOR_LEVELSTYLE,2,STYLE_DASHDOTDOT);

//---   

   return(INIT_SUCCEEDED);

  }

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

//| Custom indicator iteration function                              |

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

int OnCalculate(const int rates_total,

                const int prev_calculated,

                const datetime &time[],

                const double &open[],

                const double &high[],

                const double &low[],

                const double &close[],

                const long &tick_volume[],

                const long &volume[],

                const int &spread[])

  {

//--- ?@>25@:0 :>;8G5AB20 10@>2 =0 4>AB0B>G=>ABL 4;O @0AG5B0

   if(BarsCalculated(MA_Handle[0])<rates_total

      || BarsCalculated(MA_Handle[1])<rates_total

      || BarsCalculated(MA_Handle[2])<rates_total

      || BarsCalculated(MA_Handle[3])<rates_total

      || rates_total<min_rates_total)

      return(RESET);



//--- >1JO2;5=8O ;>:0;L=KE ?5@5<5==KE 

   int to_copy,limit,bar;

   double Ma1[],Ma2[],Ma3[],Ma4[];



//--- @0AG5BK =5>1E>48<>3> :>;8G5AB20 :>?8@C5<KE 40==KE 8

//AB0@B>2>3> =><5@0 limit 4;O F8:;0 ?5@5AG5B0 10@>2

   if(prev_calculated>rates_total || prev_calculated<=0)// ?@>25@:0 =0 ?5@2K9 AB0@B @0AG5B0 8=48:0B>@0

     {

      limit=rates_total-min_rates_total; // AB0@B>2K9 =><5@ 4;O @0AG5B0 2A5E 10@>2

     }

   else

     {

      limit=rates_total-prev_calculated; // AB0@B>2K9 =><5@ 4;O @0AG5B0 =>2KE 10@>2

     }

   to_copy=limit+1;

//--- :>?8@C5< 2=>2L ?>O282H85AO 40==K5 2 <0AA82K

   if(CopyBuffer(MA_Handle[0],0,0,to_copy,Ma1)<=0) return(RESET);

   if(CopyBuffer(MA_Handle[1],0,0,to_copy,Ma2)<=0) return(RESET);

   if(CopyBuffer(MA_Handle[2],0,0,to_copy,Ma3)<=0) return(RESET);

   if(CopyBuffer(MA_Handle[3],0,0,to_copy,Ma4)<=0) return(RESET);

//--- 8=45:A0F8O M;5<5=B>2 2 <0AA820E :0: 2 B09<A5@8OE  

   ArraySetAsSeries(Ma1,true);

   ArraySetAsSeries(Ma2,true);

   ArraySetAsSeries(Ma3,true);

   ArraySetAsSeries(Ma4,true);



//--- >A=>2=>9 F8:; @0AG5B0 8=48:0B>@0

   for(bar=limit; bar>=0 && !IsStopped(); bar--)

     {

      double ustrength1 = 0, ustrength2 = 0, ustrength3 = 0, ustrength4 = 0, ustrength5 = 0, ustrength6 = 0;

      double dstrength1 = 0, dstrength2 = 0, dstrength3 = 0, dstrength4 = 0, dstrength5 = 0, dstrength6 = 0;

      

      double Ma1_0 = Ma1[bar]*1000;

      double Ma2_0 = Ma2[bar]*1000;

      double Ma3_0 = Ma3[bar]*1000;

      double Ma4_0 = Ma4[bar]*1000;

      

      if ( Ma1_0 > Ma2_0 ) ustrength1 =  0.25;

      if ( Ma1_0 < Ma2_0 ) dstrength1 = -0.25;

      

      if ( Ma1_0 > Ma2_0 && Ma1_0 > Ma3_0 ) ustrength2 =  0.50;

      if ( Ma1_0 < Ma2_0 && Ma1_0 < Ma3_0 ) dstrength2 = -0.50;

      

      if ( Ma1_0 > Ma2_0 && Ma1_0 > Ma3_0 && Ma1_0 > Ma4_0 ) ustrength3 =  0.75;

      if ( Ma1_0 < Ma2_0 && Ma1_0 < Ma3_0 && Ma1_0 < Ma4_0 ) dstrength3 = -0.75;

      

      if ( Ma1_0 > Ma2_0 && Ma1_0 > Ma3_0 && Ma1_0 > Ma4_0 && Ma2_0 > Ma3_0 ) ustrength4 =  1.00;

      if ( Ma1_0 < Ma2_0 && Ma1_0 < Ma3_0 && Ma1_0 < Ma4_0 && Ma2_0 < Ma3_0 ) dstrength4 = -1.00;

      

      if ( Ma1_0 > Ma2_0 && Ma1_0 > Ma3_0 && Ma1_0 > Ma4_0 && Ma2_0 > Ma3_0 && Ma2_0 > Ma4_0 ) ustrength5 =  1.25;

      if ( Ma1_0 < Ma2_0 && Ma1_0 < Ma3_0 && Ma1_0 < Ma4_0 && Ma2_0 < Ma3_0 && Ma2_0 < Ma4_0 ) dstrength5 = -1.25;

      

      if ( Ma1_0 > Ma2_0 && Ma1_0 > Ma3_0 && Ma1_0 > Ma4_0 && Ma2_0 > Ma3_0 && Ma2_0 > Ma4_0 && Ma3_0 > Ma4_0 ) ustrength6 =  1.50;

      if ( Ma1_0 < Ma2_0 && Ma1_0 < Ma3_0 && Ma1_0 < Ma4_0 && Ma2_0 < Ma3_0 && Ma2_0 < Ma4_0 && Ma3_0 > Ma4_0 ) dstrength6 = -1.50;

      

      UpperBuffer[bar] = ustrength1 + ustrength2 + ustrength3 + ustrength4 + ustrength5 + ustrength6;

      LowerBuffer[bar] = dstrength1 + dstrength2 + dstrength3 + dstrength4 + dstrength5 + dstrength6;

     }

//---     

   return(rates_total);

  }

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