Функция mql4 определения пин-бара.

int pinBar(int minSizeCandle, ENUM_TIMEFRAMES tf, double percent)
  {
   double size=0, body = 0;

   for(int i = 1; i <= livSignalCandle; i++)
     {
      size = iHigh(Symbol(),tf,i) - iLow(Symbol(),tf,i);

      if(size < minSizeCandle * _Point)
         continue;

      body = MathAbs(iOpen(Symbol(),tf,i) - iClose(Symbol(),tf,i));

      if(size <= 0 || body <= 0)
         continue;

      if(body/size*100 <= percent)
        {
         if(iClose(Symbol(),tf,i) > (iHigh(Symbol(),tf,i) + iLow(Symbol(),tf,i))/2)
           {
            return(i);
           }
         if(iClose(Symbol(),tf,i) < (iHigh(Symbol(),tf,i) + iLow(Symbol(),tf,i))/2)
           {
            return(0-i);
           }
        }
     }
   return(0);
  }

Параметры:

livSignalCandle — Во внешних переменных программы. Определяет, сколько свечей будет «жив» сигнал Пин-Бара.

• minSizeCandle — Минимальный размер свечи;
• tf — таймфрейм, на котором определяются пин-бары;
• percent — Максимальный процент тела свечи по отношению к ее размеру.

Функция возвращает номер бара, а котором зафиксирован последний ПинБар. Если Значение отрицательное — медвежий пинбар, положительное — бычий.

Отрисовка пинбара стрелками на графике

Код в OnTick() для отрисовки пинбара на графике:

      if(pinArrowSize>0)
        {
         if(pin>0)
            SetArrow(241, clrGreen,"PinTrade_" +  iTime(Symbol(),pinBarTF,pin), iTime(Symbol(),pinBarTF,pin), iLow(Symbol(),pinBarTF,pin) - from, pinArrowSize);
         if(pin<0)
            SetArrow(242, clrGreen,"PinTrade_" + iTime(Symbol(),pinBarTF,MathAbs(pin)), iTime(Symbol(),pinBarTF,MathAbs(pin)), iHigh(Symbol(),pinBarTF,MathAbs(pin))+from*3*pinArrowSize, pinArrowSize);
        }

где pinArrowSize — внешний параметр размера стрелки.

Функция вставки любой стрелки на графике:

//+----------------------------------------------------------------------------+
//|  Параметры:                                                                |
//|    cd - код значка                                                         |
//|    cl - цвет значка                                                        |
//|    nm - наименование               ("" - время открытия текущего бара)     |
//|    t1 - время открытия бара        (0  - текущий бар)                      |
//|    p1 - ценовой уровень            (0  - Bid)                              |
//|    sz - размер значка              (0  - по умолчанию)                     |
//+----------------------------------------------------------------------------+
void SetArrow(int cd, color cl,
              string nm="", datetime t1=0, double p1=0, int sz=0)
  {
   if(nm=="")
      nm=DoubleToStr(Time[0], 0);
   if(t1<=0)
      t1=Time[0];
   if(p1<=0)
      p1=Bid;
   if(ObjectFind(nm)<0)
      ObjectCreate(nm, OBJ_ARROW, 0, 0,0);
   ObjectSet(nm, OBJPROP_TIME1, t1);
   ObjectSet(nm, OBJPROP_PRICE1, p1);
   ObjectSet(nm, OBJPROP_ARROWCODE, cd);
   ObjectSet(nm, OBJPROP_COLOR, cl);
   ObjectSet(nm, OBJPROP_WIDTH, sz);
  }