wrb-hidden-gap-improved-2.1 bt.mq5

???//+------------------------------------------------------------------+

#property version   "1.00"

#property description "Identifies Wide Range Bars and Hidden Gaps."
#property description "WRB and HG definitions are taken from the WRB Analysis Tutorial-1"
#property description "by M.A.Perry from TheStrategyLab.com."
#property description "Alerts and optimization by Andriy Moraru."

#property indicator_chart_window
#property indicator_buffers 1

#property indicator_color1 clrAqua      // WRB symbol
#property indicator_width1 1

#define UNFILLED_PREFIX "HG_UNFILLED_"
#define FILLED_PREFIX "HG_FILLED_"
#define LINE_PREFIX "HG_LINE_"
#define PREFIX "HG_"

extern ENUM_TIMEFRAMES TimeFrame = PERIOD_CURRENT;
extern bool UseWholeBars = false;
extern int WRB_LookBackBarCount = 3;
extern int WRB_WingDingsSymbol = 115;
extern color HGcolor1 = clrDodgerBlue;
extern color HGcolor2 = clrBlue;
extern color HGLcolor = clrWhite;
extern ENUM_LINE_STYLE HGstyle = STYLE_SOLID;
extern int StartCalculationFromBar = 100;
extern bool HollowBoxes = false;
extern bool DoAlerts = false;

extern string             Button_Settings = "=====================";
extern ENUM_BASE_CORNER   btn_corner            = CORNER_LEFT_UPPER; 
extern string             btn_Font              = "Arial";
extern int                btn_FontSize          = 10;                            
extern color              btn_text_ON_color     = clrLime;
extern color              btn_text_OFF_color    = clrRed;
extern string             btn_pressed           = "WRB OFF";            
extern string             btn_unpressed         = "WRB ON";
extern color              btn_background_color  = clrDimGray;
extern color              btn_border_color      = clrBlack;
extern int                button_x              = 850;                                 
extern int                button_y              = 0;                                   
extern int                btn_Width             = 120;                                 
extern int                btn_Height            = 20;                                
extern string             soundBT               = "tick.wav";

bool           show_data            = true;
bool           recalc               = true;

double WRB[];

int totalBarCount = -1;

bool ButtonState = false;
string sButtonName = "Button WRB";

string   IndicatorName, IndicatorObjPrefix ,buttonId;

string   GenerateIndicatorName(const string target)
{
   string name = target;
   int try = 2;
   while (WindowFind(name) != -1)
   {
      name = target + " #" + IntegerToString(try++);
   }
   return name;
}

int init()
{
      // код доступен только после оплаты
   }

void ObDeleteObjectsByPrefix(string Prefix)
{
   int L = StringLen(Prefix);
   int i = 0; 
   while(i < ObjectsTotal())
   {
       string ObjName = ObjectName(i);
       if(StringSubstr(ObjName, 0, L) != Prefix) 
       { 
           i++; 
           continue;
       }
       ObjectDelete(ObjName);
   }
}

int intersect(double H1, double L1, double H2, double L2)
{
   if ( (L1>H2) || (H1<L2) ) return (0);
   if ( (H1>=H2) && (L1>=L2) ) return (1);
   if ( (H1<=H2) && (L1<=L2) ) return (2);
   if ( (H1>=H2) && (L1<=L2) ) return (3);
   if ( (H1<=H2) && (L1>=L2) ) return (4);
   return(0);
}  

