add contents from MQL5 ...

BKPS/XAU5-0.43/Classes/x-saherelm.nn.lib.mq5

@@ -0,0 +1,258 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 NN Class Library
+// ----------------------------------------
+// Name: XNNClass
+// Description: provides all classes for implementing
+// Neural Network ...
+//
+//
+// 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
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+class XCNNBase
+{
+    //
+    // Public Definitions ...
+public:
+    //
+    // Constructor ...
+    void XCNNBase(
+        int nodes = 10, // Number of Input Nodes 
+        double starterWeight = 0.5, // start weight for each input 
+        double coEfficient = 0.1, // COEfficient Multiplier 
+        double upperRange = 1, // Upper Normal Range Value 
+        double lowerRange = -1, // Lower Normal Range Value 
+        double learningRates = 0.1 // Back Propagation Learning Rate
+    ) {
+        //
+        mNodes = nodes;
+        mUpperRange = upperRange;
+        mLowerRange = lowerRange;
+        mCoEfficient = coEfficient;
+        mLearningRates = learningRates;
+        mStarterWeight = starterWeight;
+
+        //
+        ReConstructWeights();
+    }
+
+    //
+    // Deconstructor ...
+    void ~XCNNBase() {}
+
+    //
+    // Protected Definitions ...
+    void NormalizeInputs(double &inputs[], double &result[])
+    {
+        //
+        ArrayFree(result);
+        ArrayResize(result, 1);
+
+        //
+        // Validate inputs ...
+        if (ArraySize(inputs) != mNodes)
+        {
+            return;
+        }
+
+        //
+        // Prepare Result ...
+        ArrayResize(result, mNodes);
+
+        //
+        // Calculating min and max range value ...
+        double minRangeValue = inputs[ArrayMinimum(inputs)];
+        double maxRangeValue = inputs[ArrayMaximum(inputs)];
+
+        //
+        // Loop through Inputs nd Normalize them ...
+        for (int i = 0; i < mNodes; i++)
+        {
+            //
+            double normalValue = (((inputs[i] - minRangeValue) * (mUpperRange - mLowerRange)) / (maxRangeValue - minRangeValue)) + mLowerRange;
+            result[i] = normalValue;
+        }
+    }
+
+    //
+    // Hyperbolic Tangent Activation Function ...
+    double TanHActivationFunction(double weightedInputs)
+    {
+        //
+        double result = (exp(weightedInputs) - exp(-weightedInputs)) / (exp(weightedInputs) + exp(-weightedInputs));
+        return result;
+    }
+
+    //
+    // Calculate Weighted Inputs ...
+    double CalculateWeightedInputs(
+        double &inputs[],
+        bool applyCOEfficient = true)
+    {
+        //
+        double result = 0;
+
+        //
+        // Validate Inputs ...
+        if (ArraySize(inputs) != mNodes)
+        {
+            //
+            result = -1;
+            return result;
+        }
+
+        //
+        for (int i = 0; i < mNodes; i++)
+        {
+            result += inputs[i] * mWeights[i];
+        }
+
+        //
+        // Multiply if required ...
+        if (applyCOEfficient)
+        {
+            result *= mCoEfficient;
+        }
+
+        //
+        return result;
+    }
+
+    //
+    // Calculate Hidden Layers ...
+    virtual double CalculateHiddenLayer(double &inputs[])
+    {
+        //
+        // this is Default Activation Function which used ...
+        // you can override this by writing your own ...
+        double totalWeightedInputs = CalculateWeightedInputs(inputs);
+        double result = TanHActivationFunction(totalWeightedInputs);
+
+        //
+        return result;
+    }
+
+    //
+    // Calculate Output Layers ...
+    double CalculateOutputLayer(double &inputs[])
+    {
+        //
+        double result = -1;
+
+        //
+        // Validate Inputs ...
+        if (ArraySize(inputs) != mNodes) {
+            return result;
+        }
+
+        //
+        double normalizedInputs[];
+        NormalizeInputs(inputs, normalizedInputs);
+        if (ArraySize(normalizedInputs) != mNodes) {
+            return result;
+        }
+
+        //
+        double hiddenLayerResult = CalculateHiddenLayer(normalizedInputs);
+
+        //
+        result = 1 * hiddenLayerResult;
+
+        //
+        return result;
+    }
+
+    //
+    // Basck Propaggation Learning ...
+    void BackPropagation(
+        double &inputs[],
+        double &outputs,
+        double targetOutput
+    ) {
+        //
+        // Validate Inputs ...
+        if (ArraySize(inputs) != mNodes) {
+            return;
+        }
+
+        //
+        double normalizedInputs[];
+        NormalizeInputs(inputs, normalizedInputs);
+        if (ArraySize(normalizedInputs) != mNodes) {
+            return;
+        }
+
+        //
+        double error = targetOutput - outputs;
+        double derivative = 1 - MathPow(outputs, 2);
+
+        //
+        for (int i = 0; i < mNodes; i++) {
+            //
+            double gradient = error * derivative * inputs[i];
+            mWeights[i] = mLearningRates * gradient;
+        }
+    }
+
+protected:
+    //
+    // Private Definitions ...
+private:
+    //
+    // Number of Input Nodes ...
+    int mNodes;
+
+    //
+    // Specify Upper range of Normal Values ...
+    double mUpperRange;
+
+    //
+    // Specify Lower range of Normal Values ...
+    double mLowerRange;
+
+    //
+    // Starter Weight for each input node ...
+    double mStarterWeight;
+
+    //
+    // double Input Node Weights ...
+    double mWeights[];
+
+    //
+    // CoEfficient is a multiplyer for weighted inputs ...
+    double mCoEfficient;
+
+    //
+    // Back Propagation Learning Rates ...
+    double mLearningRates;
+
+    //
+    // ReConstruct Weights ...
+    void ReConstructWeights() {
+        //
+        ArrayFree(mWeights);
+        ArrayResize(mWeights, mNodes);
+
+        //
+        for (int i = 0; i< mNodes; i++) {
+            mWeights[i] = mStarterWeight;
+        }
+    }
+}
+//
+// END Global Definitions: Variables, Properties and etc ...
+//

BKPS/XAU5-0.43/Experts/x-saherelm.xeu5.ea.mq5

@@ -0,0 +1,347 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Expert Advisor
+// ----------------------------------------
+// Name: XAUUSD
+// Description: this is an expert controller
+// advisors which provides a mechanism for use them ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XEU5 EA"
+#property strict
+
+//
+// START Inputs ...
+//
+
+input group "Commons";
+
+//
+// END Inputs ... 
+//
+
+// 
+// START Including Providers ...
+//
+
+//
+// Logger Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// Alert Library ...
+#include "../Libraries/x-saherelm.alert.lib.mq5"
+
+//
+// Draw Library ...
+#include "../Libraries/x-saherelm.draw.lib.mq5"
+
+//
+// XEU5 Signal Provider ...
+#include "../Providers/x-saherelm.xeu5.provider.lib.mq5"
+
+//
+// END Including Providers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+bool isXEU5NewHour;
+bool isXEU5NewDay;
+bool isXEU5NewWeek;
+bool isXEU5NewMonth;
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    logTag = "XEU5EA";
+    drawPrefix = logTag;
+    alertPrefix = logTag;
+
+    //
+    // Apply default Chart Style for EA ...
+    ApplyChartStyle();
+
+    //
+    // Reset Timings ...
+    ResetTiming();
+
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    // Initialize XEU5 Provider ...
+    if (!XEU5InitSignalProviderLibrary())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+
+    //
+    // De Initialize XEU5 Provider ...
+    XEU5DeinitSignalProviderLibrary(reason);
+
+    //
+    // De Init XDraw Library ...
+    // OnDeinitDrawLibrary();
+}
+
+//
+// On Tick Handler ...
+void OnTick()
+{
+    //
+    // Handle Monthly Alert ...
+    bool isFirstMonth = xMonth == -1;
+    isXEU5NewMonth = IsNewMonth();
+    bool canMonthlyAlert =
+        isXEU5NewMonth &&
+        xEU5EnableAlerts &&
+        xEU5EnableMonthlyAlerts;
+    bool canMonthlyReport =
+        !isFirstMonth &&
+        canMonthlyAlert &&
+        xEU5EnableMonthlyReports;
+    if (canMonthlyAlert)
+    {
+        //
+        string message = "New Month ...";
+
+        //
+        // Prepare Monthly Report ...
+        if (canMonthlyReport)
+        {
+            //
+            string report = xEU5Reporter.GenerateReportString(XREPORT_MONTHLY);
+
+            //
+            message = "Last Month Report:\n" + report;
+        }
+
+        //
+        // Reset Report ...
+        xEU5Reporter.Reset(XREPORT_MONTHLY);
+
+        //
+        SendAlert(message);
+    }
+
+    //
+    // Handle Weekly Alert ...
+    bool isFirstWeek = xDayOfWeek == -1;
+    isXEU5NewWeek = IsNewWeek();
+    bool canWeeklyAlert =
+        isXEU5NewWeek &&
+        xEU5EnableAlerts &&
+        xEU5EnableWeeklyAlerts;
+    bool canWeeklyReport =
+        !isFirstWeek &&
+        canWeeklyAlert &&
+        xEU5EnableWeeklyReports;
+    if (canWeeklyAlert)
+    {
+        //
+        string message = "New Week ...";
+
+        //
+        // Prepare Weekly Report ...
+        if (canWeeklyReport)
+        {
+            //
+            string report = xEU5Reporter.GenerateReportString(XREPORT_WEEKLY);
+
+            //
+            message = "Last Week Report:\n" + report;
+        }
+
+        //
+        // Reset Report ...
+        xEU5Reporter.Reset(XREPORT_WEEKLY);
+
+        //
+        SendAlert(message);
+    }
+
+    //
+    // Handle Daily Alert ...
+    bool isFirstDay = xDay == -1;
+    isXEU5NewDay = IsNewDay();
+    bool canDailyAlert =
+        isXEU5NewDay &&
+        xEU5EnableAlerts &&
+        xEU5EnableDailyAlerts;
+    bool canDailyReport =
+        !isFirstDay &&
+        canDailyAlert &&
+        xEU5EnableDailyReports;
+    if (canDailyAlert)
+    {
+        //
+        string message = "New Day ...";
+
+        //
+        // Prepare Daily Report ...
+        if (canDailyReport)
+        {
+            //
+            string report = xEU5Reporter.GenerateReportString(XREPORT_DAILY);
+
+            //
+            message = "Last Week Report:\n" + report;
+        }
+
+        //
+        // Reset Report ...
+        xEU5Reporter.Reset(XREPORT_DAILY);
+
+        //
+        SendAlert(message);
+    }
+
+    //
+    // Handle Hourly Alert ...
+    bool isFirstHour = xHour == -1;
+    isXEU5NewHour = IsNewHour();
+    bool canHourlyAlert =
+        isXEU5NewHour &&
+        xEU5EnableAlerts &&
+        xEU5EnableHourlyAlerts;
+    if (canHourlyAlert)
+    {
+        //
+        string message = "New Hour ...";
+
+        //
+        SendAlert(message);
+    }
+
+
+    //
+    // Prevent Going Forward if user Disable it ...
+    if (xEU5EnableProvider)
+    {
+        //
+        // Handle Processing on XEU5 Signal Provider ...
+        XEU5SignalProviderDoControlState();
+    }
+
+    //
+    if (!IsNewCandle())
+    {
+        return;
+    }
+
+    //
+    // Prevent Going Forward if user Disable it ...
+    if (xEU5EnableProvider)
+    {
+        //
+        // Handle Processing on XEU5 Signal Provider ...
+        XEU5SignalProviderHandleTick();
+    }
+}
+
+//
+// Handle Trade Events ...
+void OnTrade()
+{
+
+    //
+    // Prevent Going Forward if user Disable it ...
+    if (xEU5EnableProvider)
+    {
+        //
+        // Handle Processing Trades on XEU5 Signal Provider ...
+        XEU5SignalProviderHandleTrade();
+    }
+}
+
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+
+    //
+    // Validate XEU5 Provider Inputs ...
+    result = XEU5ValidateInputs();
+    if (!result)
+    {
+        return false;
+    }
+
+    //
+    // Logging State ...
+    string message = "Validation of (" + logTag + ") Inputs " + (result ? "Succeeded" : "Failed") + " ...";
+    LogMessage(message);
+
+    //
+    return result;
+}
+
+//
+// END Functions ...
+//

BKPS/XAU5-0.43/Helpers/x-saherelm.xama.indicator.helper.lib.mq5

