No arrows appear

[Arthur Singer]

Does anyone know what the problem is? No arrows appear.

#property strict

#property indicator_chart_window
#property indicator_buffers 2

double UpArrow[];
double DownArrow[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
{
   SetIndexBuffer(0,UpArrow);
   SetIndexBuffer(1,DownArrow);
   SetIndexStyle(0,DRAW_ARROW,STYLE_SOLID,2,clrLime);
   SetIndexStyle(1,DRAW_ARROW,STYLE_SOLID,2,clrRed);
   SetIndexArrow(0,233);
   SetIndexArrow(1,234);
   
   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[])
{
   for(int i=rates_total-fmax(1,prev_calculated);i>0;i--)
   {
      /*if(iCustom(_Symbol,_Period,"Heiken Ashi",2,i)<iCustom(_Symbol,_Period,"Heiken Ashi",3,i))
      {
         if(BullishHammer(i)==true)
         {
            UpArrow[i]=iCustom(_Symbol,_Period,"Heiken Ashi",0,i);
         }
         if(BearishHammer(i)==true)
         {
            DownArrow[i]=iCustom(_Symbol,_Period,"Heiken Ashi",1,i);
         }
      }
      if(iCustom(_Symbol,_Period,"Heiken Ashi",2,i)>iCustom(_Symbol,_Period,"Heiken Ashi",3,i))
      {
         if(BullishHammer(i)==true)
         {
            UpArrow[i]=iCustom(_Symbol,_Period,"Heiken Ashi",1,i);
         }
         if(BearishHammer(i)==true)
         {
            DownArrow[i]=iCustom(_Symbol,_Period,"Heiken Ashi",0,i);
         }
      }*/
      
      if(BullishHammer(i)==true)
      {
         UpArrow[i]=Low[i];
      }
      if(BearishHammer(i)==true)
      {
         DownArrow[i]=High[i];
      }
   }
   
   return(rates_total);
}
//+------------------------------------------------------------------+
bool BullishHammer(int i)
{
   double body_size=iCustom(_Symbol,_Period,"Heiken Ashi",3,i)-iCustom(_Symbol,_Period,"Heiken Ashi",2,i);
   if(body_size<=0)
   {
      return(false);
   }
   
   if(iCustom(_Symbol,_Period,"Heiken Ashi",2,i)<iCustom(_Symbol,_Period,"Heiken Ashi",3,i))
   {
      double candle_range=iCustom(_Symbol,_Period,"Heiken Ashi",1,i)-iCustom(_Symbol,_Period,"Heiken Ashi",0,i);
      if(body_size<candle_range/3)
      {
         return(false);
      }
      
      if(iCustom(_Symbol,_Period,"Heiken Ashi",2,i)<iCustom(_Symbol,_Period,"Heiken Ashi",0,i)+candle_range/2)
      {
         return(false);
      }
   }
   if(iCustom(_Symbol,_Period,"Heiken Ashi",2,i)>iCustom(_Symbol,_Period,"Heiken Ashi",3,i))
   {
      double candle_range=iCustom(_Symbol,_Period,"Heiken Ashi",0,i)-iCustom(_Symbol,_Period,"Heiken Ashi",1,i);
      if(body_size<candle_range/3)
      {
         return(false);
      }
      
      if(iCustom(_Symbol,_Period,"Heiken Ashi",2,i)<iCustom(_Symbol,_Period,"Heiken Ashi",1,i)+candle_range/2)
      {
         return(false);
      }
   }
   
   return(true);
}
bool BearishHammer(int i)
{
   double body_size=iCustom(_Symbol,_Period,"Heiken Ashi",2,i)-iCustom(_Symbol,_Period,"Heiken Ashi",3,i);
   if(body_size<=0)
   {
      return(false);
   }
   
   if(iCustom(_Symbol,_Period,"Heiken Ashi",2,i)<iCustom(_Symbol,_Period,"Heiken Ashi",3,i))
   {
      double candle_range=iCustom(_Symbol,_Period,"Heiken Ashi",1,i)-iCustom(_Symbol,_Period,"Heiken Ashi",0,i);
      if(body_size<candle_range/3)
      {
         return(false);
      }
      
      if(iCustom(_Symbol,_Period,"Heiken Ashi",2,i)>iCustom(_Symbol,_Period,"Heiken Ashi",0,i)+candle_range/2)
      {
         return(false);
      }
   }
   if(iCustom(_Symbol,_Period,"Heiken Ashi",2,i)>iCustom(_Symbol,_Period,"Heiken Ashi",3,i))
   {
      double candle_range=iCustom(_Symbol,_Period,"Heiken Ashi",0,i)-iCustom(_Symbol,_Period,"Heiken Ashi",1,i);
      if(body_size<candle_range/3)
      {
         return(false);
      }
      
      if(iCustom(_Symbol,_Period,"Heiken Ashi",2,i)>iCustom(_Symbol,_Period,"Heiken Ashi",1,i)+candle_range/2)
      {
         return(false);
      }
   }
   
   return(true);
}