Initial Commit ...

2024-01-25 04:09:42 +03:30
commit b2037e07eb
1991 changed files with 668083 additions and 0 deletions
@@ -0,0 +1,287 @@
+//////////////////////////////////////////////////////////////////////
+//
+// 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
+
+//
+#include "..\Libraries\x-saherelm.log.lib.mq5"
+#include "..\Libraries\x-saherelm.common.lib.mq5"
+#include "x-saherelm.xmap.provider.inputs.lib.mq5"
+
+//
+// START Enum Definitions ...
+//
+//
+// END Enum Definitions ...
+//
+
+//
+// START Inputs ...
+//
+input group "XOBD Indicator";
+input int xOBDLength = 14;                        // Market Length
+input double xOBDArrowDistanceFromPrice = 0;      // Arrow Distrance from Price
+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
+//
+// END Inputs ...
+//
+
+//
+// START Definitions ...
+//
+int xOBDHandler = INVALID_HANDLE;
+double xOBDSwingsBuffer[];
+//
+// END Definitions ...
+//
+
+//
+// START Handler Functions ...
+//
+//
+// Init Indicators ...
+bool XOBDInitHandlers()
+{
+    //
+    bool result = false;
+
+    //
+    // Initialize Indicator/Oscillator Handlers ...
+    ResetLastError();
+
+    //
+    // XOBD Handler ...
+    ArraySetAsSeries(xOBDSwingsBuffer, true);
+    xOBDHandler = iCustom(
+        _Symbol,
+        _Period,
+        "x-saherelm.xobd.indicator",
+        //
+        // Inputs ...
+        xOBDLength,
+        xOBDArrowDistanceFromPrice,
+        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()
+{
+    CopyBuffer(
+        xOBDHandler,
+        0,
+        0,
+        xMAPNumberOfItemsPerTick,
+        xOBDSwingsBuffer);
+}
+//
+// END Handler Funcions ...
+//
+
+//
+// START XOBD Custom Functions ...
+//
+//
+// Find Peak based On this Indicator ...
+bool XOBDIsPeak(
+    int loopback // loopback length
+)
+{
+    //
+    bool result = false;
+
+    //
+    return result;
+}
+
+//
+// Find Vale based On this Indicator ...
+bool XOBDIsVale(
+    int loopback // loopback length
+)
+{
+    //
+    bool result = false;
+
+    //
+    return result;
+}
+
+//
+// Find Lesser Swing Low ...
+double XOBDGetSmallestSwingLow(
+    double price,               // a price which swings compare with it
+    int numberOfSwingsCheck = 4 // number of Swing Lows to Check
+)
+{
+    //
+    double result = price;
+
+    //
+    double swings[];
+    ArraySetAsSeries(swings, true);
+    XOBDRetrieveSwings(
+        numberOfSwingsCheck,
+        X_SWING_LOW,
+        swings);
+
+    //
+    for (int i = 0; i < ArraySize(swings); i++)
+    {
+        //
+        double swingVal = swings[i];
+
+        //
+        result = swingVal < result ? swingVal : result;
+    }
+
+    //
+    return result;
+}
+
+//
+// Find Bigger Swing High ...
+double XOBDGetBiggestSwingHigh(
+    double price,               // a price which swings compare with it
+    int numberOfSwingsCheck = 4 // number of Swing Lows to Check
+)
+{
+    //
+    double result = price;
+
+    //
+    double swings[];
+    ArraySetAsSeries(swings, true);
+    XOBDRetrieveSwings(
+        numberOfSwingsCheck,
+        X_SWING_HIGH,
+        swings);
+
+    //
+    for (int i = 0; i < ArraySize(swings); i++)
+    {
+        //
+        double swingVal = swings[i];
+
+        //
+        result = swingVal > result ? swingVal : result;
+    }
+
+    //
+    return result;
+}
+
+//
+// Reading Special Type of Swings from Buffer until specific count passed ...
+void XOBDRetrieveSwings(
+    int count,              // Number of Swings to Retrieve
+    ENUM_X_SWING_TYPE type, // Which Type of Swing to Retrieve
+    double &result[]        // Holds result
+)
+{
+    //
+    static int xMAPSwingsBufferReadItems = 50;
+
+    //
+    // Clear Result ...
+    ArrayFree(result);
+    ArrayResize(result, 0);
+
+    //
+    // Validate Args ...
+    if (count <= 0 || type == X_NO_SWING)
+    {
+        return;
+    }
+
+    //
+    double swingsBuffer[];
+    ArraySetAsSeries(swingsBuffer, true);
+    //
+    // TODO:
+    // CopyBuffer(xOBDHandler, 0, 0, xMAPSwingsBufferReadItems, swingsBuffer);
+    int foundedSwings = ArraySize(swingsBuffer);
+    if (foundedSwings <= 0)
+    {
+        return;
+    }
+
+    //
+    // Loop through Swings ...
+    for (int i = 0; i < foundedSwings; i++)
+    {
+        //
+        double swingValue = swingsBuffer[i];
+        if (swingValue != type)
+        {
+            continue;
+        }
+
+        //
+        ArrayResize(
+            result,
+            ArraySize(result) + 1);
+        result[ArraySize(result) - 1] = swingValue;
+    }
+
+    //
+    // Check Result count ...
+    if (ArraySize(result) < count)
+    {
+        //
+        xMAPSwingsBufferReadItems *= 2;
+        XOBDRetrieveSwings(
+            count,
+            type,
+            result);
+
+        //
+        return;
+    }
+
+    //
+    xMAPSwingsBufferReadItems = 50;
+}
+
+//
+// END XOBD Custom Functions ...
+//