j_i_3D_ADX

//+---------------------------------------------------------------------+
//|                                               #_i_3D_ADX.mq4        |
//|                                    Copyright © 2009, TigraVK        |
//|                                                                     |
//|Èíäèêàòîð òåêóùèé òðåíä íà îñíîâå ADX â                              |
//|òðåõìåðíîé äèàãðàììå â îñíîâíîì îêíå ãðàôèêà òîðãîâîãî               |
//|èíñòðóìåíòà. Ïîñòðî÷íî îòáðàæàþòñÿ íàïðàâëåíèÿ òðåíäà ñ ïîøàãîâî     |
//|óâåëè÷èâàþùèìèñÿ ïåðèîäàìè.                                          |
//| ðåçóëüòàòå ïîëó÷àåòñÿ òðåõìåðíàÿ êàðòèíêà âååðà ADX                |
//|Â äàííîé âåðñèè èíäèêàòîðà âîçìîæíû ðåæèìû îòîáðàæåíèÿ               |
//| - íàïðàâëåíèÿ òðåíäà ïî óðîâíÿì +DI è -DI;                          |
//| - àáñîëþòíîãî çíà÷åíèÿ êðèâîé MAIN;                                 |
//| - ñêîðîñòè ðîñòà èëè ñíèæåíèÿ  +DI îòíèñèòåëüíî -DI.                |
//|                                                                     |
//|Êîîðäèíàòà Õ íà äèàãðàììå - âðåìÿ â ôîðìàòå ãðàôèêà òîðãîâîãî        |
//|èíñòðóìåíòà                                                          |
//|Êîîðäèíàòà Y íà äèàãðàììå - ñâåðõó âíèç ïîñëåäîâàòåëüíîå îòîáðàæåíèå |
//|ADX ñ ðàçëè÷íûìè ïàðàìåòðàìè                                         |
//|Êîîðäèíàòà Z îòðàæåíà ðàçëè÷íûìè öâåòàìè â çàâèñèìîñòè îò ñèòóàöèè   |
//|è ïîëîæåíèÿ êðèâûõ ADX â äàííîé âðåìåííÎé òî÷êå                      |
//+---------------------------------------------------------------------+
#property copyright "Copyright © 2009, TigraVK"
#property link      "tigravk@yandex.ru"

#property indicator_chart_window
#include <stdlib.mqh>

#define ELEMENTS 80           //êîëè÷åñòâî îòîáðàæàåìûõ ñòðîê â äèàãðàììå
extern int IndMode = 0;       //îäèí èç òðåõ ðåæèìîâ îòðèñîâêè äèàãðàìì: 0-Íàïðàâëåíèå;1-àáñîëþòíîå çíà÷åíèå;2-áàðîâàÿ ñêîðîñòü èçìåíåíèÿ 
extern int Columns=600;    //Êîëè÷åñòâî îòîáðàæàåìûõ ñòîëáöîâ äèàãðàììû
extern int Width = 1;         //Øèðèíà ñòîëáöà, â áàðàõ
extern int DrawShift = 0;     //Ñìåùåíèå íóëåâîãî ñòîëáöà (â áàðàõ) îòíîñèòåëüíî ïðàâîé ãðàíèöû îêíà ãðàôèêà
                              //ïðèìåíÿåòñÿ â ñëó÷àå âûâîäà äâóõ êîïèé èíäèêàòîðà ñ ðàçíûìè ïàðàìåòðàìè â îäíî îêíî
//äëÿ èñêëþ÷åíèÿ âèçóàëüíûõ ïåðåñå÷åíèé äèàãðàìì
//Íàïðèìåð, äëÿ âûâîäà âòîðîé äèàãðàììû êîððåêòíî áóäåò óñòàíîâèòü DrawShift=Columns+4

//-- Íà÷àëüíûå ïàðàìåòðû iADX è ïðèðàùåíèå ïåðèîäà -----------
extern int ADXperiod=3;
extern int ADXperiod_step=5;
extern int Method=MODE_SMA;
extern int ADXappliedPrice = 0;     //PRICE_CLOSE 0 Öåíà çàêðûòèÿ 
                                    //PRICE_OPEN 1 Öåíà îòêðûòèÿ 
