Japan

//+------------------------------------------------------------------+
//|                                                   Japan.mq4 |
//|                                                     Yuriy Tokman |
//|                                            yuriytokman@gmail.com |
//+------------------------------------------------------------------+
#property copyright "Yuriy Tokman"
#property link      "yuriytokman@gmail.com"

#property indicator_chart_window
//---- input parameters
extern int       barsToProcess=1000;

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
int i;
  
  
  
  for (i=0;i<Bars;i++)
    {
    ObjectDelete("Ïîâåøåííûé èëè ìîëîò "+DoubleToStr(i,0));
    ObjectDelete("áû÷üå ïîãëîùåíèå "+DoubleToStr(i,0));
    ObjectDelete("ìåäâåæüå ïîãëîùåíèå "+DoubleToStr(i,0));
    ObjectDelete("çàâåñà èç òåìíûõ îáëàêîâ "+DoubleToStr(i,0));
    ObjectDelete("ïðîñâåò â îáëàêàõ "+DoubleToStr(i,0));
    ObjectDelete("äîäæ "+DoubleToStr(i,0));
    }
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int    counted_bars=IndicatorCounted(),
//----
   limit,
   i=0; 
   if(counted_bars>0)
      counted_bars--;
   
   limit=Bars-counted_bars;
   
   if(limit>barsToProcess)
      limit=barsToProcess;

   while (i<limit)
   {           
                                 //Ïîâåøåííûé èëè ìîëîò
      double k = (High[i]-Low[i])/3;
      if ((Open[i]>(Low[i]+2*k))&&(Close[i]>(Low[i]+2*k)))
       {
        ObjectCreate("Ïîâåøåííûé èëè ìîëîò "+DoubleToStr(i,0),OBJ_ARROW,0,Time[i],High[i]+10*Point);
        ObjectSet("Ïîâåøåííûé èëè ìîëîò "+DoubleToStr(i,0),OBJPROP_ARROWCODE,108);
        ObjectSet("Ïîâåøåííûé èëè ìîëîò "+DoubleToStr(i,0),OBJPROP_COLOR,DimGray);
       }            
                                //áû÷üå ïîãëîùåíèå
      if((Open[i+1]>Close[i+1])&&(Close[i+1]>Open[i])&&(Close[i]>Open[i+1]))
       {
        ObjectCreate("áû÷üå ïîãëîùåíèå "+DoubleToStr(i,0),OBJ_ARROW,0,Time[i],Low[i]-15*Point);
        ObjectSet("áû÷üå ïîãëîùåíèå "+DoubleToStr(i,0),OBJPROP_ARROWCODE,110);
       }            
                               //ìåäâåæüå ïîãëîùåíèå
       if((Close[i+1]>Open[i+1])&&(Open[i]>Close[i+1])&&(Open[i+1]>Close[i]))
       {
        ObjectCreate("ìåäâåæüå ïîãëîùåíèå "+DoubleToStr(i,0),OBJ_ARROW,0,Time[i],High[i]+15*Point);
        ObjectSet("ìåäâåæüå ïîãëîùåíèå "+DoubleToStr(i,0),OBJPROP_ARROWCODE,110);
        ObjectSet("ìåäâåæüå ïîãëîùåíèå "+DoubleToStr(i,0),OBJPROP_COLOR,Lime);
       }
                               //çàâåñà èç òåìíûõ îáëàêîâ
       if((Open[i+1]<Close[i+1])&&(Open[i]>High[i+1])&&(Close[i]<(Open[i+1]+(Close[i+1]-Open[i+1])/2)))
       {
        ObjectCreate("çàâåñà èç òåìíûõ îáëàêîâ "+DoubleToStr(i,0),OBJ_ARROW,0,Time[i],High[i]+25*Point);
        ObjectSet("çàâåñà èç òåìíûõ îáëàêîâ "+DoubleToStr(i,0),OBJPROP_ARROWCODE,116);
        ObjectSet("çàâåñà èç òåìíûõ îáëàêîâ "+DoubleToStr(i,0),OBJPROP_COLOR,Lime);
       }
                               //ïðîñâåò â îáëàêàõ
       if((Open[i+1]>Close[i+1])&&(Low[i+1]>Open[i])&&(Close[i]>(Close[i+1]+(Open[i+1]-Close[i+1])/2)))
       {
        ObjectCreate("ïðîñâåò â îáëàêàõ "+DoubleToStr(i,0),OBJ_ARROW,0,Time[i],Low[i]-25*Point);
        ObjectSet("ïðîñâåò â îáëàêàõ "+DoubleToStr(i,0),OBJPROP_ARROWCODE,116);
       }
                               //äîäæ
       if(Open[i]==Close[i])
       {
        ObjectCreate("äîäæ "+DoubleToStr(i,0),OBJ_ARROW,0,Time[i],High[i]+30*Point);
        ObjectSet("äîäæ "+DoubleToStr(i,0),OBJPROP_ARROWCODE,174);
        ObjectSet("äîäæ "+DoubleToStr(i,0),OBJPROP_COLOR,Indigo);
       }
     i++;  
   }

//----
   return(0);
  }





































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