Metatrader Forum | Forex Expert-Advisor | Broker & Forex Tools

Metatrader Forum | Forex Expert-Advisor | Broker & Forex Tools (http://www.expert-advisor.com/forum/index.php)
-   Programmierung MQL4 (http://www.expert-advisor.com/forum/forumdisplay.php?f=220)
-   -   Market Profile - Zeit nachtragen (http://www.expert-advisor.com/forum/showthread.php?t=5578)

Drehrumbumm 30.03.17 09:43
Market Profile - Zeit nachtragen
 
Ich habe hier https://www.mql5.com/de/code/11128 einen Market-Profiel Indi gefunden.
Um den auf den Dax anzupassen müsste ich entweder die Handelszeiten (9:00 - 22:00 Uhr) extern definieren lassen(und dann weiter verarbeiten) oder sie direkt im Code irgendwie reinbasteln.
Wäre fantastisch, wenn mir dabei jemand helfen könnte.
Code:
//+------------------------------------------------------------------+
//|                                Day Trader Market In Profile.mq4 |
//|                      Copyright © 2010, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2010, Eng Bassam El-Faramawi."
#property link      "bmaamoon@yahoo.com"


#property indicator_chart_window
//+------------------------------------------------------------------+
//| Custom indicator initialization function                        |
//+------------------------------------------------------------------+
  extern int Step = 4;
  extern int NumberOfDays = 10;
  extern int SessionHalfHours = 48;
         
  extern bool ViewTPOs = true;
  extern bool TPOs_as_Letters = true;
  extern int TPOs_Shift = 0;
  extern int Letter_Size = 6;
  extern color TPO_Color =DarkGray;

  extern bool ViewOpenFlag = true;
  extern color OpenColor=LightSteelBlue;
  extern int OpenFlagShift = 0;

  extern bool View_Pointer = true;
  extern color PointerColor = Magenta;
  extern int PointerShift = 2;

  extern bool ViewrangeLine = false;
  extern color RangeLineColor = LightSteelBlue;
  extern int rangeLine_Shift = 1;

  extern bool ViewInitialBalanceLine = True;
  extern color IBLineColor = SteelBlue;
  extern int IBLineWidth = 2;
  extern int IBLine_Shift = 1;

  extern bool ViewValueArea = true;
  extern double Persent_Of_TPO_ValueArea = 0.7;
  extern int ValueArea_Shift = 1;
  extern color TopLine_Color = Red;
  extern int TopLine_Width = 1;
  extern int TopLine_Start = 1;
  extern int TopLine_End = 1;
  extern color BottomLine_Color = Red;
  extern int BottomLine_Width = 1;
  extern int BottomLine_Start = 1;
  extern int BottomLine_End = 1;

  extern bool ViewPocLine = true;
  extern int PocLine_shift = 1;
  extern color PocColor =Blue;
  extern int PocLine_Start = 1;
  extern int PocLine_Width = 1;
  extern int PocLine_End = 1;


  extern bool ViewInformationText = false;
  extern int InformationTextSize = 7;
  extern color InformationTextColor = DarkTurquoise;
  extern int InformationTextShift = 12;
           
           
  string Text[50];


int init()
  {
  DeleteAllObjects(NumberOfDays);
//---- indicators
  Text[1]="A";      Text[2]="B";      Text[3]="C";      Text[4]="D";      Text[5]="E";   
  Text[6]="F";      Text[7]="G";      Text[8]="H";      Text[9]="I";      Text[10]="J";   
  Text[11]="K";    Text[12]="L";    Text[13]="M";    Text[14]="N";    Text[15]="O";   
  Text[16]="P";    Text[17]="Q";    Text[18]="R";    Text[19]="S";    Text[20]="T";   
  Text[21]="U";    Text[22]="V";    Text[23]="W";    Text[24]="X";    Text[25]="a";   
  Text[26]="b";    Text[27]="c";    Text[28]="d";    Text[29]="e";    Text[30]="f";   
  Text[31]="g";    Text[32]="h";    Text[33]="i";    Text[34]="j";    Text[35]="k";   
  Text[36]="l";    Text[37]="m";    Text[38]="n";    Text[39]="o";    Text[40]="p";   
  Text[41]="q";    Text[42]="r";    Text[43]="s";    Text[44]="t";    Text[45]="u";   
  Text[46]="v";    Text[47]="w";    Text[48]="x";   
//----
  Createobjects();
  Comment("");
//----
  return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                      |
//+------------------------------------------------------------------+
int deinit()
  {
//----
  DeleteAllObjects(NumberOfDays);
  Comment("");
//----
  return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
 //Comment(" ","\n","Eng.Bassam Market Profile V1.0","\n"," ","\n","By : Eng\  Bassam El-Faramawi","\n"," ","\n","bmaamoon@yahoo.com");

 int    counted_bars=IndicatorCounted();
 int    m,t,n,Ymax,Ymin;
 double h, TickVolume;
 datetime dt = TimeCurrent(),t0;

//----
 t = 48/SessionHalfHours;
 if (MathMod(48,SessionHalfHours)>0) t++;
 if (MathMod(SessionHalfHours,2)>0) m=1;

//----
 t0=StrToTime(TimeYear(dt)+"."+TimeMonth(dt)+"."+TimeDay(dt)+" "+"00"+":"+"00");
 Ymax = iBarShift(NULL, 30, t0);
 TickVolume = iVolume(NULL, 1440, 0);
    for(n=1; n<=t; n++)
{
  h= ((TimeHour(dt)*2)+m)/SessionHalfHours;
  if (h<n-1)
  continue;

  Ymin = Ymax-SessionHalfHours+1;

 drawobjects(Ymax,Ymin,TickVolume);
 Ymax=Ymax-SessionHalfHours;
}
//----
  return(0);
  }



//+----------------------//|------------------|\\----------------------+
//+---------------------///|                  |\\\---------------------+
//+---------------------\**| Custom Functions |**/---------------------+
//+----------------------\\|                  |//----------------------+
//+-----------------------\|------------------|/-----------------------+


 void Createobjects()
{
 int    m,t,n,i,y0,Ymax,Ymin;

 double TickVolume;

 t = 48/SessionHalfHours;
 if (MathMod(48,SessionHalfHours)>0) t++;
 if (MathMod(SessionHalfHours,2)>0) m=1;

 datetime dt = TimeCurrent(),t0;
 t0=StrToTime(TimeYear(dt)+"."+TimeMonth(dt)+"."+TimeDay(dt)+" "+"00"+":"+"00");
 y0=iBarShift(NULL,0,t0);

//----
 for(i=1; i<NumberOfDays; i++)
{
 dt=iTime(NULL,0,y0+1);
 t0=StrToTime(TimeYear(dt)+"."+TimeMonth(dt)+"."+TimeDay(dt)+" "+"00"+":"+"00");
 TickVolume = iVolume(NULL, 1440, i);
 Ymax = iBarShift(NULL, 30, t0);
 for(n=1; n<=t; n++)
{
 Ymin = Ymax-SessionHalfHours+1;

 if (n==t)
 Ymin=iBarShift(NULL, 30, StrToTime(TimeYear(dt)+"."+TimeMonth(dt)+"."+TimeDay(dt)+" "+"23"+":"+"30"));

 drawobjects(Ymax,Ymin,TickVolume);
 Ymax=Ymax-SessionHalfHours;
}
 y0=iBarShift(NULL,0,t0);
}
}
//+------------------------------------------------------------------+
void drawobjects(int Ymax,int Ymin ,double TickVolume)
{
 int    u,s,fac,y,Yt,Space,POC,AllTicks,ValueArea,i,imax,imin,ValueRange,TPOs[1000];
 double x,Mid,PocTick;

 if (Digits == 2 || Digits == 4) fac = 1;
 if (Digits == 3 || Digits == 5) fac = 10;

 double Max= High[iHighest(NULL,30,MODE_HIGH,(Ymax-Ymin+1),Ymin)],
      Min= Low[iLowest(NULL,30,MODE_LOW,(Ymax-Ymin+1),Ymin)],
      IBmax= High[iHighest(NULL,30,MODE_HIGH,2,Ymax-1)],
      IBmin= Low[iLowest(NULL,30,MODE_LOW,2,Ymax-1)],
      STEP=Step*fac*Point;
      Mid= (Max-Min)*0.5 +Min;
      Yt = iBarShift(NULL,0,iTime(NULL,30,Ymax),false);
      u=0;

 for( y=Ymax; y>=Ymin; y--)
  {
  for( s=1; s<=(Max-Min)/STEP; s++)
    {
    ObjectDelete(TimeToStr(iTime(NULL,0,y+(TPOs_Shift*SessionHalfHours)),TIME_DATE|TIME_MINUTES) +"  "+ DoubleToStr(s,0));
    }
  }

for(x=Max; x>=Min; x=x-STEP)
  {
   
  Space = 0;
  i=(Max-x)/STEP;
  u++;
  for( y=Ymax; y>=Ymin; y--)
    {
   
    double opentick = iOpen(Symbol(),30,Ymax),
          Maximum= iHigh(Symbol(),30,y),
          Minimum= iLow(Symbol(),30,y);
    if (Maximum <x || Minimum >x)
    continue;
    Space++;
//-------------
    string TPOName = TimeToStr(iTime(NULL,0,Ymax-Space+1+(TPOs_Shift*SessionHalfHours)),TIME_DATE|TIME_MINUTES) +"  "+ DoubleToStr(u,0);
    if (ViewTPOs)
    {
    if(TPOs_as_Letters == true)
      {
      ObjectDelete(TPOName);
      ObjectCreate(TPOName, OBJ_TEXT, 0, iTime(NULL,0,Yt-Space+1+(TPOs_Shift*SessionHalfHours)), x);
      ObjectSetText(TPOName,Text[Ymax-y+1], Letter_Size, "Arial", TPO_Color);
      }
    else
      {
      ObjectDelete(TPOName);
      ObjectCreate(TPOName, OBJ_ARROW, 0, iTime(NULL,0,Yt-Space+1+(TPOs_Shift*SessionHalfHours)), x);
      ObjectSet(TPOName,OBJPROP_ARROWCODE,167);
      ObjectSet(TPOName,OBJPROP_COLOR,TPO_Color);
      ObjectSet(TPOName, OBJPROP_BACK, True);
      }
    }
 
  }
//--------------     


 
    string open = "open  "+TimeToStr(iTime(NULL,0,Ymax+OpenFlagShift+(TPOs_Shift*SessionHalfHours)),TIME_DATE|TIME_MINUTES);
         
    if(ViewOpenFlag)
    {
    ObjectDelete(open);
    ObjectCreate(open, OBJ_ARROW, 0, iTime(NULL,0,Yt+OpenFlagShift+(TPOs_Shift*SessionHalfHours)), opentick);
    ObjectSet(open,OBJPROP_ARROWCODE,161);
    ObjectSet(open,OBJPROP_COLOR,OpenColor);
    ObjectSet(open, OBJPROP_BACK, True);
    }
   
//--------------
 
  double POCShift = MathAbs(PocTick-Mid),
        SpaceShift=MathAbs(x-Mid);
   
       
    if (Space > POC)
    {
    POC = Space;
    PocTick = x;
    }
   
    if (Space == POC && SpaceShift < POCShift)
    PocTick = x;
 
//--------------
 
  string Poc = "POC  "+TimeToStr(iTime(NULL,0,Ymax+(TPOs_Shift*SessionHalfHours)),TIME_DATE|TIME_MINUTES);
 
  int Poc_start =Yt+PocLine_Start-(PocLine_shift*SessionHalfHours)+(TPOs_Shift*SessionHalfHours) ,
      Poc_end = Yt-POC+PocLine_End-(PocLine_shift*SessionHalfHours)+(TPOs_Shift*SessionHalfHours);
       
   
  if(ViewPocLine)
  {
  ObjectDelete(Poc);
  ObjectCreate(Poc, OBJ_TREND, 0, iTime(NULL,0,Poc_start), PocTick ,iTime(NULL,0,Poc_end),PocTick );
  ObjectSet(Poc,OBJPROP_COLOR,PocColor);
  ObjectSet(Poc, OBJPROP_WIDTH,PocLine_Width);
  ObjectSet(Poc, OBJPROP_RAY, false);
  ObjectSet(Poc, OBJPROP_BACK, True);
  } 
 
   
 
//-------------- 
 AllTicks=AllTicks+Space;
 TPOs[i]=Space;
}
ValueArea=AllTicks*Persent_Of_TPO_ValueArea;
imax=(Max-PocTick)/STEP;
imin=imax;
ValueRange=TPOs[imax];


 while(ValueRange < ValueArea)
 {
 
  if(TPOs[imax-1] == TPOs[imin+1])
    {
    ValueRange = ValueRange+(2*TPOs[imax-1]);
    imax--;
    imin++;
    } 

 if(TPOs[imax-1] > TPOs[imin+1])
  {
    ValueRange = ValueRange+TPOs[imax-1];
    imax--;
    }

 if(TPOs[imax-1] < TPOs[imin+1])
    {
    ValueRange = ValueRange+TPOs[imin+1];
    imin++;
    }


   
  }

string Range = "Range  "+TimeToStr(iTime(NULL,0,Ymax+(TPOs_Shift*SessionHalfHours)),TIME_DATE|TIME_MINUTES),
      ValueAreaRange = "ValueAreaRange  "+TimeToStr(iTime(NULL,0,Ymax+(TPOs_Shift*SessionHalfHours)),TIME_DATE|TIME_MINUTES),     
      TVolume = "TVolume "+TimeToStr(iTime(NULL,0,Ymax+(TPOs_Shift*SessionHalfHours)),TIME_DATE|TIME_MINUTES),
      ValueTop = "ValueTop  "+TimeToStr(iTime(NULL,0,Ymax+(TPOs_Shift*SessionHalfHours)),TIME_DATE|TIME_MINUTES),
      ValueBottom = "ValueBottom  "+TimeToStr(iTime(NULL,0,Ymax+(TPOs_Shift*SessionHalfHours)),TIME_DATE|TIME_MINUTES),
      RangeLine = "RangeLine  "+TimeToStr(iTime(NULL,0,Ymax+(TPOs_Shift*SessionHalfHours)),TIME_DATE|TIME_MINUTES),
      IBLine = "IBLine  "+TimeToStr(iTime(NULL,0,Ymax+(TPOs_Shift*SessionHalfHours)),TIME_DATE|TIME_MINUTES);
     
     
      int Yvt_start= Yt+TopLine_Start-(ValueArea_Shift*SessionHalfHours)+(TPOs_Shift*SessionHalfHours),
          Yvt_end= Yt-TPOs[imax]+TopLine_End-(ValueArea_Shift*SessionHalfHours)+(TPOs_Shift*SessionHalfHours),
          Yvb_start= Yt+BottomLine_Start-(ValueArea_Shift*SessionHalfHours)+(TPOs_Shift*SessionHalfHours),
          Yvb_end= Yt-TPOs[imin]+BottomLine_End-(ValueArea_Shift*SessionHalfHours)+(TPOs_Shift*SessionHalfHours);
         

if(ViewValueArea)
  {
  ObjectDelete(ValueTop);
  ObjectCreate(ValueTop, OBJ_TREND,0,iTime(NULL,0,Yvt_start),Max-(imax*STEP), iTime(NULL,0,Yvt_end),Max-(imax*STEP));
  ObjectSet(ValueTop, OBJPROP_COLOR, TopLine_Color);
  ObjectSet(ValueTop, OBJPROP_WIDTH,TopLine_Width);
  ObjectSet(ValueTop, OBJPROP_RAY, false);
  ObjectSet(ValueTop, OBJPROP_BACK, True);
 
  ObjectDelete(ValueBottom);
  ObjectCreate(ValueBottom, OBJ_TREND,0,iTime(NULL,0,Yvb_start),Max-(imin*STEP),iTime(NULL,0,Yvb_end),Max-(imin*STEP));
  ObjectSet(ValueBottom, OBJPROP_COLOR, BottomLine_Color);
  ObjectSet(ValueBottom, OBJPROP_WIDTH,BottomLine_Width);
  ObjectSet(ValueBottom, OBJPROP_RAY, false);
  ObjectSet(ValueBottom, OBJPROP_BACK, True);
  }

if(ViewInformationText)
  { 
  ObjectDelete(Range);
  ObjectCreate(Range, OBJ_TEXT, 0,iTime(NULL,0,Yt-SessionHalfHours+InformationTextShift+(TPOs_Shift*SessionHalfHours)), PocTick);
  ObjectSetText(Range, "Range= "+DoubleToStr((Max-Min),4)+" Pip", InformationTextSize, "Arial",InformationTextColor);
 
  ObjectDelete(ValueAreaRange);
  ObjectCreate(ValueAreaRange, OBJ_TEXT, 0,iTime(NULL,0,Yt-SessionHalfHours+InformationTextShift+(TPOs_Shift*SessionHalfHours)), PocTick-(2*STEP));
  ObjectSetText(ValueAreaRange, "TPO ValueArea= "+DoubleToStr((imin-imax)*STEP,4)+" Pip", InformationTextSize, "Arial",InformationTextColor);
 
 
  ObjectDelete(TVolume);
  ObjectCreate(TVolume, OBJ_TEXT, 0,iTime(NULL,0,Yt-SessionHalfHours+InformationTextShift+(TPOs_Shift*SessionHalfHours)), PocTick-(4*STEP));
  ObjectSetText(TVolume, "Tick Volume= "+DoubleToStr(TickVolume,0), InformationTextSize, "Arial",InformationTextColor);
  }
 
if(ViewrangeLine) 
  {
  ObjectDelete(RangeLine);
  ObjectCreate(RangeLine, OBJ_TREND,0,iTime(NULL,0,Yt-(rangeLine_Shift*SessionHalfHours)+1+(TPOs_Shift*SessionHalfHours)),Max, iTime(NULL,0,Yt-(rangeLine_Shift*SessionHalfHours)+1+(TPOs_Shift*SessionHalfHours)),Min);
  ObjectSet(RangeLine, OBJPROP_COLOR, RangeLineColor);
  ObjectSet(RangeLine, OBJPROP_STYLE,STYLE_DOT);
  ObjectSet(RangeLine, OBJPROP_RAY, false);
  }
 
if (ViewInitialBalanceLine)
  {
  ObjectDelete(IBLine);
  ObjectCreate(IBLine, OBJ_TREND,0,iTime(NULL,0,Yt+IBLine_Shift+(TPOs_Shift*SessionHalfHours)),IBmax, iTime(NULL,0,Yt+IBLine_Shift+(TPOs_Shift*SessionHalfHours)),IBmin);
  ObjectSet(IBLine, OBJPROP_COLOR, IBLineColor);
  ObjectSet(IBLine, OBJPROP_STYLE,STYLE_SOLID);
  ObjectSet(IBLine, OBJPROP_WIDTH,IBLineWidth);
  ObjectSet(IBLine, OBJPROP_RAY, false);
  }
 
if(View_Pointer)
  {
 
  int Pointer= (Max-Close[0])/STEP;
     
  if ( Max-(Pointer*STEP)-Close[0]  > Close[0]-Max+((Pointer+1)*STEP) )
      Pointer++;
  int Pointr =Yt-TPOs[Pointer]-PointerShift;
  if (Pointr < 0)
  Pointr =0;
  ObjectDelete("Pointer");
 
  if(ObjectFind("Pointer") != 0)
    {
    ObjectCreate("Pointer", OBJ_ARROW, 0, iTime(NULL,0,Pointr+(TPOs_Shift*SessionHalfHours)), Close[0]+STEP);
    ObjectSet("Pointer", OBJPROP_ARROWCODE,239);
    ObjectSet("Pointer",OBJPROP_COLOR,PointerColor);
    ObjectSet("Pointer", OBJPROP_BACK, false);
    }
  else
    {
  ObjectMove("Pointer", 0, iTime(NULL,0,Pointr+(TPOs_Shift*SessionHalfHours)), Close[0]+STEP);
    }

    }
   
}





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

void DeleteAllObjects(int NumberOfDays)
{
datetime dt,t0;
int y,u,Ymax;
string TPOName;

dt =iTime(NULL,0,0);
t0=StrToTime(TimeYear(dt)+"."+TimeMonth(dt)+"."+TimeDay(dt)+" "+"00"+":"+"00");
Ymax=iBarShift(NULL,0,t0);

for (y=0; y<=NumberOfDays+6; y++)
{
dt=iTime(NULL,0,Ymax+1);
t0=StrToTime(TimeYear(dt)+"."+TimeMonth(dt)+"."+TimeDay(dt)+" "+"00"+":"+"00");
Ymax=iBarShift(NULL,0,t0);
}

for (y=0; y<=Ymax; y++)
{
 TPOName = TimeToStr(iTime(NULL,0,y),TIME_DATE|TIME_MINUTES);
 if(ObjectFind("open  "+TPOName)==0)
    ObjectDelete("open  "+TPOName);
   
 if(ObjectFind("Pointer")==0)
    ObjectDelete("Pointer");
   
 if(ObjectFind("POC  "+TPOName)==0)
    ObjectDelete("POC  "+TPOName); 
 
 if(ObjectFind("ValueTop  "+TPOName)==0)
    ObjectDelete("ValueTop  "+TPOName);
 
 if(ObjectFind("ValueBottom  "+TPOName)==0)
    ObjectDelete("ValueBottom  "+TPOName);
   
 if(ObjectFind("Range  "+TPOName)==0)
    ObjectDelete("Range  "+TPOName);   
   
 if(ObjectFind("ValueAreaRange  "+TPOName)==0)
    ObjectDelete("ValueAreaRange  "+TPOName);
 
 if(ObjectFind("TVolume "+TPOName)==0)
    ObjectDelete("TVolume "+TPOName);
     
 if(ObjectFind("RangeLine  "+TPOName)==0)
    ObjectDelete("RangeLine  "+TPOName); 
   
 if(ObjectFind("IBLine  "+TPOName)==0)
    ObjectDelete("IBLine  "+TPOName); 
 
     
   
 for (u=0; u<=1000; u++)
 {
 if(ObjectFind(TPOName+"  "+DoubleToStr(u,0))==0)
 ObjectDelete(TPOName+"  "+DoubleToStr(u,0));
 }

}

}
//+------------------------------------------------------------------+
Herzlichen Dank schon einmal im Voraus
Jens


Alle Zeitangaben in WEZ +2. Es ist jetzt 03:00 Uhr.

Powered by vBulletin® Version 3.8.5 (Deutsch)
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1
Powered by vBCMS® 2.7.0 ©2002 - 2024 vbdesigns.de
Copyright ©2009 - 2023 by Expert-Advisor.com - Das Metatrader Forum