//PRICE_HIGH 2 Ìàêñèìàëüíàÿ öåíà 
//PRICE_LOW 3 Ìèíèìàëüíàÿ öåíà 
//PRICE_MEDIAN 4 Ñðåäíÿÿ öåíà, (high+low)/2 
//PRICE_TYPICAL 5 Òèïè÷íàÿ öåíà, (high+low+close)/3 
//PRICE_WEIGHTED 6 Âçâåøåííàÿ öåíà çàêðûòèÿ, (high+low+close+close)/4 
//-------------------------------

#define COLUMNS_DOP 3   //êîë-âî äîïîëíèòåëüíûõ êîëîíîê â ìàññèâå ADX[][] (òèïà, âû÷èñëèòåëüíûé çàïàñ)
#define HEADER 6        //ìåñòî ïîä çàãîëîâîê (èçìåðÿåòñÿ âûñîòîé ýëåìåòà äèàãðàììû)
#define GAP 0           //ïðîáåë (â áàðàõ) ìåæäó ýëåìåíòàìè äèàãðàììû â ãîðèçîíòàëè
#define GAP_PERCENT 20  //ïðîáåë (â ïðîöåíòàõ îò âûñîòû ýëåìåíòà äèàãðàììû) ìåæäó ýëåìåíòàìè äèàãðàììû â âåðòèêàëè

double ADXMAIN[][ELEMENTS];//ìàññèâ êàðòà êðèâîé MAIN 
double ADXPLUS[][ELEMENTS];//ìàññèâ êàðòà êðèâîé +DI
double ADXMINUS[][ELEMENTS];//ìàññèâ êàðòà êðèâîé -DI
double Top;
double Bottom;
int    FreeBars;
string el_name;
string indname="#_i_3D_ADX";
datetime tm;
int shift;

bool flag_OK;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void prepare_time()
  {
   if(flag_OK==true) return;
   if (Time[Width]==0) return;

   tm=Time[0];
   
   ArrayResize(ADXMAIN,Columns+COLUMNS_DOP);
   ArrayInitialize(ADXMAIN,0.0);

   ArrayResize(ADXPLUS,Columns+COLUMNS_DOP);
   ArrayInitialize(ADXPLUS,0.0);

   ArrayResize(ADXMINUS,Columns+COLUMNS_DOP);
   ArrayInitialize(ADXMINUS,0.0);

//ñîçäàåì êâàäðàòèêè
   for(int i=0; i<Columns; i++)
      CreateShield(el_name+i+"_",Top,Bottom,Width,FreeBars-(Width+GAP)*i,Gray);
   flag_OK=true;
  }
//+------------------------------------------------------------------+
int init()
  {
   flag_OK=false;
   shift=DrawShift*(Width+GAP);
   Top    =WindowPriceMax(0);
   Bottom =WindowPriceMin(0);
   FreeBars=WindowBarsPerChart()-WindowFirstVisibleBar()-shift;
   if(IndMode==0)
     {
      el_name="ADXDIR";
      CreateHeader("ADX direction",Top,Width,Columns,FreeBars,Yellow);
     }
   else if(IndMode==1)
     {
      el_name="ADXABS";
      CreateHeader("ADX absolute",Top,Width,Columns,FreeBars,Yellow);
     }
   else if(IndMode==2)
     {
      el_name="ADXACC";
      CreateHeader("ADX acceleration",Top,Width,Columns,FreeBars,Yellow);
     }
   else
     {
      el_name="ADX";
      CreateHeader("NONE",Top,Width,Columns,FreeBars,Yellow);
     }

   IndicatorShortName(indname);


   return(0);
  }
