TPOChart Session v1.20

#property indicator_separate_window
#property indicator_minimum 0
#property indicator_maximum 14
/******************************************************************\\\
 * MP Library 
 * dont change anything in this mp library block, unless YKWYD.....
 ******************************************************************///say something here...
#include <ay-mplib.const.v102.mqh>                                  //

#import "ay-mplib.v102.ex4"                                         //
void MpGet                                                          //
   (                                                                //   
        double    dparam[4]                                         //
      , int       iparam[4]                                         //
      , double    arates[][6]                                       //
      , double&   mpdataperrow[][MPSIZE]                            //result: price per row (price, tpo, vol)  
      , int&      mplinesidx[MPLNSIZE]                              //result: lines index
      , double&   mptotal[MPTSIZE]                                  //result: total (tpo, vol)
      , int&      mpletter[][MPLTSIZE]                              //result: letter  
   );                                                               //
#import                                                             //
/******************************************************************\\\
 * End MP Library 
 ******************************************************************///

/******************************************************************\\\
 * Indicator Constant
 ******************************************************************/// 
#define IND_NAME        "TPOChart Session v1.20"
#define SES_START       0                                            //
#define SES_END         1                                            //
#define A_SES           0                                            //  Asia Session
#define E_SES           1                                            //Europe Session
#define U_SES           2                                            //    US Session
#define MPLFONTNAME     "lucida sans typewriter bold"
#define MPLFONTNAME2    "lucida sans typewriter"
#define MPLFONTSIZE     8
#define MG_ASIA_EUROPE  "A"
#define MG_EUROPE_US    "B"
#define MG_ALL          "C"

/******************************************************************\\\
 * End Indicator Constant
 ******************************************************************/// 

extern bool       EnableMergeProfile       = false;
extern string     MergeProfileInfo         = "A Asia+Europe, B Europe+US, C All";
extern string     MergeProfile             = "A";
extern bool       ExtendIB                 = false;
extern bool       ShowSplitProfile         = true;
extern bool       PaintLettersOnVolume     = true;
extern bool       ShowHorizontalVolume     = false;
extern bool       ShowVolumeRatio          = true;
extern double     MinVolumeRatio           = 1.5;
extern string     AsiaOpen                 = "20:00";
extern string     EuropeOpen               = "03:00";
extern string     USOpen                   = "08:00";
extern int        NumDays                  = 10;
extern int        SplitProfileNumDays      = 0;
extern int        RowHeight                = 5;
extern int        ProfileDataTf            = 30;
extern double     VAPercent                = 70.0;
extern int        IBNumBars                = 2;
extern int        UpdateInterval           = 0;
extern string     spr1                     = "Colors.............";
extern color      AsColor                  = White;
extern color      EuColor                  = Aqua;
extern color      UsColor                  = Khaki;
extern color      VAColor                  = C'25,25,45';
extern color      POCColor                 = Purple;
extern color      HistogramColor           = C'0,64,128';
extern color      BarBullColor             = MediumBlue;//C'0,200,0';
extern color      BarBearColor             = Maroon;//C'200,0,0';
extern color      BarNetralColor           = DimGray;
extern color      OpenCloseColor           = Gray;
extern color      WindowInfoColor          = Silver;
extern color      UpVolumeColor            = PaleGreen;
extern color      DownVolumeColor          = Chocolate;
extern color      NeutralVolumeColor       = DodgerBlue;

int        giStep
         , giDigits
         , giWinId
         ;
double     gdaRates[][6]
         , gdOneTick
         , gdPoint
         ;     
color      gcHistoColor;         
bool       gbFirstRun = true;
string     gsaLetter[] = 
            {
             "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"
            ,"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"
            } 
         , gsPref = "ay.mpls."
         ; 
color      gcSesColor[3];
datetime   gdtaMST[][3][2];   //--array market session time;            

