/////////////////////////////////////////////////////// // // SaherElm IT Center XTest MQL5 Expert Advisor // ------------------------------------------------- // Name: XBackTester // Description: a Backtest Tools Strategy Tester // // Maintainer: // ------------ // Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com) // //////////////////////////////////////////////////////x // // Global Properties ... #property copyright "Copyright 2023, SaherElm IT Center" #property link "https://saherelm.ir" #property version "1.00" #property description "SaherElm XBackTester" #property icon "../Images/SaherElm_Logo_Color.ico" #property strict // #define ShortName "XBackTester" // // Imports ... #include "../Classes/x-saherelm.x-backtester.expert.class.mq5" #include "../XFIMAEA/Classes/x-saherelm.xfima.signaller.class.mq5" // // Definitions ... // // Inputs ... // // Common ... input group "Common"; input long eaMagicNumber = 78692110; // Magic Number input int eaSlippage = 10; // Slippgae input string eaLogSuffix = ""; // Log Suffix // // Alert ... // Here we Provider All Requirements for // Configuring Alert Provider ... input group "Alert"; input bool eaEnableAlerts = true; // Enable Alerts input bool eaLogAlerts = true; // Log Alerts input bool eaMailAlerts = false; // Mail Alerts input bool eaPushAlerts = false; // Push Alerts input bool eaTerminalAlerts = false; // Terminal Alerts // // Configurations ... input group "Configuration"; input bool eaProcessAllTicks = false; // Process All Ticks input double eaSignallerR2R = 2.0; // Risk To Reward Ratio input double eaSignallerVolume = 0.01; // Default Volume input double eaSignallerRiskInPoint = 50; // Default Risk In Point // // Indicator Inputs ... // input group "Calculation"; // // Short ... input ENUM_X_PERIOD_METHOD scMethod = X_PERIOD_AUTO; // How to Find Short Period input ENUM_TIMEFRAMES scPeriod = NULL; // Short Period // // Medium ... input ENUM_X_PERIOD_METHOD mcMethod = X_PERIOD_AUTO; // How to Find Medium Period input ENUM_TIMEFRAMES mcPeriod = NULL; // Medium Period // // Long ... input ENUM_X_PERIOD_METHOD lcMethod = X_PERIOD_AUTO; // How to Find Long Period input ENUM_TIMEFRAMES lcPeriod = NULL; // Long Period // // Hind ... input ENUM_X_PERIOD_METHOD hcMethod = X_PERIOD_AUTO; // How to Find Hind Period input ENUM_TIMEFRAMES hcPeriod = NULL; // Hind Period // // PV ... input ENUM_SERIESMODE upperMode = MODE_HIGH; // Peak Method input ENUM_SERIESMODE lowerMode = MODE_LOW; // Vale Method // // Others ... input ENUM_X_FIBO_LEVELS fiboUpperZoneLevel = X_FIBO_LEVEL_382; // Upper Zone Level input ENUM_X_FIBO_LEVELS fiboMiddleZoneLevel = X_FIBO_LEVEL_500; // Middle Zone Level input ENUM_X_FIBO_LEVELS fiboLowerZoneLevel = X_FIBO_LEVEL_618; // Lower Zone Level input double sarStep = 0.02; // SAR Step input double sarMax = 0.2; // SAR Maximum input ENUM_MA_METHOD maMethod = MODE_EMA; // MA Method input ENUM_APPLIED_PRICE maAppliedTo = PRICE_CLOSE; // MA Applied To input int maFastLength = 7; // Fast MA Length input int maSlowLength = 20; // Slow MA Length input int maBandLength = 7; // MA Band Length input int zigzagDepth = 12; // ZigZag Depth input int zigzagDeviation = 5; // ZigZag Deviation input int zigzagBackStep = 3; // ZigZag Back Step input ENUM_X_PRICE zigzagUppersMode = X_PRICE_HIGH; // ZigZag High Detect Mode input ENUM_X_PRICE zigzagLowersMode = X_PRICE_LOW; // ZigZag Low Detect Mode // input group "Bar Timer"; input int barTimeFontSize = 10; // Font Size input string barTimeFont = "Arial"; // Font input color barTimeColor = clrYellow; // Text Color input ENUM_BASE_CORNER barTimeCorner = CORNER_RIGHT_LOWER; // Text Position // // Presentation ... input group "Presentation"; input bool showPV = true; // Show PV input bool showSAR = true; // Show Sar input bool showMAFast = true; // Show MA Fast input bool showMASlow = true; // Show MA Slow input bool showMABand = true; // Show MA Band input bool showBarTime = true; // Show Bar Time input bool showZigZag = true; // Show ZigZag input bool showFiboZone = true; // Show Fibo Zone // input int startCalculationForLastBars = 1500; // Calculate Last n Bars // input int sarArrowCode = 159; // Parabolic Sar Arrow Code input int peakArrowCode = 159; // Peaks Arrow Code input int valeArrowCode = 159; // Vales Arrow Code // // Define Local Variables ... // // Requirements ... string eaLogTag; // EA Log Prefix ... XCBackTesterEA *eaExpert; // EA Expert ... // // Registered Signallers ... XCXFIMAStrategy1Signaller *fima1Signaller; // XFIMA1 Signaller ... XCXFIMAStrategy2Signaller *fima2Signaller; // XFIMA2 Signaller ... // XFIMAMarketStructure marketStructure; // POI Analysis Result ... XFIMAPatternDetectorConfig detectorConfig; // POI Detector Config ... XFIMAMarketStructureDrawerConfig marketStructureDrawerConfig; // POI Drawer Config ... // // Drawer and eaDraws ... CArrayObj eaDraws; // Drawn Objects ... // XBarTracker eaBarTracker; // EA Bar Traker ... // // Registered Handlers ... int eaCTHandler = INVALID_HANDLE; // Candle Timer Handler ... // bool eaIsNewBar; // Check New Bar ... // // Define Indicators Here ... // // Event Handlers ... // // Initialization ... int OnInit() { // // Preparing Tags ... string eaTag = (IsValid(eaLogSuffix) ? eaLogSuffix + "_" : "") + ShortName; // // Validate Inputs and Required Parameters // for EA to Works fine ... if (!ValidateInputs()) { return INIT_PARAMETERS_INCORRECT; } // // Initialize Timer ... if (!InitTimer()) { return INIT_FAILED; } // // Configure EA Expert Class ... eaExpert = new XCBackTesterEA(); // // Symbol / Period ... eaExpert.symbol = _Symbol; eaExpert.period = _Period; // // Common ... eaExpert.eaMagicNumber = eaMagicNumber; eaExpert.eaSlippage = eaSlippage; eaExpert.eaLogSuffix = eaTag; // // Alert ... eaExpert.eaEnableAlerts = eaEnableAlerts; eaExpert.eaLogAlerts = eaLogAlerts; eaExpert.eaMailAlerts = eaMailAlerts; eaExpert.eaPushAlerts = eaPushAlerts; eaExpert.eaTerminalAlerts = eaTerminalAlerts; // // Attach Event Handlers ... eaExpert.AddOnDealsChangedEventHandler(OnDealsChanged); eaExpert.AddOnStopLossEventHandler(OnStopLossTriggered); eaExpert.AddOnOrdersChangedEventHandler(OnOrdersChanged); eaExpert.AddOnTakeProfitEventHandler(OnTakeProfitTriggered); eaExpert.AddOnModifyPositionEventHandler(OnPositionModified); eaExpert.AddOnPositionsChangedEventHandler(OnPositionsChanged); eaExpert.AddOnTradeStateChangedEventHandler(OnTradeStateChanged); eaExpert.AddOnForceClosePositionEventHandler(OnPositionForceClosed); eaExpert.AddOnPartialClosePositionEventHandler(OnPositionPartialClosed); // // Configure Other Requirements ... eaExpert.allowedTPSLStep = 10; eaExpert.minAllowedRiskInPoint = 20; eaExpert.volume = eaSignallerVolume; eaExpert.riskToRewardRatio = eaSignallerR2R; eaExpert.riskInPoint = eaSignallerRiskInPoint; // // Try to Initialize eaExpert ... bool isInited = eaExpert.HandleOnInit(); if (!isInited) { // Print(ShortName, ": Initialization Failed ..."); return INIT_FAILED; } // // Here Instantiate Signaller Class ... // // Preparing Indicator Inputs ... XFIMAInputs fimaInputs; // // This is Default Configuration ... fimaInputs.Default(); fimaInputs.Hide(); fimaInputs.showPV = true; fimaInputs.showZigZag = true; // // Here we Attach Inputs to Indicator ... fimaInputs.scMethod = scMethod; fimaInputs.scPeriod = scPeriod; fimaInputs.mcMethod = mcMethod; fimaInputs.mcPeriod = mcPeriod; fimaInputs.lcMethod = lcMethod; fimaInputs.lcPeriod = lcPeriod; fimaInputs.hcMethod = hcMethod; fimaInputs.hcPeriod = hcPeriod; fimaInputs.upperMode = upperMode; fimaInputs.lowerMode = lowerMode; fimaInputs.fiboUpperZoneLevel = fiboUpperZoneLevel; fimaInputs.fiboMiddleZoneLevel = fiboMiddleZoneLevel; fimaInputs.fiboLowerZoneLevel = fiboLowerZoneLevel; fimaInputs.sarStep = sarStep; fimaInputs.sarMax = sarMax; fimaInputs.maMethod = maMethod; fimaInputs.maAppliedTo = maAppliedTo; fimaInputs.maFastLength = maFastLength; fimaInputs.maSlowLength = maSlowLength; fimaInputs.maBandLength = maBandLength; fimaInputs.zigzagDepth = zigzagDepth; fimaInputs.zigzagDeviation = zigzagDeviation; fimaInputs.zigzagBackStep = zigzagBackStep; fimaInputs.zigzagUppersMode = zigzagUppersMode; fimaInputs.zigzagLowersMode = zigzagLowersMode; fimaInputs.showPV = showPV; fimaInputs.showSAR = showSAR; fimaInputs.showMAFast = showMAFast; fimaInputs.showMASlow = showMASlow; fimaInputs.showMABand = showMABand; fimaInputs.showZigZag = showZigZag; fimaInputs.showFiboZone = showFiboZone; fimaInputs.startCalculationForLastBars = startCalculationForLastBars; fimaInputs.sarArrowCode = sarArrowCode; fimaInputs.peakArrowCode = peakArrowCode; fimaInputs.valeArrowCode = valeArrowCode; // // Instantiate Signaller ... // // XFIMA1 Signaller ... fima1Signaller = new XCXFIMAStrategy1Signaller( _Symbol, _Period, fimaInputs, eaProcessAllTicks, // Process All Ticks ... eaSignallerR2R, // Signaller Risk to Reward Ratio ... eaSignallerRiskInPoint, // Default Risk In Points ... eaSignallerVolume // Defaul Volume ... ); fima1Signaller.AddOnSignalEventHandler(OnSignalTriggered); // // XFIMA2 Signaller ... fima2Signaller = new XCXFIMAStrategy2Signaller( _Symbol, _Period, fimaInputs, eaProcessAllTicks, // Process All Ticks ... eaSignallerR2R, // Signaller Risk to Reward Ratio ... eaSignallerRiskInPoint, // Default Risk In Points ... eaSignallerVolume // Defaul Volume ... ); fima2Signaller.AddOnSignalEventHandler(OnSignalTriggered); // isInited = fima1Signaller.IsValid() && fima2Signaller.IsValid(); if (!isInited) { // Print(ShortName, ": Initialization Failed ..."); return INIT_FAILED; } // // Initialize Candle Timer Handler ... eaCTHandler = iCustom( _Symbol, _Period, "x-saherelm.x121.xct", // // Inputs ... barTimeFontSize, // Font Size ... barTimeFont, // Font ... barTimeColor, // Text Color ... barTimeCorner, // Text Position ... // // Presentation ... "", showBarTime // Show Candle Time // ); isInited = eaCTHandler != INVALID_HANDLE; if (!isInited) { // Print(ShortName, ": Initialization Failed ..."); return INIT_FAILED; } // // Initialize Bar Tracker ... isInited = eaBarTracker.Init( _Symbol, _Period // ); if (!isInited) { // Print(ShortName, ": Initialization Failed ..."); return INIT_FAILED; } // // Configure XFIMA POI Detector / Drawer ... detectorConfig.Default(); marketStructureDrawerConfig.FullDraw(); // Print(ShortName, ": Initialized Successfully ..."); 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 // // Destroy Timer ... eaExpert.HandleOnDeInit(); // // De Init Indicator ... IndicatorRelease(eaCTHandler); // eaBarTracker.Clean(); // delete fima1Signaller; ZeroMemory(fima1Signaller); // delete fima2Signaller; ZeroMemory(fima2Signaller); // delete eaExpert; ZeroMemory(eaExpert); } // // On Tick Handler ... void OnTick() { // eaIsNewBar = eaBarTracker.IsNewBar(); bool canProcess = eaProcessAllTicks ? true : eaIsNewBar; // eaExpert.HandleOnTick(); // if (!canProcess) { return; } // fima1Signaller.OnTick(); fima2Signaller.OnTick(); // // // // Initial Bar for Analysis ... // XOHCL cBar; // bool isInited = cBar.Init( // _Symbol, // _Period, // 1 // // ); // // Analyse Market ... // fima2Signaller.poiDetector.AnalyseMarket( // cBar, // marketStructure, // detectorConfig // // ); // CArrayObj *iObjects; // int drawnsCount = fima2Signaller.poiDrawer.DrawMarketStructure( // marketStructure, // marketStructureDrawerConfig, // iObjects // // ); // if (IsValidSize(drawnsCount)) // { // // // AddObjects( // iObjects, // eaDraws // // ); // } // // // if (HasDirection(marketStructure.signalKeyBarPatternDir)) // { // Print("Detected ..."); // } // if (marketStructure.ob.IsValid() && marketStructure.fvg.IsValid()) // { // Print("Detected ..."); // } // if (marketStructure.support.IsValid() || marketStructure.resistance.IsValid()) // { // Print("Detected ..."); // } } // // Handle On Trade Event ... void OnTrade() { eaExpert.HandleOnTrade(); } // // On Timer ... void OnTimer() { eaExpert.HandleOnTimer(); } // // Chart Event Handler ... void OnChartEvent( const int id, const long &lparam, const double &dparam, const string &sparam // ) { eaExpert.HandleOnChartEvent(id, lparam, dparam, sparam); } // // Custom Functions ... /** * Validate all Inputs of Expert Adviser ... * * @return ( bool ) */ bool ValidateInputs() { // bool result = false; // string errMessage = ""; // bool isCommonValid = ( // eaSlippage > 0 && eaMagicNumber > 0 && // // Indicator Inputs ... // // MA ... maFastLength >= 2 && maSlowLength >= 2 && maSlowLength > maFastLength && // // SAR ... sarMax > 0 && sarStep > 0 && sarMax > sarStep && // // CYCLES ... (IsValid(scMethod, scPeriod) && IsValid(mcMethod, mcPeriod) && IsValid(lcMethod, lcPeriod) && IsValid(hcMethod, hcPeriod)) && // // ZIGZAG ... zigzagDepth > 0 && zigzagDeviation > 0 && zigzagBackStep > 0 && // // Validate Upper Mode Detection ... IsXValid(zigzagUppersMode) && // // Validate Lower Mode Detection ... IsXValid(zigzagLowersMode) // ); if (!isCommonValid) { // errMessage += "common configurations error;" + "\n"; } // result = // // Common ... isCommonValid && // // Otere ... true // ; // if (!result) { // // Since here Logger not Initiallized, we Use Raw Print Command ... Print(ShortName + " Errors: \n", errMessage); } // return result; } /** * Initialize Timer ... * * @return ( bool ) */ bool InitTimer() { // bool result = false; // // TODO: Initialize Timer if necessary ... // result = EventSetTimer(1); // result = EventSetMillisecondTimer(100); result = true; // return result; } /** * Destroy Timer ... */ void DestroyTimer() { // // TODO: Use This ... // EventKillTimer(); } /** * Trigger OnSignal Event ... * * @param signal: XSignal */ void OnSignalTriggered(XSignal &signal) { // // Validate Signal ... if (!signal.IsValid()) { return; } // // Draw Signal Vertical Line ... // CChartObjectVLine *iObj = new CChartObjectVLine(); // string iName = signal.GetTag(); color iColor = IsLong(signal.type) ? clrLime : clrRed; // bool has = iObj.Create( fima2Signaller.poiDrawer.ChartIdentification(), iName, fima2Signaller.poiDrawer.SubWindowIdentification(), signal.time // ); if (has) { // iObj.Width(2); iObj.Color(iColor); // eaDraws.Add(iObj); } // // Here We Apply Custom Detecting ... detectorConfig.OffDetectors(); detectorConfig.detectSupport = true; detectorConfig.detectResistance= true; detectorConfig.detectSignalKeyBarPattern = true; // // Initial Bar for Analysis ... // at Signal Time ... XOHCL signalBar; bool isInited = signalBar.Init( signal.symbol, signal.period, signal.time // ); // // Analyse Market ... fima1Signaller.poiDetector.AnalyseMarket( signalBar, marketStructure, detectorConfig // ); CArrayObj *iObjects; int drawnsCount = fima2Signaller.poiDrawer.DrawMarketStructure( marketStructure, marketStructureDrawerConfig, iObjects // ); if (IsValidSize(drawnsCount)) { // AddObjects( iObjects, eaDraws // ); } // // Alert Issued Signal ... string message = signal.GetMessage(); } // // Trade Event Handlers ... /** * Handle StopLoss Triggered Positions ... * * @param deal: XDeal instance ... */ void OnStopLossTriggered(const XDeal &deal) { eaExpert.HandleOnStopLossTriggered(deal); } /** * Handle Take Profit Triggered Positions ... * * @param deal: XDeal instance ... */ void OnTakeProfitTriggered(const XDeal &deal) { eaExpert.HandleOnTakeProfitTriggered(deal); } /** * Handle Force Close a Position ... * * @param ticket: ULONG ... * @param position: XPosition instance ... * @param comment: String ... */ void OnPositionForceClosed( const ulong ticket, const XPosition &position, const string comment // ) { // eaExpert.HandleOnPositionForceClosed( ticket, position, comment // ); } /** * Handle Deals Changes ... * * @param count: Integer, Number of Changes ... */ void OnDealsChanged(int count) { eaExpert.HandleOnDealsChanged(count); } /** * Handle Orders Changes ... * * @param count: Integer, Number of Changes ... */ void OnOrdersChanged(int count) { eaExpert.HandleOnOrdersChanged(count); } /** * Handle Positions Changes ... * * @param count: Integer, Number of Changes ... */ void OnPositionsChanged(int count) { eaExpert.HandleOnPositionsChanged(count); } /** * Handle Position Modified ... * * @param ticket: ulong, Position Ticket ... * @param profit: double, Position Profit ... * @param comment: string, Comment ... */ void OnPositionModified( const ulong ticket, const double profit, const string comment // ) { // eaExpert.HandleOnPositionModified( ticket, profit, comment // ); } /** * Handle Position Partial Closed ... * * @param ticket: ulong, Position Ticket ... * @param profit: double, Position Profit ... * @param comment: string, Comment ... */ void OnPositionPartialClosed( const ulong ticket, const double profit, const string comment // ) { // eaExpert.HandleOnPositionPartialClosed( ticket, profit, comment // ); } /** * Handle Trade State Changed ... * * @param state: XOnTradeHandlerState instance ... */ void OnTradeStateChanged(const XOnTradeHandlerState &state) { eaExpert.HandleOnTradeStateChanged(state); } //