//+------------------------------------------------------------------+
int deinit()
  {
   DeleteIndicatorObject(el_name);
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   if(!flag_OK) prepare_time();

   int i;
   int limit;
   double top    =WindowPriceMax(0);
   double bottom =WindowPriceMin(0);
   int free_bars =WindowBarsPerChart()-WindowFirstVisibleBar()-shift;

   int counted_bars=IndicatorCounted();
   if(counted_bars<0) return(-1);
   if(counted_bars>0) counted_bars--;
   limit=Bars-counted_bars;
   if(counted_bars==0) limit--;

   if(limit>Columns+COLUMNS_DOP) limit=Columns+COLUMNS_DOP;

//Ïðîöåäóðà ïåðåðèñîâêè äèàãðàììû ïðè ñìåíå òåêóùåãî áàðà èëè ðàçìåðîâ ýêðàííîé îáëàñòè ãðàôèêà
   if(Top!=top || Bottom!=bottom || FreeBars!=free_bars || tm!=Time[0])
     {
      Top=top; Bottom=bottom; FreeBars=free_bars; tm=Time[0];
      for(i=0; i<Columns; i++)
        {
         if(MoveShield(el_name+i+"_",Top,Bottom,Width,FreeBars-(Width+GAP)*i)<0)
           {
            DeleteIndicatorObject(el_name+i+"_");
            CreateShield(el_name+i+"_",Top,Bottom,Width,FreeBars-(Width+GAP)*i,Gray);
           }
        }
      MoveHeader(Top,Width,Columns,FreeBars,Yellow);
     }


   if(limit>=Columns+COLUMNS_DOP) //ïîëíàÿ îòðèñîâêà ïðè çàïóñêå èíäèêàòîðà
     {
      AdxDATA_fill(ADXMAIN,ADXPLUS,ADXMINUS,limit,0,0);
      if(IndMode==0) AdxWeerDirection(ADXPLUS,ADXMINUS,Columns);
      else if(IndMode==1) AdxWeerAbsolute(ADXMAIN, Columns);
      else if(IndMode==2) AdxWeerAcceleration(ADXPLUS, ADXMINUS, Columns);
     }
   else if(limit>1 && limit<Columns+COLUMNS_DOP) //ïåðåðèñîâêà ïðè ñìåíå áàðà
     {
      AdxDATA_leftShift(ADXMAIN,ADXPLUS,ADXMINUS,Columns+COLUMNS_DOP,limit-1);
      AdxDATA_fill(ADXMAIN,ADXPLUS,ADXMINUS,limit-1,0,0);
      if(IndMode==0) AdxWeerDirection(ADXPLUS,ADXMINUS,Columns);
      else if(IndMode==1) AdxWeerAbsolute(ADXMAIN, Columns);
      else if(IndMode==2) AdxWeerAcceleration(ADXPLUS, ADXMINUS, Columns);
     }
   else //ïåðåðèñîâêà òîëüêî òåêóùåãî áàðà
     {
      AdxDATA_fill(ADXMAIN,ADXPLUS,ADXMINUS,limit,0,0);
      if(IndMode==0) AdxWeerDirection(ADXPLUS,ADXMINUS,limit);
      else if(IndMode==1) AdxWeerAbsolute(ADXMAIN, limit);
      else if(IndMode==2) AdxWeerAcceleration(ADXPLUS, ADXMINUS, Columns);
     }
   err("Start:  ");
   return(0);
  }
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
void AdxDATA_fill(double &MAIN[][],double &PDI[][],double &MDI[][],int recount_columns,int start_columns,int historyBarShift)
  {
   int i,j;
   int adxp;

   for(j=start_columns; j<recount_columns+start_columns; j++)
     {
      adxp=ADXperiod;
      for(i=0; i<ELEMENTS; i++)
        {
         PDI[j][i] =iADX(NULL,0,adxp,ADXappliedPrice,MODE_PLUSDI,j+historyBarShift);
         MDI[j][i] =iADX(NULL,0,adxp,ADXappliedPrice,MODE_MINUSDI,j+historyBarShift);
         MAIN[j][i]=iADX(NULL,0,adxp,ADXappliedPrice,MODE_MAIN,j+historyBarShift);
         adxp=adxp+ADXperiod_step;
        }
     }
   return;
  }
//+------------------------------------------------------------------+
void AdxDATA_leftShift(double &MAIN[][],double &PDI[][],double &MDI[][],int columns,int shift_columns_count)
  {
   int i,j,k;
   for(k=1; k<=shift_columns_count; k++)
     {
      for(j=columns-1; j>0; j--)
        {
         for(i=0; i<ELEMENTS; i++)
           {
            MAIN[j][i]= MAIN[j-1][i];
            PDI[j][i] = PDI[j-1][i];
            MDI[j][i] = MDI[j-1][i];
           }
        }
      for(i=0; i<ELEMENTS; i++)
        {
         MAIN[j][i]= 0.0;
         PDI[j][i] = 0.0;
         MDI[j][i] = 0.0;
        }
     }
  }
