saherelm/MQL5Data
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Complete and Test Trading Days POI ...

Browse Source
This commit is contained in:
saherelm
2024-10-20 19:04:13 +03:30
parent 474dabbeb6
commit b86e8d5c6b
4 changed files with 2276 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Classes/x-saherelm.x-chart-objects.class.mq5
+216
View File
@@ -0,0 +1,216 @@
///////////////////////////////////////////////////////
//
// SaherElm IT Center MQL5 Class Library
// --------------------------------------
// Name: XChartObjects
// Description: provides all require Chart Objects ...
//
//
// Maintainer:
// ------------
// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
//
//////////////////////////////////////////////////////
//
// Global Properties ...
#property library
#property copyright "Copyright 2023, SaherElm IT Center"
#property link "https://www.saherelm.ir"
#property version "1.00"
#property strict
//
#include "../Libraries/x-saherelm.common.lib.mq5"
//
#include <ChartObjects/ChartObject.mqh>
#include <ChartObjects/ChartObjectsLines.mqh>
//
// Definitions ...
enum ENUM_XCHARTOBJECTS
{
X_TRADE_DAY,
};
enum ENUM_X_TRADE_DAY_IDS
{
X_TRADE_DAY_FROM,
X_TRADE_DAY_TO
};
//
// Extensions ...
/**
* Convert ENUM_X_TRADE_DAY_IDS membr to String ...
*
* @param value: ENUM_X_TRADE_DAY_IDS member ...
*
* @return ( string )
*/
string ToString(ENUM_X_TRADE_DAY_IDS value)
{
//
string result = NULL;
//
switch (value)
{
//
case X_TRADE_DAY_FROM:
result = "XFROM";
break;
//
case X_TRADE_DAY_TO:
result = "XTO";
break;
}
//
return result;
}
//
// Implementation ...
class XCTardeDayObject : public CChartObject
{
//
public:
//
//
// Constructors ...
void XCTardeDayObject()
{
}
//
// Deconstructors ...
void ~XCTardeDayObject()
{
}
/**
* Create XTradeDayChartObject ...
*
* @param chart_id: Long ...
* @param name: String ...
* @param window: Integer ...
* @param time1: DateTime ...
* @param time2: DateTime ...
*
* @return ( bool )
*/
bool Create(
long chart_id,
const string name,
const int window,
const datetime from,
const datetime to //
)
{
//
bool result = false;
//
string mFromVLineName = ToString(X_TRADE_DAY_FROM) + "_" + name;
result = mFromVLine.Create(chart_id, mFromVLineName, window, from);
if (!result)
{
return result;
}
//
string mToVLineName = ToString(X_TRADE_DAY_TO) + "_" + name;
result = mToVLine.Create(chart_id, mToVLineName, window, to);
if (!result)
{
return result;
}
//
// result = Attach(chart_id, name, window, 2);
// if (!result)
// {
// return result;
// }
//
return result;
}
/**
* Retrieve Object Type ...
*
* @return ( ENUM_XCHARTOBJECTS )
*/
virtual ENUM_XCHARTOBJECTS Type()
{
return X_TRADE_DAY;
}
/**
* Set From Date Line Color ...
*
* @param value: Color ...
*
* @return ( bool )
*/
bool FromColor(color value)
{
return mFromVLine.Color(value);
}
/**
* Set From Date Line Style ...
*
* @param value: ENUM_LINE_STYLE ...
*
* @return ( bool )
*/
bool FromStyle(ENUM_LINE_STYLE value)
{
return mFromVLine.Style(value);
}
/**
* Set To Date Line Color ...
*
* @param value: Color ...
*
* @return ( bool )
*/
bool ToColor(color value)
{
return mToVLine.Color(value);
}
/**
* Set To Date Line Style ...
*
* @param value: ENUM_LINE_STYLE ...
*
* @return ( bool )
*/
bool ToStyle(ENUM_LINE_STYLE value)
{
return mToVLine.Style(value);
}
//
protected:
//
//
private:
//
CChartObjectVLine mFromVLine;
CChartObjectVLine mToVLine;
//
};
//
Classes/x-saherelm.x-poi.class.mq5
+1620 -4
View File
File diff suppressed because it is too large Load Diff
Indicators/LitMarketSessions.mq5
+342
View File
@@ -0,0 +1,342 @@
//+------------------------------------------------------------------+
//| LitMarketSessions.mq5 |
//| Copyright 2024, rpanchyk |
//| https://github.com/rpanchyk |
//+------------------------------------------------------------------+
#property copyright "Copyright 2024, rpanchyk"
#property link "https://github.com/rpanchyk"
#property version "1.00"
#property description "Indicator shows LIT market sessions"
#property indicator_chart_window
#property indicator_buffers 3
#property indicator_plots 1
// includes
#include <Object.mqh>
#include <arrays/arrayobj.mqh>
enum ENUM_TIME_ZONE
{
TZauto = 99, // auto
TZp6 = 6, // +6
TZp5 = 5, // +5
TZp4 = 4, // +4
TZp3 = 3, // +3
TZp2 = 2, // +2
TZp1 = 1, // +1
TZp0 = 0, // 0
TZm1 = -1, // -1
TZm2 = -2, // -2
TZm3 = -3, // -3
TZm4 = -4, // -4
TZm5 = -5, // -5
TZm6 = -6 // -6
};
enum ENUM_BORDER_STYLE
{
BORDER_STYLE_SOLID = STYLE_SOLID, // Solid
BORDER_STYLE_DASH = STYLE_DASH // Dash
};
enum ENUM_LIT_SESSION_TYPE
{
LIT_SESSION_LONDON, // 08 AM to 09 AM [UTC] - Open Inducement Window (1 hour)
LIT_SESSION_NEWYORK, // 01 PM to 02 PM [UTC] - Open Inducement Window (1 hour)
LIT_SESSION_TOKYO // 23 PM to 06 AM [UTC]
};
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
class Box : public CObject
{
public:
Box(ENUM_LIT_SESSION_TYPE inType, datetime inStart, datetime inEnd, double inLow, double inHigh)
{
this.type = inType;
this.start = inStart;
this.end = inEnd;
this.low = inLow;
this.high = inHigh;
}
void draw()
{
string objName = "sbox " + TimeToString(start);
if(ObjectFind(0, objName) < 0)
{
ObjectCreate(0, objName, OBJ_RECTANGLE, 0, start, low, end, high);
ObjectSetInteger(0, objName, OBJPROP_COLOR, getTypeAsColor());
ObjectSetInteger(0, objName, OBJPROP_FILL, InpFill);
ObjectSetInteger(0, objName, OBJPROP_STYLE, InpBoderStyle);
ObjectSetInteger(0, objName, OBJPROP_WIDTH, InpBorderWidth);
ObjectSetInteger(0, objName, OBJPROP_BACK, true);
ObjectSetInteger(0, objName, OBJPROP_SELECTABLE, false);
ObjectSetInteger(0, objName, OBJPROP_SELECTED, false);
ObjectSetInteger(0, objName, OBJPROP_HIDDEN, false);
ObjectSetInteger(0, objName, OBJPROP_ZORDER, 0);
}
}
long getTypeAsColor()
{
switch(type)
{
case LIT_SESSION_LONDON:
return InpLondonColor;
case LIT_SESSION_NEWYORK:
return InpNewyorkColor;
case LIT_SESSION_TOKYO:
return InpTokyoColor;
default:
Print("Unknown type");
return -1;
}
}
int getTypeAsNumber()
{
switch(type)
{
case LIT_SESSION_LONDON:
return 1;
case LIT_SESSION_NEWYORK:
return 2;
case LIT_SESSION_TOKYO:
return 3;
default:
Print("Unknown type");
return -1;
}
}
ENUM_LIT_SESSION_TYPE type;
datetime start;
datetime end;
double low;
double high;
};
// buffers
double TypeBuffer[];
double LowBuffer[];
double HighBuffer[];
// config
input group "Section :: Main";
input ENUM_TIME_ZONE InpTimeZoneOffsetHours = TZauto; // Time zone (offset in hours)
input bool InpLondonShow = true; // Show London
input bool InpNewyorkShow = true; // Show NewYork
input bool InpTokyoShow = true; // Show Tokyo
input group "Section :: Style";
input color InpLondonColor = clrLightGreen; // London color
input color InpNewyorkColor = clrYellow; // NewYork color
input color InpTokyoColor = clrLightGray; // Tokyo color
input bool InpFill = true; // Fill solid (true) or transparent (false)
input ENUM_BORDER_STYLE InpBoderStyle = BORDER_STYLE_SOLID; // Border line style
input int InpBorderWidth = 2; // Border line width
// runtime
CArrayObj boxes;
int timeShiftSec;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
Print("Initialization started");
ArrayInitialize(TypeBuffer, 0);
ArrayInitialize(LowBuffer, 0);
ArrayInitialize(HighBuffer, 0);
ArraySetAsSeries(TypeBuffer, true);
ArraySetAsSeries(LowBuffer, true);
ArraySetAsSeries(HighBuffer, true);
SetIndexBuffer(0, TypeBuffer, INDICATOR_DATA);
SetIndexBuffer(1, LowBuffer, INDICATOR_CALCULATIONS);
SetIndexBuffer(2, HighBuffer, INDICATOR_CALCULATIONS);
timeShiftSec = (InpTimeZoneOffsetHours == TZauto ? getTimeZoneOffsetHours() : InpTimeZoneOffsetHours) * 60 * 60;
Print("Initialization finished");
return INIT_SUCCEEDED;
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
Print("Deinitialization started");
ObjectsDeleteAll(0, "sbox");
Print("Deinitialization finished");
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
const int prev_calculated,
const datetime &time[],
const double &open[],
const double &high[],
const double &low[],
const double &close[],
const long &tick_volume[],
const long &volume[],
const int &spread[])
{
if(rates_total == prev_calculated)
{
return rates_total;
}
ArraySetAsSeries(time, true);
ArraySetAsSeries(high, true);
ArraySetAsSeries(low, true);
int limit = (int) MathMin(rates_total, rates_total - prev_calculated + 1);
//PrintFormat("RatesTotal: %i, PrevCalculated: %i, Limit: %i", rates_total, prev_calculated, limit);
MqlDateTime currMdt;
MqlDateTime startMdt;
MqlDateTime endMdt;
datetime currDt;
datetime startDt;
datetime endDt;
for(int i = limit - 1; i > 0; i--)
{
datetime dt = time[i];
//Print(i, " at ", TimeToString(dt), " GMT");
TimeToStruct(dt, currMdt);
currDt = StructToTime(currMdt);
TimeToStruct(dt, startMdt);
startMdt.min = 0;
startMdt.sec = 0;
TimeToStruct(dt, endMdt);
endMdt.min = 0;
endMdt.sec = 0;
// London
if(InpLondonShow)
{
startMdt.hour = 8;
endMdt.hour = 9;
startDt = StructToTime(startMdt) + timeShiftSec;
endDt = StructToTime(endMdt) + timeShiftSec;
if(currDt >= startDt && currDt < endDt)
{
addBox(&boxes, LIT_SESSION_LONDON, startDt, endDt, low[i], high[i], i);
}
}
// NewYork
if(InpNewyorkShow)
{
startMdt.hour = 13;
endMdt.hour = 14;
startDt = StructToTime(startMdt) + timeShiftSec;
endDt = StructToTime(endMdt) + timeShiftSec;
if(currDt >= startDt && currDt < endDt)
{
addBox(&boxes, LIT_SESSION_NEWYORK, startDt, endDt, low[i], high[i], i);
}
}
// Tokyo
if(InpTokyoShow)
{
startMdt.hour = 23;
endMdt.hour = 6;
startDt = StructToTime(startMdt) - 86400 + timeShiftSec; // prev day
endDt = StructToTime(endMdt) + timeShiftSec;
if(currDt >= startDt && currDt < endDt)
{
addBox(&boxes, LIT_SESSION_TOKYO, startDt, endDt, low[i], high[i], i);
}
}
}
//Print("Drawn boxes: ", boxes.Total());
return rates_total;
}
//+------------------------------------------------------------------+
//| Get time zone offset in hours |
//+------------------------------------------------------------------+
int getTimeZoneOffsetHours()
{
datetime serverTime = TimeTradeServer();
datetime gmtTime = TimeGMT();
int offsetSeconds = ((int)serverTime) - ((int)gmtTime);
int offsetHours = offsetSeconds / 3600;
Print("Detected server offset: ", IntegerToString(offsetHours), " hrs");
return offsetHours;
}
//+------------------------------------------------------------------+
//| Add or update existing box and draw it |
//+------------------------------------------------------------------+
void addBox(CArrayObj *allBoxes, ENUM_LIT_SESSION_TYPE type, datetime start, datetime end, double low, double high, int i)
{
Box *box = allBoxes.Total() > 0
? allBoxes.At(allBoxes.Total() - 1)
: NULL;
double lowNormalized = NormalizeDouble(low, _Digits);
double highNormalized = NormalizeDouble(high, _Digits);
if(box != NULL && box.start == start)
{
if(box.low > lowNormalized || box.high < highNormalized)
{
box.end = end;
box.low = MathMin(box.low, lowNormalized);
box.high = MathMax(box.high, highNormalized);
ObjectsDeleteAll(0, "sbox " + TimeToString(start));
box.draw();
Print("box redrawn");
}
}
else
{
box = new Box(type, start, end, lowNormalized, highNormalized);
boxes.Add(box);
box.draw();
Print("new box drawn");
}
setBuffers(box, i);
}
//+------------------------------------------------------------------+
//| Fill indicator buffers |
//+------------------------------------------------------------------+
void setBuffers(Box *box, int i)
{
TypeBuffer[i] = box.getTypeAsNumber();
LowBuffer[i] = box.low;
HighBuffer[i] = box.high;
}
//+------------------------------------------------------------------+
Libraries/x-saherelm.common.lib.mq5
+98
View File
@@ -1105,6 +1105,59 @@ struct XOHCL
return result; return result;
} }
//
// Calculate Last Bar Open Time in Smaller Period ...
datetime GetLastBarTimeOfPeriod(
ENUM_TIMEFRAMES smallerPeriod //
)
{
//
datetime result = NULL;
//
if (!IsValid())
{
return result;
}
//
int sourceSeconds = PeriodSeconds(period);
int destSeconds = PeriodSeconds(smallerPeriod);
if (destSeconds >= sourceSeconds)
{
return result;
}
//
result = (datetime)((((int)time) + sourceSeconds) - destSeconds);
//
return result;
}
//
// Calculate Close Time ...
datetime GetCloseTime()
{
//
datetime result = NULL;
//
if (!IsValid())
{
return result;
}
//
int seconds = PeriodSeconds(period);
//
result = (datetime)(((int)time) + seconds);
//
return result;
}
// //
// Find Current Bar Index on Chart ... // Find Current Bar Index on Chart ...
int Index() int Index()
@@ -8145,6 +8198,51 @@ MqlDateTime GetBarTimeStruct(
return result; return result;
} }
//
// Retrieve Last Available Bar Time of
// Dest Period inside Source Period ...
datetime GetLastBarTime(
ENUM_TIMEFRAMES sourcePeriod,
ENUM_TIMEFRAMES destPeriod //
)
{
//
datetime result = NULL;
//
if (!IsValid(sourcePeriod) ||
!IsValid(destPeriod))
{
return result;
}
//
int sourceSeconds = PeriodSeconds(sourcePeriod);
int destSeconds = PeriodSeconds(destPeriod);
if (sourceSeconds < destSeconds)
{
return result;
}
//
XOHCL sourceBar;
bool isInited = sourceBar.Init(
_Symbol,
sourcePeriod,
0 //
);
if (!isInited)
{
return result;
}
//
result = (datetime)((((int)sourceBar.time) + sourceSeconds) - destSeconds);
//
return result;
}
// //
// Other Tools ... // Other Tools ...