【MQL5】TesterWithdrawal関数について

bool  TesterWithdrawal(
  double money      // 出金の合計額
  );

//--- 必要なライブラリをインクルードする
#include <Trade\Trade.mqh>        // 取引機能のライブラリ、CTradeクラスを使用
#include <Trade\SymbolInfo.mqh>   // シンボル情報のライブラリ、CSymbolInfoクラスを使用
#include <Trade\AccountInfo.mqh>  // アカウント情報のライブラリ、CAccountInfoクラスを使用

//--- 定数を定義する
#define BALANCE_PROFIT_WITHDRAWAL   5 // テスターの口座から資金が引き出される基準となる残高利益の値（5単位）

//--- 入力パラメータ
input double InpLots        = 0.1; // ロットサイズ（取引数量）
input uint   InpStopLoss    = 50;   // ストップロスの値（ポイント単位）
input uint   InpTakeProfit  = 150;  // テイクプロフィットの値（ポイント単位）
input ulong  InpMagic       = 123;  // マジックナンバー（ポジション識別用）
input ulong  InpDeviation   = 5;    // 許容される価格偏差（スリッページの許容範囲）

//--- グローバル変数の宣言
CTrade     trade;           // 取引操作用のクラスインスタンス
CSymbolInfo symb;           // シンボル（銘柄）情報を管理するクラスインスタンス
CAccountInfo account;       // 取引口座情報を管理するクラスインスタンス

double     balance_prev;    // 前回の口座残高を保持する変数
double     balance_op_sum;  // 出金操作の合計金額を保持する変数
uint       balance_op_total; // 出金操作の回数をカウントする変数

//+------------------------------------------------------------------+
//| エキスパート初期化関数                                            |
//+------------------------------------------------------------------+
int OnInit()
{
    //--- 初期口座残高を取得し変数に保存する
    balance_prev = account.Balance();
    
    //--- 出金操作の合計金額と回数を初期化する
    balance_op_sum = 0;
    balance_op_total = 0;
    
    //--- 初期化が正常に完了したことを示す値を返す
    return(INIT_SUCCEEDED);
}

//+------------------------------------------------------------------+
//| エキスパートティック関数                                          |
//+------------------------------------------------------------------+
void OnTick()
{
    //--- 現在の相場情報を更新する
    if(!symb.RefreshRates())  // 情報の更新が失敗した場合は処理を中断
        return;

    //--- 残高が変化している場合のみ処理を続行する
    if(balance_prev != account.Balance())
    {
        //--- 現在の残高が前回の残高に定義した基準値（BALANCE_PROFIT_WITHDRAWAL）を加えた額を超えている場合
        if(account.Balance() > balance_prev + BALANCE_PROFIT_WITHDRAWAL)
        {
            //--- 残高の増加分（利益）を計算
            double profit = account.Balance() - balance_prev;
            PrintFormat("口座残高が %.2f %s 増加しました。この利益分を出金します。", profit, account.Currency());

            //--- 出金を試みる
            if(TesterWithdrawal(profit))
            {
                //--- 出金成功時、出金回数を1増やし、合計出金金額に利益額を加算
                balance_op_total++;
                balance_op_sum += profit;
                
                //--- 現在の残高を更新し、次回比較用に保存
                balance_prev = account.Balance();

                PrintFormat("出金が成功しました。現在の口座残高: %.2f %s", account.Balance(), account.Currency());
                PrintFormat("総出金回数: %lu, 出金総額: %.2f %s", balance_op_total, balance_op_sum, account.Currency());
            }
            /*
            結果例:
            口座残高が 21.00 USD 増加しました。この利益分を出金します。
            deal #13 balance -21.00 [withdrawal] done
            出金が成功しました。現在の口座残高: 10000.00 USD
            総出金回数: 1, 出金総額: 21.00 USD
            */
        }
    }
}

//+------------------------------------------------------------------+
//| テスタ関数                                                        |
//+------------------------------------------------------------------+
double OnTester()
{
    //--- 残高ドローダウンの金額換算値を取得
    double ret = TesterStatistics(STAT_BALANCE_DD);
    
    //--- 最大ドローダウン、出金回数、およびその合計額をエキスパートログに出力
    PrintFormat("最大残高ドローダウン（資金換算）: %.2f %s, 出金回数: %lu, 出金総額: %.2f %s", 
                ret, account.Currency(), balance_op_total, balance_op_sum, account.Currency());
    
    //--- 結果を返す（最大ドローダウン金額）
    return(ret);
    /*
    結果例:
    最大残高ドローダウン（資金換算）: 5188.50 USD, 出金回数: 2, 出金総額: 36.00 USD
    最終残高 4867.50 USD
    OnTester の結果 5188.5
    */
}

