DeltaForce

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

//|                                                   DeltaForce.mq5 |

//|                      Copyright © 2004, MetaQuotes Software Corp. |

//|                                       http://www.metaquotes.net/ |

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

#property  copyright "Copyright © 2004, MetaQuotes Software Corp."

#property  link      "http://www.metaquotes.net/" 

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

#property version   "1.01"

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

#property indicator_separate_window

//---- :>;8G5AB2> 8=48:0B>@=KE 1CD5@>2

#property indicator_buffers 4 

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

#property indicator_plots   2

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

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

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

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

#property indicator_type1   DRAW_COLOR_HISTOGRAM

//---- 2 :0G5AB25 F25B>2 42CEF25B=>9 38AB>3@0<<K 8A?>;L7>20=K

#property indicator_color1  clrBlue,clrDodgerBlue

//---- 38AB>3@0<<K 8=48:0B>@0 - =5?@5@K2=0O :@820O

#property indicator_style1  STYLE_SOLID

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

#property indicator_width1  3

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

#property indicator_label1  "High"

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

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

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

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

#property indicator_type2   DRAW_COLOR_HISTOGRAM

//---- 2 :0G5AB25 F25B>2 42CEF25B=>9 38AB>3@0<<K 8A?>;L7>20=K

#property indicator_color2  clrMagenta,clrPurple

//---- 38AB>3@0<<K 8=48:0B>@0 - =5?@5@K2=0O :@820O

#property indicator_style2  STYLE_SOLID

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

#property indicator_width2  3

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

#property indicator_label2  "Low"



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

//|  %+  " + "      |

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

input int Shift=0; // !4283 8=48:0B>@0 ?> 3>@87>=B0;8 2 10@0E

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



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

double HIndBuffer[],ColorHIndBuffer[];

double LIndBuffer[],ColorLIndBuffer[];

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

int min_rates_total;

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

//| Custom indicator initialization function                         | 

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

void OnInit()

  {

//---- =8F80;870F8O ?5@5<5==KE =0G0;0 >BAG5B0 40==KE

   min_rates_total=2;

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

   SetIndexBuffer(0,HIndBuffer,INDICATOR_DATA);

//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 F25B>2>9, 8=45:A=K9 1CD5@   

   SetIndexBuffer(1,ColorHIndBuffer,INDICATOR_COLOR_INDEX);

//---- >ACI5AB2;5=85 A42830 8=48:0B>@0 1 ?> 3>@87>=B0;8

   PlotIndexSetInteger(0,PLOT_SHIFT,Shift);

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

   PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total);

//---- CAB0=>2:0 7=0G5=89 8=48:0B>@0, :>B>@K5 =5 1C4CB 2848<K =0 3@0D8:5

   PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,EMPTY_VALUE);



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

   SetIndexBuffer(2,LIndBuffer,INDICATOR_DATA);

//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 F25B>2>9, 8=45:A=K9 1CD5@   

   SetIndexBuffer(3,ColorLIndBuffer,INDICATOR_COLOR_INDEX);

//---- >ACI5AB2;5=85 A42830 8=48:0B>@0 1 ?> 3>@87>=B0;8

   PlotIndexSetInteger(1,PLOT_SHIFT,Shift);

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

   PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total);

//---- CAB0=>2:0 7=0G5=89 8=48:0B>@0, :>B>@K5 =5 1C4CB 2848<K =0 3@0D8:5

   PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,EMPTY_VALUE);



//---- A>740=85 8<5=8 4;O >B>1@065=8O 2 >B45;L=>< ?>4>:=5 8 2> 2A?;K20NI59 ?>4A:07:5

   IndicatorSetString(INDICATOR_SHORTNAME,"DeltaForce");



//---- >?@545;5=85 B>G=>AB8 >B>1@065=8O 7=0G5=89 8=48:0B>@0

   IndicatorSetInteger(INDICATOR_DIGITS,0);

//---- 7025@H5=85 8=8F80;870F88

  }

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

//| Custom indicator iteration function                              | 

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

int OnCalculate(const int rates_total,    // :>;8G5AB2> 8AB>@88 2 10@0E =0 B5:CI5< B8:5

                const int prev_calculated,// :>;8G5AB2> 8AB>@88 2 10@0E =0 ?@54K4CI5< B8:5

                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(rates_total<min_rates_total) return(0);



//---- 1JO2;5=85 ?5@5<5==KE A ?;020NI59 B>G:>9  

   double;

//---- 1JO2;5=85 F5;KE ?5@5<5==KE 8 ?>;CG5=85 C65 ?>AG8B0==KE 10@>2

   int first,bar;

   int diff,deltah,deltal,resh,resl;

   static int deltah_prev,deltal_prev,resh_prev,resl_prev;



//---- @0AG5B AB0@B>2>3> =><5@0 first 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

     {

      first=1; // AB0@B>2K9 =><5@ 4;O @0AG5B0 2A5E 10@>2

      deltah_prev=NULL;

      deltal_prev=NULL;

      resh_prev=NULL;

      resl_prev=NULL;

     }

   else first=prev_calculated-1; // AB0@B>2K9 =><5@ 4;O @0AG5B0 =>2KE 10@>2



   deltah=deltah_prev;

   deltal=deltal_prev;

   resh=resh_prev;

   resl=resl_prev;



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

   for(bar=first; bar<rates_total && !IsStopped(); bar++)

     {

      HIndBuffer[bar]=NULL;

      LIndBuffer[bar]=NULL;

      

      diff=int((close[bar]-close[bar-1])/_Point);

      if(diff>0)

        {

         resl=0;

         if(!resh) deltah=NULL;

         deltah+=diff;

         resh=1;

        }

      if(!resh) deltah=NULL;

      HIndBuffer[bar]=deltah;



      if(diff<0)

        {

         resh=0;

         if(!resl) deltal=NULL;

         deltal+=diff;

         resl=1;

        }

      if(!resl) deltal=NULL;

      LIndBuffer[bar]=deltal;



      if(bar<rates_total-1)

        {

         deltah_prev=deltah;

         deltal_prev=deltal;

         resh_prev=resh;

         resl_prev=resl;

        }

     }



//---- :>@@5:B8@>2:0 7=0G5=8O ?5@5<5==>9 first

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

      first=min_rates_total+1; // AB0@B>2K9 =><5@ 4;O @0AG5B0 2A5E 10@>2



//---- A=>2=>9 F8:; @0A:@0A:8 A83=0;L=>9 ;8=88

   for(bar=first; bar<rates_total && !IsStopped(); bar++)

     {

      ColorHIndBuffer[bar]=ColorHIndBuffer[bar-1];

      if(HIndBuffer[bar-1]<HIndBuffer[bar]) ColorHIndBuffer[bar]=0;

      else if(HIndBuffer[bar-1]>HIndBuffer[bar]) ColorHIndBuffer[bar]=1;

      //----

      ColorLIndBuffer[bar]=ColorLIndBuffer[bar-1];

      if(LIndBuffer[bar-1]>LIndBuffer[bar]) ColorLIndBuffer[bar]=0;

      else if(LIndBuffer[bar-1]<LIndBuffer[bar]) ColorLIndBuffer[bar]=1;

     }

//----     

   return(rates_total);

  }

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