void checkHGFilled(int barNumber)
{
   int j, i;
   string ObjectText;
   string Prefix = UNFILLED_PREFIX;
   double box_H, box_L;
   double HGFillPA_H, HGFillPA_L;
   datetime startTime;
   color objectColor;

   int L = StringLen(Prefix);
   i = 0; 
   while(i < ObjectsTotal()) // loop over all unfilled boxes
   {
       string ObjName = ObjectName(i);
       if(StringSubstr(ObjName, 0, L) != Prefix) 
       { 
           i++; 
           continue;
       }
       box_H=ObjectGet(ObjName, OBJPROP_PRICE1); // get HG high and low values
       box_L=ObjectGet(ObjName, OBJPROP_PRICE2);
       objectColor=ObjectGet(ObjName, OBJPROP_COLOR);
       startTime=ObjectGet(ObjName, OBJPROP_TIME1);

       HGFillPA_H = iHigh(NULL, TimeFrame, barNumber);
       HGFillPA_L = iLow(NULL, TimeFrame, barNumber);
       j = 0;
       while ( (intersect(iHigh(NULL, TimeFrame, barNumber+j), iLow(NULL, TimeFrame, barNumber+j), box_H, box_L)!=0) && (barNumber+j<Bars) && (startTime<iTime(NULL, TimeFrame, barNumber+j)))
       {
         if (iHigh(NULL, TimeFrame, barNumber+j) > HGFillPA_H)  HGFillPA_H = iHigh(NULL, TimeFrame, barNumber+j);
         if (iLow(NULL, TimeFrame, barNumber+j)  < HGFillPA_L)  HGFillPA_L = iLow(NULL, TimeFrame, barNumber+j);
         if ( (HGFillPA_H>box_H) && (HGFillPA_L<box_L) )
         {
            ObjectDelete(ObjName);
            StringReplace(ObjName, UNFILLED_PREFIX, LINE_PREFIX);
            ObjectDelete(ObjName);

            ObjectText = FILLED_PREFIX + TimeToStr(startTime,TIME_DATE|TIME_MINUTES);            
            ObjectCreate(ObjectText, OBJ_RECTANGLE, 0, startTime, box_H, iTime(NULL, TimeFrame, barNumber), box_L);
            ObjectSet(ObjectText, OBJPROP_STYLE, HGstyle);
            ObjectSet(ObjectText, OBJPROP_COLOR, objectColor);
            ObjectSet(ObjectText, OBJPROP_BACK, !HollowBoxes);

            double line = (box_H + box_L) / 2.0;
            ObjectText = LINE_PREFIX + TimeToStr(startTime,TIME_DATE|TIME_MINUTES);            
            ObjectCreate(ObjectText, OBJ_RECTANGLE, 0, startTime, line, iTime(NULL, TimeFrame, barNumber), line);
            ObjectSet(ObjectText, OBJPROP_STYLE, HGstyle);
            ObjectSet(ObjectText, OBJPROP_COLOR, HGLcolor);
            ObjectSet(ObjectText, OBJPROP_BACK, false);
            break;
         }
         j++;
       }

       i++;
   }

}

bool checkWRB(int i)
{
      int j;
      bool WRB_test;
      double body, bodyPrior;

      WRB_test = true;
      if (UseWholeBars) body = iHigh(NULL, TimeFrame, i) - iLow(NULL, TimeFrame, i);
      else body = MathAbs(iOpen(NULL, TimeFrame, i) - iClose(NULL, TimeFrame, i));
      for (j = 1;j <= WRB_LookBackBarCount; j++)
      {
        if (UseWholeBars) bodyPrior = iHigh(NULL, TimeFrame, i + j) - iLow(NULL, TimeFrame, i + j);
        else bodyPrior = MathAbs(iOpen(NULL, TimeFrame, i+j)-iClose(NULL, TimeFrame, i+j));
        if (bodyPrior>body)
        {
           WRB_test = false;
           break;
        }            
      }

      if (WRB_test)
      {
         if (UseWholeBars) WRB[i] = (iHigh(NULL, TimeFrame, i) + iLow(NULL, TimeFrame, i)) / 2;
         else WRB[i] = (iOpen(NULL, TimeFrame, i) + iClose(NULL, TimeFrame, i)) / 2;
      }
      else WRB[i] = EMPTY_VALUE;

      ret

Показано первые 50% кода (символов: 9649)