//--- 必要なライブラリをインクルードする
#include <Trade\Trade.mqh>        // 取引機能のライブラリ、CTradeクラスを使用
#include <Trade\SymbolInfo.mqh>   // シンボル情報のライブラリ、CSymbolInfoクラスを使用
#include <Trade\AccountInfo.mqh>  // アカウント情報のライブラリ、CAccountInfoクラスを使用

//--- 定数を定義する
#define BALANCE_PROFIT_WITHDRAWAL   5 // テスターの口座から資金が引き出される基準となる残高利益の値（5単位）

//--- 入力パラメータ
input double InpLots        = 0.1; // ロットサイズ（取引数量）
input uint   InpStopLoss    = 50;   // ストップロスの値（ポイント単位）
input uint   InpTakeProfit  = 150;  // テイクプロフィットの値（ポイント単位）
input ulong  InpMagic       = 123;  // マジックナンバー（ポジション識別用）
input ulong  InpDeviation   = 5;    // 許容される価格偏差（スリッページの許容範囲）

//--- グローバル変数の宣言
CTrade     trade;           // 取引操作用のクラスインスタンス
CSymbolInfo symb;           // シンボル（銘柄）情報を管理するクラスインスタンス
CAccountInfo account;       // 取引口座情報を管理するクラスインスタンス

double     balance_prev;    // 前回の口座残高を保持する変数
double     balance_op_sum;  // 出金操作の合計金額を保持する変数
uint       balance_op_total; // 出金操作の回数をカウントする変数

//+------------------------------------------------------------------+
//| エキスパート初期化関数                                           |
//+------------------------------------------------------------------+
int OnInit()
 {
  //--- 口座残高を初期化
  balance_prev = account.Balance();    // 初期の残高をbalance_prevに設定
  balance_dep_sum = 0;                // 入金総額の初期化
  balance_dep_total = 0;               // 入金回数の初期化

  //--- 正常な初期化が完了した場合にINIT_SUCCEEDEDを返す
  return(INIT_SUCCEEDED);
 }

//+------------------------------------------------------------------+
//| エキスパートティック関数                                         |
//+------------------------------------------------------------------+
void OnTick()
 {
  //--- 現在のシンボルの価格情報を更新
  if(!symb.RefreshRates())            // シンボルの価格が更新できなかった場合は終了
    return;

  //--- 口座残高が前回値よりも大きく減少している場合の処理
  if(balance_prev != account.Balance())  // 前回の残高と現在の残高が異なる場合

 //--- 現在の残高が前回の残高に定義した基準値（BALANCE_PROFIT_WITHDRAWAL）を加えた額を超えている場合
        if(account.Balance() > balance_prev + BALANCE_PROFIT_WITHDRAWAL)
        {
            //--- 残高の増加分（利益）を計算
            double profit = account.Balance() - balance_prev;
            PrintFormat("口座残高が %.2f %s 増加しました。この利益分を出金します。", profit, account.Currency());

 //--- 出金を試みる
            if(TesterWithdrawal(profit))
            {
                //--- 出金成功時、出金回数を1増やし、合計出金金額に利益額を加算
                balance_op_total++;
                balance_op_sum += profit;
                
                //--- 現在の残高を更新し、次回比較用に保存
                balance_prev = account.Balance();

                PrintFormat("出金が成功しました。現在の口座残高: %.2f %s", account.Balance(), account.Currency());
                PrintFormat("総出金回数: %lu, 出金総額: %.2f %s", balance_op_total, balance_op_sum, account.Currency());
            }
            /*
            結果例:
            口座残高が 21.00 USD 増加しました。この利益分を出金します。
            deal #13 balance -21.00 [withdrawal] done
            出金が成功しました。現在の口座残高: 10000.00 USD
            総出金回数: 1, 出金総額: 21.00 USD
            */
        }
    }
}

//+------------------------------------------------------------------+
//| テスタ関数                                                        |
//+------------------------------------------------------------------+
double OnTester()
{
    //--- 残高ドローダウンの金額換算値を取得
    double ret = TesterStatistics(STAT_BALANCE_DD);
    
    //--- 最大ドローダウン、出金回数、およびその合計額をエキスパートログに出力
    PrintFormat("最大残高ドローダウン（資金換算）: %.2f %s, 出金回数: %lu, 出金総額: %.2f %s", 
                ret, account.Currency(), balance_op_total, balance_op_sum, account.Currency());
    
    //--- 結果を返す（最大ドローダウン金額）
    return(ret);
    /*
    結果例:
    最大残高ドローダウン（資金換算）: 5188.50 USD, 出金回数: 2, 出金総額: 36.00 USD
    最終残高 4867.50 USD
    OnTester の結果 5188.5
    */
}