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

add POI Detector and Drawer for XCATB classes ...

Browse Source
This commit is contained in:
saherelm
2025-05-30 20:37:47 +03:30
parent d30ba84ab2
commit 1e002ced49
7 changed files with 2782 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Experts/xcatb.test.ea.mq5
+1
View File
@@ -26,6 +26,7 @@
#include "../Classes/x-saherelm.x-trade.class.mq5"
#include "../Classes/x-saherelm.x-volume.class.mq5"
#include "../Helpers/x-saherelm.x121.xcatb.helper.mq5"
#include "../XCATBEA/Classes/xcatbea.signaller.class.mq5"
#include "../XCATBEA/Classes/xcatbea.x-trade.manager.class.mq5"
#include "../XCATBEA/Libraries/xcatbea.signaller.lib.mq5"
Helpers/x-saherelm.x121.xcatb.helper.mq5
+288 -19
View File
@@ -33,7 +33,7 @@
enum ENUM_X121_XCATB_BUFFERS
{
X121_XCATB_SAR_LINE = 0,
X121_XCATB_SAR_STATE_LINE = 28,
X121_XCATB_SAR_STATE_LINE = 30,
X121_XCATB_PEAK_LINE = 2,
X121_XCATB_VALE_LINE = 3,
X121_XCATB_PEAK_GOLDEN_LINE = 4,
@@ -41,7 +41,7 @@ enum ENUM_X121_XCATB_BUFFERS
X121_XCATB_ATR_BAND_UPPER_LINE = 6,
X121_XCATB_ATR_BAND_LOWER_LINE = 7,
X121_XCATB_TREND_LINE = 8,
X121_XCATB_TREND_STATE_LINE = 29,
X121_XCATB_TREND_STATE_LINE = 31,
X121_XCATB_SBAR_O_LINE = 10,
X121_XCATB_SBAR_H_LINE = 11,
X121_XCATB_SBAR_L_LINE = 12,
@@ -58,23 +58,25 @@ enum ENUM_X121_XCATB_BUFFERS
X121_XCATB_L_LL_LINE = 25,
X121_XCATB_H_HH_LINE = 26,
X121_XCATB_H_LL_LINE = 27,
X121_XCATB_RSI_LINE = 30,
X121_XCATB_ADX_LINE = 31,
X121_XCATB_ADXP_LINE = 32,
X121_XCATB_ADXN_LINE = 33,
X121_XCATB_DELTA_LINE = 34,
X121_XCATB_DELTA_SIGNAL_LINE = 35,
X121_XCATB_VOLUME_BULLISH_LINE = 36,
X121_XCATB_VOLUME_BEARISH_LINE = 37,
X121_XCATB_VOLUME_VOLUME_BULLISH_SIGNAL_LINE = 38,
X121_XCATB_VOLUME_VOLUME_BEARISH_SIGNAL_LINE = 39,
X121_XCATB_ATR_LINE = 40,
X121_XCATB_ATR_BAND_RAW_UPPER_LINE = 41,
X121_XCATB_ATR_BAND_RAW_LOWER_LINE = 42,
X121_XCATB_HK_BAR_O_LINE = 43,
X121_XCATB_HK_BAR_H_LINE = 44,
X121_XCATB_HK_BAR_L_LINE = 45,
X121_XCATB_HK_BAR_C_LINE = 46,
X121_XCATB_KI_LINE = 28,
X121_XCATB_KI_STATE_LINE = 50,
X121_XCATB_RSI_LINE = 32,
X121_XCATB_ADX_LINE = 33,
X121_XCATB_ADXP_LINE = 34,
X121_XCATB_ADXN_LINE = 35,
X121_XCATB_DELTA_LINE = 36,
X121_XCATB_DELTA_SIGNAL_LINE = 37,
X121_XCATB_VOLUME_BULLISH_LINE = 38,
X121_XCATB_VOLUME_BEARISH_LINE = 39,
X121_XCATB_VOLUME_VOLUME_BULLISH_SIGNAL_LINE = 40,
X121_XCATB_VOLUME_VOLUME_BEARISH_SIGNAL_LINE = 41,
X121_XCATB_ATR_LINE = 42,
X121_XCATB_ATR_BAND_RAW_UPPER_LINE = 43,
X121_XCATB_ATR_BAND_RAW_LOWER_LINE = 44,
X121_XCATB_HK_BAR_O_LINE = 45,
X121_XCATB_HK_BAR_H_LINE = 46,
X121_XCATB_HK_BAR_L_LINE = 47,
X121_XCATB_HK_BAR_C_LINE = 48,
};
//
@@ -99,6 +101,7 @@ struct X121XCatbInputs
//
// Presentation ...
bool showBars; // Show Bars
bool showKI; // Show KI
bool showPV; // Show PV
bool showPVGolden; // Show PV Golden
bool showSar; // Show Sar
@@ -144,6 +147,7 @@ struct X121XCatbInputs
//
// Presentation ...
showBars = false; // Show Bars
showKI = false; // Show KI
showPV = false; // Show PV
showPVGolden = false; // Show PV Golden
showSar = false; // Show Sar
@@ -183,6 +187,7 @@ struct X121XCatbInputs
//
// Presentation ...
showBars = true; // Show Bars
showKI = false; // Show KI
showPV = false; // Show PV
showPVGolden = false; // Show PV Golden
showSar = false; // Show Sar
@@ -205,6 +210,7 @@ struct X121XCatbInputs
void Hide()
{
//
showKI = false;
showPV = false;
showSar = false;
showTrend = false;
@@ -273,6 +279,7 @@ struct X121XCatbConditions
//
// Buffers ...
double kiBuffer[];
double sarBuffer[];
double atrBuffer[];
double rsiBuffer[];
@@ -295,6 +302,7 @@ struct X121XCatbConditions
double hkOpenBuffer[];
double hkHighBuffer[];
double hkCloseBuffer[];
double kiStateBuffer[];
double sarStateBuffer[];
double atrUpperBuffer[];
double atrLowerBuffer[];
@@ -341,6 +349,20 @@ struct X121XCatbConditions
bool isSarSwitchedToBullish;
bool isSarSwitchedToBearish;
//
// KI ...
//
bool isKIBullish;
bool isKIBearish;
//
bool isKISameAsLast;
//
bool isKISwitchedToBullish;
bool isKISwitchedToBearish;
//
// ADX ...
@@ -494,6 +516,7 @@ struct X121XCatbConditions
//
Clean(bars);
Clean(kiBuffer);
Clean(sarBuffer);
Clean(atrBuffer);
Clean(rsiBuffer);
@@ -516,6 +539,7 @@ struct X121XCatbConditions
Clean(hkOpenBuffer);
Clean(hkHighBuffer);
Clean(hkCloseBuffer);
Clean(kiStateBuffer);
Clean(sarStateBuffer);
Clean(atrUpperBuffer);
Clean(atrLowerBuffer);
@@ -534,6 +558,7 @@ struct X121XCatbConditions
//
ArraySetAsSeries(bars, true);
ArraySetAsSeries(kiBuffer, true);
ArraySetAsSeries(sarBuffer, true);
ArraySetAsSeries(atrBuffer, true);
ArraySetAsSeries(rsiBuffer, true);
@@ -556,6 +581,7 @@ struct X121XCatbConditions
ArraySetAsSeries(hkOpenBuffer, true);
ArraySetAsSeries(hkHighBuffer, true);
ArraySetAsSeries(hkCloseBuffer, true);
ArraySetAsSeries(kiStateBuffer, true);
ArraySetAsSeries(sarStateBuffer, true);
ArraySetAsSeries(atrUpperBuffer, true);
ArraySetAsSeries(atrLowerBuffer, true);
@@ -605,6 +631,20 @@ struct X121XCatbConditions
isSarSwitchedToBullish = false;
isSarSwitchedToBearish = false;
//
// KI ...
//
isKIBullish = false;
isKIBearish = false;
//
isKISameAsLast = false;
//
isKISwitchedToBullish = false;
isKISwitchedToBearish = false;
//
// ADX ...
@@ -799,6 +839,29 @@ struct X121XCatbConditions
bearishScore += score;
}
//
// KI ...
//
if (isKIBullish)
{
bullishScore += score;
}
if (isKISwitchedToBullish)
{
bullishScore += score;
}
//
if (isKIBearish)
{
bearishScore += score;
}
if (isKISwitchedToBearish)
{
bearishScore += score;
}
//
// ADX ...
@@ -1121,6 +1184,15 @@ struct X121XCatbConditions
ToString("isClosedUnderATRLower", isClosedUnderATRLower, ignoreFalseConditions, separator) +
//
"-----------------------" + separator +
"KI: " + separator +
"-----------------------" + separator +
ToString("isKIBullish", isKIBullish, ignoreFalseConditions, separator) +
ToString("isKIBearish", isKIBearish, ignoreFalseConditions, separator) +
ToString("isKISameAsLast", isKISameAsLast, ignoreFalseConditions, separator) +
ToString("isKISwitchedToBullish", isKISwitchedToBullish, ignoreFalseConditions, separator) +
ToString("isKISwitchedToBearish", isKISwitchedToBearish, ignoreFalseConditions, separator) +
//
"-----------------------" + separator +
"SAR: " + separator +
"-----------------------" + separator +
ToString("isSarBullish", isSarBullish, ignoreFalseConditions, separator) +
@@ -1264,6 +1336,7 @@ class XCX121XCatbHelper : public XCBaseHelper
//
// Buffers ...
double kiBuffer[];
double sarBuffer[];
double atrBuffer[];
double rsiBuffer[];
@@ -1286,6 +1359,7 @@ class XCX121XCatbHelper : public XCBaseHelper
double hkOpenBuffer[];
double hkHighBuffer[];
double hkCloseBuffer[];
double kiStateBuffer[];
double sarStateBuffer[];
double atrUpperBuffer[];
double atrLowerBuffer[];
@@ -1412,6 +1486,7 @@ class XCX121XCatbHelper : public XCBaseHelper
}
//
ArraySetAsSeries(kiBuffer, true);
ArraySetAsSeries(sarBuffer, true);
ArraySetAsSeries(atrBuffer, true);
ArraySetAsSeries(rsiBuffer, true);
@@ -1434,6 +1509,7 @@ class XCX121XCatbHelper : public XCBaseHelper
ArraySetAsSeries(hkOpenBuffer, true);
ArraySetAsSeries(hkHighBuffer, true);
ArraySetAsSeries(hkCloseBuffer, true);
ArraySetAsSeries(kiStateBuffer, true);
ArraySetAsSeries(sarStateBuffer, true);
ArraySetAsSeries(atrUpperBuffer, true);
ArraySetAsSeries(atrLowerBuffer, true);
@@ -1470,6 +1546,7 @@ class XCX121XCatbHelper : public XCBaseHelper
mInputs.appliedCycle,
"", // Presentation ...
mInputs.showBars,
mInputs.showKI,
mInputs.showPV,
mInputs.showPVGolden,
mInputs.showSar,
@@ -1963,6 +2040,113 @@ class XCX121XCatbHelper : public XCBaseHelper
//
// Readers ...
//
// Readers ...
//
// SAR ...
//
double GetKI(
int barIndex // Bar Index
)
{
//
if (barIndex < 0)
{
barIndex = 0;
}
//
Calculate(barIndex);
//
int count = ArraySize(kiBuffer);
if (barIndex >= count)
{
barIndex = count - 1;
}
//
return kiBuffer[barIndex];
}
//
int CopyKI(
int start, // Start
int count, // Number of Items for read
double &buffer[], // Dest Buffer
bool forceClean = true // Force To Clean buffer
)
{
//
// Update Calculations ...
Calculate(start);
//
// Copy Items ...
return Copy(
0,
count,
kiBuffer,
buffer,
forceClean
//
);
}
//
// KI State ...
//
double GetKIState(
int barIndex // Bar Index
)
{
//
if (barIndex < 0)
{
barIndex = 0;
}
//
Calculate(barIndex);
//
int count = ArraySize(kiStateBuffer);
if (barIndex >= count)
{
barIndex = count - 1;
}
//
return kiStateBuffer[barIndex];
}
//
int CopyKIState(
int start, // Start
int count, // Number of Items for read
double &buffer[], // Dest Buffer
bool forceClean = true // Force To Clean buffer
)
{
//
// Update Calculations ...
Calculate(start);
//
// Copy Items ...
return Copy(
0,
count,
kiStateBuffer,
buffer,
forceClean
//
);
}
//
// SAR ...
@@ -3996,6 +4180,19 @@ class XCX121XCatbHelper : public XCBaseHelper
//
// Buffers ...
CopyKI(
zIndex,
loopback,
conditions.kiBuffer //
);
//
CopyKIState(
zIndex,
loopback,
conditions.kiStateBuffer //
);
CopySar(
zIndex,
loopback,
@@ -4281,6 +4478,23 @@ class XCX121XCatbHelper : public XCBaseHelper
double p2ATRLower = conditions.atrLowerBuffer[p2IDX];
double p3ATRLower = conditions.atrLowerBuffer[p3IDX];
//
// KI ...
//
double zKI = conditions.kiBuffer[zIDX];
double cKI = conditions.kiBuffer[cIDX];
double pKI = conditions.kiBuffer[pIDX];
double p2KI = conditions.kiBuffer[p2IDX];
double p3KI = conditions.kiBuffer[p3IDX];
//
double zKIState = conditions.kiStateBuffer[zIDX];
double cKIState = conditions.kiStateBuffer[cIDX];
double pKIState = conditions.kiStateBuffer[pIDX];
double p2KIState = conditions.kiStateBuffer[p2IDX];
double p3KIState = conditions.kiStateBuffer[p3IDX];
//
// SAR ...
@@ -4471,6 +4685,26 @@ class XCX121XCatbHelper : public XCBaseHelper
bool isClosedUnderATRLower =
conditions.bars[cIDX].close < cATRLower;
//
// KI ...
//
bool isKIBullish = cKIState > 0;
bool isKIBearish = cKIState < 0;
//
bool isKISameAsLast = cKI == pKI;
//
bool isKISwitchedToBullish =
cKIState > 0 &&
pKIState <= 0;
//
bool isKISwitchedToBearish =
cKIState < 0 &&
pKIState >= 0;
//
// SAR ...
@@ -4747,6 +4981,8 @@ class XCX121XCatbHelper : public XCBaseHelper
conditions.rsiOSLevel = _rsiOSLevel;
conditions.isDeltaDown = isDeltaDown;
conditions.isTrendDown = isTrendDown;
conditions.isKIBullish = isKIBullish;
conditions.isKIBearish = isKIBearish;
conditions.adxThreshold = _adxThreshold;
conditions.isSarBullish = isSarBullish;
conditions.isSarBearish = isSarBearish;
@@ -4756,6 +4992,7 @@ class XCX121XCatbHelper : public XCBaseHelper
conditions.isRSIBearish = isRSIBearish;
conditions.isSBarBullish = isSBarBullish;
conditions.isSBarBearish = isSBarBearish;
conditions.isKISameAsLast = isKISameAsLast;
conditions.isDeltaBullish = isDeltaBullish;
conditions.isDeltaBearish = isDeltaBearish;
conditions.isTrendBullish = isTrendBullish;
@@ -4781,6 +5018,8 @@ class XCX121XCatbHelper : public XCBaseHelper
conditions.isRSICrossedUnderOS = isRSICrossedUnderOS;
conditions.isADXUnderThreshold = isADXUnderThreshold;
conditions.isClosedOverATRUpper = isClosedOverATRUpper;
conditions.isKISwitchedToBullish = isKISwitchedToBullish;
conditions.isKISwitchedToBearish = isKISwitchedToBearish;
conditions.isClosedUnderATRLower = isClosedUnderATRLower;
conditions.isSarSwitchedToBullish = isSarSwitchedToBullish;
conditions.isSarSwitchedToBearish = isSarSwitchedToBearish;
@@ -4836,6 +5075,24 @@ class XCX121XCatbHelper : public XCBaseHelper
barIndex = 0;
}
//
CopyBuffer(
mHandler,
X121_XCATB_KI_LINE,
barIndex,
maxRequiredBars,
kiBuffer //
);
//
CopyBuffer(
mHandler,
X121_XCATB_KI_STATE_LINE,
barIndex,
maxRequiredBars,
kiStateBuffer //
);
//
CopyBuffer(
mHandler,
@@ -5175,6 +5432,18 @@ class XCX121XCatbHelper : public XCBaseHelper
int maxAllowed = 100 //
)
{
//
CleanupArray(
kiBuffer,
maxAllowed //
);
//
CleanupArray(
kiStateBuffer,
maxAllowed //
);
//
CleanupArray(
sarBuffer,
Indicators/x-saherelm.x121.xcatb.mq5
+151 -3
View File
@@ -80,6 +80,7 @@ input ENUM_X_MARKET_CYCLES appliedCycle = X_MARKET_CYCLE_HIND; // Applied Cycle
// Presentation ...
input group "Presentation";
input bool showBars = true; // Show Bars
input bool showKI = false; // Show KI
input bool showPV = false; // Show PV
input bool showPVGolden = false; // Show PV Golden
input bool showSar = false; // Show Sar
@@ -98,6 +99,7 @@ double sarMax = 0.2; // Maximum
double rsiOBLevel = 70.0; // RSI OB Level
double rsiOSLevel = 30.0; // RSI OS Level
double adxThreshold = 25.0; // ADX Threshold
int kiLength = 144; // KI Length
int sarArrowCode = 159; // Parabolic Sar Arrow Code
int peakArrowCode = 159; // Peaks Arrow Code
int valeArrowCode = 159; // Vales Arrow Code
@@ -144,8 +146,8 @@ ENUM_X_MA_METHOD volumeSignalMethod = X_MA_MODE_EMA; // Volume Signalling Method
// Color: 4
// Bar: 8
// Data Buffer: 19
#property indicator_buffers 49
#property indicator_plots 18
#property indicator_buffers 52
#property indicator_plots 19
//
// Plot Buffers ...
@@ -447,11 +449,30 @@ double hLLBuffer[];
#property indicator_style18 STYLE_DOT
#property indicator_width18 1
//
// KI ...
//
#define kiBufferIndex 28
#define kiBufferPlotIndex 18
double kiBuffer[];
//
#define kiColorBufferIndex 29
double kiColorBuffer[];
//
#property indicator_label19 "KI"
#property indicator_type19 DRAW_COLOR_LINE
#property indicator_color19 CLR_NONE, clrGreen, clrRed, clrGray
#property indicator_style19 STYLE_DASHDOTDOT
#property indicator_width19 2
//
// Data Buffers ...
//
#define mLastBufferIndex 27
#define mLastBufferIndex 29
//
// SAR ...
@@ -553,6 +574,13 @@ double lowHKBuffer[];
#define closeHKBufferIndex mLastBufferIndex + 19
double closeHKBuffer[];
//
// KI ...
//
#define kiStateBufferIndex mLastBufferIndex + 20
double kiStateBuffer[];
//
// Variables, Properties and etc ...
@@ -1288,6 +1316,21 @@ void DefineBuffers()
PlotIndexSetInteger(hLLBufferPlotIndex, PLOT_DRAW_TYPE, hDrawType);
PlotIndexSetDouble(hLLBufferPlotIndex, PLOT_EMPTY_VALUE, emptyValue);
//
// KI ...
//
ArraySetAsSeries(kiBuffer, true);
SetIndexBuffer(kiBufferIndex, kiBuffer, INDICATOR_DATA);
//
PlotIndexSetInteger(kiBufferPlotIndex, PLOT_SHOW_DATA, showKI);
PlotIndexSetDouble(kiBufferPlotIndex, PLOT_EMPTY_VALUE, emptyValue);
//
ArraySetAsSeries(kiColorBuffer, true);
SetIndexBuffer(kiColorBufferIndex, kiColorBuffer, INDICATOR_COLOR_INDEX);
//
// Data Buffers ...
@@ -1374,6 +1417,13 @@ void DefineBuffers()
ArraySetAsSeries(closeHKBuffer, true);
SetIndexBuffer(closeHKBufferIndex, closeHKBuffer, INDICATOR_CALCULATIONS);
//
// KI ...
//
ArraySetAsSeries(kiStateBuffer, true);
SetIndexBuffer(kiStateBufferIndex, kiStateBuffer, INDICATOR_DATA);
//
}
@@ -1684,6 +1734,7 @@ void CalculateBuffers(
void FillBuffersZero(int barIndex)
{
//
kiColorBuffer[barIndex] = hideColorIDX;
sarColorBuffer[barIndex] = hideColorIDX;
trendColorBuffer[barIndex] = hideColorIDX;
@@ -1741,6 +1792,19 @@ void CalculateValues(
tickVolume //
);
//
// KI ...
CalculateKI(
barIndex,
prevCalculated,
ratesTotal,
open,
high,
close,
low,
tickVolume //
);
//
// PV ...
CalculatePV(
@@ -1895,6 +1959,90 @@ void CalculateCycleRanges(
);
}
//
void CalculateKI(
int barIndex,
const int prevCalculated,
const int ratesTotal,
const double &open[],
const double &high[],
const double &close[],
const double &low[],
const long &tickVolume[] //
)
{
//
int lastBarIndex = barIndex + 1;
bool isFirstBar =
startCalculationForLastBars > 0
? barIndex == startCalculationForLastBars
: barIndex == firstBarIndex;
//
XOHCL iBar;
bool isInited = iBar.Init(
_Symbol,
_Period,
barIndex //
);
//
double iClose = close[barIndex];
//
// Calculate KI / Color ...
double lastKI =
isFirstBar
? emptyValue
: kiBuffer[lastBarIndex];
double iKI = lastKI;
if (isInited)
{
//
double iLLKI = iBar.FindLowest(kiLength, MODE_LOW);
double iHHKI = iBar.FindHighest(kiLength, MODE_HIGH);
//
iKI = (iHHKI + iLLKI) / 2;
if (iLLKI == 0 || iHHKI == 0)
{
iKI = lastKI;
}
}
else
{
iKI = lastKI;
}
kiBuffer[barIndex] = iKI;
//
double iKIState = neuturalState;
double iKIColor = neuturalColorIDX;
if (iClose > iKI)
{
//
iKIState = bullishState;
iKIColor =
!showKI
? hideColorIDX
: bullishColorIDX;
}
else if (iClose < iKI)
{
//
iKIState = bearishState;
iKIColor =
!showKI
? hideColorIDX
: bearishColorIDX;
}
kiStateBuffer[barIndex] = iKIState;
kiColorBuffer[barIndex] = iKIColor;
//
iBar.Clean();
}
//
void CalculatePV(
int barIndex,
XCATBEA/Classes/xcatbea.signaller.class.mq5
+9 -3
View File
@@ -1,6 +1,6 @@
///////////////////////////////////////////////////////
//
// SaherElm IT Center MQL5 Indicator
// SaherElm IT Center MQL5 Class
// -------------------------------------------------
// Name: XCXCATBEASignaller ...
// Description: Class for XCATBEA Signaller ...
@@ -17,16 +17,22 @@
#property copyright "Copyright 2023, SaherElm IT Center"
#property link "https://saherelm.ir"
#property version "1.00"
#property description "SaherElm Class for XCATBEA Signaller"
#property description "SaherElm XCXCATBEASignaller Class"
#property strict
//
// Imports ...
#include "../../Classes/x-saherelm.x-alert.class.mq5"
#include "../../Classes/x-saherelm.x-bar.analyser.class.mq5"
#include "../../Helpers/x-saherelm.x121.xcatb.helper.mq5";
#include "../Classes/xcatbea.x-poi.detector.class.mq5";
#include "../Classes/xcatbea.x-poi.drawer.class.mq5";
#include "../Libraries/xcatbea.lib.mq5";
#include "../Libraries/xcatbea.signaller.lib.mq5";
#include "../Libraries/xcatbea.x-poi.extensions.lib.mq5";
//
// Definitions ...
class XCXCATBEASignaller : XCBase
class XCXCATBEASignaller : XCBaseAlert
{
};
XCATBEA/Classes/xcatbea.x-poi.detector.class.mq5
+1646
View File
File diff suppressed because it is too large Load Diff
XCATBEA/Classes/xcatbea.x-poi.drawer.class.mq5
+604
View File
@@ -0,0 +1,604 @@
///////////////////////////////////////////////////////
//
// SaherElm IT Center MQL5 Class
// -------------------------------------------------
// Name: XCXCATBEAPOIDrawer ...
// Description: XCATBEA POI Drawer Class
//
//
// Maintainer:
// ------------
// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
//
//////////////////////////////////////////////////////
//
// Global Properties ...
#property library
#property copyright "Copyright 2023, SaherElm IT Center"
#property link "https://saherelm.ir"
#property version "1.00"
#property description "SaherElm XCATBEA POI Drawer Class"
#property strict
//
// Imports ...
#include "../../Classes/x-saherelm.x-poi.drawer.class.mq5"
#include "../Classes/xcatbea.x-poi.detector.class.mq5"
//
// Definitions ...
struct XCAPivotStyle
{
//
// Properties ...
int width;
color clr;
ENUM_LINE_STYLE style;
//
// Constructor ...
XCAPivotStyle()
{
Default();
}
//
// Tools ...
//
// Cleanup Model ...
void Clean()
{
//
width = 1;
clr = CLR_NONE;
style = STYLE_SOLID;
//
ZeroMemory(this);
}
//
// Default Props ...
void Default()
{
//
width = 1;
clr = CLR_NONE;
style = STYLE_SOLID;
}
};
//
// Implementations ...
class XCXCATBEAPOIDrawer : public XCBase
{
//
// Public ...
public:
//
// Props ...
XCPOIDrawer *drawer;
//
// Drawers ...
bool drawPeakPivots;
bool drawValePivots;
//
// Styling ...
//
XCAPivotStyle defaultBullishStyle;
XCAPivotStyle defaultBearishStyle;
//
XCAPivotStyle peakPivotStyle;
XCAPivotStyle valePivotStyle;
//
// Constructors ...
XCXCATBEAPOIDrawer(
XCXCATBEAPOIDetector *_detector //
)
{
//
detector = _detector;
drawer = new XCPOIDrawer();
//
Default();
}
//
// De Constructors ...
~XCXCATBEAPOIDrawer()
{
//
Clear();
//
delete drawer;
ZeroMemory(drawer);
//
ZeroMemory(detector);
}
//
// Properties ...
//
// Tools ...
//
virtual void Default()
{
//
// Drawing ...
drawPeakPivots = false;
drawValePivots = false;
//
// Styling ...
//
// Bullish ...
defaultBullishStyle.width = 1;
defaultBullishStyle.clr = clrLime;
defaultBullishStyle.style = STYLE_SOLID;
//
// Bearish ...
defaultBearishStyle.width = 1;
defaultBearishStyle.clr = clrRed;
defaultBearishStyle.style = STYLE_SOLID;
//
// Pivots ...
//
// PV ...
peakPivotStyle = defaultBearishStyle;
valePivotStyle = defaultBullishStyle;
}
//
void Draw(datetime to = NULL)
{
//
// PV ...
DrawPeakPivots(to);
DrawValePivots(to);
}
//
void DrawPivot(
XBoxZone &pivot,
datetime to = NULL //
)
{
//
DrawBox(
pivot,
to,
false,
false //
);
}
//
void DrawBox(
XBoxZone &box,
datetime to = NULL,
bool drawMiddle = false,
bool ignoreType = false //
)
{
//
bool has = box.IsValid();
if (!has)
{
return;
}
//
bool canUpdateTo = IsValid(to);
if (canUpdateTo)
{
box.to = to;
}
//
// Draw Box as POI ...
if (!ignoreType)
{
//
// Detect Pivot Type ...
ENUM_XCATB_PIVOTS iType = GetPivotType(box);
has = IsValid(iType);
if (!has)
{
return;
}
//
switch (iType)
{
//
case XCA_PEAK:
//
DrawPeakPivot(
box,
to //
);
break;
//
case XCA_VALE:
//
DrawValePivot(
box,
to //
);
break;
}
}
//
// Draw Regular Box ...
else
{
//
// Select Styling Config ...
XCAPivotStyle style;
//
if (box.IsBullish())
{
style = defaultBullishStyle;
}
else
{
style = defaultBearishStyle;
}
//
// Draw Box itself ...
XCBoxObject *iBoxObj;
has = drawer.DrawBox(
box,
iBoxObj //
);
if (has)
{
//
// Style Object ...
ApplyPivotStyle(
iBoxObj,
style //
);
//
// Store Object ...
mObjects.Add(iBoxObj);
}
//
// Draw Box Middle Range ...
if (drawMiddle)
{
//
double middle = box.GetMid();
string middleName = box.GetMiddleTag();
//
CChartObjectTrend *iMidObj;
iMidObj = new CChartObjectTrend();
has = iMidObj.Create(
drawer.ChartIdentification(),
middleName,
drawer.SubWindowIdentification(),
box.from,
middle,
box.to,
middle //
);
if (has)
{
//
// Styling Object ...
iMidObj.Color(style.clr);
iMidObj.Width(style.width);
iMidObj.Style(style.style);
//
// Store Object ...
mObjects.Add(iMidObj);
}
}
//
style.Clean();
}
}
//
void DrawBoxes(
XBoxZone &boxes[],
datetime to = NULL,
bool drawMiddle = false,
bool ignoreType = false //
)
{
//
bool has = HasChild(boxes);
if (!has)
{
return;
}
//
int count = ArraySize(boxes);
for (int i = 0; i < count; i++)
{
//
XBoxZone iBox = boxes[i];
//
// Detect Pivot Type ...
DrawBox(
iBox,
to,
drawMiddle,
ignoreType //
);
//
iBox.Clean();
}
}
//
void Clear()
{
//
// Cleanup Models ...
defaultBullishStyle.Clean();
defaultBearishStyle.Clean();
//
// Cleanup Styles ...
peakPivotStyle.Clean();
valePivotStyle.Clean();
//
// Cleanup Pivot Objects Holder ...
mObjects.Clear();
mPeakPivotObjects.Clear();
mValePivotObjects.Clear();
}
//
// Collection Drawers ...
//
void DrawPeakPivots(datetime to = NULL)
{
//
bool has = drawPeakPivots;
if (!has)
{
return;
}
//
has = detector.HasPeakPivots();
if (!has)
{
return;
}
//
int count = detector.CountPeakPivots();
for (int i = 0; i < count; i++)
{
//
XBoxZone iBox = detector.peakPivots[i];
//
DrawPeakPivot(
iBox,
to //
);
//
iBox.Clean();
}
}
//
void DrawValePivots(datetime to = NULL)
{
//
bool has = drawValePivots;
if (!has)
{
return;
}
//
has = detector.HasValePivots();
if (!has)
{
return;
}
//
int count = detector.CountValePivots();
for (int i = 0; i < count; i++)
{
//
XBoxZone iBox = detector.valePivots[i];
//
DrawValePivot(
iBox,
to //
);
//
iBox.Clean();
}
}
//
// One Item Drawers ...
//
void DrawPeakPivot(
XBoxZone &item,
datetime to = NULL //
)
{
//
bool has = drawPeakPivots;
if (!has)
{
return;
}
//
has = item.IsValid() &&
item.type == GetBoxType(XCA_PEAK) &&
item.dir == GetDirection(XCA_PEAK);
if (!has)
{
return;
}
//
bool canUpdateTo = IsValid(to);
if (canUpdateTo)
{
item.to = to;
}
//
XCBoxObject *iObj;
has = drawer.DrawBox(
item,
iObj //
);
if (has)
{
//
// Style Object ...
ApplyPivotStyle(
iObj,
peakPivotStyle //
);
//
// Store Object ...
mPeakPivotObjects.Add(iObj);
}
//
ZeroMemory(iObj);
}
//
void DrawValePivot(
XBoxZone &item,
datetime to = NULL //
)
{
//
bool has = drawValePivots;
if (!has)
{
return;
}
//
has = item.IsValid() &&
item.type == GetBoxType(XCA_VALE) &&
item.dir == GetDirection(XCA_VALE);
if (!has)
{
return;
}
//
bool canUpdateTo = IsValid(to);
if (canUpdateTo)
{
item.to = to;
}
//
XCBoxObject *iObj;
has = drawer.DrawBox(
item,
iObj //
);
if (has)
{
//
// Style Object ...
ApplyPivotStyle(
iObj,
valePivotStyle //
);
//
// Store Object ...
mValePivotObjects.Add(iObj);
}
//
ZeroMemory(iObj);
}
//
// Protected ...
protected:
//
// Props ...
//
void ApplyPivotStyle(
XCBoxObject *&object,
XCAPivotStyle &style //
)
{
//
if (object == NULL)
{
return;
}
//
object.BoxColor(style.clr);
object.BoxWidth(style.width);
object.BoxStyle(style.style);
}
//
// Prrivate ...
private:
//
// Props ...
XCXCATBEAPOIDetector *detector;
//
CArrayObj mObjects;
//
CArrayObj mPeakPivotObjects;
CArrayObj mValePivotObjects;
//
};
//
XCATBEA/Libraries/xcatbea.x-poi.extensions.lib.mq5
+83
View File
@@ -0,0 +1,83 @@
///////////////////////////////////////////////////////
//
// SaherElm IT Center MQL5 Library
// -------------------------------------------------
// Name: XCATBEAPOIExtension Lib
// Description: Library for Adding Extensions on
// XCATBEA POI(s) ...
//
//
// Maintainer:
// ------------
// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
//
//////////////////////////////////////////////////////
//
// Global Properties ...
#property library
#property copyright "Copyright 2023, SaherElm IT Center"
#property link "https://saherelm.ir"
#property version "1.00"
#property description "SaherElm Extensions Library for XCATBEA POI(s)"
#property strict
//
// Imports ...
#include "../Classes/xcatbea.x-poi.detector.class.mq5";
//
// Extensions ...
//
int ExtractPivots(
XBoxZone &extracted[],
ENUM_XCATB_PIVOTS type,
XBoxZone &source[] //
)
{
//
int result = 0;
//
Clean(extracted);
//
bool has =
IsValid(type) &&
HasChild(source);
if (!has)
{
return result;
}
//
int count = ArraySize(source);
for (int i = 0; i < count; i++)
{
//
XBoxZone iBox = source[i];
//
ENUM_XCATB_PIVOTS iType = GetPivotType(iBox);
//
has = iType == type;
if (has)
{
//
AddRef(
iBox,
extracted //
);
}
//
iBox.Clean();
}
//
result = ArraySize(extracted);
//
return result;
}