@@ -0,0 +1,607 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XAMA Indicator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// XAMA Indicator States ...
+enum ENUM_X_XAMA_STATES
+{
+    X_XAMA_BULLISH = 1,
+    X_XAMA_BEARISH = -1,
+    X_XAMA_NEUTURAL = 0,
+};
+
+//
+// XAMA Indicator Buffer Lines ...
+enum ENUM_X_XAMA_BUFFER_LINES
+{
+    X_XAMA_MA_LINE = 0,
+    X_XAMA_MC_COLOR_LINE = 1,
+    X_XAMA_STATE_LINE = 2,
+};
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XAMA Indicator";
+
+//
+// input int xAMALength = 18;                            // Market Length
+// input int xAMAFastEMA = 2;                            // Fast EMA Period
+// input int xAMASlowEMA = 30;                           // Slow EMA Period
+// input int xAMAShift = 0;                              // Shift
+// input ENUM_APPLIED_PRICE xAMAAppliedTo = PRICE_CLOSE; // Applied To
+
+//
+// Configurations ...
+int xAMALength = 18;                            // Market Length
+int xAMAFastEMA = 2;                            // Fast EMA Period
+int xAMASlowEMA = 30;                           // Slow EMA Period
+int xAMAShift = 0;                              // Shift
+ENUM_APPLIED_PRICE xAMAAppliedTo = PRICE_CLOSE; // Applied To
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+int xAMAHandler = INVALID_HANDLE;
+double xAMAMaBuffer[];
+double xAMAStateBuffer[];
+
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XAMAValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result =
+        xAMALength > 2 &&
+        xAMAFastEMA < xAMALength &&
+        xAMAFastEMA < xAMASlowEMA &&
+        xAMAShift >= 0;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XAMA Indicator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Indicators ...
+bool XAMAInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Indicator Handlers ...
+    ResetLastError();
+
+    //
+    // XAMA Handler ...
+    ArraySetAsSeries(xAMAMaBuffer, true);
+    ArraySetAsSeries(xAMAStateBuffer, true);
+    xAMAHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xama.indicator",
+        //
+        // Inputs ...
+        xAMALength,
+        xAMAFastEMA,
+        xAMASlowEMA,
+        xAMAShift,
+        xAMAAppliedTo
+        //
+    );
+    if (xAMAHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XAMA Indicator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Indicators ...
+void XAMAReleaseHandlers()
+{
+    IndicatorRelease(xAMAHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XAMAReadBuffers(
+    int xAMAItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // XAMA Ma Buffer ...
+    CopyBuffer(
+        xAMAHandler,
+        X_XAMA_MA_LINE,
+        0,
+        xAMAItemsPerTick,
+        xAMAMaBuffer);
+
+    //
+    // XAMA State Buffer ...
+    CopyBuffer(
+        xAMAHandler,
+        X_XAMA_STATE_LINE,
+        0,
+        xAMAItemsPerTick,
+        xAMAStateBuffer);
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XAMA Custom Functions ...
+//
+
+//
+// Check SC is Peak ...
+bool XAMAIsPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xAMAMaBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check SC is Vale ...
+bool XAMAIsVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xAMAMaBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Up ...
+bool XAMAIsStartBullish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_BULLISH &&
+        xAMAStateBuffer[bar_index + 1] != X_XAMA_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Up After Neutural State ...
+bool XAMAIsStartBullishAfterNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_BULLISH &&
+        xAMAStateBuffer[bar_index + 1] == X_XAMA_NEUTURAL
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM In Up State ...
+bool XAMAIsBullish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Up State ...
+bool XAMAIsEndBullish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] != X_XAMA_BULLISH &&
+        xAMAStateBuffer[bar_index + 1] == X_XAMA_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Up State By Neutural ...
+bool XAMAIsEndBullishByNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_NEUTURAL &&
+        xAMAStateBuffer[bar_index + 1] == X_XAMA_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Down ...
+bool XAMAIsStartBearish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_BEARISH &&
+        xAMAStateBuffer[bar_index + 1] != X_XAMA_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Down After Neutural State ...
+bool XAMAIsStartBearishAfterNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_BEARISH &&
+        xAMAStateBuffer[bar_index + 1] == X_XAMA_NEUTURAL
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM In Down State ...
+bool XAMAIsBearish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Down State ...
+bool XAMAIsEndBearish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] != X_XAMA_BEARISH &&
+        xAMAStateBuffer[bar_index + 1] == X_XAMA_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Down State By Neutural ...
+bool XAMAIsEndBearishByNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_NEUTURAL &&
+        xAMAStateBuffer[bar_index + 1] == X_XAMA_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM In Neutural State ...
+bool XAMAIsNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_NEUTURAL
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XAMAIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        //
+        ArraySize(xAMAMaBuffer) < size
+        //
+    )
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// END XAMA Custom Functions ...
+//

BKPS/XAU5-0.43/Helpers/x-saherelm.xfi.oscillator.helper.lib.mq5

@@ -0,0 +1,358 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XFI Oscillator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XFI Oscillator";
+
+// //
+// input int xFILength = 18;                             // Market Length
+// input ENUM_MA_METHOD xFIMethod = MODE_SMA;            // MA Method
+// input ENUM_APPLIED_VOLUME xFIAppliedTo = VOLUME_TICK; // Applied To
+
+//
+// Configurations ...
+int xFILength = 18;                             // Market Length
+ENUM_MA_METHOD xFIMethod = MODE_SMA;            // MA Method
+ENUM_APPLIED_VOLUME xFIAppliedTo = VOLUME_TICK; // Applied To
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+int xFIHandler = INVALID_HANDLE;
+double xFIBuffer[];
+
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XFIValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result = xFILength > 2;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XFI Oscillator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Oscillators ...
+bool XFIInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XFI Handler ...
+    ArraySetAsSeries(xFIBuffer, true);
+    xFIHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xfi.oscillator",
+        //
+        // Inputs ...
+        xFILength,
+        xFIMethod,
+        xFIAppliedTo
+        //
+    );
+    if (xFIHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XFI Oscillator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Oscillators ...
+void XFIReleaseHandlers()
+{
+    IndicatorRelease(xFIHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XFIReadBuffers(
+    int xFIItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // XFI Signal ...
+    CopyBuffer(
+        xFIHandler,
+        0,
+        0,
+        xFIItemsPerTick,
+        xFIBuffer);
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XFI Custom Functions ...
+//
+
+//
+// Check SC is Peak ...
+bool XFIIsPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XFIIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xFIBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check SC is Vale ...
+bool XFIIsVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XFIIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xFIBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Detect XFI Crossed Over Zero ...
+bool XFIIsCrossedOverZero(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (
+        bar_index < 0 ||
+        !XFIIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xFIBuffer[bar_index] > 0 &&
+        xFIBuffer[bar_index + 1] <= 0;
+
+    //
+    return result;
+}
+
+//
+// Detect XFI Over Zero ...
+bool XFIIsOverZero(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (
+        bar_index < 0 ||
+        !XFIIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xFIBuffer[bar_index] > 0;
+
+    //
+    return result;
+}
+
+//
+// Detect XFI Crossed Under Zero ...
+bool XFIIsCrossedUnderZero(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (
+        bar_index < 0 ||
+        !XFIIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xFIBuffer[bar_index] < 0 &&
+        xFIBuffer[bar_index + 1] >= 0;
+
+    //
+    return result;
+}
+
+//
+// Detect XFI Under Zero ...
+bool XFIIsUnderZero(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (
+        bar_index < 0 ||
+        !XFIIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xFIBuffer[bar_index] < 0;
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XFIIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        //
+        ArraySize(xFIBuffer) < size
+        //
+    )
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// END XFI Custom Functions ...
+//

BKPS/XAU5-0.43/Helpers/x-saherelm.xlh.indicator.helper.lib.mq5

@@ -0,0 +1,668 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XLH Indicator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// XLH Indicator Buffer Lines ...
+enum ENUM_X_XLH_BUFFER_LINES
+{
+    X_XLH_HH_LINE = 0,
+    X_XLH_LL_LINE = 1,
+    X_XLH_SIGNAL_LINE = 2,
+};
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XLH Indicator";
+
+// input int xLHLength = 72;                    // Length
+// input ENUM_SERIESMODE xLHHHMode = MODE_HIGH; // Highest High Calculation Method
+// input ENUM_SERIESMODE xLHLLMode = MODE_LOW;  // Lowest Low Calculation Method
+
+//
+// Configurations ...
+int xLHLength = 72;                    // Length
+ENUM_SERIESMODE xLHHHMode = MODE_HIGH; // Highest High Calculation Method
+ENUM_SERIESMODE xLHLLMode = MODE_LOW;  // Lowest Low Calculation Method
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+//
+int xLHHandler = INVALID_HANDLE;
+
+//
+double xLHHHBuffer[];
+double xLHLLBuffer[];
+double xLHSignalBuffer[];
+
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XLHValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result = xLHLength >= 2;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XLH Indicator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Indicators ...
+bool XLHInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XLH Handler ...
+    ArraySetAsSeries(xLHHHBuffer, true);
+    ArraySetAsSeries(xLHLLBuffer, true);
+    ArraySetAsSeries(xLHSignalBuffer, true);
+
+    //
+    xLHHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xlh.indicator",
+        //
+        // Inputs ...
+        xLHLength,
+        xLHHHMode,
+        xLHLLMode
+        //
+    );
+    if (xLHHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XLH Indicator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Indicators ...
+void XLHReleaseHandlers()
+{
+    IndicatorRelease(xLHHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XLHReadBuffers(
+    int xLHItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // HH Buffer ...
+    CopyBuffer(
+        xLHHandler,
+        X_XLH_HH_LINE,
+        0,
+        xLHItemsPerTick,
+        xLHHHBuffer
+        //
+    );
+
+    //
+    // LL Buffer ...
+    CopyBuffer(
+        xLHHandler,
+        X_XLH_LL_LINE,
+        0,
+        xLHItemsPerTick,
+        xLHLLBuffer
+        //
+    );
+
+    //
+    // Signal Buffer ...
+    CopyBuffer(
+        xLHHandler,
+        X_XLH_SIGNAL_LINE,
+        0,
+        xLHItemsPerTick,
+        xLHSignalBuffer
+        //
+    );
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XLH Custom Functions ...
+//
+
+//
+// TODO: What we have to Implement ...
+// - []
+
+//
+// Check Candle High is HH ...
+bool XLHIsHighAttachedHH(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle = GetCandle(bar_index);
+
+    //
+    result =
+        //
+        candle.high == xLHHHBuffer[bar_index]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check Candle Low is LL ...
+bool XLHIsLowAttachedLL(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle = GetCandle(bar_index);
+
+    //
+    result =
+        //
+        candle.low == xLHLLBuffer[bar_index]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check Price Jumping Up Signal ...
+bool XLHIsPriceCrossedOverSignal(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle1 = GetCandle(bar_index);
+    XOHCL candle2 = GetCandle(bar_index + 1);
+
+    //
+    result =
+        //
+        candle1.low > xLHSignalBuffer[bar_index] &&
+        candle2.low < xLHSignalBuffer[bar_index + 1]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check Price Over Signal ...
+bool XLHIsPriceOverSignal(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle1 = GetCandle(bar_index);
+
+    //
+    result =
+        //
+        candle1.low > xLHSignalBuffer[bar_index]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check Price Jumping Down Signal ...
+bool XLHIsPriceCrossedUnderSignal(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle1 = GetCandle(bar_index);
+    XOHCL candle2 = GetCandle(bar_index + 1);
+
+    //
+    result =
+        //
+        candle1.high < xLHSignalBuffer[bar_index] &&
+        candle2.high > xLHSignalBuffer[bar_index + 1]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check Price Down Signal ...
+bool XLHIsPriceUnderSignal(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle1 = GetCandle(bar_index);
+
+    //
+    result =
+        //
+        candle1.high < xLHSignalBuffer[bar_index]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check Price Ranging Signal ...
+bool XLHIsPriceInSignalRange(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle1 = GetCandle(bar_index);
+
+    //
+    result =
+        //
+        candle1.high > xLHSignalBuffer[bar_index] &&
+        candle1.low < xLHSignalBuffer[bar_index]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check HH Increased ...
+bool XLHIsHHIncreased(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xLHHHBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check HH Decreased ...
+bool XLHIsHHDecreased(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xLHHHBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check LL Increased ...
+bool XLHIsLLIncreased(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xLHLLBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check LL Decreased ...
+bool XLHIsLLDecreased(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xLHLLBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check HH Same in Length ...
+bool XLHIsHHSameInLength(
+    int bar_index, // Specified Index ...
+    int length = 5 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    double value1 = xLHHHBuffer[bar_index];
+
+    //
+    // Loop ...
+    result = true;
+    for (int i = bar_index + 1; i < bar_index + length + 1; i++)
+    {
+        //
+        double iValue = xLHHHBuffer[i];
+        if (iValue != value1)
+        {
+            //
+            result = false;
+
+            //
+            break;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Check LL Same in Length ...
+bool XLHIsLLSameInLength(
+    int bar_index, // Specified Index ...
+    int length = 5 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    double value1 = xLHLLBuffer[bar_index];
+
+    //
+    // Loop ...
+    result = true;
+    for (int i = bar_index + 1; i < bar_index + length + 1; i++)
+    {
+        //
+        double iValue = xLHLLBuffer[i];
+        if (iValue != value1)
+        {
+            //
+            result = false;
+
+            //
+            break;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XLHIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        //
+        ArraySize(xLHHHBuffer) < size ||
+        ArraySize(xLHLLBuffer) < size ||
+        ArraySize(xLHSignalBuffer) < size
+        //
+    )
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// END XLH Custom Functions ...
+//

BKPS/XAU5-0.43/Helpers/x-saherelm.xobd.indicator.helper.lib.mq5

@@ -0,0 +1,249 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XOBD Indicator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XOBD Indicator";
+
+// input int xOBDLength = 5;                         // Swing Length
+// input uchar xOBDSwingHighArrowCode = 108;         // Swing High Arrow Code
+// input color xOBDSwingHighArrowColor = clrMagenta; // Swing High Arrow Color
+// input uchar xOBDSwingLowArrowCode = 108;          // Swing Low Arrow Code
+// input color xOBDSwingLowArrowColor = clrAqua;     // Swing Low Arrow Color
+
+//
+// Configurations ...
+int xOBDLength = 5;                         // Swing Length
+uchar xOBDSwingHighArrowCode = 108;         // Swing High Arrow Code
+color xOBDSwingHighArrowColor = clrMagenta; // Swing High Arrow Color
+uchar xOBDSwingLowArrowCode = 108;          // Swing Low Arrow Code
+color xOBDSwingLowArrowColor = clrAqua;     // Swing Low Arrow Color
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+//
+int xOBDHandler = INVALID_HANDLE;
+
+//
+double xOBDBuffer[];
+
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XOBDValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result = xOBDLength >= 2;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XOBD Indicator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Indicators ...
+bool XOBDInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XOBD Handler ...
+    ArraySetAsSeries(xOBDBuffer, true);
+
+    //
+    xOBDHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xobd.indicator",
+        //
+        // Inputs ...
+        xOBDLength,
+        xOBDSwingHighArrowCode,
+        xOBDSwingHighArrowColor,
+        xOBDSwingLowArrowCode,
+        xOBDSwingLowArrowColor
+        //
+    );
+    if (xOBDHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XOBD Indicator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Indicators ...
+void XOBDReleaseHandlers()
+{
+    IndicatorRelease(xOBDHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XOBDReadBuffers(
+    int xOBDItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // OBD Buffer ...
+    CopyBuffer(
+        xOBDHandler,
+        0,
+        0,
+        xOBDItemsPerTick,
+        xOBDBuffer
+        //
+    );
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XOBD Custom Functions ...
+//
+
+//
+// Check is Swing Low Occured or not ...
+bool XOBDIsSwingLow(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XOBDIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result = xOBDBuffer[bar_index] == X_SWING_LOW;
+
+    //
+    return result;
+}
+
+//
+// Check is Swing High Occured or not ...
+bool XOBDIsSwingHigh(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XOBDIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result = xOBDBuffer[bar_index] == X_SWING_HIGH;
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XOBDIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        //
+        ArraySize(xOBDBuffer) < size
+        //
+    )
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// END XOBD Custom Functions ...
+//

BKPS/XAU5-0.43/Helpers/x-saherelm.xrsi.oscillator.helper.lib.mq5

@@ -0,0 +1,433 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XRSI Oscillator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// XRSI Oscillator Buffer Lines ...
+//
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XRSI Oscillator";
+
+// //
+// input group "XRSI Market";
+// input int xRSILength = 18;                           // Market Length
+// input ENUM_APPLIED_PRICE xRSIAppliedTo = PRICE_OPEN; // Applied To
+
+// //
+// input group "XRSI Short Entry";
+// input double xRSIShortEntryValue = 70;                       // Short Entry Level
+// input color xRSIShortEntryColor = clrRed;                    // Short Entry Level Color
+// input ENUM_LINE_STYLE xRSIShortEntryLineStyle = STYLE_SOLID; // Short Entry Style
+
+// //
+// input group "XRSI Short Exit";
+// input double xRSIShortExitValue = 40;                     // Short Exit Level
+// input color xRSIShortExitColor = clrRed;                  // Short Exit Level Color
+// input ENUM_LINE_STYLE xRSIShortExitLineStyle = STYLE_DOT; // Short Exit Style
+
+// //
+// input group "XRSI Long Entry";
+// input double xRSILongEntryValue = 30;                       // Long Entry Level
+// input color xRSILongEntryColor = clrRed;                    // Long Entry Level Color
+// input ENUM_LINE_STYLE xRSILongEntryLineStyle = STYLE_SOLID; // Long Entry Style
+
+// //
+// input group "XRSI Long Exit";
+// input double xRSILongExitValue = 60;                     // Long Exit Level
+// input color xRSILongExitColor = clrRed;                  // Long Exit Level Color
+// input ENUM_LINE_STYLE xRSILongExitLineStyle = STYLE_DOT; // Long Exit Style
+
+//
+// Configurations ...
+int xRSILength = 18;                           // Market Length
+ENUM_APPLIED_PRICE xRSIAppliedTo = PRICE_OPEN; // Applied To
+
+//
+double xRSIShortEntryValue = 70;                       // Short Entry Level
+color xRSIShortEntryColor = clrRed;                    // Short Entry Level Color
+ENUM_LINE_STYLE xRSIShortEntryLineStyle = STYLE_SOLID; // Short Entry Style
+
+//
+double xRSIShortExitValue = 40;                     // Short Exit Level
+color xRSIShortExitColor = clrRed;                  // Short Exit Level Color
+ENUM_LINE_STYLE xRSIShortExitLineStyle = STYLE_DOT; // Short Exit Style
+
+//
+double xRSILongEntryValue = 30;                       // Long Entry Level
+color xRSILongEntryColor = clrRed;                    // Long Entry Level Color
+ENUM_LINE_STYLE xRSILongEntryLineStyle = STYLE_SOLID; // Long Entry Style
+
+//
+double xRSILongExitValue = 60;                     // Long Exit Level
+color xRSILongExitColor = clrRed;                  // Long Exit Level Color
+ENUM_LINE_STYLE xRSILongExitLineStyle = STYLE_DOT; // Long Exit Style
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+int xRSIHandler = INVALID_HANDLE;
+double xRSIBuffer[];
+
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XRSIValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result =
+        xRSILongEntryValue < xRSILongExitValue &&
+        xRSIShortEntryValue > xRSIShortExitValue &&
+        xRSIShortEntryValue > xRSILongExitValue &&
+        xRSIShortExitValue < xRSILongExitValue;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XRSI Oscillator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Oscillators ...
+bool XRSIInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XRSI Handler ...
+    ArraySetAsSeries(xRSIBuffer, true);
+    xRSIHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xrsi.oscillator",
+        //
+        // Inputs ...
+        //
+        // Market ...
+        "",
+        xRSILength,
+        xRSIAppliedTo,
+        //
+        // Short Entry ...
+        "",
+        xRSIShortEntryValue,
+        xRSIShortEntryColor,
+        xRSIShortEntryLineStyle,
+        //
+        // Short Exit ...
+        "",
+        xRSIShortExitValue,
+        xRSIShortExitColor,
+        xRSIShortExitLineStyle,
+        //
+        // Long Entry ...
+        "",
+        xRSILongEntryValue,
+        xRSILongEntryColor,
+        xRSILongEntryLineStyle,
+        //
+        //  Long Exit ...
+        "",
+        xRSILongExitValue,
+        xRSILongExitColor,
+        xRSILongExitLineStyle
+        //
+    );
+    if (xRSIHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XRSI Oscillator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Oscillators ...
+void XRSIReleaseHandlers()
+{
+    IndicatorRelease(xRSIHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XRSIReadBuffers(
+    int xRSIItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // XRSI Signal ...
+    CopyBuffer(
+        xRSIHandler,
+        0,
+        0,
+        xRSIItemsPerTick,
+        xRSIBuffer);
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XRSI Custom Functions ...
+//
+
+//
+// Check SC is Peak ...
+bool XRSIIsPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XRSIIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xRSIBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check SC is Vale ...
+bool XRSIIsVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XRSIIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xRSIBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// RSI Value GO Up from Long Entry ...
+bool XRSIIsCrossedOverLongEntry(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XRSIIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xRSIBuffer[bar_index + 1] > xRSILongEntryValue &&
+        xRSIBuffer[bar_index + 2] <= xRSILongEntryValue;
+
+    //
+    return result;
+}
+
+//
+// RSI Value GO Up from Long Exit ...
+bool XRSIIsCrossedOverLongExit(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XRSIIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xRSIBuffer[bar_index + 1] > xRSILongExitValue &&
+        xRSIBuffer[bar_index + 2] <= xRSILongExitValue;
+
+    //
+    return result;
+}
+
+//
+// RSI Value Go Down Short Entry ...
+bool XRSIIsCrossedUnderShortEntry(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XRSIIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xRSIBuffer[bar_index + 1] < xRSIShortEntryValue &&
+        xRSIBuffer[bar_index + 2] >= xRSIShortEntryValue;
+
+    //
+    return result;
+}
+
+//
+// RSI Value Go Down Short Exit ...
+bool XRSIIsCrossedUnderShortExit(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XRSIIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xRSIBuffer[bar_index + 1] < xRSIShortExitValue &&
+        xRSIBuffer[bar_index + 2] >= xRSIShortExitValue;
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XRSIIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        //
+        ArraySize(xRSIBuffer) < size
+        //
+    )
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// END XRSI Custom Functions ...
+//

BKPS/XAU5-0.43/Helpers/x-saherelm.xtd.oscillator.helper.lib.mq5

@@ -0,0 +1,931 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XTD Oscillator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// XTD Oscillator States ...
+enum ENUM_X_XTD_STATES
+{
+    X_XTD_BULLISH_CROSSED_OVER_BEARISH = 2,
+    X_XTD_BULLISH_OVER_BEARISH = 1,
+    X_XTD_NEUTURAL = 0,
+    X_XTD_BULLISH_UNDER_BEARISH = -1,
+    X_XTD_BULLISH_CROSSED_UNDER_BEARISH = -2
+};
+
+//
+// XTD Oscillator Buffer Lines ...
+enum ENUM_X_XTD_BUFFER_LINES
+{
+    X_XTD_BULLISH_POWER_LINE = 0,
+    X_XTD_BEARISH_POWER_LINE = 1,
+    X_XTD_SIGNAL_LINE = 2,
+};
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XTD Oscillator";
+
+// input int xTDLength = 18;                      // Market Length
+// input bool xTDDrawCrosses = false;             // Draw Cross Arrows
+// input uchar xTDBullishArrowCode = 228;         // Cross Over Arrow Code
+// input color xTDBullishArrowColor = clrAqua;    // Cross Over Arrow Color
+// input uchar xTDBearishArrowCode = 230;         // Cross Under Arrow Code
+// input color xTDBearishArrowColor = clrMagenta; // Cross Under Arrow Color
+
+//
+// Configurations ...
+int xTDLength = 18;                      // Market Length
+bool xTDDrawCrosses = false;             // Draw Cross Arrows
+uchar xTDBullishArrowCode = 228;         // Cross Over Arrow Code
+color xTDBullishArrowColor = clrAqua;    // Cross Over Arrow Color
+uchar xTDBearishArrowCode = 230;         // Cross Under Arrow Code
+color xTDBearishArrowColor = clrMagenta; // Cross Under Arrow Color
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+int xTDHandler = INVALID_HANDLE;
+double xTDBullishBuffer[];
+double xTDBearishBuffer[];
+double xTDSignalBuffer[];
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XTDValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result = xTDLength >= 2;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XTD Oscillator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Oscillators ...
+bool XTDInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XTD Handler ...
+    ArraySetAsSeries(xTDBullishBuffer, true);
+    ArraySetAsSeries(xTDBearishBuffer, true);
+    ArraySetAsSeries(xTDSignalBuffer, true);
+    xTDHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xtd.oscillator",
+        //
+        // Inputs ...
+        xTDLength,
+        xTDDrawCrosses,
+        xTDBullishArrowCode,
+        xTDBullishArrowColor,
+        xTDBearishArrowCode,
+        xTDBearishArrowColor);
+    if (xTDHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XTD Oscillator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Oscillators ...
+void XTDReleaseHandlers()
+{
+    IndicatorRelease(xTDHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XTDReadBuffers(
+    int xTDItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // XTD Bullish Buffer ...
+    CopyBuffer(
+        xTDHandler,
+        X_XTD_BULLISH_POWER_LINE,
+        0,
+        xTDItemsPerTick,
+        xTDBullishBuffer);
+
+    //
+    // XTD Bullish Buffer ...
+    CopyBuffer(
+        xTDHandler,
+        X_XTD_BEARISH_POWER_LINE,
+        0,
+        xTDItemsPerTick,
+        xTDBearishBuffer);
+
+    //
+    // XTD Signal Buffer ...
+    CopyBuffer(
+        xTDHandler,
+        X_XTD_SIGNAL_LINE,
+        0,
+        xTDItemsPerTick,
+        xTDSignalBuffer);
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XTD Custom Functions ...
+//
+
+//
+// Check Signal Vale ...
+bool XTDIsSignalVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xTDSignalBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check Signal Peak ...
+bool XTDIsSignalPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xTDSignalBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check Signal Vale ...
+bool XTDIsBullishVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xTDBullishBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check Signal Peak ...
+bool XTDIsBullishPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xTDBullishBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check Signal Vale ...
+bool XTDIsBearishVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xTDBearishBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check Signal Peak ...
+bool XTDIsBearishPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xTDBearishBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check Signal Peak ...
+
+//
+// Check Bullish Crossed Over Bearish ...
+bool XTDIsBullCrossedOverBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsCrossOver(
+        xTDBullishBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Bullish Over Bearish ...
+bool XTDIsBullOverBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsOver(
+        xTDBullishBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Bullish Crossed Under Bearish ...
+bool XTDIsBullCrossedUnderBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsCrossUnder(
+        xTDBullishBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Bullish Under Bearish ...
+bool XTDIsBullUnderBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsUnder(
+        xTDBullishBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Signal Crossed Over Bearish ...
+bool XTDIsSignalCrossedOverBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsCrossOver(
+        xTDSignalBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Signal Over Bearish ...
+bool XTDIsSignalOverBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsOver(
+        xTDSignalBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Signal Crossed Under Bearish ...
+bool XTDIsSignalCrossedUnderBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsCrossUnder(
+        xTDSignalBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Signal Under Bearish ...
+bool XTDIsSignalUnderBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsUnder(
+        xTDSignalBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XTDIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        ArraySize(xTDBullishBuffer) < size ||
+        ArraySize(xTDBullishBuffer) < size ||
+        ArraySize(xTDSignalBuffer) < size)
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Count Signal Crossed Over Bear ...
+int XTDCountSignalCrossedOverBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = 0;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsSignalCrossedOverBear(i);
+        if (isCrossedOnI)
+        {
+            result++;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Count Signal Crossed Under Bear ...
+int XTDCountSignalCrossedUnderBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = 0;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsSignalCrossedUnderBear(i);
+        if (isCrossedOnI)
+        {
+            result++;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Count Bull Crossed Over Bear ...
+int XTDCountBullCrossedOverBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = 0;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsBullCrossedOverBear(i);
+        if (isCrossedOnI)
+        {
+            result++;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Count Bull Crossed Under Bear ...
+int XTDCountBullCrossedUnderBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = 0;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsBullCrossedUnderBear(i);
+        if (isCrossedOnI)
+        {
+            result++;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Find Last Signal Crossed Over Bear ...
+int XTDFindLastSignalCrossedOverBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = -1;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsSignalCrossedOverBear(i);
+        if (isCrossedOnI)
+        {
+            //
+            result = i;
+            break;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Find Last Signal Crossed Onder Bear ...
+int XTDFindLastSignalCrossedUnderBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = -1;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsSignalCrossedUnderBear(i);
+        if (isCrossedOnI)
+        {
+            //
+            result = i;
+            break;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Find Last Bull Crossed Over Bear ...
+int XTDFindLastBullCrossedOverBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = -1;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsBullCrossedOverBear(i);
+        if (isCrossedOnI)
+        {
+            //
+            result = i;
+            break;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Find Last Bull Crossed Under Bear ...
+int XTDFindLastBullCrossedUnderBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = -1;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsBullCrossedUnderBear(i);
+        if (isCrossedOnI)
+        {
+            //
+            result = i;
+            break;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// END XTD Custom Functions ...
+//

BKPS/XAU5-0.43/Helpers/x-saherelm.xtm.indicator.helper.lib.mq5

@@ -0,0 +1,598 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XTM Indicator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// XTM Indicator States ...
+enum ENUM_X_XTM_STATES
+{
+    X_XTM_BULLISH = 1,
+    X_XTM_BEARISH = -1,
+    X_XTM_NEUTURAL = 0,
+};
+
+//
+// XTM Indicator Buffer Lines ...
+enum ENUM_X_XTM_BUFFER_LINES
+{
+    X_XTM_MA_LINE = 0,
+    X_XTM_MC_COLOR_LINE = 1,
+    X_XTM_STATE_LINE = 2,
+};
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XTM Indicator";
+
+// input int xTMMaPeriod = 18;                           // Period
+// input int xTMMaShift = 0;                             // Shift
+// input ENUM_MA_METHOD xTMMaMethod = MODE_EMA;          // Method
+// input ENUM_APPLIED_PRICE xTMMaAppliedTo = PRICE_OPEN; // Applied To
+
+//
+// Configurations ...
+int xTMMaPeriod = 18;                           // Period
+int xTMMaShift = 0;                             // Shift
+ENUM_MA_METHOD xTMMaMethod = MODE_EMA;          // Method
+ENUM_APPLIED_PRICE xTMMaAppliedTo = PRICE_OPEN; // Applied To
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+int xTMHandler = INVALID_HANDLE;
+double xTMMaBuffer[];
+double xTMStateBuffer[];
+
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XTMValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result = xTMMaPeriod >= 2;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XTM Indicator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Indicators ...
+bool XTMInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XTM Handler ...
+    ArraySetAsSeries(xTMMaBuffer, true);
+    ArraySetAsSeries(xTMStateBuffer, true);
+    xTMHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xtm.indicator",
+        //
+        // Inputs ...
+        xTMMaPeriod,
+        xTMMaShift,
+        xTMMaMethod,
+        xTMMaAppliedTo);
+    if (xTMHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XTM Indicator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Indicators ...
+void XTMReleaseHandlers()
+{
+    IndicatorRelease(xTMHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XTMReadBuffers(
+    int xTMItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // Ma Buffer ...
+    CopyBuffer(
+        xTMHandler,
+        X_XTM_MA_LINE,
+        0,
+        xTMItemsPerTick,
+        xTMMaBuffer);
+
+    //
+    // State Buffer ...
+    CopyBuffer(
+        xTMHandler,
+        X_XTM_STATE_LINE,
+        0,
+        xTMItemsPerTick,
+        xTMStateBuffer);
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XTM Custom Functions ...
+//
+
+//
+// Find Peak based On this Indicator ...
+bool XTMIsPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xTMMaBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Find Vale based On this Indicator ...
+bool XTMIsVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xTMMaBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Up ...
+bool XTMIsStartBullish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_BULLISH &&
+        xTMStateBuffer[bar_index + 1] != X_XTM_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Up After Neutural State ...
+bool XTMIsStartBullishAfterNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_BULLISH &&
+        xTMStateBuffer[bar_index + 1] == X_XTM_NEUTURAL
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM In Up State ...
+bool XTMIsBullish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Up State ...
+bool XTMIsEndBullish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] != X_XTM_BULLISH &&
+        xTMStateBuffer[bar_index + 1] == X_XTM_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Up State By Neutural ...
+bool XTMIsEndBullishByNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_NEUTURAL &&
+        xTMStateBuffer[bar_index + 1] == X_XTM_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Down ...
+bool XTMIsStartBearish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_BEARISH &&
+        xTMStateBuffer[bar_index + 1] != X_XTM_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Down After Neutural State ...
+bool XTMIsStartBearishAfterNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_BEARISH &&
+        xTMStateBuffer[bar_index + 1] == X_XTM_NEUTURAL
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM In Down State ...
+bool XTMIsBearish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Down State ...
+bool XTMIsEndBearish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] != X_XTM_BEARISH &&
+        xTMStateBuffer[bar_index + 1] == X_XTM_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Down State By Neutural ...
+bool XTMIsEndBearishByNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_NEUTURAL &&
+        xTMStateBuffer[bar_index + 1] == X_XTM_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM In Neutural State ...
+bool XTMIsNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_NEUTURAL
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XTMIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        //
+        ArraySize(xTMMaBuffer) < size ||
+        ArraySize(xTMStateBuffer) < size
+        //
+    )
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// END XTM Custom Functions ...
+//

BKPS/XAU5-0.43/Indicators/x-saherelm.xama.indicator.mq5

@@ -0,0 +1,353 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XAMA Indicator
+// ---------------------------------------------
+// Name: XAMA
+// Description: Trend Magic Indicator ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XAMA Indicator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XAMA"
+
+//
+// XAMA Indicator States ...
+enum ENUM_X_XAMA_STATES
+{
+    X_XAMA_BULLISH = 1,
+    X_XAMA_BEARISH = -1,
+    X_XAMA_NEUTURAL = 0,
+};
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+input int length = 18;                            // Period
+input int fastEMA = 2;                            // Fast EMA Period
+input int slowEMA = 30;                           // Slow EMA Period
+input int maShift = 0;                            // Shift
+input ENUM_APPLIED_PRICE appliedTo = PRICE_CLOSE; // Applied To
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Buffers ...
+//
+#property indicator_chart_window
+
+//
+#property indicator_buffers 3
+#property indicator_plots 1
+
+//
+// maBuffer ...
+#define maBufferIndex 0
+#define maColorBufferIndex 1
+#define stateBufferIndex 2
+
+double maBuffer[];
+double maColorBuffer[];
+double stateBuffer[];
+
+#property indicator_label1 "XAMA"
+#property indicator_type1 DRAW_COLOR_LINE
+#property indicator_color1 clrLime, clrGray, clrRed
+#property indicator_style1 STYLE_SOLID
+#property indicator_width1 1
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+int maHandler = INVALID_HANDLE;
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+
+    //
+    // Initializing MA Handler ...
+    maHandler = iAMA(
+        _Symbol,
+        _Period,
+        length,
+        fastEMA,
+        slowEMA,
+        maShift,
+        appliedTo);
+    if (maHandler == INVALID_HANDLE)
+    {
+        //
+        string message = "Error Initializing Ma Handler ...";
+        LogMessage(message);
+
+        //
+        return INIT_FAILED;
+    }
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+    IndicatorRelease(maHandler);
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(fastEMA, slowEMA);
+    maxLength = MathMax(maxLength, length);
+
+    //
+    // Check Calculated Bars ...
+    int maCalculatedBars = BarsCalculated(maHandler);
+    if (maCalculatedBars < maxLength)
+    {
+        return prev_calculated;
+    }
+
+    //
+    limit = (prev_calculated > rates_total || prev_calculated <= 0) ? rates_total : (rates_total - prev_calculated) + 1;
+
+    //
+    // Buffers Copy ...
+    int copiedMas = CopyBuffer(maHandler, 0, 0, limit, maBuffer);
+    if (copiedMas <= 0)
+    {
+        return prev_calculated;
+    }
+
+    //
+    // Main Loop ...
+    for (int i = limit - 1; i >= 0 && !IsStopped(); i--)
+    {
+        //
+        // Do Buffers Calculation ...
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (length >= 2)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    string maBufferLabel = "XAMA " + "(" + (string)length + ")";
+
+    //
+    // Ma Buffer ...
+    ArraySetAsSeries(maBuffer, true);
+    SetIndexBuffer(maBufferIndex, maBuffer, INDICATOR_DATA);
+    PlotIndexSetString(maBufferIndex, PLOT_LABEL, maBufferLabel);
+
+    //
+    // Ma Color Buffer ...
+    ArraySetAsSeries(maColorBuffer, true);
+    SetIndexBuffer(maColorBufferIndex, maColorBuffer, INDICATOR_COLOR_INDEX);
+
+    //
+    // State Buffer ...
+    ArraySetAsSeries(stateBuffer, true);
+    SetIndexBuffer(stateBufferIndex, stateBuffer, INDICATOR_CALCULATIONS);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, " ", "(", length, ")");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(int bar_index)
+{
+    //
+    // Requirements ...
+    XOHCL candle = GetCandle(bar_index);
+
+    //
+    double maValue = maBuffer[bar_index];
+
+    //
+    double lineColorIndex =
+        maValue < candle.low ? 0 : maValue > candle.high ? 2
+                                                         : 1;
+
+    //
+    // Define State Value ...
+    // lineColorIndex == 0 => Bullish => 1;
+    // lineColorIndex == 1 => Neutural => 0;
+    // lineColorIndex == 2 => Bearish => -1;
+    double stateValue =
+        lineColorIndex == 0 ? X_XAMA_BULLISH : lineColorIndex == 2 ? X_XAMA_BEARISH
+                                                                   : X_XAMA_NEUTURAL;
+
+    //
+    // Set Ma Buffer Color Index ...
+    maColorBuffer[bar_index] = lineColorIndex;
+
+    //
+    // Set State Buffer Value ...
+    stateBuffer[bar_index] = stateValue;
+}
+
+//
+// END Functions ...
+//

BKPS/XAU5-0.43/Indicators/x-saherelm.xchlh.oscillator.mq5

@@ -0,0 +1,753 @@
+//////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Cycle Channel LH Oscillator
+// ---------------------------------------------------
+// Name: XCHLH
+// Description: detecting HH and LL based on cycles ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XCHLH Oscillator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XCHLH"
+
+//
+// XCHLH Hot States ...
+enum ENUM_X_XCHLH_HOT_STATES
+{
+    X_XCHLH_HOT_HH = 1,
+    X_XCHLH_NEUTURAL = 0,
+    X_XCHLH_HOT_LL = -1,
+};
+
+//
+// Including Models Library ...
+#include "../Libraries/x-saherelm.models.lib.mq5"
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+//
+// Common ...
+input group "Hot Areas";
+input bool drawHotAreas = true;           // Draw Hot Areas Symbol
+input uchar hotHHArrowCode = 234;         // Hot HH Arrow Code
+input color hotHHArrowColor = clrAqua;    // Hot HH Arrow Color
+input uchar hotLLArrowCode = 233;         // Hot LL Arrow Code
+input color hotLLArrowColor = clrFuchsia; // Hot LL Arrow Color
+
+//
+// LC Inputs ...
+input group "Long Cycle";
+input group "LC Market";
+input int lcLength = 28;                    // Length
+input double lcThresholdInPips = 0.3;       // Threshold In Pips
+input ENUM_SERIESMODE lcHHMode = MODE_HIGH; // Highest High Calculation Method
+input ENUM_SERIESMODE lcLLMode = MODE_LOW;  // Lowest Low Calculation Method
+input group "LC Style";
+input int lcDrawWidth = 1;                     // Draw Width
+input ENUM_DRAW_TYPE lcDrawType = DRAW_LINE;   // Draw Type
+input ENUM_LINE_STYLE lcDrawStyle = STYLE_DOT; // Draw Style
+input color lcHHColor = clrAqua;               // Highest High Color
+input color lcLLColor = clrFuchsia;            // Lowest Low Color
+input group "LC Drawings";
+input bool lcDrawHH = true; // Draw Highest High
+input bool lcDrawLL = true; // Draw Lowest Low
+
+//
+// MC Inputs ...
+input group "Medium Cycle";
+input group "MC Market";
+input int mcLength = 14;                    // Length
+input double mcThresholdInPips = 0.3;       // Threshold In Pips
+input ENUM_SERIESMODE mcHHMode = MODE_HIGH; // Highest High Calculation Method
+input ENUM_SERIESMODE mcLLMode = MODE_LOW;  // Lowest Low Calculation Method
+input group "MC Style";
+input int mcDrawWidth = 1;                     // Draw Width
+input ENUM_DRAW_TYPE mcDrawType = DRAW_LINE;   // Draw Type
+input ENUM_LINE_STYLE mcDrawStyle = STYLE_DOT; // Draw Style
+input color mcHHColor = clrLime;               // Highest High Color
+input color mcLLColor = clrRed;                // Lowest Low Color
+input group "MC Drawings";
+input bool mcDrawHH = true; // Draw Highest High
+input bool mcDrawLL = true; // Draw Lowest Low
+
+//
+// SC Inputs ...
+input group "Short Cycle";
+input group "SC Market";
+input int scLength = 7;                     // Length
+input double scThresholdInPips = 0.3;       // Threshold In Pips
+input ENUM_SERIESMODE scHHMode = MODE_HIGH; // Highest High Calculation Method
+input ENUM_SERIESMODE scLLMode = MODE_LOW;  // Lowest Low Calculation Method
+input group "SC Style";
+input int scDrawWidth = 1;                     // Draw Width
+input ENUM_DRAW_TYPE scDrawType = DRAW_LINE;   // Draw Type
+input ENUM_LINE_STYLE scDrawStyle = STYLE_DOT; // Draw Style
+input color scHHColor = clrLightBlue;          // Highest High Color
+input color scLLColor = clrLightSalmon;        // Lowest Low Color
+input group "SC Drawings";
+input bool scDrawHH = true; // Draw Highest High
+input bool scDrawLL = true; // Draw Lowest Low
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5";
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5";
+
+//
+// Includes Draw Library ...
+#include "../Libraries/x-saherelm.draw.lib.mq5";
+
+//
+// START Buffers ...
+//
+#property indicator_separate_window
+
+//
+#property indicator_buffers 7
+#property indicator_plots 6
+
+//
+// LC ...
+#define lcHHBufferIndex 0
+#define lcLLBufferIndex 1
+
+//
+double lcHHBuffer[];
+double lcLLBuffer[];
+
+//
+// MC ...
+#define mcHHBufferIndex 2
+#define mcLLBufferIndex 3
+
+//
+double mcHHBuffer[];
+double mcLLBuffer[];
+
+//
+// SC ...
+#define scHHBufferIndex 4
+#define scLLBufferIndex 5
+
+//
+double scHHBuffer[];
+double scLLBuffer[];
+
+//
+// Hot State ...
+//
+#define hotStateBufferIndex 6
+
+//
+double hotStateBuffer[];
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+    drawPrefix = ShortName;
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+
+    //
+    // ReDraw Chart ...
+    ChartRedraw();
+
+    //
+    // De Init Draw Library ...
+    OnDeinitDrawLibrary();
+
+    //
+    Comment("");
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(lcLength, mcLength);
+    maxLength = MathMax(maxLength, scLength);
+
+    //
+    limit = prev_calculated < maxLength ? rates_total - (maxLength + 1) : rates_total - prev_calculated;
+
+    //
+    // Main Loop ...
+    for (int i = limit; i >= 0 && !IsStopped(); i--)
+    {
+        //
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    bool isLCInputsValid =
+        lcLength >= 4 &&
+        lcLength > mcLength &&
+        lcLength > scLength;
+    bool isMCInputsValid =
+        mcLength >= 4 &&
+        mcLength > scLength &&
+        mcLength < lcLength;
+    bool isSCInputsValid =
+        scLength >= 4 &&
+        scLength < mcLength &&
+        scLength < lcLength;
+    if (
+        isLCInputsValid &&
+        isMCInputsValid &&
+        isSCInputsValid)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    // LC ...
+    LCDefineBuffers();
+
+    //
+    // MC ...
+    MCDefineBuffers();
+
+    //
+    // SC ...
+    SCDefineBuffers();
+
+    //
+    // Hot State Buffer ...
+    HotStateDefineBuffers();
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, "");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // LC ...
+    LCCalculateBuffers(bar_index);
+
+    //
+    // MC ...
+    MCCalculateBuffers(bar_index);
+
+    //
+    // SC ...
+    SCCalculateBuffers(bar_index);
+
+    //
+    // SIGNAL ...
+    SignalCalculateBuffers(bar_index);
+
+    //
+    // HOT State Buffer ...
+    HotStateCalculateBuffers(bar_index);
+
+    //
+    // After all Calculations we are ready to Draw what we want ...
+    DrawBuffers(bar_index);
+}
+
+//
+// LC Buffers Definitions ...
+void LCDefineBuffers()
+{
+    //
+    // LC HH Buffer ...
+    string lcHHBufferLabel = ShortName + " LC HH (" + (string)lcLength + ")";
+    ENUM_DRAW_TYPE lcHHDrawType = lcDrawHH ? lcDrawType : DRAW_NONE;
+    ArraySetAsSeries(lcHHBuffer, true);
+    SetIndexBuffer(lcHHBufferIndex, lcHHBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(lcHHBufferIndex, PLOT_DRAW_BEGIN, lcLength);
+    PlotIndexSetString(lcHHBufferIndex, PLOT_LABEL, lcHHBufferLabel);
+    PlotIndexSetInteger(lcHHBufferIndex, PLOT_LINE_COLOR, lcHHColor);
+    PlotIndexSetInteger(lcHHBufferIndex, PLOT_LINE_STYLE, lcDrawStyle);
+    PlotIndexSetInteger(lcHHBufferIndex, PLOT_LINE_WIDTH, lcDrawWidth);
+    PlotIndexSetInteger(lcHHBufferIndex, PLOT_DRAW_TYPE, lcHHDrawType);
+
+    //
+    // LC LL Buffer ...
+    string lcLLBufferLabel = ShortName + " LC LL (" + (string)lcLength + ")";
+    ENUM_DRAW_TYPE lcLLDrawType = lcDrawLL ? lcDrawType : DRAW_NONE;
+    ArraySetAsSeries(lcLLBuffer, true);
+    SetIndexBuffer(lcLLBufferIndex, lcLLBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(lcLLBufferIndex, PLOT_DRAW_BEGIN, lcLength);
+    PlotIndexSetString(lcLLBufferIndex, PLOT_LABEL, lcLLBufferLabel);
+    PlotIndexSetInteger(lcLLBufferIndex, PLOT_LINE_COLOR, lcLLColor);
+    PlotIndexSetInteger(lcLLBufferIndex, PLOT_LINE_STYLE, lcDrawStyle);
+    PlotIndexSetInteger(lcLLBufferIndex, PLOT_LINE_WIDTH, lcDrawWidth);
+    PlotIndexSetInteger(lcLLBufferIndex, PLOT_DRAW_TYPE, lcLLDrawType);
+}
+
+//
+// MC Buffers Definitions ...
+void MCDefineBuffers()
+{
+    //
+    // MC HH Buffer ...
+    string mcHHBufferLabel = ShortName + " MC HH (" + (string)mcLength + ")";
+    ENUM_DRAW_TYPE mcHHDrawType = mcDrawHH ? lcDrawType : DRAW_NONE;
+    ArraySetAsSeries(mcHHBuffer, true);
+    SetIndexBuffer(mcHHBufferIndex, mcHHBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(mcHHBufferIndex, PLOT_DRAW_BEGIN, mcLength);
+    PlotIndexSetString(mcHHBufferIndex, PLOT_LABEL, mcHHBufferLabel);
+    PlotIndexSetInteger(mcHHBufferIndex, PLOT_LINE_COLOR, mcHHColor);
+    PlotIndexSetInteger(mcHHBufferIndex, PLOT_LINE_STYLE, mcDrawStyle);
+    PlotIndexSetInteger(mcHHBufferIndex, PLOT_LINE_WIDTH, mcDrawWidth);
+    PlotIndexSetInteger(mcHHBufferIndex, PLOT_DRAW_TYPE, mcHHDrawType);
+
+    //
+    // MC LL Buffer ...
+    string mcLLBufferLabel = ShortName + " MC LL (" + (string)mcLength + ")";
+    ENUM_DRAW_TYPE mcLLDrawType = mcDrawLL ? lcDrawType : DRAW_NONE;
+    ArraySetAsSeries(mcLLBuffer, true);
+    SetIndexBuffer(mcLLBufferIndex, mcLLBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(mcLLBufferIndex, PLOT_DRAW_BEGIN, mcLength);
+    PlotIndexSetString(mcLLBufferIndex, PLOT_LABEL, mcLLBufferLabel);
+    PlotIndexSetInteger(mcLLBufferIndex, PLOT_LINE_COLOR, mcLLColor);
+    PlotIndexSetInteger(mcLLBufferIndex, PLOT_LINE_STYLE, mcDrawStyle);
+    PlotIndexSetInteger(mcLLBufferIndex, PLOT_LINE_WIDTH, mcDrawWidth);
+    PlotIndexSetInteger(mcLLBufferIndex, PLOT_DRAW_TYPE, mcLLDrawType);
+}
+
+//
+// SC Buffers Definitions ...
+void SCDefineBuffers()
+{
+    //
+    // SC HH Buffer ...
+    string scHHBufferLabel = ShortName + " SC HH (" + (string)scLength + ")";
+    ENUM_DRAW_TYPE scHHDrawType = scDrawHH ? lcDrawType : DRAW_NONE;
+    ArraySetAsSeries(scHHBuffer, true);
+    SetIndexBuffer(scHHBufferIndex, scHHBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(scHHBufferIndex, PLOT_DRAW_BEGIN, scLength);
+    PlotIndexSetString(scHHBufferIndex, PLOT_LABEL, scHHBufferLabel);
+    PlotIndexSetInteger(scHHBufferIndex, PLOT_LINE_COLOR, scHHColor);
+    PlotIndexSetInteger(scHHBufferIndex, PLOT_LINE_STYLE, scDrawStyle);
+    PlotIndexSetInteger(scHHBufferIndex, PLOT_LINE_WIDTH, scDrawWidth);
+    PlotIndexSetInteger(scHHBufferIndex, PLOT_DRAW_TYPE, scHHDrawType);
+
+    //
+    // SC LL Buffer ...
+    string scLLBufferLabel = ShortName + " SC LL (" + (string)scLength + ")";
+    ENUM_DRAW_TYPE scLLDrawType = scDrawLL ? lcDrawType : DRAW_NONE;
+    ArraySetAsSeries(scLLBuffer, true);
+    SetIndexBuffer(scLLBufferIndex, scLLBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(scLLBufferIndex, PLOT_DRAW_BEGIN, scLength);
+    PlotIndexSetString(scLLBufferIndex, PLOT_LABEL, scLLBufferLabel);
+    PlotIndexSetInteger(scLLBufferIndex, PLOT_LINE_COLOR, scLLColor);
+    PlotIndexSetInteger(scLLBufferIndex, PLOT_LINE_STYLE, scDrawStyle);
+    PlotIndexSetInteger(scLLBufferIndex, PLOT_LINE_WIDTH, scDrawWidth);
+    PlotIndexSetInteger(scLLBufferIndex, PLOT_DRAW_TYPE, scLLDrawType);
+}
+
+//
+// Hot State Buffer ...
+void HotStateDefineBuffers()
+{
+    //
+    // Hot State Buffer ...
+    ArraySetAsSeries(hotStateBuffer, true);
+    SetIndexBuffer(hotStateBufferIndex, hotStateBuffer, INDICATOR_CALCULATIONS);
+}
+
+//
+// LC Calculations ...
+void LCCalculateBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // Detect Cycle HH and LL ...
+    int length = lcLength;
+    ENUM_SERIESMODE hhMode = lcHHMode;
+    ENUM_SERIESMODE llMode = lcLLMode;
+    double threshold = PipsToPrice(lcThresholdInPips);
+    double hh = GetHighestHigh(
+        length,
+        bar_index,
+        hhMode);
+    double hhValue = hh + threshold;
+    double ll = GetLowestLow(
+        length,
+        bar_index,
+        llMode);
+    double llValue = ll - threshold;
+
+    //
+    lcHHBuffer[bar_index] = hhValue;
+    lcLLBuffer[bar_index] = llValue;
+}
+
+//
+// MC Calculations ...
+void MCCalculateBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // Detect Cycle HH and LL ...
+    int length = mcLength;
+    ENUM_SERIESMODE hhMode = mcHHMode;
+    ENUM_SERIESMODE llMode = mcLLMode;
+    double threshold = PipsToPrice(mcThresholdInPips);
+    double hh = GetHighestHigh(
+        length,
+        bar_index,
+        hhMode);
+    double hhValue = hh + threshold;
+    double ll = GetLowestLow(
+        length,
+        bar_index,
+        llMode);
+    double llValue = ll - threshold;
+
+    //
+    mcHHBuffer[bar_index] = hhValue;
+    mcLLBuffer[bar_index] = llValue;
+}
+
+//
+// SC Calculations ...
+void SCCalculateBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // Detect Cycle HH and LL ...
+    int length = scLength;
+    ENUM_SERIESMODE hhMode = scHHMode;
+    ENUM_SERIESMODE llMode = scLLMode;
+    double threshold = PipsToPrice(scThresholdInPips);
+    double hh = GetHighestHigh(
+        length,
+        bar_index,
+        hhMode);
+    double hhValue = hh + threshold;
+    double ll = GetLowestLow(
+        length,
+        bar_index,
+        llMode);
+    double llValue = ll - threshold;
+
+    //
+    scHHBuffer[bar_index] = hhValue;
+    scLLBuffer[bar_index] = llValue;
+}
+
+//
+// SIGNAL Calculations ...
+void SignalCalculateBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // LC Values ...
+    double lcHH = lcHHBuffer[bar_index];
+    double lcLL = lcLLBuffer[bar_index];
+    double lcDelta = lcHH - lcLL;
+    double lcAvg = lcDelta / 2;
+
+    //
+    // MC Values ...
+    double mcHH = mcHHBuffer[bar_index];
+    double mcLL = mcLLBuffer[bar_index];
+    double mcDelta = mcHH - mcLL;
+    double mcAvg = mcDelta / 2;
+
+    //
+    // SC Values ...
+    double scHH = scHHBuffer[bar_index];
+    double scLL = scLLBuffer[bar_index];
+    double scDelta = scHH - scLL;
+    double scAvg = scDelta / 2;
+
+    //
+    // Min Value ...
+    double minValue = MathMin(
+        scLL, mcLL);
+    minValue = MathMin(
+        lcLL, minValue);
+
+    //
+    // Max Value ...
+    double maxValue = MathMin(
+        scHH, mcHH);
+    maxValue = MathMin(
+        lcHH, maxValue);
+}
+
+//
+// HOT State Calculate Buffers ...
+void HotStateCalculateBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // LC ...
+    double lcHH = lcHHBuffer[bar_index];
+    double lcLL = lcLLBuffer[bar_index];
+    //
+    double lcHH1 = lcHHBuffer[bar_index + 1];
+    double lcLL1 = lcLLBuffer[bar_index + 1];
+
+    //
+    // MC ...
+    double mcHH = mcHHBuffer[bar_index];
+    double mcLL = mcLLBuffer[bar_index];
+    //
+    double mcHH1 = mcHHBuffer[bar_index + 1];
+    double mcLL1 = mcLLBuffer[bar_index + 1];
+
+    //
+    // SC ...
+    double scHH = scHHBuffer[bar_index];
+    double scLL = scLLBuffer[bar_index];
+    //
+    double scHH1 = scHHBuffer[bar_index + 1];
+    double scLL1 = scLLBuffer[bar_index + 1];
+
+    //
+    bool isHotLLState = scLL == mcLL && mcLL == lcLL;
+    bool isHotLLState1 = scLL1 == mcLL1 && mcLL1 == lcLL1;
+    //
+    bool isHotHHState = scHH == mcHH && mcHH == lcHH;
+    bool isHotHHState1 = scHH1 == mcHH1 && mcHH1 == lcHH1;
+
+    //
+    bool isHotLL = isHotLLState && !isHotLLState1;
+    bool isHotHH = isHotHHState && !isHotHHState1;
+
+    //
+    double hotStateValue = X_XCHLH_NEUTURAL;
+    if (isHotHH)
+    {
+        hotStateValue = X_XCHLH_HOT_HH;
+    }
+    else if (isHotLL)
+    {
+        hotStateValue = X_XCHLH_HOT_LL;
+    }
+
+    //
+    hotStateBuffer[bar_index] = hotStateValue;
+}
+
+//
+// Draw Buffers ...
+void DrawBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // General Requirements ...
+
+    //
+    // Retrieve Candle Model ...
+    XOHCL candle = GetCandle(bar_index);
+    datetime time = iTime(_Symbol, _Period, bar_index);
+
+    //
+    // Draw Arrow on Hot Areas ...
+    if (drawHotAreas)
+    {
+        //
+        double hotStateValue = hotStateBuffer[bar_index];
+        bool isHotHHArea = hotStateValue == 1;
+        bool isHotLLArea = hotStateValue == -1;
+        if (isHotHHArea || isHotLLArea)
+        {
+            //
+            bool isHH = isHotHHArea;
+
+            //
+            double price = isHH ? candle.high : candle.low;
+            ENUM_ARROW_ANCHOR anchor = isHH ? ANCHOR_BOTTOM : ANCHOR_TOP;
+            color clr = isHH ? hotHHArrowColor : hotLLArrowColor;
+            uchar arrowCode = isHH ? hotHHArrowCode : hotLLArrowCode;
+            string name = "HOT " + (isHH ? "HH" : "LL") + "_" + (string)price + "_" + (string)time;
+
+            //
+            DrawArrow(
+                0,
+                name,
+                0,
+                time,
+                price,
+                arrowCode,
+                anchor,
+                clr,
+                STYLE_SOLID,
+                1);
+        }
+    }
+}
+//
+// END Functions ...
+//

BKPS/XAU5-0.43/Indicators/x-saherelm.xfi.oscillator.mq5

@@ -0,0 +1,317 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XFI Oscillator
+// ---------------------------------------------
+// Name: XFI
+// Description: Price Momentum Power Detection
+// Market Analysor ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XFI Oscillator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XFI"
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+input int length = 18;                             // Length
+input ENUM_MA_METHOD method = MODE_SMA;            // MA Method
+input ENUM_APPLIED_VOLUME appliedTo = VOLUME_TICK; // Applied To
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Buffers ...
+//
+#property indicator_separate_window
+
+//
+#property indicator_buffers 2
+#property indicator_plots 1
+
+//
+// FI Buffer ...
+#define fiBufferIndex 0
+#define fiColorBufferIndex 1
+
+//
+double fiBuffer[];
+double fiColorBuffer[];
+
+//
+#property indicator_label1 "XFI"
+#property indicator_type1 DRAW_COLOR_LINE
+#property indicator_color1 clrAqua, clrGray, clrFuchsia
+#property indicator_style1 STYLE_DOT
+#property indicator_width1 1
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+int fiHandler = INVALID_HANDLE;
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+
+    //
+    fiHandler = iForce(
+        _Symbol,
+        _Period,
+        length,
+        method,
+        appliedTo);
+    if (fiHandler == INVALID_HANDLE)
+    {
+        //
+        string message = "Error Initializing Handler ...";
+        LogMessage(message);
+
+        //
+        return INIT_FAILED;
+    }
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+    IndicatorRelease(fiHandler);
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(0, length);
+
+    //
+    // Check Calculated Bars ...
+    int fiCalculatedBars = BarsCalculated(fiHandler);
+    if (fiCalculatedBars < maxLength)
+    {
+        return prev_calculated;
+    }
+
+    //
+    limit = (prev_calculated > rates_total || prev_calculated <= 0) ? rates_total : (rates_total - prev_calculated) + 1;
+
+    //
+    // Buffers Copy ...
+    int copiedFis = CopyBuffer(fiHandler, 0, 0, limit, fiBuffer);
+    if (copiedFis <= 0)
+    {
+        return prev_calculated;
+    }
+
+    //
+    // Main Loop ...
+    for (int i = 0; i < limit && !IsStopped(); i++)
+    {
+        //
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (length >= 2)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    string fiBufferLabel = "XFI " + "(" + (string)length + ")";
+
+    //
+    // FI Buffer ...
+    ArraySetAsSeries(fiBuffer, true);
+    SetIndexBuffer(fiBufferIndex, fiBuffer, INDICATOR_DATA);
+    PlotIndexSetString(fiBufferIndex, PLOT_LABEL, fiBufferLabel);
+
+    //
+    // FI Color Buffer ...
+    ArraySetAsSeries(fiColorBuffer, true);
+    SetIndexBuffer(fiColorBufferIndex, fiColorBuffer, INDICATOR_COLOR_INDEX);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, "");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(
+    int bar_index // Selected Bar Index
+)
+{
+    //
+    double iValue = fiBuffer[bar_index];
+
+    //
+    double iColorIndex =
+        iValue > 0 ? 0 : iValue < 0 ? 2
+                                    : 1;
+
+    //
+    // Set Buffer Color Index ...
+    fiColorBuffer[bar_index] = iColorIndex;
+}
+//
+// END Functions ...
+//

BKPS/XAU5-0.43/Indicators/x-saherelm.xlh.indicator.mq5

@@ -0,0 +1,346 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XLH Indicator
+// ---------------------------------------------
+// Name: XLH
+// Description: Moving Average Indicator
+// Market Analysor ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XLH Indicator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XLH"
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+input int length = 14;                    // Length
+input ENUM_SERIESMODE hhMode = MODE_HIGH; // Highest High Calculation Method
+input ENUM_SERIESMODE llMode = MODE_LOW;  // Lowest Low Calculation Method
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Buffers ...
+//
+#property indicator_chart_window
+
+//
+#property indicator_buffers 3
+#property indicator_plots 3
+
+//
+// HH Buffer ...
+#define hhBufferIndex 0
+
+//
+double hhBuffer[];
+
+//
+#property indicator_label1 "XLH HH"
+#property indicator_type1 DRAW_LINE
+#property indicator_color1 clrAqua
+#property indicator_style1 STYLE_DOT
+#property indicator_width1 1
+
+//
+// LL Buffer ...
+#define llBufferIndex 1
+
+//
+double llBuffer[];
+
+//
+#property indicator_label2 "XLH LL"
+#property indicator_type2 DRAW_LINE
+#property indicator_color2 clrFuchsia
+#property indicator_style2 STYLE_DOT
+#property indicator_width2 1
+
+//
+// Signal Buffer ...
+#define signalBufferIndex 2
+
+//
+double signalBuffer[];
+
+//
+#property indicator_label3 "XLH S"
+#property indicator_type3 DRAW_LINE
+#property indicator_color3 clrGold
+#property indicator_style3 STYLE_DOT
+#property indicator_width3 1
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(0, length);
+
+    //
+    limit = (prev_calculated > rates_total || prev_calculated <= 0) ? rates_total : (rates_total - prev_calculated) + 1;
+
+    //
+    // Main Loop ...
+    for (int i = limit - 1; i >= 0 && !IsStopped(); i--)
+    {
+        //
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (length >= 2)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    // HH Buffer ...
+    string hhBufferLabel = ShortName + " HH " + "(" + (string)length + ")";
+    ArraySetAsSeries(hhBuffer, true);
+    SetIndexBuffer(hhBufferIndex, hhBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(hhBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(hhBufferIndex, PLOT_LABEL, hhBufferLabel);
+
+    //
+    // LL Buffer ...
+    string llBufferLabel = ShortName + " LL " + "(" + (string)length + ")";
+    ArraySetAsSeries(llBuffer, true);
+    SetIndexBuffer(llBufferIndex, llBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(llBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(llBufferIndex, PLOT_LABEL, llBufferLabel);
+
+    //
+    // Signal Buffer ...
+    string signalBufferLabel = ShortName + " S " + "(" + (string)length + ")";
+    ArraySetAsSeries(signalBuffer, true);
+    SetIndexBuffer(signalBufferIndex, signalBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(signalBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(signalBufferIndex, PLOT_LABEL, signalBufferLabel);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, "");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(
+    int bar_index // Selected Bar Index
+)
+{
+    //
+    // Calculate Threshold ...
+    //
+    // HH Buffer ...
+    int hhIndex = iHighest(
+        _Symbol,
+        _Period,
+        hhMode,
+        length,
+        bar_index);
+    double hhValue = GetAppliedPrice(
+        hhIndex,
+        hhMode);
+
+    //
+    hhBuffer[bar_index] = hhValue;
+
+    //
+    // LL Buffer ...
+    int llIndex = iLowest(
+        _Symbol,
+        _Period,
+        llMode,
+        length,
+        bar_index);
+    double llValue = GetAppliedPrice(
+        llIndex,
+        llMode);
+
+    //
+    llBuffer[bar_index] = llValue;
+
+    //
+    XOHCL c = GetCandle(bar_index);
+    double lhDiff = hhValue - llValue;
+    double signalValue = (lhDiff / 2);
+
+    //
+    signalBuffer[bar_index] = (hhValue - signalValue);
+}
+//
+// END Functions ...
+//

BKPS/XAU5-0.43/Indicators/x-saherelm.xobd.indicator.mq5

@@ -0,0 +1,390 @@
+/////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 OrderBlock Detector Indicator
+// -----------------------------------------------------
+// Name: XOBD
+// Description: detect Order Blocks based on Swings ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XOBD Indicator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XOBD"
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+//
+input int length = 5; // Swing Length
+
+//
+input uchar swingHighArrowCode = 108;         // Swing High Arrow Code
+input color swingHighArrowColor = clrMagenta; // Swing High Arrow Color
+
+//
+input uchar swingLowArrowCode = 108;      // Swing Low Arrow Code
+input color swingLowArrowColor = clrAqua; // Swing Low Arrow Color
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Include Common and Models Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// Include Draw Library ...
+#include "../Libraries/x-saherelm.draw.lib.mq5"
+
+//
+// START Buffers ...
+//
+#property indicator_chart_window
+
+//
+#property indicator_buffers 1
+#property indicator_plots 0
+
+//
+#define swingBufferIndex 0
+double swingBuffer[];
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+    drawPrefix = ShortName;
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+    OnDeinitDrawLibrary();
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(0, length * 3);
+
+    //
+    limit = prev_calculated < maxLength ? rates_total - (maxLength + 1) : rates_total - prev_calculated;
+
+    //
+    // Main Loop ...
+    for (int i = limit; i >= 0 && !IsStopped(); i--)
+    {
+        //
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (length >= 2)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    ArraySetAsSeries(swingBuffer, true);
+    SetIndexBuffer(swingBufferIndex, swingBuffer, INDICATOR_CALCULATIONS);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, " ", "( ", length, " )");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(int bar_index)
+{
+    //
+    // GetCandleSwing(bar_index);
+    ENUM_X_SWING_TYPE type = X_NO_SWING;
+
+    //
+    // Try To Detect Order Blocks ...
+    bool isSwingLow = false;
+    bool isSwingHigh = false;
+
+    //
+    // Reading Candles Data ...
+    XOHCL candles[];
+    for (int i = bar_index; i < bar_index + ((length * 2) + 2); i++)
+    {
+        //
+        XOHCL iCandle = GetCandle(
+            _Symbol,
+            _Period,
+            i);
+
+        //
+        Add(
+            iCandle,
+            candles);
+    }
+
+    //
+    // Swing Low ...
+    isSwingLow =
+        //
+        candles[1].close > candles[2].close &&
+        candles[2].close > candles[3].close &&
+        //
+        candles[3].close < candles[4].close &&
+        //
+        candles[5].close > candles[4].close &&
+        candles[6].close > candles[5].close
+        //
+        ;
+
+    //
+    if (isSwingLow)
+    {
+        type = X_SWING_LOW;
+    }
+
+    //
+    if (!isSwingLow)
+    {
+        //
+        // Swing High ...
+        isSwingHigh =
+            //
+            candles[1].close < candles[2].close &&
+            candles[2].close < candles[3].close &&
+            //
+            candles[3].close > candles[4].close &&
+            //
+            candles[5].close < candles[4].close &&
+            candles[6].close < candles[5].close
+            //
+            ;
+
+        //
+        if (isSwingHigh)
+        {
+            type = X_SWING_HIGH;
+        }
+    }
+
+    //
+    switch (type)
+    {
+    //
+    // Swing High ...
+    case X_SWING_HIGH:
+        //
+        swingBuffer[bar_index] = type;
+        DrawSwingArrow(1, bar_index);
+        break;
+
+    //
+    // Swinmg Low ...
+    case X_SWING_LOW:
+        //
+        swingBuffer[bar_index] = type;
+        DrawSwingArrow(0, bar_index);
+        break;
+
+    //
+    // No Swing ...
+    default:
+    case X_NO_SWING:
+        //
+        swingBuffer[bar_index] = 0;
+        break;
+    }
+}
+
+//
+// Draw a Swing Arrow Shape ...
+void DrawSwingArrow(
+    int type, // Swing Type: 0 - Low / 1 - High ...
+    int bar_index)
+{
+    //
+    bool isSwingHigh = type == 1;
+    XOHCL candle = GetCandle(bar_index + 3);
+    double arrowDistanceInPoint = 0;
+
+    //
+    // Define Required Object Properties fro Draw an Arrow ...
+    datetime time = iTime(_Symbol, _Period, bar_index + 3);
+    double purePrice = isSwingHigh ? candle.high : candle.low;
+    color clr = isSwingHigh ? swingHighArrowColor : swingLowArrowColor;
+    ENUM_ARROW_ANCHOR anchor = isSwingHigh ? ANCHOR_BOTTOM : ANCHOR_TOP;
+    uchar arrowCode = uchar(isSwingHigh ? swingHighArrowCode : swingLowArrowCode);
+    double price = isSwingHigh ? purePrice + arrowDistanceInPoint : purePrice - arrowDistanceInPoint;
+    string name = "Swing " + (isSwingHigh ? "High" : "Low") + "_" + (string)time + "_" + (string)purePrice;
+
+    //
+    // Draw desired Arrow ...
+    DrawArrow(
+        0,
+        name,
+        0,
+        time,
+        price,
+        arrowCode,
+        anchor,
+        clr);
+}
+//
+// END Functions ...
+//

BKPS/XAU5-0.43/Indicators/x-saherelm.xrsi.oscillator.mq5

@@ -0,0 +1,397 @@
+/////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 OrderBlock Detector Oscillator
+// ------------------------------------------------------
+// Name: XRSI
+// Description: detect market conditions based on RSI ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XRSI Oscillator"
+#property strict
+
+//
+// START Constants ...
+//
+
+#define ShortName "XRSI"
+
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+
+//
+input group "Market";
+input int length = 14;                            // Market Length
+input ENUM_APPLIED_PRICE appliedTo = PRICE_CLOSE; // Applied To
+
+//
+input group "Short Entry";
+input double shortEntryValue = 70;                     // Short Entry Level
+input color shortEntryColor = clrRed;                  // Short Entry Level Color
+input ENUM_LINE_STYLE shortEntryLineStyle = STYLE_DOT; // Short Entry Style
+
+//
+input group "Short Exit";
+input double shortExitValue = 40;                     // Short Exit Level
+input color shortExitColor = clrRed;                  // Short Exit Level Color
+input ENUM_LINE_STYLE shortExitLineStyle = STYLE_DOT; // Short Exit Style
+
+//
+input group "Long Entry";
+input double longEntryValue = 30;                     // Long Entry Level
+input color longEntryColor = clrRed;                  // Long Entry Level Color
+input ENUM_LINE_STYLE longEntryLineStyle = STYLE_DOT; // Long Entry Style
+
+//
+input group "Long Exit";
+input double longExitValue = 60;                     // Long Exit Level
+input color longExitColor = clrRed;                  // Long Exit Level Color
+input ENUM_LINE_STYLE longExitLineStyle = STYLE_DOT; // Long Exit Style
+
+//
+// START Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Include Common and Models Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Buffers ...
+//
+
+//
+#property indicator_separate_window
+#property indicator_buffers 2
+#property indicator_plots 1
+
+//
+#define rsiBufferIndex 0
+#define rsiColorBufferIndex 1
+
+//
+double rsiBuffer[];
+double rsiColorBuffer[];
+
+//
+#property indicator_label1 "XRSI"
+#property indicator_type1 DRAW_COLOR_LINE
+#property indicator_color1 clrAqua, clrGray, clrFuchsia
+#property indicator_style1 STYLE_DOT
+#property indicator_width1 1
+
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+
+//
+int rsiHandler = INVALID_HANDLE;
+
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+
+    //
+    rsiHandler = iRSI(
+        _Symbol,
+        _Period,
+        length,
+        appliedTo);
+    if (rsiHandler == INVALID_HANDLE)
+    {
+        return INIT_FAILED;
+    }
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+
+    //
+    IndicatorRelease(rsiHandler);
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(0, length);
+
+    //
+    int rsiCalculatedBars = BarsCalculated(rsiHandler);
+    if (rsiCalculatedBars < maxLength)
+    {
+        return prev_calculated;
+    }
+
+    //
+    limit = prev_calculated < maxLength ? rates_total - (maxLength + 1) : rates_total - prev_calculated;
+
+    //
+    int rsiCopiedItems = CopyBuffer(rsiHandler, 0, 0, limit, rsiBuffer);
+    if (rsiCopiedItems <= 0)
+    {
+        return prev_calculated;
+    }
+
+    //
+    // Main Loop ...
+    for (int i = limit - 1; i >= 0 && !IsStopped(); i--)
+    {
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (length >= 2)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    // RSI ...
+    string rsiBufferLabel = ShortName + " (" + (string)length + ")";
+    ArraySetAsSeries(rsiBuffer, true);
+    SetIndexBuffer(rsiBufferIndex, rsiBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(rsiBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(rsiBufferIndex, PLOT_LABEL, rsiBufferLabel);
+
+    //
+    // RSI Color Buffer ...
+    ArraySetAsSeries(rsiColorBuffer, true);
+    SetIndexBuffer(rsiColorBufferIndex, rsiColorBuffer, INDICATOR_COLOR_INDEX);
+
+    //
+    // Set Indicator Levels here ...
+    // OB, ExitLong, ExitShort, OS ...
+    IndicatorSetInteger(INDICATOR_LEVELS, 4);
+
+    //
+    // SHORTENTRY ...
+    IndicatorSetDouble(INDICATOR_LEVELVALUE, 0, shortEntryValue);
+    IndicatorSetInteger(INDICATOR_LEVELCOLOR, 0, shortEntryColor);
+    IndicatorSetInteger(INDICATOR_LEVELSTYLE, 0, shortEntryLineStyle);
+    IndicatorSetString(INDICATOR_LEVELTEXT, 0, "Short Entry");
+
+    //
+    // LONGEXIT ...
+    IndicatorSetDouble(INDICATOR_LEVELVALUE, 1, longExitValue);
+    IndicatorSetInteger(INDICATOR_LEVELCOLOR, 1, longExitColor);
+    IndicatorSetInteger(INDICATOR_LEVELSTYLE, 1, shortExitLineStyle);
+    IndicatorSetString(INDICATOR_LEVELTEXT, 1, "Long Exit");
+
+    //
+    // SHORTEXIT ...
+    IndicatorSetDouble(INDICATOR_LEVELVALUE, 2, shortExitValue);
+    IndicatorSetInteger(INDICATOR_LEVELCOLOR, 2, shortExitColor);
+    IndicatorSetInteger(INDICATOR_LEVELSTYLE, 2, longEntryLineStyle);
+    IndicatorSetString(INDICATOR_LEVELTEXT, 2, "Short Exit");
+
+    //
+    // LONGENTRY ...
+    IndicatorSetDouble(INDICATOR_LEVELVALUE, 3, longEntryValue);
+    IndicatorSetInteger(INDICATOR_LEVELCOLOR, 3, longEntryColor);
+    IndicatorSetInteger(INDICATOR_LEVELSTYLE, 3, longExitLineStyle);
+    IndicatorSetString(INDICATOR_LEVELTEXT, 3, "Long Entry");
+
+    //
+    // Set Maximum and Minimum for subwindow
+    IndicatorSetInteger(INDICATOR_DIGITS, 2);
+    IndicatorSetDouble(INDICATOR_MINIMUM, 0);
+    IndicatorSetDouble(INDICATOR_MAXIMUM, 100);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, " ", "( ", length, " )");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(int bar_index)
+{
+    //
+    double iValue = rsiBuffer[bar_index];
+
+    //
+    double iColorIndex = 0;
+
+    //
+    if (
+        iValue >= shortEntryValue ||
+        iValue <= longEntryValue ||
+        (iValue < longExitValue &&
+         iValue > shortExitValue))
+    {
+        iColorIndex = 0;
+    }
+    else if (
+        iValue <= shortEntryValue &&
+        iValue >= longExitValue)
+    {
+        iColorIndex = 2;
+    }
+    else if (
+        iValue < shortExitValue &&
+        iValue > longEntryValue)
+    {
+        iColorIndex = 1;
+    }
+
+    //
+    rsiColorBuffer[bar_index] = iColorIndex;
+}
+
+//
+// END Functions ...
+//

BKPS/XAU5-0.43/Indicators/x-saherelm.xtd.oscillator.mq5

@@ -0,0 +1,465 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Trend Detector Oscillator
+// --------------------------------------------------
+// Name: XTD
+// Description: trend detecting in both sides ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XTD Oscillator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XTD"
+
+//
+// XTD Oscillator States ...
+enum ENUM_X_XTD_STATES
+{
+    X_XTD_BULLISH_CROSSED_OVER_BEARISH = 2,
+    X_XTD_BULLISH_OVER_BEARISH = 1,
+    X_XTD_NEUTURAL = 0,
+    X_XTD_BULLISH_UNDER_BEARISH = -1,
+    X_XTD_BULLISH_CROSSED_UNDER_BEARISH = -2
+};
+//
+// END Constants ...
+//
+
+//
+// Include Models Library ...
+#include "../Libraries/x-saherelm.models.lib.mq5"
+
+//
+// START Inputs ...
+//
+input int length = 14;         // Market Length
+input bool drawCrosses = true; // Draw Cross Arrows
+
+//
+// Bullish ...
+input uchar bullishArrowCode = 228;      // Cross Over Arrow Code
+input color bullishArrowColor = clrAqua; // Cross Over Arrow Color
+
+//
+// Bearish ...
+input uchar bearishArrowCode = 230;         // Cross Under Arrow Code
+input color bearishArrowColor = clrMagenta; // Cross Under Arrow Color
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5";
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5";
+
+//
+// Includes Draw Library ...
+#include "../Libraries/x-saherelm.draw.lib.mq5";
+
+//
+// START Buffers ...
+//
+#property indicator_separate_window
+
+//
+#property indicator_buffers 3
+#property indicator_plots 3
+
+//
+#define bullishBufferIndex 0
+#define bearishBufferIndex 1
+#define signalBufferIndex 2
+
+//
+double bullishBuffer[];
+double bearishBuffer[];
+double signalBuffer[];
+
+//
+#property indicator_label1 "XBullPower"
+#property indicator_type1 DRAW_LINE
+#property indicator_color1 clrLime
+#property indicator_style1 STYLE_SOLID
+#property indicator_width1 1
+
+//
+#property indicator_label2 "XBearPower"
+#property indicator_type2 DRAW_LINE
+#property indicator_color2 clrRed
+#property indicator_style2 STYLE_SOLID
+#property indicator_width2 1
+
+//
+#property indicator_label3 "XSignal"
+#property indicator_type3 DRAW_LINE
+#property indicator_color3 clrGold
+#property indicator_style3 STYLE_DOT
+#property indicator_width3 1
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+//
+int xtdBullishCandleCount = 0;
+int xtdBearishCandleCount = 0;
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+    drawPrefix = ShortName;
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+
+    //
+    // De Init Draw Library ...
+    OnDeinitDrawLibrary();
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(0, length);
+
+    //
+    limit = prev_calculated < maxLength ? rates_total - (maxLength + 1) : rates_total - prev_calculated;
+
+    //
+    // Main Loop ...
+    for (int i = limit; i >= 0 && !IsStopped(); i--)
+    {
+        //
+        CalculateBuffers(i, close);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (length >= 5)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    // Bullish Buffer ...
+    string bullishBufferLabel = ShortName + "BullPow " + "(" + (string)length + ")";
+    ArraySetAsSeries(bullishBuffer, true);
+    SetIndexBuffer(bullishBufferIndex, bullishBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(bullishBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(bullishBufferIndex, PLOT_LABEL, bullishBufferLabel);
+
+    //
+    // Bearish Buffer ...
+    string bearishBufferLabel = ShortName + "BearPow " + "(" + (string)length + ")";
+    ArraySetAsSeries(bearishBuffer, true);
+    SetIndexBuffer(bearishBufferIndex, bearishBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(bearishBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(bearishBufferIndex, PLOT_LABEL, bearishBufferLabel);
+
+    //
+    // Signal Buffer ...
+    string signalBufferLabel = ShortName + "Signal " + "(" + (string)length + ")";
+    ArraySetAsSeries(signalBuffer, true);
+    SetIndexBuffer(signalBufferIndex, signalBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(signalBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(signalBufferIndex, PLOT_LABEL, signalBufferLabel);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, " ", "( ", length, " )");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(
+    int bar_index,
+    const double &close[])
+{
+    //
+    // Reset Global Counters ...
+    xtdBullishCandleCount = 0;
+    xtdBearishCandleCount = 0;
+
+    //
+    // Loop through Closes ...
+    for (int i = bar_index; i <= bar_index + length; i++)
+    {
+        for (int j = i + 1; j <= bar_index + length; j++)
+        {
+            //
+            if (close[i] > close[j])
+            {
+                xtdBullishCandleCount++;
+            }
+
+            //
+            if (close[i] < close[j])
+            {
+                xtdBearishCandleCount++;
+            }
+        }
+    }
+
+    //
+    // Bullish Power Buffer ...
+    bullishBuffer[bar_index] = MathAbs(xtdBullishCandleCount);
+
+    //
+    // Bearish Power Buffer ...
+    bearishBuffer[bar_index] = MathAbs(xtdBearishCandleCount);
+
+    //
+    // Signal Buffer ...
+    signalBuffer[bar_index] = bullishBuffer[bar_index] - bearishBuffer[bar_index];
+
+    //
+    // Check and Draw Crosses if it's Specified ...
+    if (drawCrosses)
+    {
+        DrawCrosses(bar_index);
+    }
+}
+
+//
+//
+double GetState(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    // Check Cross Points ...
+    // bullishCrossedOverBearish = 2;
+    // bullishOverBearish = 1;
+    // bullishCrossedUnderBearish = -2;
+    // bullishUnderBearish = -1;
+    // OtherWise = 0;
+    bool isBullishCrossedOverBearish = IsCrossOver(
+        bullishBuffer,
+        bearishBuffer,
+        bar_index);
+    bool isBullishCrossedUnderBearish = IsCrossUnder(
+        bullishBuffer,
+        bearishBuffer,
+        bar_index);
+    bool isBullishOverBearish = IsOver(
+        bullishBuffer,
+        bearishBuffer,
+        bar_index);
+    bool isBullishUnderBearish = IsUnder(
+        bullishBuffer,
+        bearishBuffer,
+        bar_index);
+
+    //
+    double result = X_XTD_NEUTURAL;
+    if (isBullishCrossedOverBearish)
+    {
+        result = X_XTD_BULLISH_CROSSED_OVER_BEARISH;
+    }
+    else if (isBullishCrossedUnderBearish)
+    {
+        result = X_XTD_BULLISH_CROSSED_UNDER_BEARISH;
+    }
+    else if (isBullishOverBearish)
+    {
+        result = X_XTD_BULLISH_OVER_BEARISH;
+    }
+    else if (isBullishUnderBearish)
+    {
+        result = X_XTD_BULLISH_UNDER_BEARISH;
+    }
+    else
+    {
+        result = X_XTD_NEUTURAL;
+    }
+
+    //
+    return result;
+}
+
+//
+// Draw Crosses ...
+void DrawCrosses(
+    int bar_index // the bars which required to draw cross arrow on it ...
+)
+{
+    //
+    double stateValue = GetState(bar_index);
+
+    //
+    bool isOver = stateValue == 2;
+    double low = iLow(_Symbol, _Period, bar_index);
+    double high = iHigh(_Symbol, _Period, bar_index);
+
+    //
+    double price = isOver ? low : high;
+    datetime time = iTime(_Symbol, _Period, bar_index);
+    ENUM_ARROW_ANCHOR anchor = isOver ? ANCHOR_TOP : ANCHOR_BOTTOM;
+    uchar arrowCode = isOver ? bullishArrowCode : bearishArrowCode;
+    color arrowColor = isOver ? bullishArrowColor : bearishArrowColor;
+    string crossName = "Trend " + (isOver ? "Up" : "Down") + "_" + (string)time + "_" + (string)price;
+
+    //
+    DrawArrow(
+        0,
+        crossName,
+        0,
+        time,
+        price,
+        arrowCode,
+        anchor,
+        arrowColor);
+}
+//
+// END Functions ...
+//

BKPS/XAU5-0.43/Indicators/x-saherelm.xtm.indicator.mq5

@@ -0,0 +1,349 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5  Candle Indicator
+// ---------------------------------------------
+// Name: XTM
+// Description: Trend Magic Indicator ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XTM Indicator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XTM"
+
+//
+// XTM Indicator States ...
+enum ENUM_X_XTM_STATES
+{
+    X_XTM_BULLISH = 1,
+    X_XTM_BEARISH = -1,
+    X_XTM_NEUTURAL = 0,
+};
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+input int maPeriod = 14;                            // Period
+input int maShift = 0;                              // Shift
+input ENUM_MA_METHOD maMethod = MODE_SMA;           // Method
+input ENUM_APPLIED_PRICE maAppliedTo = PRICE_CLOSE; // Applied To
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Buffers ...
+//
+#property indicator_chart_window
+
+//
+#property indicator_buffers 3
+#property indicator_plots 1
+
+//
+// maBuffer ...
+#define maBufferIndex 0
+#define maColorBufferIndex 1
+#define stateBufferIndex 2
+
+double maBuffer[];
+double maColorBuffer[];
+double stateBuffer[];
+
+#property indicator_label1 "XTM"
+#property indicator_type1 DRAW_COLOR_LINE
+#property indicator_color1 clrLime, clrGray, clrRed
+#property indicator_style1 STYLE_SOLID
+#property indicator_width1 1
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+int maHandler = INVALID_HANDLE;
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+
+    //
+    // Initializing MA Handler ...
+    maHandler = iMA(
+        _Symbol,
+        _Period,
+        maPeriod,
+        maShift,
+        maMethod,
+        maAppliedTo);
+    if (maHandler == INVALID_HANDLE)
+    {
+        //
+        string message = "Error Initializing Ma Handler ...";
+        LogMessage(message);
+
+        //
+        return INIT_FAILED;
+    }
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(0, maPeriod);
+
+    //
+    // Check Calculated Bars ...
+    int maCalculatedBars = BarsCalculated(maHandler);
+    if (maCalculatedBars < maxLength)
+    {
+        return prev_calculated;
+    }
+
+    //
+    limit = (prev_calculated > rates_total || prev_calculated <= 0) ? rates_total : (rates_total - prev_calculated) + 1;
+
+    //
+    // Buffers Copy ...
+    int copiedMas = CopyBuffer(maHandler, 0, 0, limit, maBuffer);
+    if (copiedMas <= 0)
+    {
+        return prev_calculated;
+    }
+
+    //
+    // Main Loop ...
+    for (int i = limit - 1; i >= 0 && !IsStopped(); i--)
+    {
+        //
+        // Do Buffers Calculation ...
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (maPeriod >= 2)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    string maBufferLabel = "XTM " + "(" + (string)maPeriod + ")";
+
+    //
+    // Ma Buffer ...
+    ArraySetAsSeries(maBuffer, true);
+    SetIndexBuffer(maBufferIndex, maBuffer, INDICATOR_DATA);
+    PlotIndexSetString(maBufferIndex, PLOT_LABEL, maBufferLabel);
+
+    //
+    // Ma Color Buffer ...
+    ArraySetAsSeries(maColorBuffer, true);
+    SetIndexBuffer(maColorBufferIndex, maColorBuffer, INDICATOR_COLOR_INDEX);
+
+    //
+    // State Buffer ...
+    ArraySetAsSeries(stateBuffer, true);
+    SetIndexBuffer(stateBufferIndex, stateBuffer, INDICATOR_CALCULATIONS);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, " ", "(", maPeriod, ")");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(int bar_index)
+{
+    //
+    // Requirements ...
+    XOHCL candle = GetCandle(bar_index);
+
+    //
+    double maValue = maBuffer[bar_index];
+
+    //
+    double lineColorIndex =
+        maValue < candle.low ? 0 : maValue > candle.high ? 2
+                                                         : 1;
+
+    //
+    // Define State Value ...
+    // lineColorIndex == 0 => Bullish => 1;
+    // lineColorIndex == 1 => Neutural => 0;
+    // lineColorIndex == 2 => Bearish => -1;
+    double stateValue =
+        lineColorIndex == 0 ? X_XTM_BULLISH : lineColorIndex == 2 ? X_XTM_BEARISH
+                                                                  : X_XTM_NEUTURAL;
+
+    //
+    // Set Ma Buffer Color Index ...
+    maColorBuffer[bar_index] = lineColorIndex;
+
+    //
+    // Set State Buffer Value ...
+    stateBuffer[bar_index] = stateValue;
+}
+
+//
+// END Functions ...
+//

BKPS/XAU5-0.43/Indicators/x-saherelm.xts.oscillator.mq5

@@ -0,0 +1,558 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XTS Oscillator
+// ---------------------------------------------
+// Name: XTS
+// Description: Time Sections Oscillator ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XTS Oscillator"
+#property strict
+
+//
+// START Constants ...
+//
+
+#define ShortName "XTS"
+
+enum ENUM_X_PERIOD_METHOD
+{
+    //
+    X_PERIOD_NOTHING,
+    //
+    X_PERIOD_AUTO,
+    //
+    X_PERIOD_MANUALLY
+};
+
+//
+// XTS Oscillator States ...
+
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+input group "Current Period";
+input ENUM_APPLIED_PRICE currentAppliedTo = PRICE_CLOSE; // Current Applied To
+//
+input group "Nearest Period";
+input ENUM_X_PERIOD_METHOD nearestMethod = X_PERIOD_AUTO; // How to Find Nearest Period
+input ENUM_TIMEFRAMES nearestPeriod = NULL;               // Nearest Time Frame
+input ENUM_APPLIED_PRICE nearestAppliedTo = PRICE_CLOSE;  // Nearest Applied To
+//
+input group "Mediest Period";
+input ENUM_X_PERIOD_METHOD mediestMethod = X_PERIOD_AUTO; // How to Find Mediest Period
+input ENUM_TIMEFRAMES mediestPeriod = NULL;               // Mediest Time Frame
+input ENUM_APPLIED_PRICE mediestAppliedTo = PRICE_CLOSE;  // Mediest Applied To
+//
+input group "Farest Period";
+input ENUM_X_PERIOD_METHOD farestMethod = X_PERIOD_AUTO; // How to Find Farest Period
+input ENUM_TIMEFRAMES farestPeriod = NULL;               // Farest Time Frame
+input ENUM_APPLIED_PRICE farestAppliedTo = PRICE_CLOSE;  // Farest Applied To
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Includes Draw Library ...
+#include "../Libraries/x-saherelm.draw.lib.mq5"
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Buffers ...
+//
+#property indicator_separate_window
+
+//
+#property indicator_buffers 4
+#property indicator_plots 4
+
+//
+// Current ...
+#define currentBufferIndex 0
+
+double currentBuffer[];
+
+#property indicator_label1 "XTS C"
+#property indicator_type1 DRAW_LINE
+#property indicator_color1 clrBrown
+#property indicator_style1 STYLE_SOLID
+#property indicator_width1 1
+
+//
+// Nearest ...
+#define nearestBufferIndex 1
+
+double nearestBuffer[];
+
+#property indicator_label2 "XTS N"
+#property indicator_type2 DRAW_LINE
+#property indicator_color2 clrAqua
+#property indicator_style2 STYLE_SOLID
+#property indicator_width2 1
+
+//
+// Mediest ...
+#define mediestBufferIndex 2
+
+double mediestBuffer[];
+
+#property indicator_label3 "XTS M"
+#property indicator_type3 DRAW_LINE
+#property indicator_color3 clrLime
+#property indicator_style3 STYLE_SOLID
+#property indicator_width3 1
+
+//
+// Farest ...
+#define farestBufferIndex 3
+
+double farestBuffer[];
+
+#property indicator_label4 "XTS F"
+#property indicator_type4 DRAW_LINE
+#property indicator_color4 clrLightBlue
+#property indicator_style4 STYLE_SOLID
+#property indicator_width4 1
+
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+
+//
+ENUM_TIMEFRAMES mNearestPeriod = NULL;
+ENUM_TIMEFRAMES mMediestPeriod = NULL;
+ENUM_TIMEFRAMES mFarestPeriod = NULL;
+
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+    drawPrefix = ShortName;
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Oscillator ShortName ...
+    SetOscillatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    OnDeinitDrawLibrary();
+
+    //
+    Comment("");
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = 30;
+
+    //
+    limit = (prev_calculated > rates_total || prev_calculated <= 0) ? rates_total : (rates_total - prev_calculated) + 1;
+
+    //
+    // Main Loop ...
+    for (int i = 0; i < limit && !IsStopped(); i++)
+    {
+        //
+        // Do Buffers Calculation ...
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = true;
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    int maxLength = 30;
+
+    //
+    // Current ...
+    ArraySetAsSeries(currentBuffer, true);
+    SetIndexBuffer(currentBufferIndex, currentBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(currentBufferIndex, PLOT_DRAW_BEGIN, maxLength);
+
+    //
+    // Nearest ...
+    ArraySetAsSeries(nearestBuffer, true);
+    SetIndexBuffer(nearestBufferIndex, nearestBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(nearestBufferIndex, PLOT_DRAW_BEGIN, maxLength);
+
+    //
+    // Mediest ...
+    ArraySetAsSeries(mediestBuffer, true);
+    SetIndexBuffer(mediestBufferIndex, mediestBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(mediestBufferIndex, PLOT_DRAW_BEGIN, maxLength);
+
+    //
+    // Farest ...
+    ArraySetAsSeries(farestBuffer, true);
+    SetIndexBuffer(farestBufferIndex, farestBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(farestBufferIndex, PLOT_DRAW_BEGIN, maxLength);
+}
+
+//
+// Set Oscillator Short Name and also we can define Buffers Labels ...
+void SetOscillatorName()
+{
+    IndicatorSetString(INDICATOR_SHORTNAME, ShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(int bar_index)
+{
+    //
+    // Current ...
+    CalculateCurrent(bar_index);
+
+    //
+    // Nearest ...
+    CalculateNearest(bar_index);
+
+    //
+    // Mediest ...
+    CalculateMediest(bar_index);
+
+    //
+    // Farest ...
+    CalculateFarest(bar_index);
+
+    //
+    // Commenting ...
+    string comment = GenerateDescriptionComment();
+    Comment(comment);
+}
+
+//
+// Current ...
+void CalculateCurrent(int bar_index)
+{
+    //
+    datetime barTime = iTime(
+        _Symbol,
+        _Period,
+        bar_index);
+    datetime startTime = GetPeriodStartTime(
+        _Symbol,
+        _Period,
+        barTime);
+    int startBarIndex = iBarShift(
+        _Symbol,
+        _Period,
+        startTime);
+
+    //
+    XOHCL c = GetCandle(
+        _Symbol,
+        _Period,
+        startBarIndex);
+
+    //
+    double value = GetAppliedPrice(
+        c,
+        currentAppliedTo);
+
+    //
+    currentBuffer[bar_index] = value;
+}
+
+//
+// Nearest ...
+void CalculateNearest(int bar_index)
+{
+    //
+    if (mNearestPeriod == NULL)
+    {
+        //
+        switch (nearestMethod)
+        {
+        //
+        case X_PERIOD_AUTO:
+            mNearestPeriod = GetNearestTimeFrame(_Period);
+            break;
+
+        //
+        case X_PERIOD_NOTHING:
+        case X_PERIOD_MANUALLY:
+            mNearestPeriod = nearestPeriod;
+            break;
+        }
+    }
+
+    //
+    datetime barTime = iTime(
+        _Symbol,
+        _Period,
+        bar_index);
+    datetime startTime = GetPeriodStartTime(
+        _Symbol,
+        mNearestPeriod,
+        barTime);
+    int startBarIndex = iBarShift(
+        _Symbol,
+        _Period,
+        startTime);
+
+    //
+    XOHCL c = GetCandle(
+        _Symbol,
+        _Period,
+        startBarIndex);
+
+    //
+    double value = GetAppliedPrice(
+        c,
+        nearestAppliedTo);
+
+    //
+    nearestBuffer[bar_index] = value;
+}
+
+//
+// Mediest ...
+void CalculateMediest(int bar_index)
+{
+    //
+    if (mMediestPeriod == NULL)
+    {
+        //
+        switch (mediestMethod)
+        {
+        //
+        case X_PERIOD_AUTO:
+            mMediestPeriod = GetMediestTimeFrame(_Period);
+            break;
+
+        //
+        case X_PERIOD_NOTHING:
+        case X_PERIOD_MANUALLY:
+            mMediestPeriod = mediestPeriod;
+            break;
+        }
+    }
+
+    //
+    datetime barTime = iTime(
+        _Symbol,
+        _Period,
+        bar_index);
+    datetime startTime = GetPeriodStartTime(
+        _Symbol,
+        mMediestPeriod,
+        barTime);
+    int startBarIndex = iBarShift(
+        _Symbol,
+        _Period,
+        startTime);
+
+    //
+    XOHCL c = GetCandle(
+        _Symbol,
+        _Period,
+        startBarIndex);
+
+    //
+    double value = GetAppliedPrice(
+        c,
+        mediestAppliedTo);
+
+    //
+    mediestBuffer[bar_index] = value;
+}
+
+//
+// Farest ...
+void CalculateFarest(int bar_index)
+{
+    //
+    if (mFarestPeriod == NULL)
+    {
+        //
+        switch (farestMethod)
+        {
+        //
+        case X_PERIOD_AUTO:
+            mFarestPeriod = GetFarestTimeFrame(_Period);
+            break;
+
+        //
+        case X_PERIOD_NOTHING:
+        case X_PERIOD_MANUALLY:
+            mFarestPeriod = farestPeriod;
+            break;
+        }
+    }
+
+    //
+    datetime barTime = iTime(
+        _Symbol,
+        _Period,
+        bar_index);
+    datetime startTime = GetPeriodStartTime(
+        _Symbol,
+        mFarestPeriod,
+        barTime);
+    int startBarIndex = iBarShift(
+        _Symbol,
+        _Period,
+        startTime);
+
+    //
+    XOHCL c = GetCandle(
+        _Symbol,
+        _Period,
+        startBarIndex);
+
+    //
+    double value = GetAppliedPrice(
+        c,
+        farestAppliedTo);
+
+    //
+    farestBuffer[bar_index] = value;
+}
+
+//
+// Generate Comment ...
+string GenerateDescriptionComment()
+{
+    //
+    string result = "";
+
+    //
+    result += "Nearest : " + EnumToString(mNearestPeriod) + "\n";
+    result += "Mediest : " + EnumToString(mMediestPeriod) + "\n";
+    result += "Farest : " + EnumToString(mFarestPeriod) + "\n";
+
+    //
+    return result;
+}
+//
+// END Functions ...
+//

BKPS/XAU5-0.43/Libraries/x-saherelm.alert.lib.mq5

@@ -0,0 +1,200 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Alert Library
+// --------------------------------------
+// Name: XAlert
+// Description: provides Alerts abilities ...
+//
+//
+// 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
+
+//
+// START Inputs ...
+//
+input group "Alerts";
+input bool enableAlerts = true;    // Enable Alerts
+input bool logAlerts = true;       // Log Alerts
+input bool terminalAlerts = false; // Terminal Alerts
+input bool mailAlerts = false;     // Mail Alerts
+input bool pushAlerts = false;     // Push Alerts
+//
+// END Inputs ...
+//
+
+//
+#include "x-saherelm.log.lib.mq5"
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+string alertPrefix = "X-Alert";
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Provided Functions ...
+//
+//
+// Initial Library if required ...
+bool OnInInitAlertLibrary()
+{
+    return false;
+}
+
+//
+// DeInitial Library if required ...
+void OnDeinitAlertLibrary()
+{
+}
+
+//
+// Attach Alert Prefix to Message ...
+string PrepareAlertMessage(string message)
+{
+    //
+    StringReplace(message, "\n", " | ");
+
+    //
+    StringConcatenate(message, alertPrefix, " > ", message);
+
+    //
+    return message;
+}
+
+//
+// Logging an Alert ...
+void LogAlert(string message)
+{
+    //
+    // Validate Args ...
+    if (!enableAlerts || !logAlerts)
+    {
+        return;
+    }
+
+    //
+    LogMessage(alertPrefix, message);
+}
+
+//
+// Terminal Alert ...
+void TerminalAlert(string message)
+{
+    //
+    // Validate Args ...
+    if (!enableAlerts || !terminalAlerts)
+    {
+        return;
+    }
+
+    //
+    // Prepare Message ...
+    message = PrepareAlertMessage(message);
+
+    // Send Terminal Alert ...
+    Alert(message);
+}
+
+//
+// Mail Alert ...
+void MailAlert(string message)
+{
+    //
+    // Validate Args ...
+    if (!enableAlerts || !mailAlerts)
+    {
+        return;
+    }
+
+    //
+    // Send Mail Alert ...
+    SendMail(alertPrefix, message);
+}
+
+//
+// Send Push Notification ...
+void PushAlert(string message)
+{
+    //
+    // Validate Args ...
+    if (!enableAlerts || !pushAlerts)
+    {
+        return;
+    }
+
+    //
+    // Prepare Message ...
+    message = PrepareAlertMessage(message);
+
+    //
+    // Send Push Notification Alert ...
+    SendNotification(message);
+}
+
+//
+// Alert Sending ...
+void SendAlert(string message)
+{
+    //
+    // Validate Args ...
+    if (!enableAlerts)
+    {
+        return;
+    }
+
+    //
+    // Log ...
+    if (logAlerts)
+    {
+        LogAlert(message);
+    }
+
+    //
+    // Terminal ...
+    if (terminalAlerts)
+    {
+        TerminalAlert(message);
+    }
+
+    //
+    // Mail ...
+    if (mailAlerts)
+    {
+        MailAlert(message);
+    }
+
+    //
+    // Push ...
+    if (pushAlerts)
+    {
+        PushAlert(message);
+    }
+}
+void SendAlert(
+    XSignal &signal,       // the Signal Object which requred to Alert
+    bool asExecuted = true // determines Alert Signal as Executed Signal or not
+)
+{
+    //
+    // Prepare Message ...
+    string message = asExecuted ? ExecutedSignalToString(signal) : SignalToString(signal);
+
+    //
+    // Do Alerting ...
+    SendAlert(message);
+}
+//
+// END Provided Functions ...
+//

BKPS/XAU5-0.43/Libraries/x-saherelm.http.lib.mq5

@@ -0,0 +1,177 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Http Library
+// ------------------------------------------
+// Name: XHttp
+// Description: provide http communication
+// abilities ...
+//
+//
+// 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
+
+//
+// START Model Definition ...
+//
+enum X_HTTP_METHOD
+{
+    X_HTTP_GET,
+    X_HTTP_POST
+};
+//
+// END Model Definition ...
+//
+
+//
+// START Inputs ...
+//
+//
+// END Inputs ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Provided Functions ...
+//
+//
+// Initial Library if required ...
+bool OnInInitHttpLibrary()
+{
+    return false;
+}
+
+//
+// DeInitial Library if required ...
+void OnDeinitHttpLibrary()
+{
+}
+
+//
+// Convert enum to String ...
+string ToString(X_HTTP_METHOD method)
+{
+    //
+    string result = "";
+
+    //
+    switch (method)
+    {
+    //
+    case X_HTTP_GET:
+        result = "GET";
+        break;
+
+    //
+    case X_HTTP_POST:
+        result = "POST";
+        break;
+    }
+
+    //
+    return result;
+}
+
+//
+// Send Global Request ...
+int SendRequest(
+    X_HTTP_METHOD method,   // Httm Request Method
+    const string url,       // Server Address
+    const string headers,   // Headers providing
+    const char &payload[],     // the Data which needs to Send
+    char &response[],       // Response of request
+    string responseHeaders, // Response Headers
+    int timeout = 500       // Timeout for response default is 500
+)
+{
+    //
+    int result = -1;
+
+    //
+    string strMethod = ToString(method);
+    if (StringLen(strMethod) == 0) {
+        return result;
+    }
+
+    //
+    result = WebRequest(
+        strMethod,
+        url,
+        headers,
+        timeout,
+        payload,
+        response,
+        responseHeaders
+    );
+
+    //
+    return result;
+}
+
+//
+// Get Request ...
+int GetRequest(
+    const string url,       // Server Address
+    const string headers,   // Headers providing
+    const char &payload[],     // the Data which needs to Send
+    char &response[],       // Response of request
+    string responseHeaders, // Response Headers
+    int timeout = 500       // Timeout for response default is 500
+) {
+    //
+    int result = SendRequest(
+        X_HTTP_GET,
+        url,
+        headers,
+        payload,
+        response,
+        responseHeaders,
+        timeout
+    );
+
+    //
+    return result;
+}
+
+//
+// Post Request ...
+int PostRequest(
+    const string url,       // Server Address
+    const string headers,   // Headers providing
+    const char &payload[],     // the Data which needs to Send
+    char &response[],       // Response of request
+    string responseHeaders, // Response Headers
+    int timeout = 500       // Timeout for response default is 500
+) {
+    //
+    int result = SendRequest(
+        X_HTTP_POST,
+        url,
+        headers,
+        payload,
+        response,
+        responseHeaders,
+        timeout
+    );
+
+    //
+    return result;
+}
+//
+// END Provided Functions ...
+//

BKPS/XAU5-0.43/Libraries/x-saherelm.log.lib.mq5

@@ -0,0 +1,261 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Logger Library
+// ---------------------------------------
+// Name: XLogger
+// Description: provides Logging abilities ...
+//
+//
+// 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
+
+//
+// START Inputs ...
+//
+input group "Logging";
+input bool enableLogging = true; // Enable Logging
+//
+// END Inputs ...
+//
+
+//
+// Including Models ...
+#include "x-saherelm.models.lib.mq5"
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+string logTag = "X-Logger"; // LogTag
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Provided Functions ...
+//
+//
+// Logging a Message ...
+void LogMessage(string message)
+{
+    //
+    if (!enableLogging)
+    {
+        return;
+    }
+
+    //
+    Print(logTag, " > ", message);
+}
+void LogMessage(string tag, string message)
+{
+    //
+    if (!enableLogging)
+    {
+        return;
+    }
+
+    //
+    Print(tag, " > ", message);
+}
+
+//
+// Logging an Array ...
+void LogArray(int &array[])
+{
+    //
+    if (!enableLogging)
+    {
+        return;
+    }
+
+    //
+    Print(logTag, ">");
+    ArrayPrint(array);
+}
+void LogArray(double &array[])
+{
+    //
+    if (!enableLogging)
+    {
+        return;
+    }
+
+    //
+    Print(logTag, ">");
+    ArrayPrint(array);
+}
+void LogArray(string &array[])
+{
+    //
+    if (!enableLogging)
+    {
+        return;
+    }
+
+    //
+    Print(logTag, ">");
+    ArrayPrint(array);
+}
+
+//
+// Convert a Signal to String Message ...
+string SignalToString(const XSignal &signal)
+{
+    //
+    string result = "\n";
+
+    //
+    result += "Signal: " + "\n";
+    result += "id: " + (string)signal.id + "\n";
+    result += "symbol: " + signal.symbol + "\n";
+    result += "type: " + EnumToString(signal.type) + "\n";
+    result += "magicNumber: " + (string)signal.magicNumber + "\n";
+    result += "ticket: " + (string)signal.ticket + "\n";
+    result += "entry: " + (string)signal.entry + "\n";
+    result += "tp: " + (string)signal.tp + "\n";
+    result += "sl: " + (string)signal.sl + "\n";
+    result += "riskFreeStep: " + (string)signal.riskFreeStep + "\n";
+    result += "riskFreeRate: " + (string)signal.riskFreeRate + "\n";
+    result += "profit: " + (string)signal.profit + "\n";
+    result += "time: " + (string)signal.time + "\n";
+    result += "volume: " + (string)signal.volume + "\n";
+    result += "comment: " + signal.comment + "\n";
+
+    //
+    return result;
+}
+
+//
+// Convert an Executed Signal to String Message ...
+string ExecutedSignalToString(const XSignal &signal)
+{
+    //
+    string result = "";
+
+    //
+    result += (signal.type == X_SIGNAL_LONG ? "Buy" : "Sell") + " Signal Executed provided on (" + signal.symbol + " _ " + EnumToString(_Period) + ") by this comment: " + signal.comment;
+
+    //
+    return result;
+}
+
+//
+// Logging Signal ...
+void LogSignal(const XSignal &signal)
+{
+    //
+    string message = SignalToString(signal);
+
+    //
+    LogMessage(message);
+}
+
+//
+// Log Signal Execution ...
+void LogExecutedSignal(const XSignal &signal)
+{
+    //
+    string message = ExecutedSignalToString(signal);
+
+    //
+    LogMessage(message);
+}
+
+//
+// Convert a Deal to String ...
+string DealToString(const XDeal &deal)
+{
+    //
+    string result = "\n";
+
+    //
+    result += "Deal:" + "\n";
+    result += " " + "\n";
+    result += "time: " + (string)deal.time + "\n";
+    result += "ticket: " + (string)deal.ticket + "\n";
+    result += "order: " + (string)deal.order + "\n";
+    result += "positionId: " + (string)deal.positionId + "\n";
+    result += "type: " + EnumToString(deal.type) + "\n";
+    result += "entry: " + EnumToString(deal.entry) + "\n";
+    result += "reason: " + EnumToString(deal.reason) + "\n";
+    result += "symbol: " + deal.symbol + "\n";
+    result += "price: " + (string)deal.price + "\n";
+    result += "profit: " + (string)deal.profit + "\n";
+    result += "swap: " + (string)deal.swap + "\n";
+    result += "commission: " + (string)deal.commission + "\n";
+    result += "volume: " + (string)deal.volume + "\n";
+    result += "comment: " + deal.comment + "\n";
+
+    //
+    return result;
+}
+
+//
+// Log Specific Deal ...
+void LogDeal(const XDeal &deal)
+{
+    //
+    string message = DealToString(deal);
+
+    //
+    LogMessage(message);
+}
+
+//
+// Convert an Order to String ...
+string OrderToString(const XOrder &order)
+{
+    //
+    string result = "\n";
+
+    //
+    result += "Order: " + "\n";
+    result += "magic: " + (string)order.magic + "\n";
+    result += "positionId: " + (string)order.positionId + "\n";
+    result += "symbol: " + (string)order.symbol + "\n";
+    result += "ticket: " + (string)order.ticket + "\n";
+    result += "timeSetup: " + (string)order.timeSetup + "\n";
+    result += "timeDone: " + (string)order.timeDone + "\n";
+    result += "timeExpiration: " + (string)order.timeExpiration + "\n";
+    result += "priceOpen: " + (string)order.priceOpen + "\n";
+    result += "priceCurrent: " + (string)order.priceCurrent + "\n";
+    result += "priceStopLimit: " + (string)order.priceStopLimit + "\n";
+    result += "stopLoss: " + (string)order.stopLoss + "\n";
+    result += "takeProfit: " + (string)order.takeProfit + "\n";
+    result += "volumeInitial: " + (string)order.volumeInitial + "\n";
+    result += "volumeCurrent: " + (string)order.volumeCurrent + "\n";
+    result += "comment: " + order.comment + "\n";
+    result += "type: " + EnumToString(order.type) + "\n";
+    result += "state: " + EnumToString(order.state) + "\n";
+    result += "typeFilling: " + EnumToString(order.typeFilling) + "\n";
+    result += "typeTime: " + EnumToString(order.typeTime) + "\n";
+    result += "reason: " + EnumToString(order.reason) + "\n";
+
+    //
+    return result;
+}
+
+//
+// Log Specific Order ...
+void LogOrder(const XOrder &order)
+{
+    //
+    string message = OrderToString(order);
+
+    //
+    LogMessage(message);
+}
+
+//
+// END Provided Functions ...
+//

BKPS/XAU5-0.43/Libraries/x-saherelm.models.lib.mq5

@@ -0,0 +1,438 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Models Library
+// ---------------------------------------
+// Name: XModels
+// Description: provides all required models ...
+//
+//
+// 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
+
+//
+// START Inputs ...
+//
+//
+// END Inputs ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Provided Functions ...
+//
+
+//
+// How To Calculate Static Volume ...
+enum ENUM_STATIC_VOLUME_METHODS
+{
+    //
+    // Based On Deposit ...
+    X_STATIC_VOLUME_BASED_ON_DEPOSIT,
+    //
+    // Based On Balance ...
+    X_STATIC_VOLUME_BASED_ON_BALANCE,
+};
+
+//
+// START Model Definitions ...
+//
+//
+// OHCL Candel Model ...
+enum ENUM_X_PRICE
+{
+    X_PRICE_HIGH,
+    X_PRICE_OPEN,
+    X_PRICE_CLOSE,
+    X_PRICE_LOW
+};
+
+//
+// Describe an Specific Candle ...
+struct XOHCL
+{
+    double high;
+    double open;
+    double close;
+    double low;
+};
+
+//
+// Swing Types Enum ...
+enum ENUM_X_SWING_TYPE
+{
+    X_NO_SWING = 0,
+    X_SWING_HIGH = 1,
+    X_SWING_LOW = -1,
+};
+
+//
+// XTrader Execution Signal Result ...
+enum ENUM_EXECUTION_SIGNAL_RESULT
+{
+    //
+    X_TRADER_UNKNOWN_ERROR,
+    X_TRADER_SUCCEED_EXECUTION,
+    X_TRADER_INVALID_SIGNAL_ERROR,
+    X_TRADER_NOT_ENOUGH_EQUITY_ERROR,
+    X_TRADER_MAX_TRADES_REACHED_ERROR,
+    X_TRADER_NOT_ENOUGH_BALANCE_ERROR,
+    X_TRADER_NOT_ENOUGH_MARIGIN_ERROR
+    //
+};
+
+//
+// Signal Types ...
+enum ENUM_X_SIGNAL_TYPE
+{
+    X_SIGNAL_LONG,
+    X_SIGNAL_SHORT,
+    X_SIGNAL_UNKNOWN,
+};
+
+//
+// Signal Structure ...
+struct XSignal
+{
+    //
+    // Identifier ...
+    ulong id;
+
+    //
+    // Which Symbol used for Signal ...
+    string symbol;
+
+    //
+    // Which Type of operations ...
+    ENUM_X_SIGNAL_TYPE type;
+
+    //
+    // Magic Number ...
+    ulong magicNumber;
+
+    //
+    // Ticket ...
+    ulong ticket;
+
+    //
+    // Entry/Open Price ...
+    double entry;
+
+    //
+    // TP ...
+    double tp;
+
+    //
+    // SL ...
+    double sl;
+
+    //
+    // Make Risk Free Trade on this Value if provided ...
+    double riskFreeStep;
+
+    //
+    // a Multiplier for determines how much trade volume exit on risk free time ...
+    double riskFreeRate;
+
+    //
+    // Trade Profit ...
+    double profit;
+
+    //
+    // Time of Operation ...
+    datetime time;
+
+    //
+    // Volume ...
+    double volume;
+
+    //
+    // Comment ...
+    string comment;
+};
+
+//
+// Signal Additional Info ...
+struct XProvidedSignal
+{
+    //
+    // Suggested TP ...
+    double tp;
+
+    //
+    // Suggested SL ...
+    double sl;
+
+    //
+    // Signallers ...
+    string signallers[];
+};
+
+//
+// Model Specific Deal ...
+struct XDeal
+{
+    //
+    //  the ID of the Expert Advisor, that executed the deal ...
+    ulong magic;
+
+    //
+    // the ID of position, in which the deal was involved ...
+    ulong positionId;
+
+    //
+    // Ticket ...
+    ulong ticket;
+
+    //
+    // the name of the deal symbol ...
+    string symbol;
+
+    //
+    // order by which the deal is executed ...
+    ulong order;
+
+    //
+    // the time of deal execution ...
+    datetime time;
+
+    //
+    // Deal price ...
+    double price;
+
+    //
+    // the financial result of the deal (in deposit currency) ...
+    double profit;
+
+    //
+    // the amount of swap when position is closed ...
+    double swap;
+
+    //
+    // the amount of commission of the deal ...
+    double commission;
+
+    //
+    // the volume of deal ...
+    double volume;
+
+    //
+    // the deal comment ...
+    string comment;
+
+    //
+    // the deal type ...
+    // ------------------------------------------------------------------
+    // DEAL_TYPE_BUY => Buy ...
+    // DEAL_TYPE_SELL => Sell ...
+    // DEAL_TYPE_BUY_CANCELED => Canceled buy deal ...
+    // There can be a situation when a previously executed buy deal is canceled. In this case,
+    // the type of the previously executed deal (DEAL_TYPE_BUY) is changed to DEAL_TYPE_BUY_CANCELED,
+    // and its profit/loss is zeroized. Previously obtained profit/loss is charged/withdrawn using a separated balance operation ...
+    //
+    // DEAL_TYPE_SELL_CANCELED => Canceled sell deal ...
+    // There can be a situation when a previously executed sell deal is canceled. In this case,
+    // the type of the previously executed deal (DEAL_TYPE_SELL) is changed to DEAL_TYPE_SELL_CANCELED,
+    // and its profit/loss is zeroized. Previously obtained profit/loss is charged/withdrawn using a separated balance operation
+    //
+    // DEAL_TYPE_BALANCE => Balance ...
+    // DEAL_TYPE_CREDIT => Credit ...
+    // DEAL_TYPE_CHARGE => Additional charge ...
+    // DEAL_TYPE_CORRECTION => Correction ...
+    // DEAL_TAX => Tax charges ...
+    // DEAL_TYPE_BONUS => Bonus ...
+    // DEAL_TYPE_INTEREST => Interest rate ...
+    // DEAL_DIVIDEND => Dividend operations...
+    // DEAL_DIVIDEND_FRANKED => Franked (non-taxable) dividend operations ...
+    // DEAL_TYPE_COMMISSION => Additional commission ...
+    // DEAL_TYPE_COMMISSION_DAILY => Daily commission ...
+    // DEAL_TYPE_COMMISSION_MONTHLY => Monthly commission ...
+    // DEAL_TYPE_COMMISSION_AGENT_DAILY => Daily agent commission ...
+    // DEAL_TYPE_COMMISSION_AGENT_MONTHLY => Monthly agent commission
+    ENUM_DEAL_TYPE type;
+
+    //
+    // the deal direction ...
+    // ----------------------------------
+    // DEAL_ENTRY_IN => Entry in ...
+    // DEAL_ENTRY_OUT => Entry out ...
+    // DEAL_ENTRY_INOUT => Reverse ...
+    // DEAL_ENTRY_OUT_BY => Close a position by an opposite one ...
+    ENUM_DEAL_ENTRY entry;
+
+    //
+    // deal reson ...
+    // ---------------------
+    // DEAL_REASON_SL => The deal was executed as a result of Stop Loss activation ...
+    // DEAL_REASON_TP => The deal was executed as a result of Take Profit activation ...
+    // DEAL_REASON_SO => The deal was executed as a result of the Stop Out event ...
+    // DEAL_REASON_WEB => The deal was executed as a result of activation of an order placed from the web platform ...
+    // DEAL_REASON_SPLIT => The deal was executed after the split (price reduction) of an instrument, which had an open position during split announcement ...
+    // DEAL_REASON_CLIENT => The deal was executed as a result of activation of an order placed from a desktop terminal ...
+    // DEAL_REASON_MOBILE => The deal was executed as a result of activation of an order placed from a mobile application ...
+    // DEAL_REASON_EXPERT => The deal was executed as a result of activation of an order placed from an MQL5 program, i.e. an Expert Advisor or a script ...
+    // DEAL_REASON_VMARGIN => The deal was executed after charging the variation margin ...
+    // DEAL_REASON_ROLLOVER => The deal was executed due to a rollover ...
+    ENUM_DEAL_REASON reason;
+};
+
+//
+// Model Specific Order ...
+struct XOrder
+{
+    //
+    // the ID of expert that placed the order ...
+    ulong magic;
+
+    //
+    // the ID of position ...
+    ulong positionId;
+
+    //
+    // the name of order symbol ...
+    string symbol;
+
+    //
+    // the ticket of an order, previously selected for access ...
+    ulong ticket;
+
+    //
+    // the time of order placement ...
+    datetime timeSetup;
+
+    //
+    // the time of order execution or cancellation ...
+    datetime timeDone;
+
+    //
+    // the order expiration time ...
+    datetime timeExpiration;
+
+    //
+    // the order price ...
+    double priceOpen;
+
+    //
+    // the current price by order symbol ...
+    double priceCurrent;
+
+    //
+    // the price of a pending order ...
+    double priceStopLimit;
+
+    //
+    // the order's Stop Loss ...
+    double stopLoss;
+
+    //
+    // the order's Take Profit ...
+    double takeProfit;
+
+    //
+    // the initial volume of order ...
+    double volumeInitial;
+
+    //
+    // the unfilled volume of order ...
+    double volumeCurrent;
+
+    //
+    // the order comment ...
+    string comment;
+
+    //
+    // the order type ...
+    // --------------------
+    // ORDER_TYPE_BUY => Market Buy order ...
+    // ORDER_TYPE_SELL => Market Sell order ...
+    // ORDER_TYPE_BUY_LIMIT => Buy Limit pending order ...
+    // ORDER_TYPE_SELL_LIMIT => Sell Limit pending order ...
+    // ORDER_TYPE_BUY_STOP => Buy Stop pending order ...
+    // ORDER_TYPE_SELL_STOP => Sell Stop pending order ...
+    // ORDER_TYPE_BUY_STOP_LIMIT => Upon reaching the order price, a pending Buy Limit order is placed at the StopLimit price ...
+    // ORDER_TYPE_SELL_STOP_LIMIT => Upon reaching the order price, a pending Sell Limit order is placed at the StopLimit price ...
+    // ORDER_TYPE_CLOSE_BY => Order to close a position by an opposite one ...
+    ENUM_ORDER_TYPE type;
+
+    //
+    // the order state ...
+    // --------------------------
+    // ORDER_STATE_STARTED => Order checked, but not yet accepted by broker ...
+    // ORDER_STATE_PLACED => Order accepted ...
+    // ORDER_STATE_CANCELED => Order canceled by client ...
+    // ORDER_STATE_PARTIAL => Order partially executed ...
+    // ORDER_STATE_FILLED => Order fully executed ...
+    // ORDER_STATE_REJECTED => Order rejected ...
+    // ORDER_STATE_EXPIRED => Order expired ...
+    // ORDER_STATE_REQUEST_ADD => Order is being registered (placing to the trading system)
+    // ORDER_STATE_REQUEST_MODIFY => Order is being modified (changing its parameters) ...
+    // ORDER_STATE_REQUEST_CANCEL => Order is being deleted (deleting from the trading system) ...
+    ENUM_ORDER_STATE state;
+
+    //
+    // the order filling type ...
+    // ----------------------------
+    // ORDER_FILLING_FOK => Fill or Kill
+    // An order can be executed in the specified volume only.
+    // If the necessary amount of a financial instrument is currently unavailable in the market,
+    // the order will not be executed.
+    // The desired volume can be made up of several available offers.
+    // The possibility of using FOK orders is determined at the trade server.
+    // ORDER_FILLING_IOC => Immediate or Cancel
+    // A trader agrees to execute a deal with the volume maximally available in the market within that indicated in the order.
+    // If the request cannot be filled completely, an order with the available volume will be executed,
+    // and the remaining volume will be canceled.
+    // The possibility of using IOC orders is determined at the trade server.
+    // ORDER_FILLING_BOC => Passive (Book or Cancel)
+    // The BoC order assumes that the order can only be placed in the Depth of Market and cannot be immediately executed.
+    // If the order can be executed immediately when placed, then it is canceled.
+    // In fact, the BOC policy guarantees that the price of the placed order will be worse than
+    // the current market. BoC orders are used to implement passive trading,
+    // so that the order is not executed immediately when placed and does not affect current liquidity.
+    // Only limit and stop limit orders are supported (ORDER_TYPE_BUY_LIMIT, ORDER_TYPE_SELL_LIMIT, ORDER_TYPE_BUY_STOP_LIMIT, ORDER_TYPE_SELL_STOP_LIMIT).
+    // ORDER_FILLING_RETURN => Return
+    // In case of partial filling, an order with remaining volume is not canceled but processed further.
+    // Return orders are not allowed in the Market Execution
+    // mode (market execution — SYMBOL_TRADE_EXECUTION_MARKET).
+    ENUM_ORDER_TYPE_FILLING typeFilling;
+
+    //
+    // the type of order at the time of the expiration ...
+    // --------------------------------------------------------
+    // ORDER_TIME_GTC => Good till cancel order ...
+    // ORDER_TIME_DAY => Good till current trade day order ...
+    // ORDER_TIME_SPECIFIED => Good till expired order ...
+    // ORDER_TIME_SPECIFIED_DAY => The order will be effective till 23:59:59 of the specified day.
+    // If this time is outside a trading session, the order expires in the nearest trading time ...
+    ENUM_ORDER_TYPE_TIME typeTime;
+
+    //
+    // The reason for order placing ...
+    // --------------------------------------
+    // ORDER_REASON_SL => The order was placed as a result of Stop Loss activation ...
+    // ORDER_REASON_TP => The order was placed as a result of Take Profit activation ...
+    // ORDER_REASON_SO => The order was placed as a result of the Stop Out event ...
+    // ORDER_REASON_WEB => The order was placed from a web platform ...
+    // ORDER_REASON_CLIENT => The order was placed from a desktop terminal ...
+    // ORDER_REASON_MOBILE => The order was placed from a mobile application ...
+    // ORDER_REASON_EXPERT => The order was placed from an MQL5-program, i.e. by an Expert Advisor or a script ...
+    ENUM_ORDER_REASON reason;
+};
+//
+// END Provided Functions ...
+//

BKPS/XAU5-0.43/Providers/x-saherelm.xeu5.provider.inputs.lib.mq5

@@ -0,0 +1,280 @@
+///////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XEU5 Signal Provider Library Inputs
+// -----------------------------------------------------------
+//
+// 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 Logger ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Include Classes ...
+#include "../Classes/x-saherelm.class.lib.mq5"
+
+//
+input group "XEU5 Provider";
+
+//
+// Commonly Used Configurations ...
+input group "XEU5 Common";
+//
+// Provider ...
+input bool xEU5EnableProvider = true;    // Enable Provider
+input int xEU5NumberOfItemsPerTick = 30; // Number Of items Readed In Each Tick
+//
+// Alerts ...
+input bool xEU5EnableAlerts = true;        // Enable Events Alert
+input bool xEU5EnableHourlyAlerts = false; // Send Alert on each new Hour
+input bool xEU5EnableDailyAlerts = false;  // Send Alert on each new Day
+input bool xEU5EnableWeeklyAlerts = false; // Send Alert on each new Week
+input bool xEU5EnableMonthlyAlerts = true; // Send Alert on each new Month
+//
+// Reports ...
+input bool xEU5EnableDailyReports = false;  // Send Report on each new Day
+input bool xEU5EnableWeeklyReports = false; // Send Report on each new Week
+input bool xEU5EnableMonthlyReports = true; // Send Report on each new Month
+
+//
+// Trader and Expert Specific Configurations ...
+input group "XEU5 Trader";
+input int xEU5MagicNumber = 16940560; // Trader MagicNumber
+input int xEU5Slippage = 10;          // Trader Slippage
+
+//
+// Trades Management Configurations ...
+input group "XEU5 Trade Management";
+input bool xEU5AllowLongTrades = true;  // Allow Long Trades
+input bool xEU5AllowShortTrades = true; // Allow Short Trades
+
+//
+// Risk Management Configurations ...
+input group "XEU5 Risk Management";
+//
+input bool xEU5UseVirtualTPSl = false; // Use Virtual TP SL
+//
+// Trade Count ...
+input int xEU5MaxAllowedTrades = 10;                                              // Max Allowed Trades at Same Time
+input ENUM_X_CROSS_SIGNAL_METHOD xEU5CrossSignalsMethod = X_CROSS_SIGNAL_REGULAR; // Handle Cross Signals Method
+//
+// Max Allowed Trade Age ...
+input int xEU5MaxAllowedTradeAge = 1500;                                            // Detect Long Time Trades
+input ENUM_X_GUARD_ACTIONS xEU5OldTradesAction = X_GUARD_PARTIAL_CLOSE_MAX_IN_DD_1; // What to do with Old Trades
+//
+// Trade Volume Specific Configurations ...
+input double xEU5StaticVolumeFactor = 0.0002;                                               // Static Volume baesd on Balance
+input ENUM_STATIC_VOLUME_METHODS xEU5StaticVolumeMethod = X_STATIC_VOLUME_BASED_ON_BALANCE; // How to Calculate Static Volume
+input double xEU5VolumeMultiplier = 0;                                                      // Volume Increase Multiplier
+input double xEU5ApplyVolumeMultiplierFactor = 0;                                           // Apply Volume Multiplier Rate based on Balance
+input double xEU5MaxSupportedVolumePerTradeFactor = 0;                                      // Max Supported Volume Per Trade Factor based on Balance
+input double xEU5IncreasedMaxSupportedVolumeRate = 0;                                       // Increase Max Supported Volume based on Balance
+//
+// Trade Profits ...
+input double xEU5MinRewardInPips = 15;   // Minimum Reward Per Trade in Pips
+input double xEU5RiskFreeStepInPips = 6; // Make Trades Risk Free Steps in Pips
+input double xEU5RiskFreeRate = 0.6;     // Volume Multiplier for Risk Free Trades
+//
+// Guard Riskable Money and Profits ...
+input double xEU5CriticalDrawDownFactor = 0.40;                                            // Critical Allowed Drawdown Factor based on Balance
+input ENUM_X_GUARD_ACTIONS xEU5CriticalGuardAction = X_GUARD_PARTIAL_CLOSE_MAX_IN_DD_5;    // Specify Guard Action on Critical Drawdown
+input double xEU5MaxAllowedDrawDownFactor = 0.45;                                          // Max Allowed Drawdown Factor based on Balance
+input ENUM_X_GUARD_ACTIONS xEU5MaxAllowedGuardAction = X_GUARD_PARTIAL_CLOSE_MAX_IN_DD_10; // Specify Guard Action on Max Allowed Drawdown
+input int xEU5GuardStopoutFiredAfterTouches = 5;                                           // Guard Stopout all Trades if Max Allowed Drawdown touched
+
+//
+// Account Conditions for Trading ...
+input double xEU5BalanceFactorForOpenTrades = 0.5;    // Minimum Balance for Open Trades
+input double xEU5FreeMarginFactorForOpenTrades = 0.8; // Minimum Free Margin for Open Trades
+
+//
+// Validate Inputs before Initialization ...
+bool XEU5ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Implement Other Verifications ...
+
+    //
+    // Check Trading Availability ...
+    bool isTradeAvailable = xEU5AllowLongTrades || xEU5AllowShortTrades;
+    if (!isTradeAvailable)
+    {
+        LogMessage("XEU5 => Warning: Trading disabled ...");
+    }
+
+    //
+    // Chekc Number of reading items per tick ...
+    result = xEU5NumberOfItemsPerTick >= 5;
+    if (!result)
+    {
+        //
+        LogMessage("XEU5 invalid Number of items Reading Per Tick ...");
+
+        //
+        return result;
+    }
+
+    //
+    // Check Max Allowed Trades Count ...
+    result = isTradeAvailable && xEU5MaxAllowedTrades >= 1;
+    if (!result)
+    {
+        //
+        LogMessage("XEU5 Number of Trades not valid ...");
+
+        //
+        return result;
+    }
+
+    //
+    // Check Free Margin ...
+    result =
+        isTradeAvailable &&
+        xEU5FreeMarginFactorForOpenTrades > 0 &&
+        xEU5FreeMarginFactorForOpenTrades < 1;
+    if (!result)
+    {
+        //
+        LogMessage("XEU5 Invalid Free Margin ...");
+
+        //
+        return result;
+    }
+
+    //
+    // Check min Balance for Open Trades ...
+    result =
+        isTradeAvailable &&
+        xEU5BalanceFactorForOpenTrades > 0 &&
+        xEU5BalanceFactorForOpenTrades < 1;
+    if (!result)
+    {
+        //
+        LogMessage("XEU5 Invalid Min Balance for Open Trades ...");
+
+        //
+        return result;
+    }
+
+    //
+    // Check Min Reward Per Trade ...
+    result = xEU5MinRewardInPips > 0;
+    if (!result)
+    {
+        //
+        LogMessage("XEU5 Invalid Min Reward Per Trade ...");
+
+        //
+        return result;
+    }
+
+    //
+    // Check Trades Volume ...
+    result = xEU5StaticVolumeFactor > 0;
+    if (!result)
+    {
+        //
+        LogMessage("XEU5 Invalid Static Volume ...");
+
+        //
+        return result;
+    }
+
+    //
+    // Check Volume Multiplier ...
+    result = xEU5VolumeMultiplier >= 0;
+    if (!result)
+    {
+        //
+        LogMessage("XEU5 Invalid Volume Multiplier ...");
+
+        //
+        return result;
+    }
+
+    //
+    result =
+        xEU5CriticalDrawDownFactor == 0 || (xEU5CriticalDrawDownFactor > 0 &&
+                                            xEU5CriticalDrawDownFactor < 1);
+    if (!result)
+    {
+        //
+        LogMessage("XEU5 Invalid Critical DrawDown Factor ...");
+
+        //
+        return result;
+    }
+
+    //
+    result =
+        xEU5MaxAllowedDrawDownFactor == 0 || (xEU5MaxAllowedDrawDownFactor > 0 &&
+                                              xEU5MaxAllowedDrawDownFactor < 1);
+    if (!result)
+    {
+        //
+        LogMessage("XEU5 Invalid Max Allowed DrawDown Factor ...");
+
+        //
+        return result;
+    }
+
+    //
+    // Check Guard Actions ...
+    //
+    result =
+        xEU5CriticalDrawDownFactor > 0 &&
+        xEU5CriticalDrawDownFactor < 1 &&
+        xEU5MaxAllowedDrawDownFactor > 0 &&
+        xEU5MaxAllowedDrawDownFactor < 1;
+    if (!result)
+    {
+        //
+        LogMessage("XEU5 For Critical Drawdown, you have to Specify Max Drawdown also ...");
+
+        //
+        return result;
+    }
+
+    //
+    result = xEU5CriticalDrawDownFactor > 0 && xEU5CriticalDrawDownFactor < xEU5MaxAllowedDrawDownFactor;
+    if (!result)
+    {
+        //
+        LogMessage("XEU5 Critical Drawdown must Smaller than Max Drawdown ...");
+
+        //
+        return result;
+    }
+
+    //
+    if (xEU5CriticalDrawDownFactor > 0 && xEU5CriticalGuardAction == X_GUARD_DO_NOTHING)
+    {
+        LogMessage("XEU5 IMPORTANT you Specified Critical Drawdown, but there is no any Guard Action ...");
+    }
+
+    //
+    if (xEU5MaxAllowedDrawDownFactor > 0 && xEU5MaxAllowedGuardAction == X_GUARD_DO_NOTHING)
+    {
+        LogMessage("XEU5 IMPORTANT you Specified Max Allowed Drawdown, but there is no any Guard Action ...");
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}

BKPS/XAU5-14021118-Full/Classes/x-saherelm.nn.lib.mq5

@@ -0,0 +1,258 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 NN Class Library
+// ----------------------------------------
+// Name: XNNClass
+// Description: provides all classes for implementing
+// Neural Network ...
+//
+//
+// 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
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+class XCNNBase
+{
+    //
+    // Public Definitions ...
+public:
+    //
+    // Constructor ...
+    void XCNNBase(
+        int nodes = 10, // Number of Input Nodes 
+        double starterWeight = 0.5, // start weight for each input 
+        double coEfficient = 0.1, // COEfficient Multiplier 
+        double upperRange = 1, // Upper Normal Range Value 
+        double lowerRange = -1, // Lower Normal Range Value 
+        double learningRates = 0.1 // Back Propagation Learning Rate
+    ) {
+        //
+        mNodes = nodes;
+        mUpperRange = upperRange;
+        mLowerRange = lowerRange;
+        mCoEfficient = coEfficient;
+        mLearningRates = learningRates;
+        mStarterWeight = starterWeight;
+
+        //
+        ReConstructWeights();
+    }
+
+    //
+    // Deconstructor ...
+    void ~XCNNBase() {}
+
+    //
+    // Protected Definitions ...
+    void NormalizeInputs(double &inputs[], double &result[])
+    {
+        //
+        ArrayFree(result);
+        ArrayResize(result, 1);
+
+        //
+        // Validate inputs ...
+        if (ArraySize(inputs) != mNodes)
+        {
+            return;
+        }
+
+        //
+        // Prepare Result ...
+        ArrayResize(result, mNodes);
+
+        //
+        // Calculating min and max range value ...
+        double minRangeValue = inputs[ArrayMinimum(inputs)];
+        double maxRangeValue = inputs[ArrayMaximum(inputs)];
+
+        //
+        // Loop through Inputs nd Normalize them ...
+        for (int i = 0; i < mNodes; i++)
+        {
+            //
+            double normalValue = (((inputs[i] - minRangeValue) * (mUpperRange - mLowerRange)) / (maxRangeValue - minRangeValue)) + mLowerRange;
+            result[i] = normalValue;
+        }
+    }
+
+    //
+    // Hyperbolic Tangent Activation Function ...
+    double TanHActivationFunction(double weightedInputs)
+    {
+        //
+        double result = (exp(weightedInputs) - exp(-weightedInputs)) / (exp(weightedInputs) + exp(-weightedInputs));
+        return result;
+    }
+
+    //
+    // Calculate Weighted Inputs ...
+    double CalculateWeightedInputs(
+        double &inputs[],
+        bool applyCOEfficient = true)
+    {
+        //
+        double result = 0;
+
+        //
+        // Validate Inputs ...
+        if (ArraySize(inputs) != mNodes)
+        {
+            //
+            result = -1;
+            return result;
+        }
+
+        //
+        for (int i = 0; i < mNodes; i++)
+        {
+            result += inputs[i] * mWeights[i];
+        }
+
+        //
+        // Multiply if required ...
+        if (applyCOEfficient)
+        {
+            result *= mCoEfficient;
+        }
+
+        //
+        return result;
+    }
+
+    //
+    // Calculate Hidden Layers ...
+    virtual double CalculateHiddenLayer(double &inputs[])
+    {
+        //
+        // this is Default Activation Function which used ...
+        // you can override this by writing your own ...
+        double totalWeightedInputs = CalculateWeightedInputs(inputs);
+        double result = TanHActivationFunction(totalWeightedInputs);
+
+        //
+        return result;
+    }
+
+    //
+    // Calculate Output Layers ...
+    double CalculateOutputLayer(double &inputs[])
+    {
+        //
+        double result = -1;
+
+        //
+        // Validate Inputs ...
+        if (ArraySize(inputs) != mNodes) {
+            return result;
+        }
+
+        //
+        double normalizedInputs[];
+        NormalizeInputs(inputs, normalizedInputs);
+        if (ArraySize(normalizedInputs) != mNodes) {
+            return result;
+        }
+
+        //
+        double hiddenLayerResult = CalculateHiddenLayer(normalizedInputs);
+
+        //
+        result = 1 * hiddenLayerResult;
+
+        //
+        return result;
+    }
+
+    //
+    // Basck Propaggation Learning ...
+    void BackPropagation(
+        double &inputs[],
+        double &outputs,
+        double targetOutput
+    ) {
+        //
+        // Validate Inputs ...
+        if (ArraySize(inputs) != mNodes) {
+            return;
+        }
+
+        //
+        double normalizedInputs[];
+        NormalizeInputs(inputs, normalizedInputs);
+        if (ArraySize(normalizedInputs) != mNodes) {
+            return;
+        }
+
+        //
+        double error = targetOutput - outputs;
+        double derivative = 1 - MathPow(outputs, 2);
+
+        //
+        for (int i = 0; i < mNodes; i++) {
+            //
+            double gradient = error * derivative * inputs[i];
+            mWeights[i] = mLearningRates * gradient;
+        }
+    }
+
+protected:
+    //
+    // Private Definitions ...
+private:
+    //
+    // Number of Input Nodes ...
+    int mNodes;
+
+    //
+    // Specify Upper range of Normal Values ...
+    double mUpperRange;
+
+    //
+    // Specify Lower range of Normal Values ...
+    double mLowerRange;
+
+    //
+    // Starter Weight for each input node ...
+    double mStarterWeight;
+
+    //
+    // double Input Node Weights ...
+    double mWeights[];
+
+    //
+    // CoEfficient is a multiplyer for weighted inputs ...
+    double mCoEfficient;
+
+    //
+    // Back Propagation Learning Rates ...
+    double mLearningRates;
+
+    //
+    // ReConstruct Weights ...
+    void ReConstructWeights() {
+        //
+        ArrayFree(mWeights);
+        ArrayResize(mWeights, mNodes);
+
+        //
+        for (int i = 0; i< mNodes; i++) {
+            mWeights[i] = mStarterWeight;
+        }
+    }
+}
+//
+// END Global Definitions: Variables, Properties and etc ...
+//

BKPS/XAU5-14021118-Full/Experts/x-saherelm.xau5.ea.mq5

@@ -0,0 +1,395 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Expert Advisor
+// ----------------------------------------
+// Name: XAUUSD
+// Description: this is an expert controller
+// advisors which provides a mechanism for use them ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XAU5 EA"
+#property strict
+
+//
+// START Inputs ...
+//
+
+input group "Commons";
+
+//
+// XCTIMER inputs ...
+input bool xAU5ShowCandleTimer = true;                             // Show Condle Remaining Time
+input color xAU5CandleTimerColot = clrYellow;                      // Candle Timer Color
+input ENUM_BASE_CORNER xAU5CandleTimerCorner = CORNER_RIGHT_LOWER; // Where to Show Candle Timer
+
+//
+// END Inputs ...
+//
+
+//
+// START Including Providers ...
+//
+
+//
+// Logger Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// Alert Library ...
+#include "../Libraries/x-saherelm.alert.lib.mq5"
+
+//
+// Draw Library ...
+#include "../Libraries/x-saherelm.draw.lib.mq5"
+
+//
+// XAU5 Signal Provider ...
+#include "../Providers/x-saherelm.xau5.provider.lib.mq5"
+
+//
+// END Including Providers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+bool isXAU5NewHour;
+bool isXAU5NewDay;
+bool isXAU5NewWeek;
+bool isXAU5NewMonth;
+
+//
+int xAU5CTimerHandler = INVALID_HANDLE;
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    logTag = "XAU5EA";
+    drawPrefix = logTag;
+    alertPrefix = logTag;
+
+    //
+    // Apply default Chart Style for EA ...
+    ApplyChartStyle();
+
+    //
+    // Reset Timings ...
+    ResetTiming();
+
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    // Initialize XAU5 Provider ...
+    if (!XAU5InitSignalProviderLibrary())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    // Init XCTimer ...
+    if (xAU5ShowCandleTimer)
+    {
+        if (!XAU5CTimerInit())
+        {
+            return INIT_FAILED;
+        }
+    }
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+
+    //
+    // De Initialize XAU5 Provider ...
+    XAU5DeinitSignalProviderLibrary(reason);
+
+    //
+    // De Init XDraw Library ...
+    // OnDeinitDrawLibrary();
+
+    //
+    IndicatorRelease(xAU5CTimerHandler);
+}
+
+//
+// On Tick Handler ...
+void OnTick()
+{
+    //
+    // Handle Monthly Alert ...
+    bool isFirstMonth = xMonth == -1;
+    isXAU5NewMonth = IsNewMonth();
+    bool canMonthlyAlert =
+        isXAU5NewMonth &&
+        xAU5EnableAlerts &&
+        xAU5EnableMonthlyAlerts;
+    bool canMonthlyReport =
+        !isFirstMonth &&
+        canMonthlyAlert &&
+        xAU5EnableMonthlyReports;
+    if (canMonthlyAlert)
+    {
+        //
+        string message = "New Month ...";
+
+        //
+        // Prepare Monthly Report ...
+        if (canMonthlyReport)
+        {
+            //
+            string report = xAU5Reporter.GenerateReportString(XREPORT_MONTHLY);
+
+            //
+            message = "Last Month Report:\n" + report;
+        }
+
+        //
+        // Reset Report ...
+        xAU5Reporter.Reset(XREPORT_MONTHLY);
+
+        //
+        SendAlert(message);
+    }
+
+    //
+    // Handle Weekly Alert ...
+    bool isFirstWeek = xDayOfWeek == -1;
+    isXAU5NewWeek = IsNewWeek();
+    bool canWeeklyAlert =
+        isXAU5NewWeek &&
+        xAU5EnableAlerts &&
+        xAU5EnableWeeklyAlerts;
+    bool canWeeklyReport =
+        !isFirstWeek &&
+        canWeeklyAlert &&
+        xAU5EnableWeeklyReports;
+    if (canWeeklyAlert)
+    {
+        //
+        string message = "New Week ...";
+
+        //
+        // Prepare Weekly Report ...
+        if (canWeeklyReport)
+        {
+            //
+            string report = xAU5Reporter.GenerateReportString(XREPORT_WEEKLY);
+
+            //
+            message = "Last Week Report:\n" + report;
+        }
+
+        //
+        // Reset Report ...
+        xAU5Reporter.Reset(XREPORT_WEEKLY);
+
+        //
+        SendAlert(message);
+    }
+
+    //
+    // Handle Daily Alert ...
+    bool isFirstDay = xDay == -1;
+    isXAU5NewDay = IsNewDay();
+    bool canDailyAlert =
+        isXAU5NewDay &&
+        xAU5EnableAlerts &&
+        xAU5EnableDailyAlerts;
+    bool canDailyReport =
+        !isFirstDay &&
+        canDailyAlert &&
+        xAU5EnableDailyReports;
+    if (canDailyAlert)
+    {
+        //
+        string message = "New Day ...";
+
+        //
+        // Prepare Daily Report ...
+        if (canDailyReport)
+        {
+            //
+            string report = xAU5Reporter.GenerateReportString(XREPORT_DAILY);
+
+            //
+            message = "Last Week Report:\n" + report;
+        }
+
+        //
+        // Reset Report ...
+        xAU5Reporter.Reset(XREPORT_DAILY);
+
+        //
+        SendAlert(message);
+    }
+
+    //
+    // Handle Hourly Alert ...
+    bool isFirstHour = xHour == -1;
+    isXAU5NewHour = IsNewHour();
+    bool canHourlyAlert =
+        isXAU5NewHour &&
+        xAU5EnableAlerts &&
+        xAU5EnableHourlyAlerts;
+    if (canHourlyAlert)
+    {
+        //
+        string message = "New Hour ...";
+
+        //
+        SendAlert(message);
+    }
+
+    //
+    // Prevent Going Forward if user Disable it ...
+    if (xAU5EnableProvider)
+    {
+        //
+        // Handle Processing on XAU5 Signal Provider ...
+        XAU5SignalProviderDoControlState();
+    }
+
+    //
+    if (!IsNewCandle() && xAU5WaitUntilNextCandle)
+    {
+        return;
+    }
+
+    //
+    xAU5WaitUntilNextCandle = false;
+
+    //
+    // Prevent Going Forward if user Disable it ...
+    if (xAU5EnableProvider)
+    {
+        //
+        // Handle Processing on XAU5 Signal Provider ...
+        XAU5SignalProviderHandleTick();
+    }
+}
+
+//
+// Handle Trade Events ...
+void OnTrade()
+{
+
+    //
+    // Prevent Going Forward if user Disable it ...
+    if (xAU5EnableProvider)
+    {
+        //
+        // Handle Processing Trades on XAU5 Signal Provider ...
+        XAU5SignalProviderHandleTrade();
+    }
+}
+
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+
+    //
+    // Validate XAU5 Provider Inputs ...
+    result = XAU5ValidateInputs();
+    if (!result)
+    {
+        return false;
+    }
+
+    //
+    // Logging State ...
+    string message = "Validation of (" + logTag + ") Inputs " + (result ? "Succeeded" : "Failed") + " ...";
+    LogMessage(message);
+
+    //
+    return result;
+}
+
+bool XAU5CTimerInit()
+{
+    //
+    bool result = true;
+
+    //
+    xAU5CTimerHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xctimer.indicator",
+        //
+        // Inputs ...
+        xAU5CandleTimerColot,
+        xAU5CandleTimerCorner
+    );
+
+    //
+    if (xAU5CTimerHandler == INVALID_HANDLE) {
+        result = false;
+    }
+
+    //
+    return result;
+}
+//
+// END Functions ...
+//

BKPS/XAU5-14021118-Full/Helpers/x-saherelm.xama.indicator.helper.lib.mq5

@@ -0,0 +1,607 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XAMA Indicator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// XAMA Indicator States ...
+enum ENUM_X_XAMA_STATES
+{
+    X_XAMA_BULLISH = 1,
+    X_XAMA_BEARISH = -1,
+    X_XAMA_NEUTURAL = 0,
+};
+
+//
+// XAMA Indicator Buffer Lines ...
+enum ENUM_X_XAMA_BUFFER_LINES
+{
+    X_XAMA_MA_LINE = 0,
+    X_XAMA_MC_COLOR_LINE = 1,
+    X_XAMA_STATE_LINE = 2,
+};
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XAMA Indicator";
+
+//
+// input int xAMALength = 18;                            // Market Length
+// input int xAMAFastEMA = 2;                            // Fast EMA Period
+// input int xAMASlowEMA = 30;                           // Slow EMA Period
+// input int xAMAShift = 0;                              // Shift
+// input ENUM_APPLIED_PRICE xAMAAppliedTo = PRICE_CLOSE; // Applied To
+
+//
+// Configurations ...
+int xAMALength = 18;                            // Market Length
+int xAMAFastEMA = 2;                            // Fast EMA Period
+int xAMASlowEMA = 30;                           // Slow EMA Period
+int xAMAShift = 0;                              // Shift
+ENUM_APPLIED_PRICE xAMAAppliedTo = PRICE_CLOSE; // Applied To
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+int xAMAHandler = INVALID_HANDLE;
+double xAMAMaBuffer[];
+double xAMAStateBuffer[];
+
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XAMAValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result =
+        xAMALength > 2 &&
+        xAMAFastEMA < xAMALength &&
+        xAMAFastEMA < xAMASlowEMA &&
+        xAMAShift >= 0;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XAMA Indicator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Indicators ...
+bool XAMAInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Indicator Handlers ...
+    ResetLastError();
+
+    //
+    // XAMA Handler ...
+    ArraySetAsSeries(xAMAMaBuffer, true);
+    ArraySetAsSeries(xAMAStateBuffer, true);
+    xAMAHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xama.indicator",
+        //
+        // Inputs ...
+        xAMALength,
+        xAMAFastEMA,
+        xAMASlowEMA,
+        xAMAShift,
+        xAMAAppliedTo
+        //
+    );
+    if (xAMAHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XAMA Indicator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Indicators ...
+void XAMAReleaseHandlers()
+{
+    IndicatorRelease(xAMAHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XAMAReadBuffers(
+    int xAMAItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // XAMA Ma Buffer ...
+    CopyBuffer(
+        xAMAHandler,
+        X_XAMA_MA_LINE,
+        0,
+        xAMAItemsPerTick,
+        xAMAMaBuffer);
+
+    //
+    // XAMA State Buffer ...
+    CopyBuffer(
+        xAMAHandler,
+        X_XAMA_STATE_LINE,
+        0,
+        xAMAItemsPerTick,
+        xAMAStateBuffer);
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XAMA Custom Functions ...
+//
+
+//
+// Check SC is Peak ...
+bool XAMAIsPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xAMAMaBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check SC is Vale ...
+bool XAMAIsVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xAMAMaBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Up ...
+bool XAMAIsStartBullish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_BULLISH &&
+        xAMAStateBuffer[bar_index + 1] != X_XAMA_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Up After Neutural State ...
+bool XAMAIsStartBullishAfterNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_BULLISH &&
+        xAMAStateBuffer[bar_index + 1] == X_XAMA_NEUTURAL
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM In Up State ...
+bool XAMAIsBullish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Up State ...
+bool XAMAIsEndBullish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] != X_XAMA_BULLISH &&
+        xAMAStateBuffer[bar_index + 1] == X_XAMA_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Up State By Neutural ...
+bool XAMAIsEndBullishByNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_NEUTURAL &&
+        xAMAStateBuffer[bar_index + 1] == X_XAMA_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Down ...
+bool XAMAIsStartBearish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_BEARISH &&
+        xAMAStateBuffer[bar_index + 1] != X_XAMA_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Down After Neutural State ...
+bool XAMAIsStartBearishAfterNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_BEARISH &&
+        xAMAStateBuffer[bar_index + 1] == X_XAMA_NEUTURAL
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM In Down State ...
+bool XAMAIsBearish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Down State ...
+bool XAMAIsEndBearish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] != X_XAMA_BEARISH &&
+        xAMAStateBuffer[bar_index + 1] == X_XAMA_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Down State By Neutural ...
+bool XAMAIsEndBearishByNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_NEUTURAL &&
+        xAMAStateBuffer[bar_index + 1] == X_XAMA_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM In Neutural State ...
+bool XAMAIsNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XAMAIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xAMAStateBuffer[bar_index] == X_XAMA_NEUTURAL
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XAMAIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        //
+        ArraySize(xAMAMaBuffer) < size
+        //
+    )
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// END XAMA Custom Functions ...
+//

BKPS/XAU5-14021118-Full/Helpers/x-saherelm.xfi.oscillator.helper.lib.mq5

@@ -0,0 +1,358 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XFI Oscillator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XFI Oscillator";
+
+// //
+// input int xFILength = 18;                             // Market Length
+// input ENUM_MA_METHOD xFIMethod = MODE_SMA;            // MA Method
+// input ENUM_APPLIED_VOLUME xFIAppliedTo = VOLUME_TICK; // Applied To
+
+//
+// Configurations ...
+int xFILength = 18;                             // Market Length
+ENUM_MA_METHOD xFIMethod = MODE_SMA;            // MA Method
+ENUM_APPLIED_VOLUME xFIAppliedTo = VOLUME_TICK; // Applied To
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+int xFIHandler = INVALID_HANDLE;
+double xFIBuffer[];
+
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XFIValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result = xFILength > 2;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XFI Oscillator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Oscillators ...
+bool XFIInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XFI Handler ...
+    ArraySetAsSeries(xFIBuffer, true);
+    xFIHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xfi.oscillator",
+        //
+        // Inputs ...
+        xFILength,
+        xFIMethod,
+        xFIAppliedTo
+        //
+    );
+    if (xFIHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XFI Oscillator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Oscillators ...
+void XFIReleaseHandlers()
+{
+    IndicatorRelease(xFIHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XFIReadBuffers(
+    int xFIItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // XFI Signal ...
+    CopyBuffer(
+        xFIHandler,
+        0,
+        0,
+        xFIItemsPerTick,
+        xFIBuffer);
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XFI Custom Functions ...
+//
+
+//
+// Check SC is Peak ...
+bool XFIIsPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XFIIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xFIBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check SC is Vale ...
+bool XFIIsVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XFIIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xFIBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Detect XFI Crossed Over Zero ...
+bool XFIIsCrossedOverZero(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (
+        bar_index < 0 ||
+        !XFIIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xFIBuffer[bar_index] > 0 &&
+        xFIBuffer[bar_index + 1] <= 0;
+
+    //
+    return result;
+}
+
+//
+// Detect XFI Over Zero ...
+bool XFIIsOverZero(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (
+        bar_index < 0 ||
+        !XFIIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xFIBuffer[bar_index] > 0;
+
+    //
+    return result;
+}
+
+//
+// Detect XFI Crossed Under Zero ...
+bool XFIIsCrossedUnderZero(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (
+        bar_index < 0 ||
+        !XFIIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xFIBuffer[bar_index] < 0 &&
+        xFIBuffer[bar_index + 1] >= 0;
+
+    //
+    return result;
+}
+
+//
+// Detect XFI Under Zero ...
+bool XFIIsUnderZero(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (
+        bar_index < 0 ||
+        !XFIIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xFIBuffer[bar_index] < 0;
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XFIIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        //
+        ArraySize(xFIBuffer) < size
+        //
+    )
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// END XFI Custom Functions ...
+//

BKPS/XAU5-14021118-Full/Helpers/x-saherelm.xlh.indicator.helper.lib.mq5

@@ -0,0 +1,668 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XLH Indicator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// XLH Indicator Buffer Lines ...
+enum ENUM_X_XLH_BUFFER_LINES
+{
+    X_XLH_HH_LINE = 0,
+    X_XLH_LL_LINE = 1,
+    X_XLH_SIGNAL_LINE = 2,
+};
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XLH Indicator";
+
+// input int xLHLength = 72;                    // Length
+// input ENUM_SERIESMODE xLHHHMode = MODE_HIGH; // Highest High Calculation Method
+// input ENUM_SERIESMODE xLHLLMode = MODE_LOW;  // Lowest Low Calculation Method
+
+//
+// Configurations ...
+int xLHLength = 72;                    // Length
+ENUM_SERIESMODE xLHHHMode = MODE_HIGH; // Highest High Calculation Method
+ENUM_SERIESMODE xLHLLMode = MODE_LOW;  // Lowest Low Calculation Method
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+//
+int xLHHandler = INVALID_HANDLE;
+
+//
+double xLHHHBuffer[];
+double xLHLLBuffer[];
+double xLHSignalBuffer[];
+
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XLHValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result = xLHLength >= 2;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XLH Indicator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Indicators ...
+bool XLHInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XLH Handler ...
+    ArraySetAsSeries(xLHHHBuffer, true);
+    ArraySetAsSeries(xLHLLBuffer, true);
+    ArraySetAsSeries(xLHSignalBuffer, true);
+
+    //
+    xLHHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xlh.indicator",
+        //
+        // Inputs ...
+        xLHLength,
+        xLHHHMode,
+        xLHLLMode
+        //
+    );
+    if (xLHHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XLH Indicator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Indicators ...
+void XLHReleaseHandlers()
+{
+    IndicatorRelease(xLHHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XLHReadBuffers(
+    int xLHItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // HH Buffer ...
+    CopyBuffer(
+        xLHHandler,
+        X_XLH_HH_LINE,
+        0,
+        xLHItemsPerTick,
+        xLHHHBuffer
+        //
+    );
+
+    //
+    // LL Buffer ...
+    CopyBuffer(
+        xLHHandler,
+        X_XLH_LL_LINE,
+        0,
+        xLHItemsPerTick,
+        xLHLLBuffer
+        //
+    );
+
+    //
+    // Signal Buffer ...
+    CopyBuffer(
+        xLHHandler,
+        X_XLH_SIGNAL_LINE,
+        0,
+        xLHItemsPerTick,
+        xLHSignalBuffer
+        //
+    );
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XLH Custom Functions ...
+//
+
+//
+// TODO: What we have to Implement ...
+// - []
+
+//
+// Check Candle High is HH ...
+bool XLHIsHighAttachedHH(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle = GetCandle(bar_index);
+
+    //
+    result =
+        //
+        candle.high == xLHHHBuffer[bar_index]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check Candle Low is LL ...
+bool XLHIsLowAttachedLL(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle = GetCandle(bar_index);
+
+    //
+    result =
+        //
+        candle.low == xLHLLBuffer[bar_index]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check Price Jumping Up Signal ...
+bool XLHIsPriceCrossedOverSignal(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle1 = GetCandle(bar_index);
+    XOHCL candle2 = GetCandle(bar_index + 1);
+
+    //
+    result =
+        //
+        candle1.low > xLHSignalBuffer[bar_index] &&
+        candle2.low < xLHSignalBuffer[bar_index + 1]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check Price Over Signal ...
+bool XLHIsPriceOverSignal(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle1 = GetCandle(bar_index);
+
+    //
+    result =
+        //
+        candle1.low > xLHSignalBuffer[bar_index]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check Price Jumping Down Signal ...
+bool XLHIsPriceCrossedUnderSignal(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle1 = GetCandle(bar_index);
+    XOHCL candle2 = GetCandle(bar_index + 1);
+
+    //
+    result =
+        //
+        candle1.high < xLHSignalBuffer[bar_index] &&
+        candle2.high > xLHSignalBuffer[bar_index + 1]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check Price Down Signal ...
+bool XLHIsPriceUnderSignal(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle1 = GetCandle(bar_index);
+
+    //
+    result =
+        //
+        candle1.high < xLHSignalBuffer[bar_index]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check Price Ranging Signal ...
+bool XLHIsPriceInSignalRange(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    XOHCL candle1 = GetCandle(bar_index);
+
+    //
+    result =
+        //
+        candle1.high > xLHSignalBuffer[bar_index] &&
+        candle1.low < xLHSignalBuffer[bar_index]
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check HH Increased ...
+bool XLHIsHHIncreased(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xLHHHBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check HH Decreased ...
+bool XLHIsHHDecreased(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xLHHHBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check LL Increased ...
+bool XLHIsLLIncreased(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xLHLLBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check LL Decreased ...
+bool XLHIsLLDecreased(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xLHLLBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check HH Same in Length ...
+bool XLHIsHHSameInLength(
+    int bar_index, // Specified Index ...
+    int length = 5 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    double value1 = xLHHHBuffer[bar_index];
+
+    //
+    // Loop ...
+    result = true;
+    for (int i = bar_index + 1; i < bar_index + length + 1; i++)
+    {
+        //
+        double iValue = xLHHHBuffer[i];
+        if (iValue != value1)
+        {
+            //
+            result = false;
+
+            //
+            break;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Check LL Same in Length ...
+bool XLHIsLLSameInLength(
+    int bar_index, // Specified Index ...
+    int length = 5 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XLHIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    double value1 = xLHLLBuffer[bar_index];
+
+    //
+    // Loop ...
+    result = true;
+    for (int i = bar_index + 1; i < bar_index + length + 1; i++)
+    {
+        //
+        double iValue = xLHLLBuffer[i];
+        if (iValue != value1)
+        {
+            //
+            result = false;
+
+            //
+            break;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XLHIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        //
+        ArraySize(xLHHHBuffer) < size ||
+        ArraySize(xLHLLBuffer) < size ||
+        ArraySize(xLHSignalBuffer) < size
+        //
+    )
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// END XLH Custom Functions ...
+//

BKPS/XAU5-14021118-Full/Helpers/x-saherelm.xobd.indicator.helper.lib.mq5

@@ -0,0 +1,249 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XOBD Indicator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XOBD Indicator";
+
+// input int xOBDLength = 5;                         // Swing Length
+// input uchar xOBDSwingHighArrowCode = 108;         // Swing High Arrow Code
+// input color xOBDSwingHighArrowColor = clrMagenta; // Swing High Arrow Color
+// input uchar xOBDSwingLowArrowCode = 108;          // Swing Low Arrow Code
+// input color xOBDSwingLowArrowColor = clrAqua;     // Swing Low Arrow Color
+
+//
+// Configurations ...
+int xOBDLength = 5;                         // Swing Length
+uchar xOBDSwingHighArrowCode = 108;         // Swing High Arrow Code
+color xOBDSwingHighArrowColor = clrMagenta; // Swing High Arrow Color
+uchar xOBDSwingLowArrowCode = 108;          // Swing Low Arrow Code
+color xOBDSwingLowArrowColor = clrAqua;     // Swing Low Arrow Color
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+//
+int xOBDHandler = INVALID_HANDLE;
+
+//
+double xOBDBuffer[];
+
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XOBDValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result = xOBDLength >= 2;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XOBD Indicator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Indicators ...
+bool XOBDInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XOBD Handler ...
+    ArraySetAsSeries(xOBDBuffer, true);
+
+    //
+    xOBDHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xobd.indicator",
+        //
+        // Inputs ...
+        xOBDLength,
+        xOBDSwingHighArrowCode,
+        xOBDSwingHighArrowColor,
+        xOBDSwingLowArrowCode,
+        xOBDSwingLowArrowColor
+        //
+    );
+    if (xOBDHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XOBD Indicator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Indicators ...
+void XOBDReleaseHandlers()
+{
+    IndicatorRelease(xOBDHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XOBDReadBuffers(
+    int xOBDItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // OBD Buffer ...
+    CopyBuffer(
+        xOBDHandler,
+        0,
+        0,
+        xOBDItemsPerTick,
+        xOBDBuffer
+        //
+    );
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XOBD Custom Functions ...
+//
+
+//
+// Check is Swing Low Occured or not ...
+bool XOBDIsSwingLow(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XOBDIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result = xOBDBuffer[bar_index] == X_SWING_LOW;
+
+    //
+    return result;
+}
+
+//
+// Check is Swing High Occured or not ...
+bool XOBDIsSwingHigh(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XOBDIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result = xOBDBuffer[bar_index] == X_SWING_HIGH;
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XOBDIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        //
+        ArraySize(xOBDBuffer) < size
+        //
+    )
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// END XOBD Custom Functions ...
+//

BKPS/XAU5-14021118-Full/Helpers/x-saherelm.xrsi.oscillator.helper.lib.mq5

@@ -0,0 +1,433 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XRSI Oscillator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// XRSI Oscillator Buffer Lines ...
+//
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XRSI Oscillator";
+
+// //
+// input group "XRSI Market";
+// input int xRSILength = 18;                           // Market Length
+// input ENUM_APPLIED_PRICE xRSIAppliedTo = PRICE_OPEN; // Applied To
+
+// //
+// input group "XRSI Short Entry";
+// input double xRSIShortEntryValue = 70;                       // Short Entry Level
+// input color xRSIShortEntryColor = clrRed;                    // Short Entry Level Color
+// input ENUM_LINE_STYLE xRSIShortEntryLineStyle = STYLE_SOLID; // Short Entry Style
+
+// //
+// input group "XRSI Short Exit";
+// input double xRSIShortExitValue = 40;                     // Short Exit Level
+// input color xRSIShortExitColor = clrRed;                  // Short Exit Level Color
+// input ENUM_LINE_STYLE xRSIShortExitLineStyle = STYLE_DOT; // Short Exit Style
+
+// //
+// input group "XRSI Long Entry";
+// input double xRSILongEntryValue = 30;                       // Long Entry Level
+// input color xRSILongEntryColor = clrRed;                    // Long Entry Level Color
+// input ENUM_LINE_STYLE xRSILongEntryLineStyle = STYLE_SOLID; // Long Entry Style
+
+// //
+// input group "XRSI Long Exit";
+// input double xRSILongExitValue = 60;                     // Long Exit Level
+// input color xRSILongExitColor = clrRed;                  // Long Exit Level Color
+// input ENUM_LINE_STYLE xRSILongExitLineStyle = STYLE_DOT; // Long Exit Style
+
+//
+// Configurations ...
+int xRSILength = 18;                           // Market Length
+ENUM_APPLIED_PRICE xRSIAppliedTo = PRICE_OPEN; // Applied To
+
+//
+double xRSIShortEntryValue = 70;                       // Short Entry Level
+color xRSIShortEntryColor = clrRed;                    // Short Entry Level Color
+ENUM_LINE_STYLE xRSIShortEntryLineStyle = STYLE_SOLID; // Short Entry Style
+
+//
+double xRSIShortExitValue = 40;                     // Short Exit Level
+color xRSIShortExitColor = clrRed;                  // Short Exit Level Color
+ENUM_LINE_STYLE xRSIShortExitLineStyle = STYLE_DOT; // Short Exit Style
+
+//
+double xRSILongEntryValue = 30;                       // Long Entry Level
+color xRSILongEntryColor = clrRed;                    // Long Entry Level Color
+ENUM_LINE_STYLE xRSILongEntryLineStyle = STYLE_SOLID; // Long Entry Style
+
+//
+double xRSILongExitValue = 60;                     // Long Exit Level
+color xRSILongExitColor = clrRed;                  // Long Exit Level Color
+ENUM_LINE_STYLE xRSILongExitLineStyle = STYLE_DOT; // Long Exit Style
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+int xRSIHandler = INVALID_HANDLE;
+double xRSIBuffer[];
+
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XRSIValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result =
+        xRSILongEntryValue < xRSILongExitValue &&
+        xRSIShortEntryValue > xRSIShortExitValue &&
+        xRSIShortEntryValue > xRSILongExitValue &&
+        xRSIShortExitValue < xRSILongExitValue;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XRSI Oscillator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Oscillators ...
+bool XRSIInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XRSI Handler ...
+    ArraySetAsSeries(xRSIBuffer, true);
+    xRSIHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xrsi.oscillator",
+        //
+        // Inputs ...
+        //
+        // Market ...
+        "",
+        xRSILength,
+        xRSIAppliedTo,
+        //
+        // Short Entry ...
+        "",
+        xRSIShortEntryValue,
+        xRSIShortEntryColor,
+        xRSIShortEntryLineStyle,
+        //
+        // Short Exit ...
+        "",
+        xRSIShortExitValue,
+        xRSIShortExitColor,
+        xRSIShortExitLineStyle,
+        //
+        // Long Entry ...
+        "",
+        xRSILongEntryValue,
+        xRSILongEntryColor,
+        xRSILongEntryLineStyle,
+        //
+        //  Long Exit ...
+        "",
+        xRSILongExitValue,
+        xRSILongExitColor,
+        xRSILongExitLineStyle
+        //
+    );
+    if (xRSIHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XRSI Oscillator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Oscillators ...
+void XRSIReleaseHandlers()
+{
+    IndicatorRelease(xRSIHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XRSIReadBuffers(
+    int xRSIItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // XRSI Signal ...
+    CopyBuffer(
+        xRSIHandler,
+        0,
+        0,
+        xRSIItemsPerTick,
+        xRSIBuffer);
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XRSI Custom Functions ...
+//
+
+//
+// Check SC is Peak ...
+bool XRSIIsPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XRSIIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xRSIBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check SC is Vale ...
+bool XRSIIsVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XRSIIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xRSIBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// RSI Value GO Up from Long Entry ...
+bool XRSIIsCrossedOverLongEntry(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XRSIIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xRSIBuffer[bar_index + 1] > xRSILongEntryValue &&
+        xRSIBuffer[bar_index + 2] <= xRSILongEntryValue;
+
+    //
+    return result;
+}
+
+//
+// RSI Value GO Up from Long Exit ...
+bool XRSIIsCrossedOverLongExit(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XRSIIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xRSIBuffer[bar_index + 1] > xRSILongExitValue &&
+        xRSIBuffer[bar_index + 2] <= xRSILongExitValue;
+
+    //
+    return result;
+}
+
+//
+// RSI Value Go Down Short Entry ...
+bool XRSIIsCrossedUnderShortEntry(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XRSIIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xRSIBuffer[bar_index + 1] < xRSIShortEntryValue &&
+        xRSIBuffer[bar_index + 2] >= xRSIShortEntryValue;
+
+    //
+    return result;
+}
+
+//
+// RSI Value Go Down Short Exit ...
+bool XRSIIsCrossedUnderShortExit(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XRSIIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        xRSIBuffer[bar_index + 1] < xRSIShortExitValue &&
+        xRSIBuffer[bar_index + 2] >= xRSIShortExitValue;
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XRSIIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        //
+        ArraySize(xRSIBuffer) < size
+        //
+    )
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// END XRSI Custom Functions ...
+//

BKPS/XAU5-14021118-Full/Helpers/x-saherelm.xtd.oscillator.helper.lib.mq5

@@ -0,0 +1,931 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XTD Oscillator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// XTD Oscillator States ...
+enum ENUM_X_XTD_STATES
+{
+    X_XTD_BULLISH_CROSSED_OVER_BEARISH = 2,
+    X_XTD_BULLISH_OVER_BEARISH = 1,
+    X_XTD_NEUTURAL = 0,
+    X_XTD_BULLISH_UNDER_BEARISH = -1,
+    X_XTD_BULLISH_CROSSED_UNDER_BEARISH = -2
+};
+
+//
+// XTD Oscillator Buffer Lines ...
+enum ENUM_X_XTD_BUFFER_LINES
+{
+    X_XTD_BULLISH_POWER_LINE = 0,
+    X_XTD_BEARISH_POWER_LINE = 1,
+    X_XTD_SIGNAL_LINE = 2,
+};
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XTD Oscillator";
+
+// input int xTDLength = 18;                      // Market Length
+// input bool xTDDrawCrosses = false;             // Draw Cross Arrows
+// input uchar xTDBullishArrowCode = 228;         // Cross Over Arrow Code
+// input color xTDBullishArrowColor = clrAqua;    // Cross Over Arrow Color
+// input uchar xTDBearishArrowCode = 230;         // Cross Under Arrow Code
+// input color xTDBearishArrowColor = clrMagenta; // Cross Under Arrow Color
+
+//
+// Configurations ...
+int xTDLength = 18;                      // Market Length
+bool xTDDrawCrosses = false;             // Draw Cross Arrows
+uchar xTDBullishArrowCode = 228;         // Cross Over Arrow Code
+color xTDBullishArrowColor = clrAqua;    // Cross Over Arrow Color
+uchar xTDBearishArrowCode = 230;         // Cross Under Arrow Code
+color xTDBearishArrowColor = clrMagenta; // Cross Under Arrow Color
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+int xTDHandler = INVALID_HANDLE;
+double xTDBullishBuffer[];
+double xTDBearishBuffer[];
+double xTDSignalBuffer[];
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XTDValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result = xTDLength >= 2;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XTD Oscillator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Oscillators ...
+bool XTDInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XTD Handler ...
+    ArraySetAsSeries(xTDBullishBuffer, true);
+    ArraySetAsSeries(xTDBearishBuffer, true);
+    ArraySetAsSeries(xTDSignalBuffer, true);
+    xTDHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xtd.oscillator",
+        //
+        // Inputs ...
+        xTDLength,
+        xTDDrawCrosses,
+        xTDBullishArrowCode,
+        xTDBullishArrowColor,
+        xTDBearishArrowCode,
+        xTDBearishArrowColor);
+    if (xTDHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XTD Oscillator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Oscillators ...
+void XTDReleaseHandlers()
+{
+    IndicatorRelease(xTDHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XTDReadBuffers(
+    int xTDItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // XTD Bullish Buffer ...
+    CopyBuffer(
+        xTDHandler,
+        X_XTD_BULLISH_POWER_LINE,
+        0,
+        xTDItemsPerTick,
+        xTDBullishBuffer);
+
+    //
+    // XTD Bullish Buffer ...
+    CopyBuffer(
+        xTDHandler,
+        X_XTD_BEARISH_POWER_LINE,
+        0,
+        xTDItemsPerTick,
+        xTDBearishBuffer);
+
+    //
+    // XTD Signal Buffer ...
+    CopyBuffer(
+        xTDHandler,
+        X_XTD_SIGNAL_LINE,
+        0,
+        xTDItemsPerTick,
+        xTDSignalBuffer);
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XTD Custom Functions ...
+//
+
+//
+// Check Signal Vale ...
+bool XTDIsSignalVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xTDSignalBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check Signal Peak ...
+bool XTDIsSignalPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xTDSignalBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check Signal Vale ...
+bool XTDIsBullishVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xTDBullishBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check Signal Peak ...
+bool XTDIsBullishPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xTDBullishBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check Signal Vale ...
+bool XTDIsBearishVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xTDBearishBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check Signal Peak ...
+bool XTDIsBearishPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xTDBearishBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check Signal Peak ...
+
+//
+// Check Bullish Crossed Over Bearish ...
+bool XTDIsBullCrossedOverBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsCrossOver(
+        xTDBullishBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Bullish Over Bearish ...
+bool XTDIsBullOverBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsOver(
+        xTDBullishBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Bullish Crossed Under Bearish ...
+bool XTDIsBullCrossedUnderBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsCrossUnder(
+        xTDBullishBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Bullish Under Bearish ...
+bool XTDIsBullUnderBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsUnder(
+        xTDBullishBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Signal Crossed Over Bearish ...
+bool XTDIsSignalCrossedOverBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsCrossOver(
+        xTDSignalBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Signal Over Bearish ...
+bool XTDIsSignalOverBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsOver(
+        xTDSignalBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Signal Crossed Under Bearish ...
+bool XTDIsSignalCrossedUnderBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsCrossUnder(
+        xTDSignalBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check Signal Under Bearish ...
+bool XTDIsSignalUnderBear(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTDIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsUnder(
+        xTDSignalBuffer,
+        xTDBearishBuffer,
+        1);
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XTDIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        ArraySize(xTDBullishBuffer) < size ||
+        ArraySize(xTDBullishBuffer) < size ||
+        ArraySize(xTDSignalBuffer) < size)
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Count Signal Crossed Over Bear ...
+int XTDCountSignalCrossedOverBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = 0;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsSignalCrossedOverBear(i);
+        if (isCrossedOnI)
+        {
+            result++;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Count Signal Crossed Under Bear ...
+int XTDCountSignalCrossedUnderBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = 0;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsSignalCrossedUnderBear(i);
+        if (isCrossedOnI)
+        {
+            result++;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Count Bull Crossed Over Bear ...
+int XTDCountBullCrossedOverBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = 0;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsBullCrossedOverBear(i);
+        if (isCrossedOnI)
+        {
+            result++;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Count Bull Crossed Under Bear ...
+int XTDCountBullCrossedUnderBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = 0;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsBullCrossedUnderBear(i);
+        if (isCrossedOnI)
+        {
+            result++;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Find Last Signal Crossed Over Bear ...
+int XTDFindLastSignalCrossedOverBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = -1;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsSignalCrossedOverBear(i);
+        if (isCrossedOnI)
+        {
+            //
+            result = i;
+            break;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Find Last Signal Crossed Onder Bear ...
+int XTDFindLastSignalCrossedUnderBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = -1;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsSignalCrossedUnderBear(i);
+        if (isCrossedOnI)
+        {
+            //
+            result = i;
+            break;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Find Last Bull Crossed Over Bear ...
+int XTDFindLastBullCrossedOverBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = -1;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsBullCrossedOverBear(i);
+        if (isCrossedOnI)
+        {
+            //
+            result = i;
+            break;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// Find Last Bull Crossed Under Bear ...
+int XTDFindLastBullCrossedUnderBearIndex(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    int result = -1;
+
+    //
+    int count = ArraySize(xTDSignalBuffer) - 1;
+    if (
+        bar_index <= 0 ||
+        count <= bar_index + 1)
+    {
+        return result;
+    }
+
+    //
+    // Loop Through ...
+    for (int i = bar_index + 1; i < count && result == -1; i++)
+    {
+        //
+        // Check Cross On i Point ...
+        bool isCrossedOnI = XTDIsBullCrossedUnderBear(i);
+        if (isCrossedOnI)
+        {
+            //
+            result = i;
+            break;
+        }
+    }
+
+    //
+    return result;
+}
+
+//
+// END XTD Custom Functions ...
+//

BKPS/XAU5-14021118-Full/Helpers/x-saherelm.xtm.indicator.helper.lib.mq5

@@ -0,0 +1,598 @@
+/////////////////////////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XTM Indicator Helper for Signal Providers
+// --------------------------------------------------------------------------
+//
+// 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
+
+//
+// Includes ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+
+//
+// XTM Indicator States ...
+enum ENUM_X_XTM_STATES
+{
+    X_XTM_BULLISH = 1,
+    X_XTM_BEARISH = -1,
+    X_XTM_NEUTURAL = 0,
+};
+
+//
+// XTM Indicator Buffer Lines ...
+enum ENUM_X_XTM_BUFFER_LINES
+{
+    X_XTM_MA_LINE = 0,
+    X_XTM_MC_COLOR_LINE = 1,
+    X_XTM_STATE_LINE = 2,
+};
+
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+
+// input group "XTM Indicator";
+
+// input int xTMMaPeriod = 18;                           // Period
+// input int xTMMaShift = 0;                             // Shift
+// input ENUM_MA_METHOD xTMMaMethod = MODE_EMA;          // Method
+// input ENUM_APPLIED_PRICE xTMMaAppliedTo = PRICE_OPEN; // Applied To
+
+//
+// Configurations ...
+int xTMMaPeriod = 18;                           // Period
+int xTMMaShift = 0;                             // Shift
+ENUM_MA_METHOD xTMMaMethod = MODE_EMA;          // Method
+ENUM_APPLIED_PRICE xTMMaAppliedTo = PRICE_OPEN; // Applied To
+
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+
+int xTMHandler = INVALID_HANDLE;
+double xTMMaBuffer[];
+double xTMStateBuffer[];
+
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+
+//
+// Validate Inputs ...
+bool XTMValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    result = xTMMaPeriod >= 2;
+
+    //
+    if (!result)
+    {
+        //
+        LogMessage("XTM Indicator Inputs Validation Failed ...");
+    }
+
+    //
+    return result;
+}
+
+//
+// Init Indicators ...
+bool XTMInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XTM Handler ...
+    ArraySetAsSeries(xTMMaBuffer, true);
+    ArraySetAsSeries(xTMStateBuffer, true);
+    xTMHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xtm.indicator",
+        //
+        // Inputs ...
+        xTMMaPeriod,
+        xTMMaShift,
+        xTMMaMethod,
+        xTMMaAppliedTo);
+    if (xTMHandler == INVALID_HANDLE)
+    {
+        //
+        LogMessage("failed to Initialize XTM Indicator: " + (string)GetLastError());
+        return result;
+    }
+
+    //
+    result = true;
+
+    //
+    return result;
+}
+
+//
+// Release Indicators ...
+void XTMReleaseHandlers()
+{
+    IndicatorRelease(xTMHandler);
+}
+
+//
+// Handle Reading Buffers ...
+void XTMReadBuffers(
+    int xTMItemsPerTick // Number Of Reading Buffer Items Per Tick
+)
+{
+    //
+    // Ma Buffer ...
+    CopyBuffer(
+        xTMHandler,
+        X_XTM_MA_LINE,
+        0,
+        xTMItemsPerTick,
+        xTMMaBuffer);
+
+    //
+    // State Buffer ...
+    CopyBuffer(
+        xTMHandler,
+        X_XTM_STATE_LINE,
+        0,
+        xTMItemsPerTick,
+        xTMStateBuffer);
+}
+
+//
+// END Handler Funcions ...
+//
+
+//
+// START XTM Custom Functions ...
+//
+
+//
+// Find Peak based On this Indicator ...
+bool XTMIsPeak(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    // Must Decreasing ...
+    bool isIncreasing = IsIncreasing(
+        bar_index + length,
+        bar_index,
+        xTMMaBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Find Vale based On this Indicator ...
+bool XTMIsVale(
+    int bar_index,  // Specified Index ...
+    int length = 10 // Specified Length ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        length <= 0 ||
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + length + 1))
+    {
+        return result;
+    }
+
+    //
+    result = IsDecreasing(
+        bar_index + length,
+        bar_index,
+        xTMMaBuffer
+        //
+    );
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Up ...
+bool XTMIsStartBullish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_BULLISH &&
+        xTMStateBuffer[bar_index + 1] != X_XTM_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Up After Neutural State ...
+bool XTMIsStartBullishAfterNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_BULLISH &&
+        xTMStateBuffer[bar_index + 1] == X_XTM_NEUTURAL
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM In Up State ...
+bool XTMIsBullish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Up State ...
+bool XTMIsEndBullish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] != X_XTM_BULLISH &&
+        xTMStateBuffer[bar_index + 1] == X_XTM_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Up State By Neutural ...
+bool XTMIsEndBullishByNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_NEUTURAL &&
+        xTMStateBuffer[bar_index + 1] == X_XTM_BULLISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Down ...
+bool XTMIsStartBearish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_BEARISH &&
+        xTMStateBuffer[bar_index + 1] != X_XTM_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Crossed Down After Neutural State ...
+bool XTMIsStartBearishAfterNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_BEARISH &&
+        xTMStateBuffer[bar_index + 1] == X_XTM_NEUTURAL
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM In Down State ...
+bool XTMIsBearish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Down State ...
+bool XTMIsEndBearish(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] != X_XTM_BEARISH &&
+        xTMStateBuffer[bar_index + 1] == X_XTM_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM Ends Down State By Neutural ...
+bool XTMIsEndBearishByNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 2))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_NEUTURAL &&
+        xTMStateBuffer[bar_index + 1] == X_XTM_BEARISH
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check TM In Neutural State ...
+bool XTMIsNeutural(
+    int bar_index // Specified Index ...
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        bar_index <= 0 ||
+        !XTMIsValidBuffersSize(bar_index + 1))
+    {
+        return result;
+    }
+
+    //
+    result =
+        //
+        xTMStateBuffer[bar_index] == X_XTM_NEUTURAL
+        //
+        ;
+
+    //
+    return result;
+}
+
+//
+// Check all Buffers has valid Size ...
+bool XTMIsValidBuffersSize(
+    int size // the size of buffers which min size for requirements
+)
+{
+    //
+    bool result = false;
+
+    //
+    if (
+        size <= 0 ||
+        //
+        ArraySize(xTMMaBuffer) < size ||
+        ArraySize(xTMStateBuffer) < size
+        //
+    )
+    {
+        result = false;
+    }
+    else
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// END XTM Custom Functions ...
+//

BKPS/XAU5-14021118-Full/Indicators/x-saherelm.xama.indicator.mq5

@@ -0,0 +1,353 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XAMA Indicator
+// ---------------------------------------------
+// Name: XAMA
+// Description: Trend Magic Indicator ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XAMA Indicator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XAMA"
+
+//
+// XAMA Indicator States ...
+enum ENUM_X_XAMA_STATES
+{
+    X_XAMA_BULLISH = 1,
+    X_XAMA_BEARISH = -1,
+    X_XAMA_NEUTURAL = 0,
+};
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+input int length = 18;                            // Period
+input int fastEMA = 2;                            // Fast EMA Period
+input int slowEMA = 30;                           // Slow EMA Period
+input int maShift = 0;                            // Shift
+input ENUM_APPLIED_PRICE appliedTo = PRICE_CLOSE; // Applied To
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Buffers ...
+//
+#property indicator_chart_window
+
+//
+#property indicator_buffers 3
+#property indicator_plots 1
+
+//
+// maBuffer ...
+#define maBufferIndex 0
+#define maColorBufferIndex 1
+#define stateBufferIndex 2
+
+double maBuffer[];
+double maColorBuffer[];
+double stateBuffer[];
+
+#property indicator_label1 "XAMA"
+#property indicator_type1 DRAW_COLOR_LINE
+#property indicator_color1 clrLime, clrGray, clrRed
+#property indicator_style1 STYLE_SOLID
+#property indicator_width1 1
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+int maHandler = INVALID_HANDLE;
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+
+    //
+    // Initializing MA Handler ...
+    maHandler = iAMA(
+        _Symbol,
+        _Period,
+        length,
+        fastEMA,
+        slowEMA,
+        maShift,
+        appliedTo);
+    if (maHandler == INVALID_HANDLE)
+    {
+        //
+        string message = "Error Initializing Ma Handler ...";
+        LogMessage(message);
+
+        //
+        return INIT_FAILED;
+    }
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+    IndicatorRelease(maHandler);
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(fastEMA, slowEMA);
+    maxLength = MathMax(maxLength, length);
+
+    //
+    // Check Calculated Bars ...
+    int maCalculatedBars = BarsCalculated(maHandler);
+    if (maCalculatedBars < maxLength)
+    {
+        return prev_calculated;
+    }
+
+    //
+    limit = (prev_calculated > rates_total || prev_calculated <= 0) ? rates_total : (rates_total - prev_calculated) + 1;
+
+    //
+    // Buffers Copy ...
+    int copiedMas = CopyBuffer(maHandler, 0, 0, limit, maBuffer);
+    if (copiedMas <= 0)
+    {
+        return prev_calculated;
+    }
+
+    //
+    // Main Loop ...
+    for (int i = limit - 1; i >= 0 && !IsStopped(); i--)
+    {
+        //
+        // Do Buffers Calculation ...
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (length >= 2)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    string maBufferLabel = "XAMA " + "(" + (string)length + ")";
+
+    //
+    // Ma Buffer ...
+    ArraySetAsSeries(maBuffer, true);
+    SetIndexBuffer(maBufferIndex, maBuffer, INDICATOR_DATA);
+    PlotIndexSetString(maBufferIndex, PLOT_LABEL, maBufferLabel);
+
+    //
+    // Ma Color Buffer ...
+    ArraySetAsSeries(maColorBuffer, true);
+    SetIndexBuffer(maColorBufferIndex, maColorBuffer, INDICATOR_COLOR_INDEX);
+
+    //
+    // State Buffer ...
+    ArraySetAsSeries(stateBuffer, true);
+    SetIndexBuffer(stateBufferIndex, stateBuffer, INDICATOR_CALCULATIONS);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, " ", "(", length, ")");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(int bar_index)
+{
+    //
+    // Requirements ...
+    XOHCL candle = GetCandle(bar_index);
+
+    //
+    double maValue = maBuffer[bar_index];
+
+    //
+    double lineColorIndex =
+        maValue < candle.low ? 0 : maValue > candle.high ? 2
+                                                         : 1;
+
+    //
+    // Define State Value ...
+    // lineColorIndex == 0 => Bullish => 1;
+    // lineColorIndex == 1 => Neutural => 0;
+    // lineColorIndex == 2 => Bearish => -1;
+    double stateValue =
+        lineColorIndex == 0 ? X_XAMA_BULLISH : lineColorIndex == 2 ? X_XAMA_BEARISH
+                                                                   : X_XAMA_NEUTURAL;
+
+    //
+    // Set Ma Buffer Color Index ...
+    maColorBuffer[bar_index] = lineColorIndex;
+
+    //
+    // Set State Buffer Value ...
+    stateBuffer[bar_index] = stateValue;
+}
+
+//
+// END Functions ...
+//

BKPS/XAU5-14021118-Full/Indicators/x-saherelm.xchlh.oscillator.mq5

@@ -0,0 +1,753 @@
+//////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Cycle Channel LH Oscillator
+// ---------------------------------------------------
+// Name: XCHLH
+// Description: detecting HH and LL based on cycles ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XCHLH Oscillator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XCHLH"
+
+//
+// XCHLH Hot States ...
+enum ENUM_X_XCHLH_HOT_STATES
+{
+    X_XCHLH_HOT_HH = 1,
+    X_XCHLH_NEUTURAL = 0,
+    X_XCHLH_HOT_LL = -1,
+};
+
+//
+// Including Models Library ...
+#include "../Libraries/x-saherelm.models.lib.mq5"
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+//
+// Common ...
+input group "Hot Areas";
+input bool drawHotAreas = true;           // Draw Hot Areas Symbol
+input uchar hotHHArrowCode = 234;         // Hot HH Arrow Code
+input color hotHHArrowColor = clrAqua;    // Hot HH Arrow Color
+input uchar hotLLArrowCode = 233;         // Hot LL Arrow Code
+input color hotLLArrowColor = clrFuchsia; // Hot LL Arrow Color
+
+//
+// LC Inputs ...
+input group "Long Cycle";
+input group "LC Market";
+input int lcLength = 28;                    // Length
+input double lcThresholdInPips = 0.3;       // Threshold In Pips
+input ENUM_SERIESMODE lcHHMode = MODE_HIGH; // Highest High Calculation Method
+input ENUM_SERIESMODE lcLLMode = MODE_LOW;  // Lowest Low Calculation Method
+input group "LC Style";
+input int lcDrawWidth = 1;                     // Draw Width
+input ENUM_DRAW_TYPE lcDrawType = DRAW_LINE;   // Draw Type
+input ENUM_LINE_STYLE lcDrawStyle = STYLE_DOT; // Draw Style
+input color lcHHColor = clrAqua;               // Highest High Color
+input color lcLLColor = clrFuchsia;            // Lowest Low Color
+input group "LC Drawings";
+input bool lcDrawHH = true; // Draw Highest High
+input bool lcDrawLL = true; // Draw Lowest Low
+
+//
+// MC Inputs ...
+input group "Medium Cycle";
+input group "MC Market";
+input int mcLength = 14;                    // Length
+input double mcThresholdInPips = 0.3;       // Threshold In Pips
+input ENUM_SERIESMODE mcHHMode = MODE_HIGH; // Highest High Calculation Method
+input ENUM_SERIESMODE mcLLMode = MODE_LOW;  // Lowest Low Calculation Method
+input group "MC Style";
+input int mcDrawWidth = 1;                     // Draw Width
+input ENUM_DRAW_TYPE mcDrawType = DRAW_LINE;   // Draw Type
+input ENUM_LINE_STYLE mcDrawStyle = STYLE_DOT; // Draw Style
+input color mcHHColor = clrLime;               // Highest High Color
+input color mcLLColor = clrRed;                // Lowest Low Color
+input group "MC Drawings";
+input bool mcDrawHH = true; // Draw Highest High
+input bool mcDrawLL = true; // Draw Lowest Low
+
+//
+// SC Inputs ...
+input group "Short Cycle";
+input group "SC Market";
+input int scLength = 7;                     // Length
+input double scThresholdInPips = 0.3;       // Threshold In Pips
+input ENUM_SERIESMODE scHHMode = MODE_HIGH; // Highest High Calculation Method
+input ENUM_SERIESMODE scLLMode = MODE_LOW;  // Lowest Low Calculation Method
+input group "SC Style";
+input int scDrawWidth = 1;                     // Draw Width
+input ENUM_DRAW_TYPE scDrawType = DRAW_LINE;   // Draw Type
+input ENUM_LINE_STYLE scDrawStyle = STYLE_DOT; // Draw Style
+input color scHHColor = clrLightBlue;          // Highest High Color
+input color scLLColor = clrLightSalmon;        // Lowest Low Color
+input group "SC Drawings";
+input bool scDrawHH = true; // Draw Highest High
+input bool scDrawLL = true; // Draw Lowest Low
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5";
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5";
+
+//
+// Includes Draw Library ...
+#include "../Libraries/x-saherelm.draw.lib.mq5";
+
+//
+// START Buffers ...
+//
+#property indicator_separate_window
+
+//
+#property indicator_buffers 7
+#property indicator_plots 6
+
+//
+// LC ...
+#define lcHHBufferIndex 0
+#define lcLLBufferIndex 1
+
+//
+double lcHHBuffer[];
+double lcLLBuffer[];
+
+//
+// MC ...
+#define mcHHBufferIndex 2
+#define mcLLBufferIndex 3
+
+//
+double mcHHBuffer[];
+double mcLLBuffer[];
+
+//
+// SC ...
+#define scHHBufferIndex 4
+#define scLLBufferIndex 5
+
+//
+double scHHBuffer[];
+double scLLBuffer[];
+
+//
+// Hot State ...
+//
+#define hotStateBufferIndex 6
+
+//
+double hotStateBuffer[];
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+    drawPrefix = ShortName;
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+
+    //
+    // ReDraw Chart ...
+    ChartRedraw();
+
+    //
+    // De Init Draw Library ...
+    OnDeinitDrawLibrary();
+
+    //
+    Comment("");
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(lcLength, mcLength);
+    maxLength = MathMax(maxLength, scLength);
+
+    //
+    limit = prev_calculated < maxLength ? rates_total - (maxLength + 1) : rates_total - prev_calculated;
+
+    //
+    // Main Loop ...
+    for (int i = limit; i >= 0 && !IsStopped(); i--)
+    {
+        //
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    bool isLCInputsValid =
+        lcLength >= 4 &&
+        lcLength > mcLength &&
+        lcLength > scLength;
+    bool isMCInputsValid =
+        mcLength >= 4 &&
+        mcLength > scLength &&
+        mcLength < lcLength;
+    bool isSCInputsValid =
+        scLength >= 4 &&
+        scLength < mcLength &&
+        scLength < lcLength;
+    if (
+        isLCInputsValid &&
+        isMCInputsValid &&
+        isSCInputsValid)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    // LC ...
+    LCDefineBuffers();
+
+    //
+    // MC ...
+    MCDefineBuffers();
+
+    //
+    // SC ...
+    SCDefineBuffers();
+
+    //
+    // Hot State Buffer ...
+    HotStateDefineBuffers();
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, "");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // LC ...
+    LCCalculateBuffers(bar_index);
+
+    //
+    // MC ...
+    MCCalculateBuffers(bar_index);
+
+    //
+    // SC ...
+    SCCalculateBuffers(bar_index);
+
+    //
+    // SIGNAL ...
+    SignalCalculateBuffers(bar_index);
+
+    //
+    // HOT State Buffer ...
+    HotStateCalculateBuffers(bar_index);
+
+    //
+    // After all Calculations we are ready to Draw what we want ...
+    DrawBuffers(bar_index);
+}
+
+//
+// LC Buffers Definitions ...
+void LCDefineBuffers()
+{
+    //
+    // LC HH Buffer ...
+    string lcHHBufferLabel = ShortName + " LC HH (" + (string)lcLength + ")";
+    ENUM_DRAW_TYPE lcHHDrawType = lcDrawHH ? lcDrawType : DRAW_NONE;
+    ArraySetAsSeries(lcHHBuffer, true);
+    SetIndexBuffer(lcHHBufferIndex, lcHHBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(lcHHBufferIndex, PLOT_DRAW_BEGIN, lcLength);
+    PlotIndexSetString(lcHHBufferIndex, PLOT_LABEL, lcHHBufferLabel);
+    PlotIndexSetInteger(lcHHBufferIndex, PLOT_LINE_COLOR, lcHHColor);
+    PlotIndexSetInteger(lcHHBufferIndex, PLOT_LINE_STYLE, lcDrawStyle);
+    PlotIndexSetInteger(lcHHBufferIndex, PLOT_LINE_WIDTH, lcDrawWidth);
+    PlotIndexSetInteger(lcHHBufferIndex, PLOT_DRAW_TYPE, lcHHDrawType);
+
+    //
+    // LC LL Buffer ...
+    string lcLLBufferLabel = ShortName + " LC LL (" + (string)lcLength + ")";
+    ENUM_DRAW_TYPE lcLLDrawType = lcDrawLL ? lcDrawType : DRAW_NONE;
+    ArraySetAsSeries(lcLLBuffer, true);
+    SetIndexBuffer(lcLLBufferIndex, lcLLBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(lcLLBufferIndex, PLOT_DRAW_BEGIN, lcLength);
+    PlotIndexSetString(lcLLBufferIndex, PLOT_LABEL, lcLLBufferLabel);
+    PlotIndexSetInteger(lcLLBufferIndex, PLOT_LINE_COLOR, lcLLColor);
+    PlotIndexSetInteger(lcLLBufferIndex, PLOT_LINE_STYLE, lcDrawStyle);
+    PlotIndexSetInteger(lcLLBufferIndex, PLOT_LINE_WIDTH, lcDrawWidth);
+    PlotIndexSetInteger(lcLLBufferIndex, PLOT_DRAW_TYPE, lcLLDrawType);
+}
+
+//
+// MC Buffers Definitions ...
+void MCDefineBuffers()
+{
+    //
+    // MC HH Buffer ...
+    string mcHHBufferLabel = ShortName + " MC HH (" + (string)mcLength + ")";
+    ENUM_DRAW_TYPE mcHHDrawType = mcDrawHH ? lcDrawType : DRAW_NONE;
+    ArraySetAsSeries(mcHHBuffer, true);
+    SetIndexBuffer(mcHHBufferIndex, mcHHBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(mcHHBufferIndex, PLOT_DRAW_BEGIN, mcLength);
+    PlotIndexSetString(mcHHBufferIndex, PLOT_LABEL, mcHHBufferLabel);
+    PlotIndexSetInteger(mcHHBufferIndex, PLOT_LINE_COLOR, mcHHColor);
+    PlotIndexSetInteger(mcHHBufferIndex, PLOT_LINE_STYLE, mcDrawStyle);
+    PlotIndexSetInteger(mcHHBufferIndex, PLOT_LINE_WIDTH, mcDrawWidth);
+    PlotIndexSetInteger(mcHHBufferIndex, PLOT_DRAW_TYPE, mcHHDrawType);
+
+    //
+    // MC LL Buffer ...
+    string mcLLBufferLabel = ShortName + " MC LL (" + (string)mcLength + ")";
+    ENUM_DRAW_TYPE mcLLDrawType = mcDrawLL ? lcDrawType : DRAW_NONE;
+    ArraySetAsSeries(mcLLBuffer, true);
+    SetIndexBuffer(mcLLBufferIndex, mcLLBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(mcLLBufferIndex, PLOT_DRAW_BEGIN, mcLength);
+    PlotIndexSetString(mcLLBufferIndex, PLOT_LABEL, mcLLBufferLabel);
+    PlotIndexSetInteger(mcLLBufferIndex, PLOT_LINE_COLOR, mcLLColor);
+    PlotIndexSetInteger(mcLLBufferIndex, PLOT_LINE_STYLE, mcDrawStyle);
+    PlotIndexSetInteger(mcLLBufferIndex, PLOT_LINE_WIDTH, mcDrawWidth);
+    PlotIndexSetInteger(mcLLBufferIndex, PLOT_DRAW_TYPE, mcLLDrawType);
+}
+
+//
+// SC Buffers Definitions ...
+void SCDefineBuffers()
+{
+    //
+    // SC HH Buffer ...
+    string scHHBufferLabel = ShortName + " SC HH (" + (string)scLength + ")";
+    ENUM_DRAW_TYPE scHHDrawType = scDrawHH ? lcDrawType : DRAW_NONE;
+    ArraySetAsSeries(scHHBuffer, true);
+    SetIndexBuffer(scHHBufferIndex, scHHBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(scHHBufferIndex, PLOT_DRAW_BEGIN, scLength);
+    PlotIndexSetString(scHHBufferIndex, PLOT_LABEL, scHHBufferLabel);
+    PlotIndexSetInteger(scHHBufferIndex, PLOT_LINE_COLOR, scHHColor);
+    PlotIndexSetInteger(scHHBufferIndex, PLOT_LINE_STYLE, scDrawStyle);
+    PlotIndexSetInteger(scHHBufferIndex, PLOT_LINE_WIDTH, scDrawWidth);
+    PlotIndexSetInteger(scHHBufferIndex, PLOT_DRAW_TYPE, scHHDrawType);
+
+    //
+    // SC LL Buffer ...
+    string scLLBufferLabel = ShortName + " SC LL (" + (string)scLength + ")";
+    ENUM_DRAW_TYPE scLLDrawType = scDrawLL ? lcDrawType : DRAW_NONE;
+    ArraySetAsSeries(scLLBuffer, true);
+    SetIndexBuffer(scLLBufferIndex, scLLBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(scLLBufferIndex, PLOT_DRAW_BEGIN, scLength);
+    PlotIndexSetString(scLLBufferIndex, PLOT_LABEL, scLLBufferLabel);
+    PlotIndexSetInteger(scLLBufferIndex, PLOT_LINE_COLOR, scLLColor);
+    PlotIndexSetInteger(scLLBufferIndex, PLOT_LINE_STYLE, scDrawStyle);
+    PlotIndexSetInteger(scLLBufferIndex, PLOT_LINE_WIDTH, scDrawWidth);
+    PlotIndexSetInteger(scLLBufferIndex, PLOT_DRAW_TYPE, scLLDrawType);
+}
+
+//
+// Hot State Buffer ...
+void HotStateDefineBuffers()
+{
+    //
+    // Hot State Buffer ...
+    ArraySetAsSeries(hotStateBuffer, true);
+    SetIndexBuffer(hotStateBufferIndex, hotStateBuffer, INDICATOR_CALCULATIONS);
+}
+
+//
+// LC Calculations ...
+void LCCalculateBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // Detect Cycle HH and LL ...
+    int length = lcLength;
+    ENUM_SERIESMODE hhMode = lcHHMode;
+    ENUM_SERIESMODE llMode = lcLLMode;
+    double threshold = PipsToPrice(lcThresholdInPips);
+    double hh = GetHighestHigh(
+        length,
+        bar_index,
+        hhMode);
+    double hhValue = hh + threshold;
+    double ll = GetLowestLow(
+        length,
+        bar_index,
+        llMode);
+    double llValue = ll - threshold;
+
+    //
+    lcHHBuffer[bar_index] = hhValue;
+    lcLLBuffer[bar_index] = llValue;
+}
+
+//
+// MC Calculations ...
+void MCCalculateBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // Detect Cycle HH and LL ...
+    int length = mcLength;
+    ENUM_SERIESMODE hhMode = mcHHMode;
+    ENUM_SERIESMODE llMode = mcLLMode;
+    double threshold = PipsToPrice(mcThresholdInPips);
+    double hh = GetHighestHigh(
+        length,
+        bar_index,
+        hhMode);
+    double hhValue = hh + threshold;
+    double ll = GetLowestLow(
+        length,
+        bar_index,
+        llMode);
+    double llValue = ll - threshold;
+
+    //
+    mcHHBuffer[bar_index] = hhValue;
+    mcLLBuffer[bar_index] = llValue;
+}
+
+//
+// SC Calculations ...
+void SCCalculateBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // Detect Cycle HH and LL ...
+    int length = scLength;
+    ENUM_SERIESMODE hhMode = scHHMode;
+    ENUM_SERIESMODE llMode = scLLMode;
+    double threshold = PipsToPrice(scThresholdInPips);
+    double hh = GetHighestHigh(
+        length,
+        bar_index,
+        hhMode);
+    double hhValue = hh + threshold;
+    double ll = GetLowestLow(
+        length,
+        bar_index,
+        llMode);
+    double llValue = ll - threshold;
+
+    //
+    scHHBuffer[bar_index] = hhValue;
+    scLLBuffer[bar_index] = llValue;
+}
+
+//
+// SIGNAL Calculations ...
+void SignalCalculateBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // LC Values ...
+    double lcHH = lcHHBuffer[bar_index];
+    double lcLL = lcLLBuffer[bar_index];
+    double lcDelta = lcHH - lcLL;
+    double lcAvg = lcDelta / 2;
+
+    //
+    // MC Values ...
+    double mcHH = mcHHBuffer[bar_index];
+    double mcLL = mcLLBuffer[bar_index];
+    double mcDelta = mcHH - mcLL;
+    double mcAvg = mcDelta / 2;
+
+    //
+    // SC Values ...
+    double scHH = scHHBuffer[bar_index];
+    double scLL = scLLBuffer[bar_index];
+    double scDelta = scHH - scLL;
+    double scAvg = scDelta / 2;
+
+    //
+    // Min Value ...
+    double minValue = MathMin(
+        scLL, mcLL);
+    minValue = MathMin(
+        lcLL, minValue);
+
+    //
+    // Max Value ...
+    double maxValue = MathMin(
+        scHH, mcHH);
+    maxValue = MathMin(
+        lcHH, maxValue);
+}
+
+//
+// HOT State Calculate Buffers ...
+void HotStateCalculateBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // LC ...
+    double lcHH = lcHHBuffer[bar_index];
+    double lcLL = lcLLBuffer[bar_index];
+    //
+    double lcHH1 = lcHHBuffer[bar_index + 1];
+    double lcLL1 = lcLLBuffer[bar_index + 1];
+
+    //
+    // MC ...
+    double mcHH = mcHHBuffer[bar_index];
+    double mcLL = mcLLBuffer[bar_index];
+    //
+    double mcHH1 = mcHHBuffer[bar_index + 1];
+    double mcLL1 = mcLLBuffer[bar_index + 1];
+
+    //
+    // SC ...
+    double scHH = scHHBuffer[bar_index];
+    double scLL = scLLBuffer[bar_index];
+    //
+    double scHH1 = scHHBuffer[bar_index + 1];
+    double scLL1 = scLLBuffer[bar_index + 1];
+
+    //
+    bool isHotLLState = scLL == mcLL && mcLL == lcLL;
+    bool isHotLLState1 = scLL1 == mcLL1 && mcLL1 == lcLL1;
+    //
+    bool isHotHHState = scHH == mcHH && mcHH == lcHH;
+    bool isHotHHState1 = scHH1 == mcHH1 && mcHH1 == lcHH1;
+
+    //
+    bool isHotLL = isHotLLState && !isHotLLState1;
+    bool isHotHH = isHotHHState && !isHotHHState1;
+
+    //
+    double hotStateValue = X_XCHLH_NEUTURAL;
+    if (isHotHH)
+    {
+        hotStateValue = X_XCHLH_HOT_HH;
+    }
+    else if (isHotLL)
+    {
+        hotStateValue = X_XCHLH_HOT_LL;
+    }
+
+    //
+    hotStateBuffer[bar_index] = hotStateValue;
+}
+
+//
+// Draw Buffers ...
+void DrawBuffers(
+    int bar_index // Current Candle Index ...
+)
+{
+    //
+    // General Requirements ...
+
+    //
+    // Retrieve Candle Model ...
+    XOHCL candle = GetCandle(bar_index);
+    datetime time = iTime(_Symbol, _Period, bar_index);
+
+    //
+    // Draw Arrow on Hot Areas ...
+    if (drawHotAreas)
+    {
+        //
+        double hotStateValue = hotStateBuffer[bar_index];
+        bool isHotHHArea = hotStateValue == 1;
+        bool isHotLLArea = hotStateValue == -1;
+        if (isHotHHArea || isHotLLArea)
+        {
+            //
+            bool isHH = isHotHHArea;
+
+            //
+            double price = isHH ? candle.high : candle.low;
+            ENUM_ARROW_ANCHOR anchor = isHH ? ANCHOR_BOTTOM : ANCHOR_TOP;
+            color clr = isHH ? hotHHArrowColor : hotLLArrowColor;
+            uchar arrowCode = isHH ? hotHHArrowCode : hotLLArrowCode;
+            string name = "HOT " + (isHH ? "HH" : "LL") + "_" + (string)price + "_" + (string)time;
+
+            //
+            DrawArrow(
+                0,
+                name,
+                0,
+                time,
+                price,
+                arrowCode,
+                anchor,
+                clr,
+                STYLE_SOLID,
+                1);
+        }
+    }
+}
+//
+// END Functions ...
+//

BKPS/XAU5-14021118-Full/Indicators/x-saherelm.xctimer.indicator.mq5

@@ -0,0 +1,206 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XCTimer Indicator
+// ---------------------------------------------
+// Name: XCTimer
+// Description: Trend Magic Indicator ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XCTimer Indicator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XCTimer"
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+input color clr = clrYellow;
+input ENUM_BASE_CORNER corner = CORNER_RIGHT_LOWER;
+//
+// END Inputs ...
+//
+
+//
+// START Buffers ...
+//
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    CreateIndicatorObject();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Delete Object ...
+    ObjectDelete(0, ShortName);
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    ArraySetAsSeries(time, true);
+
+    //
+    int m = int(time[0] + PeriodSeconds() - TimeCurrent());
+    int s = m % 60;
+    m = (m - s) / 60;
+
+    //
+    long mSpread = SymbolInfoInteger(Symbol(), SYMBOL_SPREAD);
+
+    string _sp = "", _m = "", _s = "";
+    if (mSpread < 10)
+        _sp = "..";
+    else if (mSpread < 100)
+        _sp = ".";
+    if (m < 10)
+        _m = "0";
+    if (s < 10)
+        _s = "0";
+
+    //
+    string objText = "Spread: " + IntegerToString(mSpread) + _sp + " Next Bar in " + _m + IntegerToString(m) + ":" + _s + IntegerToString(s);
+
+    //
+    ObjectSetInteger(0, ShortName, OBJPROP_COLOR, clr);
+    ObjectSetString(0, ShortName, OBJPROP_TEXT, objText);
+    ObjectSetInteger(0, ShortName, OBJPROP_FONTSIZE, 10);
+    ObjectSetString(0, ShortName, OBJPROP_FONT, "Courier");
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    IndicatorSetString(INDICATOR_SHORTNAME, ShortName);
+}
+
+void CreateIndicatorObject()
+{
+    //
+    ObjectCreate(0, ShortName, OBJ_LABEL, 0, 0, 0);
+    ObjectSetInteger(0, ShortName, OBJPROP_CORNER, corner);
+    ObjectSetInteger(0, ShortName, OBJPROP_XDISTANCE, 10);
+    ObjectSetInteger(0, ShortName, OBJPROP_YDISTANCE, 2);
+    ENUM_ANCHOR_POINT Anchor = ANCHOR_LEFT_UPPER;
+    switch (corner)
+    {
+    case CORNER_LEFT_UPPER:
+        Anchor = ANCHOR_LEFT_UPPER;
+        break;
+    case CORNER_RIGHT_UPPER:
+        Anchor = ANCHOR_RIGHT_UPPER;
+        break;
+    case CORNER_LEFT_LOWER:
+        Anchor = ANCHOR_LEFT_LOWER;
+        break;
+    case CORNER_RIGHT_LOWER:
+        Anchor = ANCHOR_RIGHT_LOWER;
+        break;
+    }
+
+    //
+    ObjectSetInteger(0, ShortName, OBJPROP_ANCHOR, Anchor);
+}
+//
+// END Functions ...
+//

BKPS/XAU5-14021118-Full/Indicators/x-saherelm.xfi.oscillator.mq5

@@ -0,0 +1,317 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XFI Oscillator
+// ---------------------------------------------
+// Name: XFI
+// Description: Price Momentum Power Detection
+// Market Analysor ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XFI Oscillator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XFI"
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+input int length = 18;                             // Length
+input ENUM_MA_METHOD method = MODE_SMA;            // MA Method
+input ENUM_APPLIED_VOLUME appliedTo = VOLUME_TICK; // Applied To
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Buffers ...
+//
+#property indicator_separate_window
+
+//
+#property indicator_buffers 2
+#property indicator_plots 1
+
+//
+// FI Buffer ...
+#define fiBufferIndex 0
+#define fiColorBufferIndex 1
+
+//
+double fiBuffer[];
+double fiColorBuffer[];
+
+//
+#property indicator_label1 "XFI"
+#property indicator_type1 DRAW_COLOR_LINE
+#property indicator_color1 clrAqua, clrGray, clrFuchsia
+#property indicator_style1 STYLE_DOT
+#property indicator_width1 1
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+int fiHandler = INVALID_HANDLE;
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+
+    //
+    fiHandler = iForce(
+        _Symbol,
+        _Period,
+        length,
+        method,
+        appliedTo);
+    if (fiHandler == INVALID_HANDLE)
+    {
+        //
+        string message = "Error Initializing Handler ...";
+        LogMessage(message);
+
+        //
+        return INIT_FAILED;
+    }
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+    IndicatorRelease(fiHandler);
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(0, length);
+
+    //
+    // Check Calculated Bars ...
+    int fiCalculatedBars = BarsCalculated(fiHandler);
+    if (fiCalculatedBars < maxLength)
+    {
+        return prev_calculated;
+    }
+
+    //
+    limit = (prev_calculated > rates_total || prev_calculated <= 0) ? rates_total : (rates_total - prev_calculated) + 1;
+
+    //
+    // Buffers Copy ...
+    int copiedFis = CopyBuffer(fiHandler, 0, 0, limit, fiBuffer);
+    if (copiedFis <= 0)
+    {
+        return prev_calculated;
+    }
+
+    //
+    // Main Loop ...
+    for (int i = 0; i < limit && !IsStopped(); i++)
+    {
+        //
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (length >= 2)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    string fiBufferLabel = "XFI " + "(" + (string)length + ")";
+
+    //
+    // FI Buffer ...
+    ArraySetAsSeries(fiBuffer, true);
+    SetIndexBuffer(fiBufferIndex, fiBuffer, INDICATOR_DATA);
+    PlotIndexSetString(fiBufferIndex, PLOT_LABEL, fiBufferLabel);
+
+    //
+    // FI Color Buffer ...
+    ArraySetAsSeries(fiColorBuffer, true);
+    SetIndexBuffer(fiColorBufferIndex, fiColorBuffer, INDICATOR_COLOR_INDEX);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, "");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(
+    int bar_index // Selected Bar Index
+)
+{
+    //
+    double iValue = fiBuffer[bar_index];
+
+    //
+    double iColorIndex =
+        iValue > 0 ? 0 : iValue < 0 ? 2
+                                    : 1;
+
+    //
+    // Set Buffer Color Index ...
+    fiColorBuffer[bar_index] = iColorIndex;
+}
+//
+// END Functions ...
+//

BKPS/XAU5-14021118-Full/Indicators/x-saherelm.xlh.indicator.mq5

@@ -0,0 +1,346 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XLH Indicator
+// ---------------------------------------------
+// Name: XLH
+// Description: Moving Average Indicator
+// Market Analysor ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XLH Indicator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XLH"
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+input int length = 14;                    // Length
+input ENUM_SERIESMODE hhMode = MODE_HIGH; // Highest High Calculation Method
+input ENUM_SERIESMODE llMode = MODE_LOW;  // Lowest Low Calculation Method
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Buffers ...
+//
+#property indicator_chart_window
+
+//
+#property indicator_buffers 3
+#property indicator_plots 3
+
+//
+// HH Buffer ...
+#define hhBufferIndex 0
+
+//
+double hhBuffer[];
+
+//
+#property indicator_label1 "XLH HH"
+#property indicator_type1 DRAW_LINE
+#property indicator_color1 clrAqua
+#property indicator_style1 STYLE_DOT
+#property indicator_width1 1
+
+//
+// LL Buffer ...
+#define llBufferIndex 1
+
+//
+double llBuffer[];
+
+//
+#property indicator_label2 "XLH LL"
+#property indicator_type2 DRAW_LINE
+#property indicator_color2 clrFuchsia
+#property indicator_style2 STYLE_DOT
+#property indicator_width2 1
+
+//
+// Signal Buffer ...
+#define signalBufferIndex 2
+
+//
+double signalBuffer[];
+
+//
+#property indicator_label3 "XLH S"
+#property indicator_type3 DRAW_LINE
+#property indicator_color3 clrGold
+#property indicator_style3 STYLE_DOT
+#property indicator_width3 1
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(0, length);
+
+    //
+    limit = (prev_calculated > rates_total || prev_calculated <= 0) ? rates_total : (rates_total - prev_calculated) + 1;
+
+    //
+    // Main Loop ...
+    for (int i = limit - 1; i >= 0 && !IsStopped(); i--)
+    {
+        //
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (length >= 2)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    // HH Buffer ...
+    string hhBufferLabel = ShortName + " HH " + "(" + (string)length + ")";
+    ArraySetAsSeries(hhBuffer, true);
+    SetIndexBuffer(hhBufferIndex, hhBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(hhBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(hhBufferIndex, PLOT_LABEL, hhBufferLabel);
+
+    //
+    // LL Buffer ...
+    string llBufferLabel = ShortName + " LL " + "(" + (string)length + ")";
+    ArraySetAsSeries(llBuffer, true);
+    SetIndexBuffer(llBufferIndex, llBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(llBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(llBufferIndex, PLOT_LABEL, llBufferLabel);
+
+    //
+    // Signal Buffer ...
+    string signalBufferLabel = ShortName + " S " + "(" + (string)length + ")";
+    ArraySetAsSeries(signalBuffer, true);
+    SetIndexBuffer(signalBufferIndex, signalBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(signalBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(signalBufferIndex, PLOT_LABEL, signalBufferLabel);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, "");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(
+    int bar_index // Selected Bar Index
+)
+{
+    //
+    // Calculate Threshold ...
+    //
+    // HH Buffer ...
+    int hhIndex = iHighest(
+        _Symbol,
+        _Period,
+        hhMode,
+        length,
+        bar_index);
+    double hhValue = GetAppliedPrice(
+        hhIndex,
+        hhMode);
+
+    //
+    hhBuffer[bar_index] = hhValue;
+
+    //
+    // LL Buffer ...
+    int llIndex = iLowest(
+        _Symbol,
+        _Period,
+        llMode,
+        length,
+        bar_index);
+    double llValue = GetAppliedPrice(
+        llIndex,
+        llMode);
+
+    //
+    llBuffer[bar_index] = llValue;
+
+    //
+    XOHCL c = GetCandle(bar_index);
+    double lhDiff = hhValue - llValue;
+    double signalValue = (lhDiff / 2);
+
+    //
+    signalBuffer[bar_index] = (hhValue - signalValue);
+}
+//
+// END Functions ...
+//

BKPS/XAU5-14021118-Full/Indicators/x-saherelm.xobd.indicator.mq5

@@ -0,0 +1,390 @@
+/////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 OrderBlock Detector Indicator
+// -----------------------------------------------------
+// Name: XOBD
+// Description: detect Order Blocks based on Swings ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XOBD Indicator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XOBD"
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+//
+input int length = 5; // Swing Length
+
+//
+input uchar swingHighArrowCode = 108;         // Swing High Arrow Code
+input color swingHighArrowColor = clrMagenta; // Swing High Arrow Color
+
+//
+input uchar swingLowArrowCode = 108;      // Swing Low Arrow Code
+input color swingLowArrowColor = clrAqua; // Swing Low Arrow Color
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Include Common and Models Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// Include Draw Library ...
+#include "../Libraries/x-saherelm.draw.lib.mq5"
+
+//
+// START Buffers ...
+//
+#property indicator_chart_window
+
+//
+#property indicator_buffers 1
+#property indicator_plots 0
+
+//
+#define swingBufferIndex 0
+double swingBuffer[];
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+    drawPrefix = ShortName;
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+    OnDeinitDrawLibrary();
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(0, length * 3);
+
+    //
+    limit = prev_calculated < maxLength ? rates_total - (maxLength + 1) : rates_total - prev_calculated;
+
+    //
+    // Main Loop ...
+    for (int i = limit; i >= 0 && !IsStopped(); i--)
+    {
+        //
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (length >= 2)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    ArraySetAsSeries(swingBuffer, true);
+    SetIndexBuffer(swingBufferIndex, swingBuffer, INDICATOR_CALCULATIONS);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, " ", "( ", length, " )");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(int bar_index)
+{
+    //
+    // GetCandleSwing(bar_index);
+    ENUM_X_SWING_TYPE type = X_NO_SWING;
+
+    //
+    // Try To Detect Order Blocks ...
+    bool isSwingLow = false;
+    bool isSwingHigh = false;
+
+    //
+    // Reading Candles Data ...
+    XOHCL candles[];
+    for (int i = bar_index; i < bar_index + ((length * 2) + 2); i++)
+    {
+        //
+        XOHCL iCandle = GetCandle(
+            _Symbol,
+            _Period,
+            i);
+
+        //
+        Add(
+            iCandle,
+            candles);
+    }
+
+    //
+    // Swing Low ...
+    isSwingLow =
+        //
+        candles[1].close > candles[2].close &&
+        candles[2].close > candles[3].close &&
+        //
+        candles[3].close < candles[4].close &&
+        //
+        candles[5].close > candles[4].close &&
+        candles[6].close > candles[5].close
+        //
+        ;
+
+    //
+    if (isSwingLow)
+    {
+        type = X_SWING_LOW;
+    }
+
+    //
+    if (!isSwingLow)
+    {
+        //
+        // Swing High ...
+        isSwingHigh =
+            //
+            candles[1].close < candles[2].close &&
+            candles[2].close < candles[3].close &&
+            //
+            candles[3].close > candles[4].close &&
+            //
+            candles[5].close < candles[4].close &&
+            candles[6].close < candles[5].close
+            //
+            ;
+
+        //
+        if (isSwingHigh)
+        {
+            type = X_SWING_HIGH;
+        }
+    }
+
+    //
+    switch (type)
+    {
+    //
+    // Swing High ...
+    case X_SWING_HIGH:
+        //
+        swingBuffer[bar_index] = type;
+        DrawSwingArrow(1, bar_index);
+        break;
+
+    //
+    // Swinmg Low ...
+    case X_SWING_LOW:
+        //
+        swingBuffer[bar_index] = type;
+        DrawSwingArrow(0, bar_index);
+        break;
+
+    //
+    // No Swing ...
+    default:
+    case X_NO_SWING:
+        //
+        swingBuffer[bar_index] = 0;
+        break;
+    }
+}
+
+//
+// Draw a Swing Arrow Shape ...
+void DrawSwingArrow(
+    int type, // Swing Type: 0 - Low / 1 - High ...
+    int bar_index)
+{
+    //
+    bool isSwingHigh = type == 1;
+    XOHCL candle = GetCandle(bar_index + 3);
+    double arrowDistanceInPoint = 0;
+
+    //
+    // Define Required Object Properties fro Draw an Arrow ...
+    datetime time = iTime(_Symbol, _Period, bar_index + 3);
+    double purePrice = isSwingHigh ? candle.high : candle.low;
+    color clr = isSwingHigh ? swingHighArrowColor : swingLowArrowColor;
+    ENUM_ARROW_ANCHOR anchor = isSwingHigh ? ANCHOR_BOTTOM : ANCHOR_TOP;
+    uchar arrowCode = uchar(isSwingHigh ? swingHighArrowCode : swingLowArrowCode);
+    double price = isSwingHigh ? purePrice + arrowDistanceInPoint : purePrice - arrowDistanceInPoint;
+    string name = "Swing " + (isSwingHigh ? "High" : "Low") + "_" + (string)time + "_" + (string)purePrice;
+
+    //
+    // Draw desired Arrow ...
+    DrawArrow(
+        0,
+        name,
+        0,
+        time,
+        price,
+        arrowCode,
+        anchor,
+        clr);
+}
+//
+// END Functions ...
+//

BKPS/XAU5-14021118-Full/Indicators/x-saherelm.xrsi.oscillator.mq5

@@ -0,0 +1,397 @@
+/////////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 OrderBlock Detector Oscillator
+// ------------------------------------------------------
+// Name: XRSI
+// Description: detect market conditions based on RSI ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XRSI Oscillator"
+#property strict
+
+//
+// START Constants ...
+//
+
+#define ShortName "XRSI"
+
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+
+//
+input group "Market";
+input int length = 14;                            // Market Length
+input ENUM_APPLIED_PRICE appliedTo = PRICE_CLOSE; // Applied To
+
+//
+input group "Short Entry";
+input double shortEntryValue = 70;                     // Short Entry Level
+input color shortEntryColor = clrRed;                  // Short Entry Level Color
+input ENUM_LINE_STYLE shortEntryLineStyle = STYLE_DOT; // Short Entry Style
+
+//
+input group "Short Exit";
+input double shortExitValue = 40;                     // Short Exit Level
+input color shortExitColor = clrRed;                  // Short Exit Level Color
+input ENUM_LINE_STYLE shortExitLineStyle = STYLE_DOT; // Short Exit Style
+
+//
+input group "Long Entry";
+input double longEntryValue = 30;                     // Long Entry Level
+input color longEntryColor = clrRed;                  // Long Entry Level Color
+input ENUM_LINE_STYLE longEntryLineStyle = STYLE_DOT; // Long Entry Style
+
+//
+input group "Long Exit";
+input double longExitValue = 60;                     // Long Exit Level
+input color longExitColor = clrRed;                  // Long Exit Level Color
+input ENUM_LINE_STYLE longExitLineStyle = STYLE_DOT; // Long Exit Style
+
+//
+// START Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Include Common and Models Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Buffers ...
+//
+
+//
+#property indicator_separate_window
+#property indicator_buffers 2
+#property indicator_plots 1
+
+//
+#define rsiBufferIndex 0
+#define rsiColorBufferIndex 1
+
+//
+double rsiBuffer[];
+double rsiColorBuffer[];
+
+//
+#property indicator_label1 "XRSI"
+#property indicator_type1 DRAW_COLOR_LINE
+#property indicator_color1 clrAqua, clrGray, clrFuchsia
+#property indicator_style1 STYLE_DOT
+#property indicator_width1 1
+
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+
+//
+int rsiHandler = INVALID_HANDLE;
+
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+
+    //
+    rsiHandler = iRSI(
+        _Symbol,
+        _Period,
+        length,
+        appliedTo);
+    if (rsiHandler == INVALID_HANDLE)
+    {
+        return INIT_FAILED;
+    }
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+
+    //
+    IndicatorRelease(rsiHandler);
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(0, length);
+
+    //
+    int rsiCalculatedBars = BarsCalculated(rsiHandler);
+    if (rsiCalculatedBars < maxLength)
+    {
+        return prev_calculated;
+    }
+
+    //
+    limit = prev_calculated < maxLength ? rates_total - (maxLength + 1) : rates_total - prev_calculated;
+
+    //
+    int rsiCopiedItems = CopyBuffer(rsiHandler, 0, 0, limit, rsiBuffer);
+    if (rsiCopiedItems <= 0)
+    {
+        return prev_calculated;
+    }
+
+    //
+    // Main Loop ...
+    for (int i = limit - 1; i >= 0 && !IsStopped(); i--)
+    {
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (length >= 2)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    // RSI ...
+    string rsiBufferLabel = ShortName + " (" + (string)length + ")";
+    ArraySetAsSeries(rsiBuffer, true);
+    SetIndexBuffer(rsiBufferIndex, rsiBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(rsiBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(rsiBufferIndex, PLOT_LABEL, rsiBufferLabel);
+
+    //
+    // RSI Color Buffer ...
+    ArraySetAsSeries(rsiColorBuffer, true);
+    SetIndexBuffer(rsiColorBufferIndex, rsiColorBuffer, INDICATOR_COLOR_INDEX);
+
+    //
+    // Set Indicator Levels here ...
+    // OB, ExitLong, ExitShort, OS ...
+    IndicatorSetInteger(INDICATOR_LEVELS, 4);
+
+    //
+    // SHORTENTRY ...
+    IndicatorSetDouble(INDICATOR_LEVELVALUE, 0, shortEntryValue);
+    IndicatorSetInteger(INDICATOR_LEVELCOLOR, 0, shortEntryColor);
+    IndicatorSetInteger(INDICATOR_LEVELSTYLE, 0, shortEntryLineStyle);
+    IndicatorSetString(INDICATOR_LEVELTEXT, 0, "Short Entry");
+
+    //
+    // LONGEXIT ...
+    IndicatorSetDouble(INDICATOR_LEVELVALUE, 1, longExitValue);
+    IndicatorSetInteger(INDICATOR_LEVELCOLOR, 1, longExitColor);
+    IndicatorSetInteger(INDICATOR_LEVELSTYLE, 1, shortExitLineStyle);
+    IndicatorSetString(INDICATOR_LEVELTEXT, 1, "Long Exit");
+
+    //
+    // SHORTEXIT ...
+    IndicatorSetDouble(INDICATOR_LEVELVALUE, 2, shortExitValue);
+    IndicatorSetInteger(INDICATOR_LEVELCOLOR, 2, shortExitColor);
+    IndicatorSetInteger(INDICATOR_LEVELSTYLE, 2, longEntryLineStyle);
+    IndicatorSetString(INDICATOR_LEVELTEXT, 2, "Short Exit");
+
+    //
+    // LONGENTRY ...
+    IndicatorSetDouble(INDICATOR_LEVELVALUE, 3, longEntryValue);
+    IndicatorSetInteger(INDICATOR_LEVELCOLOR, 3, longEntryColor);
+    IndicatorSetInteger(INDICATOR_LEVELSTYLE, 3, longExitLineStyle);
+    IndicatorSetString(INDICATOR_LEVELTEXT, 3, "Long Entry");
+
+    //
+    // Set Maximum and Minimum for subwindow
+    IndicatorSetInteger(INDICATOR_DIGITS, 2);
+    IndicatorSetDouble(INDICATOR_MINIMUM, 0);
+    IndicatorSetDouble(INDICATOR_MAXIMUM, 100);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, " ", "( ", length, " )");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(int bar_index)
+{
+    //
+    double iValue = rsiBuffer[bar_index];
+
+    //
+    double iColorIndex = 0;
+
+    //
+    if (
+        iValue >= shortEntryValue ||
+        iValue <= longEntryValue ||
+        (iValue < longExitValue &&
+         iValue > shortExitValue))
+    {
+        iColorIndex = 0;
+    }
+    else if (
+        iValue <= shortEntryValue &&
+        iValue >= longExitValue)
+    {
+        iColorIndex = 2;
+    }
+    else if (
+        iValue < shortExitValue &&
+        iValue > longEntryValue)
+    {
+        iColorIndex = 1;
+    }
+
+    //
+    rsiColorBuffer[bar_index] = iColorIndex;
+}
+
+//
+// END Functions ...
+//

BKPS/XAU5-14021118-Full/Indicators/x-saherelm.xtd.oscillator.mq5

@@ -0,0 +1,465 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Trend Detector Oscillator
+// --------------------------------------------------
+// Name: XTD
+// Description: trend detecting in both sides ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XTD Oscillator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XTD"
+
+//
+// XTD Oscillator States ...
+enum ENUM_X_XTD_STATES
+{
+    X_XTD_BULLISH_CROSSED_OVER_BEARISH = 2,
+    X_XTD_BULLISH_OVER_BEARISH = 1,
+    X_XTD_NEUTURAL = 0,
+    X_XTD_BULLISH_UNDER_BEARISH = -1,
+    X_XTD_BULLISH_CROSSED_UNDER_BEARISH = -2
+};
+//
+// END Constants ...
+//
+
+//
+// Include Models Library ...
+#include "../Libraries/x-saherelm.models.lib.mq5"
+
+//
+// START Inputs ...
+//
+input int length = 14;         // Market Length
+input bool drawCrosses = true; // Draw Cross Arrows
+
+//
+// Bullish ...
+input uchar bullishArrowCode = 228;      // Cross Over Arrow Code
+input color bullishArrowColor = clrAqua; // Cross Over Arrow Color
+
+//
+// Bearish ...
+input uchar bearishArrowCode = 230;         // Cross Under Arrow Code
+input color bearishArrowColor = clrMagenta; // Cross Under Arrow Color
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5";
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5";
+
+//
+// Includes Draw Library ...
+#include "../Libraries/x-saherelm.draw.lib.mq5";
+
+//
+// START Buffers ...
+//
+#property indicator_separate_window
+
+//
+#property indicator_buffers 3
+#property indicator_plots 3
+
+//
+#define bullishBufferIndex 0
+#define bearishBufferIndex 1
+#define signalBufferIndex 2
+
+//
+double bullishBuffer[];
+double bearishBuffer[];
+double signalBuffer[];
+
+//
+#property indicator_label1 "XBullPower"
+#property indicator_type1 DRAW_LINE
+#property indicator_color1 clrLime
+#property indicator_style1 STYLE_SOLID
+#property indicator_width1 1
+
+//
+#property indicator_label2 "XBearPower"
+#property indicator_type2 DRAW_LINE
+#property indicator_color2 clrRed
+#property indicator_style2 STYLE_SOLID
+#property indicator_width2 1
+
+//
+#property indicator_label3 "XSignal"
+#property indicator_type3 DRAW_LINE
+#property indicator_color3 clrGold
+#property indicator_style3 STYLE_DOT
+#property indicator_width3 1
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+//
+int xtdBullishCandleCount = 0;
+int xtdBearishCandleCount = 0;
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+    drawPrefix = ShortName;
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+
+    //
+    // De Init Draw Library ...
+    OnDeinitDrawLibrary();
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(0, length);
+
+    //
+    limit = prev_calculated < maxLength ? rates_total - (maxLength + 1) : rates_total - prev_calculated;
+
+    //
+    // Main Loop ...
+    for (int i = limit; i >= 0 && !IsStopped(); i--)
+    {
+        //
+        CalculateBuffers(i, close);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (length >= 5)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    // Bullish Buffer ...
+    string bullishBufferLabel = ShortName + "BullPow " + "(" + (string)length + ")";
+    ArraySetAsSeries(bullishBuffer, true);
+    SetIndexBuffer(bullishBufferIndex, bullishBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(bullishBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(bullishBufferIndex, PLOT_LABEL, bullishBufferLabel);
+
+    //
+    // Bearish Buffer ...
+    string bearishBufferLabel = ShortName + "BearPow " + "(" + (string)length + ")";
+    ArraySetAsSeries(bearishBuffer, true);
+    SetIndexBuffer(bearishBufferIndex, bearishBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(bearishBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(bearishBufferIndex, PLOT_LABEL, bearishBufferLabel);
+
+    //
+    // Signal Buffer ...
+    string signalBufferLabel = ShortName + "Signal " + "(" + (string)length + ")";
+    ArraySetAsSeries(signalBuffer, true);
+    SetIndexBuffer(signalBufferIndex, signalBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(signalBufferIndex, PLOT_DRAW_BEGIN, length);
+    PlotIndexSetString(signalBufferIndex, PLOT_LABEL, signalBufferLabel);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, " ", "( ", length, " )");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(
+    int bar_index,
+    const double &close[])
+{
+    //
+    // Reset Global Counters ...
+    xtdBullishCandleCount = 0;
+    xtdBearishCandleCount = 0;
+
+    //
+    // Loop through Closes ...
+    for (int i = bar_index; i <= bar_index + length; i++)
+    {
+        for (int j = i + 1; j <= bar_index + length; j++)
+        {
+            //
+            if (close[i] > close[j])
+            {
+                xtdBullishCandleCount++;
+            }
+
+            //
+            if (close[i] < close[j])
+            {
+                xtdBearishCandleCount++;
+            }
+        }
+    }
+
+    //
+    // Bullish Power Buffer ...
+    bullishBuffer[bar_index] = MathAbs(xtdBullishCandleCount);
+
+    //
+    // Bearish Power Buffer ...
+    bearishBuffer[bar_index] = MathAbs(xtdBearishCandleCount);
+
+    //
+    // Signal Buffer ...
+    signalBuffer[bar_index] = bullishBuffer[bar_index] - bearishBuffer[bar_index];
+
+    //
+    // Check and Draw Crosses if it's Specified ...
+    if (drawCrosses)
+    {
+        DrawCrosses(bar_index);
+    }
+}
+
+//
+//
+double GetState(
+    int bar_index // Specified Bar Index
+)
+{
+    //
+    // Check Cross Points ...
+    // bullishCrossedOverBearish = 2;
+    // bullishOverBearish = 1;
+    // bullishCrossedUnderBearish = -2;
+    // bullishUnderBearish = -1;
+    // OtherWise = 0;
+    bool isBullishCrossedOverBearish = IsCrossOver(
+        bullishBuffer,
+        bearishBuffer,
+        bar_index);
+    bool isBullishCrossedUnderBearish = IsCrossUnder(
+        bullishBuffer,
+        bearishBuffer,
+        bar_index);
+    bool isBullishOverBearish = IsOver(
+        bullishBuffer,
+        bearishBuffer,
+        bar_index);
+    bool isBullishUnderBearish = IsUnder(
+        bullishBuffer,
+        bearishBuffer,
+        bar_index);
+
+    //
+    double result = X_XTD_NEUTURAL;
+    if (isBullishCrossedOverBearish)
+    {
+        result = X_XTD_BULLISH_CROSSED_OVER_BEARISH;
+    }
+    else if (isBullishCrossedUnderBearish)
+    {
+        result = X_XTD_BULLISH_CROSSED_UNDER_BEARISH;
+    }
+    else if (isBullishOverBearish)
+    {
+        result = X_XTD_BULLISH_OVER_BEARISH;
+    }
+    else if (isBullishUnderBearish)
+    {
+        result = X_XTD_BULLISH_UNDER_BEARISH;
+    }
+    else
+    {
+        result = X_XTD_NEUTURAL;
+    }
+
+    //
+    return result;
+}
+
+//
+// Draw Crosses ...
+void DrawCrosses(
+    int bar_index // the bars which required to draw cross arrow on it ...
+)
+{
+    //
+    double stateValue = GetState(bar_index);
+
+    //
+    bool isOver = stateValue == 2;
+    double low = iLow(_Symbol, _Period, bar_index);
+    double high = iHigh(_Symbol, _Period, bar_index);
+
+    //
+    double price = isOver ? low : high;
+    datetime time = iTime(_Symbol, _Period, bar_index);
+    ENUM_ARROW_ANCHOR anchor = isOver ? ANCHOR_TOP : ANCHOR_BOTTOM;
+    uchar arrowCode = isOver ? bullishArrowCode : bearishArrowCode;
+    color arrowColor = isOver ? bullishArrowColor : bearishArrowColor;
+    string crossName = "Trend " + (isOver ? "Up" : "Down") + "_" + (string)time + "_" + (string)price;
+
+    //
+    DrawArrow(
+        0,
+        crossName,
+        0,
+        time,
+        price,
+        arrowCode,
+        anchor,
+        arrowColor);
+}
+//
+// END Functions ...
+//

BKPS/XAU5-14021118-Full/Indicators/x-saherelm.xtm.indicator.mq5

@@ -0,0 +1,349 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5  Candle Indicator
+// ---------------------------------------------
+// Name: XTM
+// Description: Trend Magic Indicator ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XTM Indicator"
+#property strict
+
+//
+// START Constants ...
+//
+#define ShortName "XTM"
+
+//
+// XTM Indicator States ...
+enum ENUM_X_XTM_STATES
+{
+    X_XTM_BULLISH = 1,
+    X_XTM_BEARISH = -1,
+    X_XTM_NEUTURAL = 0,
+};
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+input int maPeriod = 14;                            // Period
+input int maShift = 0;                              // Shift
+input ENUM_MA_METHOD maMethod = MODE_SMA;           // Method
+input ENUM_APPLIED_PRICE maAppliedTo = PRICE_CLOSE; // Applied To
+//
+// END Inputs ...
+//
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Buffers ...
+//
+#property indicator_chart_window
+
+//
+#property indicator_buffers 3
+#property indicator_plots 1
+
+//
+// maBuffer ...
+#define maBufferIndex 0
+#define maColorBufferIndex 1
+#define stateBufferIndex 2
+
+double maBuffer[];
+double maColorBuffer[];
+double stateBuffer[];
+
+#property indicator_label1 "XTM"
+#property indicator_type1 DRAW_COLOR_LINE
+#property indicator_color1 clrLime, clrGray, clrRed
+#property indicator_style1 STYLE_SOLID
+#property indicator_width1 1
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+int maHandler = INVALID_HANDLE;
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+
+    //
+    // Initializing MA Handler ...
+    maHandler = iMA(
+        _Symbol,
+        _Period,
+        maPeriod,
+        maShift,
+        maMethod,
+        maAppliedTo);
+    if (maHandler == INVALID_HANDLE)
+    {
+        //
+        string message = "Error Initializing Ma Handler ...";
+        LogMessage(message);
+
+        //
+        return INIT_FAILED;
+    }
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Indicator ShortName ...
+    SetIndicatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
+    // REASON_REMOVE 1 Program removed from a chart
+    // REASON_RECOMPILE 2 Program recompiled
+    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
+    // REASON_CHARTCLOSE 4 Chart closed
+    // REASON_PARAMETERS 5 Inputs changed by a user
+    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
+    // REASON_TEMPLATE 7 Another chart template applied
+    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
+    // REASON_CLOSE 9 Terminal closed
+
+    //
+    // Here we can handle De Initialization Reasons ...
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = MathMax(0, maPeriod);
+
+    //
+    // Check Calculated Bars ...
+    int maCalculatedBars = BarsCalculated(maHandler);
+    if (maCalculatedBars < maxLength)
+    {
+        return prev_calculated;
+    }
+
+    //
+    limit = (prev_calculated > rates_total || prev_calculated <= 0) ? rates_total : (rates_total - prev_calculated) + 1;
+
+    //
+    // Buffers Copy ...
+    int copiedMas = CopyBuffer(maHandler, 0, 0, limit, maBuffer);
+    if (copiedMas <= 0)
+    {
+        return prev_calculated;
+    }
+
+    //
+    // Main Loop ...
+    for (int i = limit - 1; i >= 0 && !IsStopped(); i--)
+    {
+        //
+        // Do Buffers Calculation ...
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = false;
+
+    //
+    // Validate Args ...
+    if (maPeriod >= 2)
+    {
+        result = true;
+    }
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    string maBufferLabel = "XTM " + "(" + (string)maPeriod + ")";
+
+    //
+    // Ma Buffer ...
+    ArraySetAsSeries(maBuffer, true);
+    SetIndexBuffer(maBufferIndex, maBuffer, INDICATOR_DATA);
+    PlotIndexSetString(maBufferIndex, PLOT_LABEL, maBufferLabel);
+
+    //
+    // Ma Color Buffer ...
+    ArraySetAsSeries(maColorBuffer, true);
+    SetIndexBuffer(maColorBufferIndex, maColorBuffer, INDICATOR_COLOR_INDEX);
+
+    //
+    // State Buffer ...
+    ArraySetAsSeries(stateBuffer, true);
+    SetIndexBuffer(stateBufferIndex, stateBuffer, INDICATOR_CALCULATIONS);
+}
+
+//
+// Set Indicator Short Name and also we can define Buffers Labels ...
+void SetIndicatorName()
+{
+    //
+    string indicatorShortName = "";
+    StringConcatenate(indicatorShortName, ShortName, " ", "(", maPeriod, ")");
+
+    //
+    IndicatorSetString(INDICATOR_SHORTNAME, indicatorShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(int bar_index)
+{
+    //
+    // Requirements ...
+    XOHCL candle = GetCandle(bar_index);
+
+    //
+    double maValue = maBuffer[bar_index];
+
+    //
+    double lineColorIndex =
+        maValue < candle.low ? 0 : maValue > candle.high ? 2
+                                                         : 1;
+
+    //
+    // Define State Value ...
+    // lineColorIndex == 0 => Bullish => 1;
+    // lineColorIndex == 1 => Neutural => 0;
+    // lineColorIndex == 2 => Bearish => -1;
+    double stateValue =
+        lineColorIndex == 0 ? X_XTM_BULLISH : lineColorIndex == 2 ? X_XTM_BEARISH
+                                                                  : X_XTM_NEUTURAL;
+
+    //
+    // Set Ma Buffer Color Index ...
+    maColorBuffer[bar_index] = lineColorIndex;
+
+    //
+    // Set State Buffer Value ...
+    stateBuffer[bar_index] = stateValue;
+}
+
+//
+// END Functions ...
+//

BKPS/XAU5-14021118-Full/Indicators/x-saherelm.xts.oscillator.mq5

@@ -0,0 +1,558 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 XTS Oscillator
+// ---------------------------------------------
+// Name: XTS
+// Description: Time Sections Oscillator ...
+//
+//
+// Maintainer:
+// ------------
+// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
+//
+//////////////////////////////////////////////////////
+//
+// Global Properties ...
+#property copyright "Copyright 2023, SaherElm IT Center"
+#property link "https://saherelm.ir"
+#property version "1.00"
+#property description "SaherElm XTS Oscillator"
+#property strict
+
+//
+// START Constants ...
+//
+
+#define ShortName "XTS"
+
+enum ENUM_X_PERIOD_METHOD
+{
+    //
+    X_PERIOD_NOTHING,
+    //
+    X_PERIOD_AUTO,
+    //
+    X_PERIOD_MANUALLY
+};
+
+//
+// XTS Oscillator States ...
+
+//
+// END Constants ...
+//
+
+//
+// START Inputs ...
+//
+input group "Current Period";
+input ENUM_APPLIED_PRICE currentAppliedTo = PRICE_CLOSE; // Current Applied To
+//
+input group "Nearest Period";
+input ENUM_X_PERIOD_METHOD nearestMethod = X_PERIOD_AUTO; // How to Find Nearest Period
+input ENUM_TIMEFRAMES nearestPeriod = NULL;               // Nearest Time Frame
+input ENUM_APPLIED_PRICE nearestAppliedTo = PRICE_CLOSE;  // Nearest Applied To
+//
+input group "Mediest Period";
+input ENUM_X_PERIOD_METHOD mediestMethod = X_PERIOD_AUTO; // How to Find Mediest Period
+input ENUM_TIMEFRAMES mediestPeriod = NULL;               // Mediest Time Frame
+input ENUM_APPLIED_PRICE mediestAppliedTo = PRICE_CLOSE;  // Mediest Applied To
+//
+input group "Farest Period";
+input ENUM_X_PERIOD_METHOD farestMethod = X_PERIOD_AUTO; // How to Find Farest Period
+input ENUM_TIMEFRAMES farestPeriod = NULL;               // Farest Time Frame
+input ENUM_APPLIED_PRICE farestAppliedTo = PRICE_CLOSE;  // Farest Applied To
+
+//
+// Includes Logging Library ...
+#include "../Libraries/x-saherelm.log.lib.mq5"
+
+//
+// Includes Draw Library ...
+#include "../Libraries/x-saherelm.draw.lib.mq5"
+
+//
+// Includes Common Library ...
+#include "../Libraries/x-saherelm.common.lib.mq5"
+
+//
+// START Buffers ...
+//
+#property indicator_separate_window
+
+//
+#property indicator_buffers 4
+#property indicator_plots 4
+
+//
+// Current ...
+#define currentBufferIndex 0
+
+double currentBuffer[];
+
+#property indicator_label1 "XTS C"
+#property indicator_type1 DRAW_LINE
+#property indicator_color1 clrBrown
+#property indicator_style1 STYLE_SOLID
+#property indicator_width1 1
+
+//
+// Nearest ...
+#define nearestBufferIndex 1
+
+double nearestBuffer[];
+
+#property indicator_label2 "XTS N"
+#property indicator_type2 DRAW_LINE
+#property indicator_color2 clrAqua
+#property indicator_style2 STYLE_SOLID
+#property indicator_width2 1
+
+//
+// Mediest ...
+#define mediestBufferIndex 2
+
+double mediestBuffer[];
+
+#property indicator_label3 "XTS M"
+#property indicator_type3 DRAW_LINE
+#property indicator_color3 clrLime
+#property indicator_style3 STYLE_SOLID
+#property indicator_width3 1
+
+//
+// Farest ...
+#define farestBufferIndex 3
+
+double farestBuffer[];
+
+#property indicator_label4 "XTS F"
+#property indicator_type4 DRAW_LINE
+#property indicator_color4 clrLightBlue
+#property indicator_style4 STYLE_SOLID
+#property indicator_width4 1
+
+//
+// END Buffers ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+
+//
+ENUM_TIMEFRAMES mNearestPeriod = NULL;
+ENUM_TIMEFRAMES mMediestPeriod = NULL;
+ENUM_TIMEFRAMES mFarestPeriod = NULL;
+
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Event Handlers ...
+//
+
+//
+// Initialization ...
+int OnInit()
+{
+    //
+    // Validate Inputs ...
+    if (!ValidateInputs())
+    {
+        return INIT_PARAMETERS_INCORRECT;
+    }
+
+    //
+    logTag = ShortName;
+    drawPrefix = ShortName;
+
+    //
+    // Define Index Buffers ...
+    DefineBuffers();
+
+    //
+    // Set Oscillator ShortName ...
+    SetOscillatorName();
+
+    //
+    // Init Succeed ...
+    return INIT_SUCCEEDED;
+}
+
+//
+// DeInitialization ...
+void OnDeinit(const int reason)
+{
+    //
+    OnDeinitDrawLibrary();
+
+    //
+    Comment("");
+}
+
+//
+// Calculations ...
+//
+// Calculating what we want ...
+int OnCalculate(
+    //
+    // total Candles on chart ...
+    const int rates_total,
+    //
+    // total calculated Candles on charts ...
+    const int prev_calculated,
+    //
+    // history of Candles Open Time ...
+    const datetime &time[],
+    //
+    // history of Candles Open Price ...
+    const double &open[],
+    //
+    // history of Candles High Price ...
+    const double &high[],
+    //
+    // history of Candles Low Price ...
+    const double &low[],
+    //
+    // history of Candles Close Price ...
+    const double &close[],
+    //
+    // history of Tick Volumes on Candle ...
+    const long &tick_volume[],
+    //
+    // history of Trade Volumes ...
+    const long &volume[],
+    //
+    // history of Candles Spread Price ...
+    const int &spread[])
+{
+    //
+    // Prepare Buffers ...
+    ArraySetAsSeries(time, true);
+    ArraySetAsSeries(open, true);
+    ArraySetAsSeries(high, true);
+    ArraySetAsSeries(low, true);
+    ArraySetAsSeries(close, true);
+    ArraySetAsSeries(tick_volume, true);
+    ArraySetAsSeries(volume, true);
+    ArraySetAsSeries(spread, true);
+
+    //
+    // this counts Available Bars ...
+    int limit;
+
+    //
+    // because in some cases we may have more than one input for
+    // calculation and we must prevent any calculation
+    // untill we pass the biggest input length, here we get max Input length
+    // and then wait until pass it ...
+    int maxLength = 30;
+
+    //
+    limit = (prev_calculated > rates_total || prev_calculated <= 0) ? rates_total : (rates_total - prev_calculated) + 1;
+
+    //
+    // Main Loop ...
+    for (int i = 0; i < limit && !IsStopped(); i++)
+    {
+        //
+        // Do Buffers Calculation ...
+        CalculateBuffers(i);
+    }
+
+    //
+    return rates_total;
+}
+
+//
+// END Event Handlers ...
+//
+
+//
+// START Functions ...
+//
+//
+// Validate Input Args for Initialization ...
+bool ValidateInputs()
+{
+    //
+    bool result = true;
+
+    //
+    return result;
+}
+
+//
+// Define Indexes and Styles ...
+void DefineBuffers()
+{
+    //
+    int maxLength = 30;
+
+    //
+    // Current ...
+    ArraySetAsSeries(currentBuffer, true);
+    SetIndexBuffer(currentBufferIndex, currentBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(currentBufferIndex, PLOT_DRAW_BEGIN, maxLength);
+
+    //
+    // Nearest ...
+    ArraySetAsSeries(nearestBuffer, true);
+    SetIndexBuffer(nearestBufferIndex, nearestBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(nearestBufferIndex, PLOT_DRAW_BEGIN, maxLength);
+
+    //
+    // Mediest ...
+    ArraySetAsSeries(mediestBuffer, true);
+    SetIndexBuffer(mediestBufferIndex, mediestBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(mediestBufferIndex, PLOT_DRAW_BEGIN, maxLength);
+
+    //
+    // Farest ...
+    ArraySetAsSeries(farestBuffer, true);
+    SetIndexBuffer(farestBufferIndex, farestBuffer, INDICATOR_DATA);
+    PlotIndexSetInteger(farestBufferIndex, PLOT_DRAW_BEGIN, maxLength);
+}
+
+//
+// Set Oscillator Short Name and also we can define Buffers Labels ...
+void SetOscillatorName()
+{
+    IndicatorSetString(INDICATOR_SHORTNAME, ShortName);
+}
+
+//
+// Calculate Buffers ...
+void CalculateBuffers(int bar_index)
+{
+    //
+    // Current ...
+    CalculateCurrent(bar_index);
+
+    //
+    // Nearest ...
+    CalculateNearest(bar_index);
+
+    //
+    // Mediest ...
+    CalculateMediest(bar_index);
+
+    //
+    // Farest ...
+    CalculateFarest(bar_index);
+
+    //
+    // Commenting ...
+    string comment = GenerateDescriptionComment();
+    Comment(comment);
+}
+
+//
+// Current ...
+void CalculateCurrent(int bar_index)
+{
+    //
+    datetime barTime = iTime(
+        _Symbol,
+        _Period,
+        bar_index);
+    datetime startTime = GetPeriodStartTime(
+        _Symbol,
+        _Period,
+        barTime);
+    int startBarIndex = iBarShift(
+        _Symbol,
+        _Period,
+        startTime);
+
+    //
+    XOHCL c = GetCandle(
+        _Symbol,
+        _Period,
+        startBarIndex);
+
+    //
+    double value = GetAppliedPrice(
+        c,
+        currentAppliedTo);
+
+    //
+    currentBuffer[bar_index] = value;
+}
+
+//
+// Nearest ...
+void CalculateNearest(int bar_index)
+{
+    //
+    if (mNearestPeriod == NULL)
+    {
+        //
+        switch (nearestMethod)
+        {
+        //
+        case X_PERIOD_AUTO:
+            mNearestPeriod = GetNearestTimeFrame(_Period);
+            break;
+
+        //
+        case X_PERIOD_NOTHING:
+        case X_PERIOD_MANUALLY:
+            mNearestPeriod = nearestPeriod;
+            break;
+        }
+    }
+
+    //
+    datetime barTime = iTime(
+        _Symbol,
+        _Period,
+        bar_index);
+    datetime startTime = GetPeriodStartTime(
+        _Symbol,
+        mNearestPeriod,
+        barTime);
+    int startBarIndex = iBarShift(
+        _Symbol,
+        _Period,
+        startTime);
+
+    //
+    XOHCL c = GetCandle(
+        _Symbol,
+        _Period,
+        startBarIndex);
+
+    //
+    double value = GetAppliedPrice(
+        c,
+        nearestAppliedTo);
+
+    //
+    nearestBuffer[bar_index] = value;
+}
+
+//
+// Mediest ...
+void CalculateMediest(int bar_index)
+{
+    //
+    if (mMediestPeriod == NULL)
+    {
+        //
+        switch (mediestMethod)
+        {
+        //
+        case X_PERIOD_AUTO:
+            mMediestPeriod = GetMediestTimeFrame(_Period);
+            break;
+
+        //
+        case X_PERIOD_NOTHING:
+        case X_PERIOD_MANUALLY:
+            mMediestPeriod = mediestPeriod;
+            break;
+        }
+    }
+
+    //
+    datetime barTime = iTime(
+        _Symbol,
+        _Period,
+        bar_index);
+    datetime startTime = GetPeriodStartTime(
+        _Symbol,
+        mMediestPeriod,
+        barTime);
+    int startBarIndex = iBarShift(
+        _Symbol,
+        _Period,
+        startTime);
+
+    //
+    XOHCL c = GetCandle(
+        _Symbol,
+        _Period,
+        startBarIndex);
+
+    //
+    double value = GetAppliedPrice(
+        c,
+        mediestAppliedTo);
+
+    //
+    mediestBuffer[bar_index] = value;
+}
+
+//
+// Farest ...
+void CalculateFarest(int bar_index)
+{
+    //
+    if (mFarestPeriod == NULL)
+    {
+        //
+        switch (farestMethod)
+        {
+        //
+        case X_PERIOD_AUTO:
+            mFarestPeriod = GetFarestTimeFrame(_Period);
+            break;
+
+        //
+        case X_PERIOD_NOTHING:
+        case X_PERIOD_MANUALLY:
+            mFarestPeriod = farestPeriod;
+            break;
+        }
+    }
+
+    //
+    datetime barTime = iTime(
+        _Symbol,
+        _Period,
+        bar_index);
+    datetime startTime = GetPeriodStartTime(
+        _Symbol,
+        mFarestPeriod,
+        barTime);
+    int startBarIndex = iBarShift(
+        _Symbol,
+        _Period,
+        startTime);
+
+    //
+    XOHCL c = GetCandle(
+        _Symbol,
+        _Period,
+        startBarIndex);
+
+    //
+    double value = GetAppliedPrice(
+        c,
+        farestAppliedTo);
+
+    //
+    farestBuffer[bar_index] = value;
+}
+
+//
+// Generate Comment ...
+string GenerateDescriptionComment()
+{
+    //
+    string result = "";
+
+    //
+    result += "Nearest : " + EnumToString(mNearestPeriod) + "\n";
+    result += "Mediest : " + EnumToString(mMediestPeriod) + "\n";
+    result += "Farest : " + EnumToString(mFarestPeriod) + "\n";
+
+    //
+    return result;
+}
+//
+// END Functions ...
+//

BKPS/XAU5-14021118-Full/Libraries/x-saherelm.alert.lib.mq5

@@ -0,0 +1,200 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Alert Library
+// --------------------------------------
+// Name: XAlert
+// Description: provides Alerts abilities ...
+//
+//
+// 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
+
+//
+// START Inputs ...
+//
+input group "Alerts";
+input bool enableAlerts = true;    // Enable Alerts
+input bool logAlerts = true;       // Log Alerts
+input bool terminalAlerts = false; // Terminal Alerts
+input bool mailAlerts = false;     // Mail Alerts
+input bool pushAlerts = false;     // Push Alerts
+//
+// END Inputs ...
+//
+
+//
+#include "x-saherelm.log.lib.mq5"
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+string alertPrefix = "X-Alert";
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Provided Functions ...
+//
+//
+// Initial Library if required ...
+bool OnInInitAlertLibrary()
+{
+    return false;
+}
+
+//
+// DeInitial Library if required ...
+void OnDeinitAlertLibrary()
+{
+}
+
+//
+// Attach Alert Prefix to Message ...
+string PrepareAlertMessage(string message)
+{
+    //
+    StringReplace(message, "\n", " | ");
+
+    //
+    StringConcatenate(message, alertPrefix, " > ", message);
+
+    //
+    return message;
+}
+
+//
+// Logging an Alert ...
+void LogAlert(string message)
+{
+    //
+    // Validate Args ...
+    if (!enableAlerts || !logAlerts)
+    {
+        return;
+    }
+
+    //
+    LogMessage(alertPrefix, message);
+}
+
+//
+// Terminal Alert ...
+void TerminalAlert(string message)
+{
+    //
+    // Validate Args ...
+    if (!enableAlerts || !terminalAlerts)
+    {
+        return;
+    }
+
+    //
+    // Prepare Message ...
+    message = PrepareAlertMessage(message);
+
+    // Send Terminal Alert ...
+    Alert(message);
+}
+
+//
+// Mail Alert ...
+void MailAlert(string message)
+{
+    //
+    // Validate Args ...
+    if (!enableAlerts || !mailAlerts)
+    {
+        return;
+    }
+
+    //
+    // Send Mail Alert ...
+    SendMail(alertPrefix, message);
+}
+
+//
+// Send Push Notification ...
+void PushAlert(string message)
+{
+    //
+    // Validate Args ...
+    if (!enableAlerts || !pushAlerts)
+    {
+        return;
+    }
+
+    //
+    // Prepare Message ...
+    message = PrepareAlertMessage(message);
+
+    //
+    // Send Push Notification Alert ...
+    SendNotification(message);
+}
+
+//
+// Alert Sending ...
+void SendAlert(string message)
+{
+    //
+    // Validate Args ...
+    if (!enableAlerts)
+    {
+        return;
+    }
+
+    //
+    // Log ...
+    if (logAlerts)
+    {
+        LogAlert(message);
+    }
+
+    //
+    // Terminal ...
+    if (terminalAlerts)
+    {
+        TerminalAlert(message);
+    }
+
+    //
+    // Mail ...
+    if (mailAlerts)
+    {
+        MailAlert(message);
+    }
+
+    //
+    // Push ...
+    if (pushAlerts)
+    {
+        PushAlert(message);
+    }
+}
+void SendAlert(
+    XSignal &signal,       // the Signal Object which requred to Alert
+    bool asExecuted = true // determines Alert Signal as Executed Signal or not
+)
+{
+    //
+    // Prepare Message ...
+    string message = asExecuted ? ExecutedSignalToString(signal) : SignalToString(signal);
+
+    //
+    // Do Alerting ...
+    SendAlert(message);
+}
+//
+// END Provided Functions ...
+//

BKPS/XAU5-14021118-Full/Libraries/x-saherelm.http.lib.mq5

@@ -0,0 +1,177 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Http Library
+// ------------------------------------------
+// Name: XHttp
+// Description: provide http communication
+// abilities ...
+//
+//
+// 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
+
+//
+// START Model Definition ...
+//
+enum X_HTTP_METHOD
+{
+    X_HTTP_GET,
+    X_HTTP_POST
+};
+//
+// END Model Definition ...
+//
+
+//
+// START Inputs ...
+//
+//
+// END Inputs ...
+//
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Provided Functions ...
+//
+//
+// Initial Library if required ...
+bool OnInInitHttpLibrary()
+{
+    return false;
+}
+
+//
+// DeInitial Library if required ...
+void OnDeinitHttpLibrary()
+{
+}
+
+//
+// Convert enum to String ...
+string ToString(X_HTTP_METHOD method)
+{
+    //
+    string result = "";
+
+    //
+    switch (method)
+    {
+    //
+    case X_HTTP_GET:
+        result = "GET";
+        break;
+
+    //
+    case X_HTTP_POST:
+        result = "POST";
+        break;
+    }
+
+    //
+    return result;
+}
+
+//
+// Send Global Request ...
+int SendRequest(
+    X_HTTP_METHOD method,   // Httm Request Method
+    const string url,       // Server Address
+    const string headers,   // Headers providing
+    const char &payload[],     // the Data which needs to Send
+    char &response[],       // Response of request
+    string responseHeaders, // Response Headers
+    int timeout = 500       // Timeout for response default is 500
+)
+{
+    //
+    int result = -1;
+
+    //
+    string strMethod = ToString(method);
+    if (StringLen(strMethod) == 0) {
+        return result;
+    }
+
+    //
+    result = WebRequest(
+        strMethod,
+        url,
+        headers,
+        timeout,
+        payload,
+        response,
+        responseHeaders
+    );
+
+    //
+    return result;
+}
+
+//
+// Get Request ...
+int GetRequest(
+    const string url,       // Server Address
+    const string headers,   // Headers providing
+    const char &payload[],     // the Data which needs to Send
+    char &response[],       // Response of request
+    string responseHeaders, // Response Headers
+    int timeout = 500       // Timeout for response default is 500
+) {
+    //
+    int result = SendRequest(
+        X_HTTP_GET,
+        url,
+        headers,
+        payload,
+        response,
+        responseHeaders,
+        timeout
+    );
+
+    //
+    return result;
+}
+
+//
+// Post Request ...
+int PostRequest(
+    const string url,       // Server Address
+    const string headers,   // Headers providing
+    const char &payload[],     // the Data which needs to Send
+    char &response[],       // Response of request
+    string responseHeaders, // Response Headers
+    int timeout = 500       // Timeout for response default is 500
+) {
+    //
+    int result = SendRequest(
+        X_HTTP_POST,
+        url,
+        headers,
+        payload,
+        response,
+        responseHeaders,
+        timeout
+    );
+
+    //
+    return result;
+}
+//
+// END Provided Functions ...
+//

BKPS/XAU5-14021118-Full/Libraries/x-saherelm.log.lib.mq5

@@ -0,0 +1,261 @@
+///////////////////////////////////////////////////////
+//
+// SaherElm IT Center MQL5 Logger Library
+// ---------------------------------------
+// Name: XLogger
+// Description: provides Logging abilities ...
+//
+//
+// 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
+
+//
+// START Inputs ...
+//
+input group "Logging";
+input bool enableLogging = true; // Enable Logging
+//
+// END Inputs ...
+//
+
+//
+// Including Models ...
+#include "x-saherelm.models.lib.mq5"
+
+//
+// START Global Definitions: Variables, Properties and etc ...
+//
+string logTag = "X-Logger"; // LogTag
+//
+// END Global Definitions: Variables, Properties and etc ...
+//
+
+//
+// START Provided Functions ...
+//
+//
+// Logging a Message ...
+void LogMessage(string message)
+{
+    //
+    if (!enableLogging)
+    {
+        return;
+    }
+
+    //
+    Print(logTag, " > ", message);
+}
+void LogMessage(string tag, string message)
+{
+    //
+    if (!enableLogging)
+    {
+        return;
+    }
+
+    //
+    Print(tag, " > ", message);
+}
+
+//
+// Logging an Array ...
+void LogArray(int &array[])
+{
+    //
+    if (!enableLogging)
+    {
+        return;
+    }
+
+    //
+    Print(logTag, ">");
+    ArrayPrint(array);
+}
+void LogArray(double &array[])
+{
+    //
+    if (!enableLogging)
+    {
+        return;
+    }
+
+    //
+    Print(logTag, ">");
+    ArrayPrint(array);
+}
+void LogArray(string &array[])
+{
+    //
+    if (!enableLogging)
+    {
+        return;
+    }
+
+    //
+    Print(logTag, ">");
+    ArrayPrint(array);
+}
+
+//
+// Convert a Signal to String Message ...
+string SignalToString(const XSignal &signal)
+{
+    //
+    string result = "\n";
+
+    //
+    result += "Signal: " + "\n";
+    result += "id: " + (string)signal.id + "\n";
+    result += "symbol: " + signal.symbol + "\n";
+    result += "type: " + EnumToString(signal.type) + "\n";
+    result += "magicNumber: " + (string)signal.magicNumber + "\n";
+    result += "ticket: " + (string)signal.ticket + "\n";
+    result += "entry: " + (string)signal.entry + "\n";
+    result += "tp: " + (string)signal.tp + "\n";
+    result += "sl: " + (string)signal.sl + "\n";
+    result += "riskFreeStep: " + (string)signal.riskFreeStep + "\n";
+    result += "riskFreeRate: " + (string)signal.riskFreeRate + "\n";
+    result += "profit: " + (string)signal.profit + "\n";
+    result += "time: " + (string)signal.time + "\n";
+    result += "volume: " + (string)signal.volume + "\n";
+    result += "comment: " + signal.comment + "\n";
+
+    //
+    return result;
+}
+
+//
+// Convert an Executed Signal to String Message ...
+string ExecutedSignalToString(const XSignal &signal)
+{
+    //
+    string result = "";
+
+    //
+    result += (signal.type == X_SIGNAL_LONG ? "Buy" : "Sell") + " Signal Executed provided on (" + signal.symbol + " _ " + EnumToString(_Period) + ") by this comment: " + signal.comment;
+
+    //
+    return result;
+}
+
+//
+// Logging Signal ...
+void LogSignal(const XSignal &signal)
+{
+    //
+    string message = SignalToString(signal);
+
+    //
+    LogMessage(message);
+}
+
+//
+// Log Signal Execution ...
+void LogExecutedSignal(const XSignal &signal)
+{
+    //
+    string message = ExecutedSignalToString(signal);
+
+    //
+    LogMessage(message);
+}
+
+//
+// Convert a Deal to String ...
+string DealToString(const XDeal &deal)
+{
+    //
+    string result = "\n";
+
+    //
+    result += "Deal:" + "\n";
+    result += " " + "\n";
+    result += "time: " + (string)deal.time + "\n";
+    result += "ticket: " + (string)deal.ticket + "\n";
+    result += "order: " + (string)deal.order + "\n";
+    result += "positionId: " + (string)deal.positionId + "\n";
+    result += "type: " + EnumToString(deal.type) + "\n";
+    result += "entry: " + EnumToString(deal.entry) + "\n";
+    result += "reason: " + EnumToString(deal.reason) + "\n";
+    result += "symbol: " + deal.symbol + "\n";
+    result += "price: " + (string)deal.price + "\n";
+    result += "profit: " + (string)deal.profit + "\n";
+    result += "swap: " + (string)deal.swap + "\n";
+    result += "commission: " + (string)deal.commission + "\n";
+    result += "volume: " + (string)deal.volume + "\n";
+    result += "comment: " + deal.comment + "\n";
+
+    //
+    return result;
+}
+
+//
+// Log Specific Deal ...
+void LogDeal(const XDeal &deal)
+{
+    //
+    string message = DealToString(deal);
+
+    //
+    LogMessage(message);
+}
+
+//
+// Convert an Order to String ...
+string OrderToString(const XOrder &order)
+{
+    //
+    string result = "\n";
+
+    //
+    result += "Order: " + "\n";
+    result += "magic: " + (string)order.magic + "\n";
+    result += "positionId: " + (string)order.positionId + "\n";
+    result += "symbol: " + (string)order.symbol + "\n";
+    result += "ticket: " + (string)order.ticket + "\n";
+    result += "timeSetup: " + (string)order.timeSetup + "\n";
+    result += "timeDone: " + (string)order.timeDone + "\n";
+    result += "timeExpiration: " + (string)order.timeExpiration + "\n";
+    result += "priceOpen: " + (string)order.priceOpen + "\n";
+    result += "priceCurrent: " + (string)order.priceCurrent + "\n";
+    result += "priceStopLimit: " + (string)order.priceStopLimit + "\n";
+    result += "stopLoss: " + (string)order.stopLoss + "\n";
+    result += "takeProfit: " + (string)order.takeProfit + "\n";
+    result += "volumeInitial: " + (string)order.volumeInitial + "\n";
+    result += "volumeCurrent: " + (string)order.volumeCurrent + "\n";
+    result += "comment: " + order.comment + "\n";
+    result += "type: " + EnumToString(order.type) + "\n";
+    result += "state: " + EnumToString(order.state) + "\n";
+    result += "typeFilling: " + EnumToString(order.typeFilling) + "\n";
+    result += "typeTime: " + EnumToString(order.typeTime) + "\n";
+    result += "reason: " + EnumToString(order.reason) + "\n";
+
+    //
+    return result;
+}
+
+//
+// Log Specific Order ...
+void LogOrder(const XOrder &order)
+{
+    //
+    string message = OrderToString(order);
+
+    //
+    LogMessage(message);
+}
+
+//
+// END Provided Functions ...
+//