启动交易模型,并构建 EA
) F+ X! n) W+ q/ v在解决系统品质因数之前,有必要创建一个能在测试中使用的基本系统。 我们选择了一个简单的系统:我们先选择一个随机数字,若它是偶数,我们就开仓做多;否则,我们开仓做空,因为数字是奇数。
0 s( S9 H5 I% N" k为了保持随机抽取,我们调用 MathRand() 函数,它提供一个介于 0(零)至 32767 之间的数字。 此外,为了令系统更加平衡,我们将添加两条互补规则。 有了这三条规则,我们将努力确保系统更加可靠。
8 M- h; U0 Z' C9 h1 @" T+ U以下是制定这些规则的代码。: C$ X7 ?0 k* X8 ]7 |# e: ?
//--- Indicator ATR(1) with EMA(8) used for the stop level...
1 g, n/ r1 r/ j) pint ind_atr = iATR(_Symbol, PERIOD_CURRENT, 1);
; V$ H( B$ y3 eint ind_ema = iMA(_Symbol, PERIOD_CURRENT, 8, 0, MODE_EMA, ind_atr);) X3 A E6 |# J; @# `; q, s
//--- Define a variable that indicates that we have a deal...7 T1 T# G. F4 _3 d( m
bool tem_tick = false;9 N0 z6 Y( L: j) }
//--- An auxiliary variable for opening a position
. K5 m9 e1 x2 y, u$ U#include<Trade/Trade.mqh>6 O; `2 o. U3 H c' B' `, l I
#include<Trade/SymbolInfo.mqh>
9 H: S" [" ?4 J ]: i' g+ }CTrade negocios;' F# Z }# u- G: ~0 N- \7 }4 k' P# Q
CSymbolInfo info;9 p W+ e2 h0 s* B# G# K0 i
//--- Define in OnInit() the use of the timer every second2 h* @3 e( H j7 p
//--- and start CTrade
0 F( D4 L* M& Q% l1 ^3 h, O+ Q& Qint OnInit()' g2 ]) _* s: R f( O3 {
{8 X/ [+ d7 {' h) M5 ]6 J2 }' t7 E
//--- Set the fill type to keep a pending order
2 h( u3 N0 ~# [! E; O//--- until it is fully filled3 V$ y& B! M" ^0 i
negocios.SetTypeFilling(ORDER_FILLING_RETURN);
8 {8 W0 d+ P Z9 a" h//--- Leave the fixed deviation at it is not used on B3 exchange; \! i) J1 p( U' _
negocios.SetDeviationInPoints(5);
3 w8 T; c0 L) R) Q4 C; B* a//--- Define the symbol in CSymbolInfo...1 ?7 ?# g' n9 S8 H4 V
info.Name(_Symbol);
: X1 S: R9 e6 I. @1 z% [( `; @//--- Set the timer...
! C1 p' Z, T3 U/ SEventSetTimer(1);
9 b+ P' C0 L; s6 L0 i8 r//--- Set the base of the random number to have equal tests...- c6 w$ R- | i, q3 D" t0 s0 I
MathSrand(0xDEAD);" a F/ \1 t& T) F, t
return(INIT_SUCCEEDED);7 n& m, r2 E W' z, ~' Y1 B& j
}5 _" G9 R0 k" z1 ]( r% F
//--- Since we set a timer, we need to destroy it in OnDeInit().% q) x. V7 O+ j" n6 ^1 n
void OnDeinit(const int reason)" T* N% o1 w* O: p$ G. j! Q
{; Z1 \4 n2 y9 I
EventKillTimer();/ E, A6 F- |; O* N
}5 Z/ _4 [: P3 g- \ b
//--- The OnTick function only informs us that we have a new deal
' b" t7 ~ t1 h8 \( Z* }/ v+ qvoid OnTick()8 g4 k! S0 z, @9 d. Q
{
! d6 y" L+ E* _tem_tick = true;
7 m$ c2 d4 Y3 |& c W& [}
$ K. h- Z5 T8 |* c# F7 H//+------------------------------------------------------------------+$ e% U$ J* C0 M* n+ \: S& J- C
//| Expert Advisor main function |9 e9 i7 d3 {8 e% d- ~" {0 _ v
//+------------------------------------------------------------------++ u$ R9 b5 V0 a3 f5 B5 ^$ W$ o
void OnTimer()$ D, E8 K" S" w8 P2 ?9 w! |; M1 }
{$ d0 H) k6 g# i' @" m' L0 A
MqlRates cotacao[];7 @; k8 t# m, J! e
return ;
: {) p% o! D( b' b0 g$ Uif (negocios_autorizados == false) // are we outside the trading window?+ q* u- o9 V$ K" r
return ;
6 E3 e: f1 ^6 X' k! }//--- We are in the trading window, try to open a new position!
6 v _2 _ v* Zint sorteio = MathRand();+ _& f3 s. m; |, t [
//--- Entry rule 1.1, z6 N( S# A3 p1 M. B3 n! h
if(sorteio == 0 || sorteio == 32767)
2 u' t1 i% K, ?) [+ _; X2 oreturn ;
3 G3 C; N: C9 w. zif(MathMod(sorteio, 2) == 0) // Draw rule 1.2 -- even number - Buy
* Z* N* }6 R8 `4 s4 c: n{
: u3 I7 @; N9 {) C+ |negocios.Buy(info.LotsMin(), _Symbol);
* A6 W7 {' \( s4 E8 F" }# P+ f, n}
) k+ s) U! X7 H$ o* E( [0 {else // Draw rule 1.3 -- odd number - Sell
. t) M0 n8 n* E{ P% ~5 N4 W9 H6 M/ P3 D
negocios.Sell(info.LotsMin(), _Symbol);
0 {% w# N2 w% X8 |4 Z# j}
* T5 |2 c5 L p3 b0 {7 q* R" u2 t}
/ E" v" J) D5 F0 Y: W. j! J//--- Check if we have a new candlestick...+ ]+ F* ?% N( U1 s) Y" n9 h" W
bool tem_vela_nova(const MqlRates &rate)
8 r: Z" I" N& T7 ^+ q{
6 g# N, q& H& g5 s4 {{
. Z: R" \& V2 Q9 [/ pret = true;
v" T D& V+ d oclose_positions = false;+ C1 O, I. o) F
}
" a1 {, C2 _9 w; h/ x$ B3 I7 velse/ r) _2 u) ?+ @" ]3 X
{: R7 u7 e4 R/ C- i" R* o, W" N
if(mdt.hour == 16)/ L. s$ O P2 t6 T9 E
close_positions = (mdt.min >= 30);
/ |$ |" N9 T w+ S3 |0 F1 D}2 E& v$ A, S+ v3 O# c1 e
}1 g* O, a: r" b+ o1 g1 l
return ret;0 r/ y* M. g: k$ c
}
# c) ^; E) w0 ]3 n4 @: g: n1 x3 e//---% J) [/ \2 c# w9 x6 P8 F0 w7 u
bool arruma_stop_em_posicoes(const MqlRates &cotacoes[])+ V, U5 L. [8 T$ p; r O$ t) s
{+ I3 f) d# l R3 |
if(PositionsTotal()) // Is there a position?
& I- Q0 W9 ~2 ~6 j: t7 E{
: ?& R; o: K# R# @$ B- H$ `double offset[1] = { 0 };* Z1 c" j& o6 F- c8 d% I. {
if(CopyBuffer(ind_ema, 0, 1, 1, offset) == 1 // EMA successfully copied?
& q5 o* z8 b, P3 `&& PositionSelect(_Symbol)) // Select the existing position!
/ b. @- @8 H! w0 B{- I" F- j/ y: q6 B/ I
ENUM_POSITION_TYPE tipo = (ENUM_POSITION_TYPE) PositionGetInteger(POSITION_TYPE);
% ?1 e7 T8 V4 I) ~double SL = PositionGetDouble(POSITION_SL);
7 t0 |4 b% P! x# ydouble TP = info.NormalizePrice(PositionGetDouble(POSITION_TP));
) Y$ [' m( V, K& h0 K3 A9 h: Fif(tipo == POSITION_TYPE_BUY)
' i" l3 g4 s3 r0 @{
7 w! R) O1 l5 P1 z9 \if (cotacoes[1].high > cotacoes[0].high)
, b" @& F$ Z: X o+ p1 ^2 a{3 Z& R) U4 X8 v! R3 \& q% _4 H! @; }
double sl = MathMin(cotacoes[0].low, cotacoes[1].low) - offset[0];
, H; E2 E! a9 O2 B* {info.NormalizePrice(sl);' |, v$ w* \3 Z6 t
if (sl > SL)
1 N% H% J0 q# d{
- N& |! Q8 z! v9 Q8 `negocios.PositionModify(_Symbol, sl, TP);% K3 j1 E$ z6 w$ b4 h! T9 j% a! ]
}
+ H3 n5 m% k* K' w2 ]+ f; C9 V}1 u! Q$ S* j" G$ c* S1 G& v+ Q" J
}) J1 L/ }9 D' I
else // tipo == POSITION_TYPE_SELL
4 ], d0 o! Y; `5 Q( h0 ]9 ?{
6 F; U# x/ a; ]6 Yif (cotacoes[1].low < cotacoes[0].low)
1 ~8 N' K0 L7 J- C{+ R0 X$ [4 i2 o
return true;
: v0 q! R' K9 k9 \; I7 P+ B}& |9 s `7 p8 Z
// there was no position
9 i/ A# I3 I7 S& n* |return false;
J1 T" W7 c+ Y' u# ?}
0 A' |& n, }, ]: R8 }. X我们简略研究一下上面的代码。 我们将经均化计算的 ATR 值来判定止损步长,即我们发现当前烛条超过前一根时,将止损价位放置在烛条的边界。 这是在函数 arruma_stop_em_posicoes 中完成的。 当其返回 true 时,已有设置,且我们无需在 OnTimer 的主代码中前进。 我使用该函数取代 OnTick,因为我不需要针对每笔执行的交易运行一遍大函数。 函数应该在所定义周期的每根新烛条建立时执行。 在 OnTick 中,设置 true 值表示前一笔交易。 这是必要的;否则,在休市期间,策略测试器将引入暂停,因为即使没有前一笔的交易,它也会执行该函数。
" a1 j2 R- k: b到该处为止,一切都严格按照定义好的计划进行,包括两个指定的窗口。 第一个是开仓交易的窗口,在 11:00 到 4:00 之间。 第二个是管理窗口,它允许算法管理持仓,移动其止损价位,直至 16:30 — 此时它应该把当天的所有交易了结。 |