//+------------------------------------------------------------------+
// çåëåíûé öâåò, åñëè +DI âûøå -DI
// êðàñíûé öâåò, åñëè -DI âûøå +DI
void AdxWeerDirection(double &PDI[][],double &MDI[][],int recount_columns)
  {
   int i,j;
   for(j=recount_columns-1; j>=0; j--)
     {
      for(i=0; i<ELEMENTS; i++)
        {
         if(PDI[j][i]-MDI[j][i]>=0.0) ObjectSet(el_name+DoubleToStr(j,0)+"_"+i,OBJPROP_COLOR,LightGreen);
         else                            ObjectSet(el_name+DoubleToStr(j,0)+"_"+i,OBJPROP_COLOR,Red);
        }
     }
  }
//+------------------------------------------------------------------+
// àáñîëþòíîå çíà÷åíèå âûâîäèòñÿ â ãðàäàöèè îò áåëîãî (ìèíèìóì) äî çåëåíîãî(ìàêñèìóì)
// Ìàêñèìóì íîðìèðóåòñÿ ê ìàêñèìàëüíîìó çíà÷åíèþ êðèâîé çà èññëåäóåìûé ïåðèîä èñòîðèè
void AdxWeerAbsolute(double &DATA[][],int columns)
  {
   int i,j;
   color clr;
   double min,max;

   for(i=0; i<ELEMENTS; i++)
     {
      min=10000;
      max=-10000;
      for(j=0; j<columns; j++)
        {
         min=MathMin(min, MathAbs(DATA[j][i]));
         max=MathMax(max, MathAbs(DATA[j][i]));
        }

      for(j=0; j<columns; j++)
        {
         clr=ColorGradient(DATA[j][i],min,max,1); //çåëåíûé
         ObjectSet(el_name+j+"_"+i,OBJPROP_COLOR,clr);
        }
     }
  }
//+------------------------------------------------------------------+
void AdxWeerAcceleration(double &PDI[][],double &MDI[][],int columns)
  {
   int i,j;
   color clr;
   double max_vel;
   double VEL[][ELEMENTS];
   ArrayResize(VEL,columns);

//Íàðèñóåì ìàòðèöó òåêóùèõ ðàçíîñòåé +DI è -DI
   for(j=columns-1; j>=0; j--)
      for(i=0; i<ELEMENTS; i++)
         VEL[j][i]=PDI[j][i]-MDI[j][i];

//çà ïåðèîä Columns ñàìàÿ ñèëüíàÿ àáñîëþòíàÿ áàðîâàÿ ñêîðîñòü
   for(i=0; i<ELEMENTS; i++)
     {
      max_vel=-10000;
      for(j=0; j<columns; j++)
         max_vel=MathMax(max_vel,MathAbs(VEL[j][i]));

      //Ñêîðîñòü âíèç - êðàñíûé ãðàäèåíò; ñêîðîñòü ââåðõ - çåëåíûé
      for(j=0; j<columns; j++)
        {
         if(VEL[j][i]>=0)
           {
            clr=ColorGradient(VEL[j][i],0,max_vel,1); //çåëåíûé
            ObjectSet(el_name+j+"_"+i,OBJPROP_COLOR,clr);
           }
         else
           {
            clr=ColorGradient(-VEL[j][i],0,max_vel,0); //êðàñíûé
            ObjectSet(el_name+j+"_"+i,OBJPROP_COLOR,clr);
           }
        }
     }
  }
//+------------------------------------------------------------------+
color ColorGradient(double current_vol,double min_vol,double max_vol,int maincolor)
  {
   int R,G,B;
   int cur;
   if(current_vol<min_vol) current_vol=min_vol;
   if(current_vol>max_vol) current_vol=max_vol;

   cur=255-255*(current_vol-min_vol)/(max_vol-min_vol);
   if(maincolor==0) //RED
     { R=255; G=cur; B=cur; }
   else if(maincolor==1) //GREEN
     { R=cur; G=255; B=cur; }
   else if(maincolor==2) //BLUE
     { R=cur; G=cur; B=255; }
   else {R=0;G=0;B=0;}

   G<<=8;
   B<<=16;
   return(R+G+B);
  }
