X0diagram1_v3

//+------------------------------------------------------------------+
//| Ðèñóåò äèàãðàììû Õ0 ïî öåíàì çàêðûòèÿ                            |
//| Âõîäíûå ïàðàìåòðû: BoxSize - ðàçìåð áîêñà â ïóíêòàõ              |
//|                    ReversalBox - êîë-âî áîêñîâ äëÿ ðàçâîðîòà     |
//|                    Candles = êîë-âî ñâå÷åé äëÿ ïîäñ÷åòà          |
//|                                                                  |
//|  Èçìåíèòå ïàðàìåòð indicator_color3 öâåòîì âàøåé öâåòîâîé ñõåìû  |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, 4e"
#property link      "4ebur@mail.ru"
//----
#property indicator_separate_window
#property indicator_buffers 3
#property indicator_color1 Red
#property indicator_color2 Blue
#property indicator_color3 White
//----
extern double BoxSize=100;
extern int ReversalBox=3;
extern int Candles=3000;
//----
double PointArray[];
double FigureArray[];
double ZeroArray[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   SetIndexBuffer(0,PointArray);
   SetIndexBuffer(1,FigureArray);
   SetIndexBuffer(2,ZeroArray);
//
   SetIndexStyle(0,DRAW_HISTOGRAM);
   SetIndexStyle(1,DRAW_HISTOGRAM);
   SetIndexStyle(2,DRAW_HISTOGRAM);
//
   SetIndexEmptyValue(0,0);
   SetIndexEmptyValue(1,0);
   SetIndexEmptyValue(2,0);
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   if(Bars<Candles) return;
   int counted_bars=IndicatorCounted();
   if(counted_bars<0) return(-1);
   if(counted_bars>0) counted_bars--;
   int limit=Bars-counted_bars;
   if(counted_bars==0) limit-=1+Candles;
   if(limit<0) return;

//----
   double BoxPointSize=BoxSize*Point; //Ðàçìåð áîêñà â ïóíòàõ
   double ReversalSize=BoxPointSize*ReversalBox; // Ðàçìåð ðàçâîðîòà â ïóíêòàõ
                                                 // Èíèöèàëèçàöèÿ ìàññèâîâ
   for(int i=limit;i>0;i--)
     {
      PointArray[i]=0;
      FigureArray[i]=0;
      ZeroArray[i]=0;
     }
   int  beginPoint;    // Òî÷êà îòñ÷åòà
   int  CurPoint;      //Òåêóùàÿ òî÷êà
   bool Direction;     // 1  - ââåðõ, òèïà Õ, 0-âíèç, òèïà 0
   int LocalMin;       // Ëîêàëüíûé ìèíèìóì
   int LocalMax;       // Ëîêàëüíûé ìàêñèìóì
   double beginIndex;  // èíäåõ íà÷àëà îòñ÷åòà
                       // Àëãîðèòì ðàñ÷åòà òàêîâ: Êàê òîëüêî ïðîèçîøåë ðàçâîðîò, ðèñóåì ïðîøëóþ äèàãðàììó, è æäåì ñëåäóþùåãî ðàçâîðîòà
// Íà÷àëüíîå íàïðàâëåíèå èäåíòèôèöèðóåòñÿ ïî ïåðâîé ñâå÷å(áåëàÿ - çíà÷èð ââåðõ, ÷åðíàÿ - âíèç)
   Direction=(Close[Candles]-Open[Candles])>0;// Çàäàåì íà÷àëüíîå íàïðàâëåíèå
   beginPoint=Candles; // Íà÷àëüíàÿ òî÷êà îòñ÷åòà
   CurPoint=Candles;   // Íà÷àëüíàÿ òåêóùàÿ òî÷êà
   LocalMax=Candles;   // Íà÷àëüíûé ìàêñèìóì
   LocalMin=Candles;   // Íà÷àëüíûé ìèíèìóì
   beginIndex=Close[beginPoint]; // Íà÷àëüíûé èíäåêñ
//----
   for(i=Candles-1;i>0;i--)
     {
      CurPoint=i; // Ñäâèã òåêóùåé òî÷êè
      LocalMax=Highest(NULL,0,MODE_CLOSE,beginPoint-CurPoint,CurPoint);
      LocalMin=Lowest(NULL,0,MODE_CLOSE,beginPoint-CurPoint,CurPoint);
      if(Direction) // Ââåðõ
        {
         if(Close[LocalMax]-Close[CurPoint]>=ReversalSize) // Ðàçâîðîò âíèç
           {
            int boxes=MathFloor(((Close[LocalMax]-Close[beginPoint])/(BoxSize*Point))); // âû÷èñëÿåì êîë-âî áîêñîâ
            for(int j=beginPoint;j>LocalMax-1;j--)
              {
               PointArray[j]=beginIndex+BoxSize*boxes*Point; //Ðèñóåì èêñû
               ZeroArray[j]=beginIndex;  // Ïðîáåëû
              }
            beginPoint=LocalMax-1; // Ñäâèãàåì íà÷àëüíóþ òî÷êó íà áûâøèé ìàêñèìóì
            beginIndex=beginIndex+BoxSize*(boxes-1)*Point; // Ñäâèãàåì èíäåêñ íà îäèí áîêñ âíèç
            LocalMin=CurPoint;
            Direction=0; // Óêàçûâàåì ÷òî íà÷àëîñü äâèæåíèå âíèç  
           }
        }
      else  // Âíèç
        {
         if(Close[CurPoint]-Close[LocalMin]>=ReversalSize) // Ðàçâîðîò ââåðõ
           {
            boxes=MathFloor(((Close[beginPoint]-Close[LocalMin])/(BoxSize*Point)));// âû÷èñëÿåì êîë-âî áîêñîâ
            //----
            for(j=beginPoint;j>LocalMin-1;j--)
              {
               FigureArray[j]=beginIndex; //Ðèñóåì íóëè
               ZeroArray[j]=beginIndex-BoxSize*boxes*Point;   // Ïðîáåëû
              }
            beginPoint=LocalMin-1; // Ñäâèãàåì íà÷àëüíóþ òî÷êó íà áûâøèé ìàêñèìóì
            Direction=1; // Óêàçûâàåì ÷òî íà÷àëîñü äâèæåíèå âíèç  
            LocalMax=CurPoint;
            beginIndex=beginIndex-BoxSize*(boxes-1)*Point; // Ñäâèãàåì èíäåêñ íà îäèí áîêñ ââåðõ
           }
        }
     }
// Ðèñóåì òåêóùèé ðàçâîðîò
   if(Direction)
     {
      LocalMax=Highest(NULL,0,MODE_CLOSE,beginPoint-CurPoint,CurPoint);
      boxes=MathFloor(((Close[LocalMax]-Close[beginPoint])/(BoxSize*Point))); // âû÷èñëÿåì êîë-âî áîêñîâ
      //----
      for(j=beginPoint;j>0;j--)
        {
         PointArray[j]=beginIndex+BoxSize*boxes*Point; //Ðèñóåì èêñû
         ZeroArray[j]=beginIndex;  // Ïðîáåëû
        }
     }
   else
     {
      LocalMin=Lowest(NULL,0,MODE_CLOSE,beginPoint-CurPoint,CurPoint);
      boxes=MathFloor(((Close[beginPoint]-Close[LocalMin])/(BoxSize*Point)));// âû÷èñëÿåì êîë-âî áîêñîâ

      for(j=beginPoint;j>0;j--)
        {
         FigureArray[j]=beginIndex;//Ðèñóåì íóëè
         ZeroArray[j]=beginIndex-BoxSize*boxes*Point;  // Ïðîáåëû
        }
     }
//----
   return(0);
  }
//+------------------------------------------------------------------+