#include <ay-object.func.v1.1.mqh>
#include <ay-TPOChart-Session.v1.20.helper.mqh>

int init()
  {
      // код доступен только после оплаты
   }

int deinit()
{         
   delObjs();
   return(0);
}

int start()
{
      // код доступен только после оплаты
   }

void createProfile
(
     int       maxdays
   , datetime  currtime
   , datetime  currsesstart   
)
{
   static int      lastmaxtpo;

   double     hh, ll, hhday, llday
            , rhh, rhhday  //round hh to rowheight
            , rll, rllday  //round ll to rowheight;
            ;

   int        sb, eb, sbday, ebday;    
   double     mpdata  [][MPSIZE];
   int        mplines   [MPLNSIZE];
   double     mptotal   [MPTSIZE];
   int        mpletter[][MPLTSIZE];   
   double     dparam[4];
   int        iparam[4];      
   int        ratessize = iBars(NULL, ProfileDataTf)
            , mpdatasize;

   double     poc, midrowpoc, vpoc,vah, val, open, close   
            , rg = (giStep/1.0)/(MathPow(10,giDigits))
            , ibh, ibl        
            ;    
   int        iday, ises
            , maxtpo
            , startprofile, startprofileday
            , laststartprofile = 0
            , space = 4                                              //--space between profile
            , objtotal, iobj, objtype
            , idaydelim1, idaydelim2, isesdelim1, isesdelim2
            , idayobj, isesobj
            , textwidth            
            ;                        
   bool       bcurrsession
            , newbar = isNewBarDataTf()
            , isobjmp
            , bmaxdays1andcurrses
            , bmaxtpochange
            , bmaxtpochangeornewbar
            , bmaxtpochangeandnewbar
            , bobjnotincurrses
            , bobjincurrses
            ;             
   string     objname, strinfo[12];     

   if (ShowHorizontalVolume) space += 5;
   if (ShowVolumeRatio)      space += 4;   

   for (iday=0; iday<maxdays; iday++)
   {      

      for (ises=2; ises>=0; ises--)      
      {               

         if (gdtaMST[iday][ises][SES_START] > currtime ) continue;

         if (  EnableMergeProfile 
               && 
               (            
                  (MergeProfile == MG_ASIA_EUROPE && ises==1)
                  || 
                  (MergeProfile == MG_EUROPE_US && ises==2)
                  || 
                  (MergeProfile == MG_ALL && (ises==1 || ises==2))
               )
            )  continue;

         if ( gdtaMST[iday][ises][SES_START] == currsesstart ) 
              bcurrsession = true;
         else bcurrsession = false;                           

         if (maxdays == 1 && !bcurrsession) break;         

         getSesSE
         (
              ProfileDataTf
            , gdtaMST[iday][ises][SES_START]
            , gdtaMST[iday][ises][SES_END]
            , sb
            , eb
          );

         if (    sb<0 
              || eb<0                              
              || ( sb==eb && iday != 0 ) //stupid sunday bar... arrgghh when asia start set to sydney open
            ) 
         {

            continue;
         }

         getHHLL(ProfileDataTf, sb, eb, hh, ll);      
         rhh = MathCeil(hh/rg) * rg;
         rll = MathCeil(ll/rg) * rg;
         if (rhh < hh) rhh += rg;
         if (rll > ll) rll -= rg;      

         dparam[MPDP_ONETICK]    = gdOneTick;
         dparam[MPDP_HH]         = rhh;
         dparam[MPDP_LL]         = rll;
         dparam[MPDP_VAPERCENT]  = VAPercent;

         iparam[MPIP_STARTBAR]   = sb;
         iparam[MPIP_ENDBAR]     = eb; 
         iparam[MPIP_DIGITS]     = giDigits;
         iparam[MPIP_STEP]       = giStep;  

         MpGet
            (  
                 dparam       //double    dparam[4]

Показано первые 50% кода (символов: 13957)