新版MQL语言程序设计：通用且灵活的多功能平仓函数的设计与代码实现_mql编程亏损全平

平仓函数的重写设计与代码实现

• MT4与MT5提供的交易函数只有简单的接口，不能适应快速开发。
• 交易策略需要按仓位类型，按产品符号，按魔术编号，按仓位注释等多功能多条件的平仓。
• 将所有平仓条件抽象成为函数的参数，封装成为一个通用的跨平台的平仓函数
• 代码实现如下：

// 定义常量
#define _Deviation  50

// 定义订单遍历宏，实现跨平台编译
#ifdef __MQL4__
#define ForEachPositionDown(i) for (int i=OrdersTotal()-1; i>=0; i--)
#endif
#ifdef __MQL5__
#define ForEachPositionDown(i) for (int i=PositionsTotal()-1; i>=0; i--)
#endif

// 根据指定魔术编号数组，产品符合数组，订单订单注释数组平仓多头仓位
// 本函数为通用函数，兼容MT4与MT5平台
// 数组为空的时，默认全局，如此便实现了各种条件的组合筛选
bool BuyClose(ulong &magic[], string &symbol[], string &comment[]) export
{
    bool ret = true;
    // 从最新时间到过去，遍历所有的仓位
    ForEachPositionDown(i)
    {
        // 根据索引选择仓位
        if ( CheckPositionSelectedByPos(i) )
        {
            // 判断是否符合魔术编号匹配，不符合返回继续循环
            if ( !CheckPositionSelectedMagic(magic) )     continue;

            // 判断是否符合产品符号匹配，不符合返回继续循环
            if ( !CheckPositionSelectedSymbol(symbol) )   continue;

            // 判断是否符合产品符号匹配，不符合返回继续循环
            if ( !CheckPositionSelectedComment(comment) ) continue;
            
            // 判断是否选择了多头仓位
            if ( !CheckSelectedBuy() ) continue;

            // 以上条件全部符合以后，执行仓位平仓，将执行结果保存ret变量
            // 只有所有符合条件的仓位全部平仓，ret的结果为true，否则false
            ret = ret && SelectedPositionClose();
        }
    }
    //
    return (ret);
}
// 筛选仓位是否符合魔术编号数组
// 通用MT4和MT5函数，可跨平台编译
bool CheckPositionSelectedMagic(ulong &magic[]) export
{
    int arr_len = ArraySize(magic);
    if (arr_len == 0) return (true);
#ifdef __MQL4__
    if (MathQuery(magic, OrderMagicNumber()) == -1) return (false);
#endif
#ifdef __MQL5__
    ulong pos_magic = PositionGetInteger(POSITION_MAGIC);
    if (MathQuery(magic, pos_magic) == -1) return (false);
#endif
    return (true);
}
// 筛选仓位是否符合产品符号数组
// 通用MT4和MT5函数，可跨平台编译
bool CheckPositionSelectedSymbol(string &symbol[]) export
{
    int arr_len = ArraySize(symbol);
    if (arr_len == 0) return (true);
    string sym = "";
#ifdef __MQL4__
    sym = ::OrderSymbol();
#endif
#ifdef __MQL5__
    sym = ::PositionGetString(POSITION_SYMBOL);
#endif
    //
    if (!ArrayContains(symbol, sym)) return (false);
    return (true);
}
// 筛选仓位是否符合订单注释数组
// 通用MT4和MT5函数，可跨平台编译
bool CheckPositionSelectedComment(string &comment[]) export
{
    int arr_len = ArraySize(comment);
    if (arr_len == 0) return (true);
    // 检查仓位注释是否在筛选的注释数组中
    if (!ArrayContains(comment, SelectedPositionComment())) return (false);
    return (true);
}
// 判断选择的是不是多单，跨平台编译MT4与MT5函数
bool CheckSelectedBuy(void) export
{
#ifdef __MQL4__
    if (OrderType() != OP_BUY) return (false);
#endif
#ifdef __MQL5__
    ENUM_POSITION_TYPE type = (ENUM_POSITION_TYPE)PositionGetInteger(POSITION_TYPE); 
    if (type != POSITION_TYPE_BUY) return (false);
#endif
    return (true);
}
// 平仓指定选择的仓位
int SelectedPositionClose(void) export
{
#ifdef __MQL4__
    double close_price;
    if (OrderType() == OP_BUY) 
        close_price = SymbolInfoDouble(OrderSymbol(), SYMBOL_BID);
    else if (OrderType() == OP_SELL)
        close_price = SymbolInfoDouble(OrderSymbol(), SYMBOL_ASK);
    else 
        return (-1);
    if ( !OrderClose(OrderTicket(), OrderLots(), close_price, _Deviation, clrNONE) )
    {
        Print("OrderClose failed with error #", GetLastError()); 
        return (0);
    }
#endif
#ifdef __MQL5__
    MqlTradeRequest request;
    MqlTradeResult  result;
    ZeroMemory(request);
    ZeroMemory(result);
    ENUM_POSITION_TYPE type = (ENUM_POSITION_TYPE)PositionGetInteger(POSITION_TYPE); 
    string symbol     = PositionGetString(POSITION_SYMBOL);
    request.action    = TRADE_ACTION_DEAL;
    request.position  = PositionGetInteger(POSITION_TICKET);
    request.symbol    = symbol;
    request.volume    = PositionGetDouble(POSITION_VOLUME);
    request.deviation = _Deviation;
    //
    if (type == POSITION_TYPE_BUY)
    {
        request.price = SymbolInfoDouble(PositionGetString(POSITION_SYMBOL), SYMBOL_BID);
        request.type  = ORDER_TYPE_SELL;
    }
    if (type == POSITION_TYPE_SELL)
    {
        request.price = SymbolInfoDouble(PositionGetString(POSITION_SYMBOL), SYMBOL_ASK);
        request.type  = ORDER_TYPE_BUY;
    }
    if ( !FillingCheck(symbol, request, result) ) return (0);
    //
    if (!OrderSend(request, result))
    {
        PrintFormat( "OrderSend error %d", GetLastError() );
        PrintFormat("retcode=%u  deal=%I64u  order=%I64u", result.retcode, result.deal, result.order);
        return (0);
    }
#endif
    return (1);
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149

SellClose 函数的设计思想与以上相同，这里不再代码演示
注意里面部分被调用的函数在前面的文章中已经展示，这里不再写出