//+------------------------------------------------------------------+
void CreateShield(string name_mask,double top,double bottom,int width,int freebars,color clr)
  {
   double high,gap,y1,y2;
   datetime fut0,fut1;

   high=(top-bottom)/(ELEMENTS*1.0);
   gap=high*GAP_PERCENT/100.0;
   bottom=bottom+gap;
   top=top-HEADER*high;
   high=(top-bottom)/(ELEMENTS*1.0);
   gap=high*GAP_PERCENT/100.0;
   high=high-gap;

   if(freebars>0)
     {
      fut0=Time[0]+Period()*freebars*60;
      fut1=Time[width]+Period()*freebars*60;
     }
   else
     {
      fut0=iTime(NULL,0,-freebars);
      fut1=iTime(NULL,0,-freebars+width);
     }
   y2=top;
   for(int i=0; i<ELEMENTS; i++)
     {
      y1=y2-gap;
      y2=y1-high;
      ObjectCreate(name_mask+i,OBJ_RECTANGLE,0,fut0,y1,fut1,y2);
      ObjectSet(name_mask+i,OBJPROP_COLOR,clr);
     }
   return;
  }
//+------------------------------------------------------------------+
int MoveShield(string name_mask,double top,double bottom,int width,int freebars)
  {
   double high,gap,y1,y2;
   datetime fut0,fut1;

   high=(top-bottom)/(ELEMENTS*1.0);
   gap=high*GAP_PERCENT/100.0;
   bottom=bottom+gap;
   top=top-HEADER*high;
   high=(top-bottom)/(ELEMENTS*1.0);
   gap=high*GAP_PERCENT/100.0;
   high=high-gap;

   if(freebars>0)
     {
      fut0=Time[0]+Period()*freebars*60;
      fut1=Time[width]+Period()*freebars*60;
     }
   else
     {
      fut0=iTime(NULL,0,-freebars);
      fut1=iTime(NULL,0,-freebars+width);
     }
   y2=top;
   for(int i=0; i<ELEMENTS; i++)
     {
      y1=y2-gap;
      y2=y1-high;
      if(ObjectMove(name_mask+i,0,fut0,y1)==false) return(-1);
      ObjectMove(name_mask+i,1,fut1,y2);
     }
   return(0);
  }
//+------------------------------------------------------------------+
void CreateHeader(string text,double top,int width,int columns,int freebars,color clr)
  {
   datetime time_center;
   int allbars;
   if(freebars<0) {Print("ERROR CreateHeader: freebars<0"); return;}
   allbars=columns*(width+GAP); //ñòîëüêî íóæíî áàðîâ ïîä äèàãðàììó
   if(allbars/2<freebars) //öåíòð çàãîëîâêà óìåùàåòñÿ â çîíå çà ãðàôèêîì ñïðàâà
      time_center=Time[0]+60*Period()*(freebars-columns*(width+GAP)/2);
   else   //îòðèñîâêà ÷àñòè÷íî çàõâàòûâàåò èñòîðè÷åñêóþ çîíó
   time_center=iTime(NULL,0,allbars/2-freebars);
   ObjectCreate(el_name+"_HEAD",OBJ_TEXT,0,time_center,top);
   ObjectSetText(el_name+"_HEAD",text,12,"Areal",clr);
   return;
  }
//+------------------------------------------------------------------+
void MoveHeader(double top,int width,int columns,int freebars,color clr)
  {
   datetime time_center;
   int allbars;
   if(freebars<0) {Print("ERROR CreateHeader: freebars<0"); return;}
   allbars=columns*(width+GAP); //ñòîëüêî íóæíî áàðîâ ïîä äèàãðàììó
   if(allbars/2<freebars) //öåíòð çàãîëîâêà óìåùàåòñÿ â çîíå çà ãðàôèêîì ñïðàâà
      time_center=Time[0]+60*Period()*(freebars-columns*(width+GAP)/2);
   else   //îòðèñîâêà ÷àñòè÷íî çàõâàòûâàåò èñòîðè÷åñêóþ çîíó
   time_center=iTime(NULL,0,allbars/2-freebars);
   ObjectMove(el_name+"_HEAD",0,time_center,top);
  }
//+------------------------------------------------------------------+
void DeleteIndicatorObject(string mask)
  {
   int obj_total,i,out;
   string name;
   out=1;
   while(out>0)
     {
      obj_total=ObjectsTotal();
      out=0;
      for(i=0;i<obj_total;i++)
        {
         name=ObjectName(i);
         if(StringFind(name,mask)>=0) { ObjectDelete(name); out++; }
        }
     }
  }
//+------------------------------------------------------------------+
void err(string name)
  {
   int err=GetLastError();
   if(err!=0)  Print(name," ERROR(",err,"): ",ErrorDescription(err));
  }
//+------------------------------------------------------------------+