外汇EA是什么?怎么使用外汇EA？ - 518外汇网

//+------------------------------------------------------------------+5 q" `  y( Z, {/ q: S
//---- input parameters
1 u% O0 s( C% c3 B  dextern double TakeProfit = 20;
8 E$ M' T- S& ^extern double StopLoss = 30;$ }+ |+ s; K# }3 m
extern double Lots = 2;1 }7 V1 E# a/ X
extern double TrailingStop = 50;
( s% A; C4 Q5 s: ]. o) M+ gextern int ShortEma = 5;
/ \% Q/ p+ q: x$ a* sextern int LongEma = 60;; V* q( e' X% ^# m+ ~6 f
//+------------------------------------------------------------------+5 z6 l( X6 e: q# Q
//| expert initialization function |
$ S5 j# e" a8 W! o4 g//+------------------------------------------------------------------+
5 ?% T/ C' @' \$ _- S$ Zint init()" N8 }' y/ F- W% L; L2 Z
{
2 L: o2 S! p- A9 z! o8 }//----
: Z3 o; e7 n; N/ H//----  ~! h7 g6 [2 \  k, z1 x
return (0);
! W! G  E6 o, O* u- ~}8 a7 b2 D$ e9 N! r' P4 J6 T
//+------------------------------------------------------------------+# \* d: q( e  O. o
//| expert deinitialization function |- g" p* @5 J2 d5 [8 s2 [1 s( i5 e5 E
//+------------------------------------------------------------------+
7 ~2 M# a1 Y2 {! N9 y, ?int deinit()
$ ~# W, r8 H' A5 S4 W{) t* m, X* u5 N9 X1 i, B% F
//----# h8 }" B9 j* i/ @, U  L* l2 d
//----
: O' {9 ?+ v& o: P" e8 Preturn (0);
6 M. c- X! `, U$ A# L+ E6 z" C}
. z! c: k7 ^/ P& w/ Y+ y0 Z4 H//+------------------------------------------------------------------+
, X/ V8 D) J) `- F( k8 I) Z# p//| expert start function |6 S9 M" y( w$ u" f, t$ ^* b
//+------------------------------------------------------------------+; ^4 J0 A3 r+ F% d
int start(); m9 `& D9 }3 p5 T, D3 F
{
4 I0 E* k7 H. x# e) yint cnt, ticket, total;
: Q: }+ Y% Q; w( `double SEma, LEma;( b; K8 I, x5 Y: \' ?
//----. v; g8 L/ G  `
if (Bars < 100)0 q1 e+ H0 N& E" O! ]$ S
{" N6 [8 z2 O' G. T0 V* |0 Q
Print("bars less than 100");
: o/ r/ F) B% Q/ x& xreturn (0);! L- A1 t/ U( v9 \+ |: I+ n8 W$ S
}0 @# ]; B- L2 u
//----- [2 U; y$ e! {3 L
if (TakeProfit < 10)
* Z, N) G. _% I; z{
( P6 `# y+ c5 ]! j4 NPrint("TakeProfit less than 10");5 J5 L6 h; }; [) m
return (0); // check TakeProfit
6 _0 `, J6 l8 c}
$ J( y% M0 u1 f//----. }+ X% z! k" X1 l8 X& E' Q
SEma = iMA(NULL, 0, ShortEma, 0, MODE_EMA, PRICE_CLOSE, 0);' f) W" J8 t; B6 x. c& [! I
LEma = iMA(NULL, 0, LongEma, 0, MODE_EMA, PRICE_CLOSE, 0);- ?- R7 k0 t* P
//----
: s% P; Y- F8 e9 L; Wstatic int isCrossed = 0;' n! i; ]" R" f: G; S) `# z  d8 B
isCrossed = Crossed(LEma, SEma);0 H( n& D+ N. ~# I8 {* k
//----
9 D* {8 ^8 H! p; A4 R5 Etotal = OrdersTotal();8 f$ o) F0 q! q  f% ^% c% p+ E, `
if (total < 1)1 j2 e3 B" u1 ~8 g0 J2 C
{
& c! s% h* j$ ?3 t  cif (isCrossed == 1) // 满足空仓条件，开空仓
- B) J0 J2 L4 ]5 m/ W0 |! l. t7 p{
) Z& s9 N- _# k3 t% i8 U  _ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, 3, Bid + StopLoss * Point,3 \5 ^3 J- l+ w# f
Bid - TakeProfit * Point, "EMA_CROSS", 12345, 0, Green);
, ?- J8 U2 |" J- l" ]3 P" `if (ticket > 0)
1 q; {9 Z8 z& l8 }; ^+ N- b% D" C{8 n( p' q( x$ Q. }
if (OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES))1 q, h' F! f) Y+ N: Z8 I
Print("SELL order opened : ", OrderOpenPrice());
2 V; e6 _# S$ P6 E} else
# t, F. ?% p* k4 GPrint("Error opening SELL order : ", GetLastError());
* u' u  ?7 o+ p- T9 @return (0);
) E; l0 e& g+ |: q; h; m' b}
% y8 H2 V* c1 b0 W6 kif (isCrossed == 2) // 满足多仓条件，开多仓
# x9 }. |0 g# c$ W0 i( y$ d/ L{6 s* m+ z1 F& j4 X7 ^8 t# h
ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, 3, Ask - StopLoss * Point,; |3 G) o5 P" v+ E/ d2 I
Ask + TakeProfit * Point, "EMA_CROSS", 12345, 0, Red);( S7 v# X3 M$ y
if (ticket > 0)
" G3 D  T7 c5 f0 d% b{
& u$ Q* Y3 d9 l1 @7 Y2 bif (OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES))
$ i3 D- r* k7 m, h3 IPrint("BUY order opened : ", OrderOpenPrice());
( k; }9 \) C& ~; e2 S: e} else( X6 M* V! H2 V
Print("Error opening BUY order : ", GetLastError());2 ?& U/ a& n. {& C1 q3 j5 \
return (0);
& ~# `' [5 v8 Y' F2 Z7 g}
6 ^4 k, G& o6 s+ Dreturn (0);
# N; ]1 ~. U0 V- i) ?' I5 b}
5 F! ^! h2 ]7 _( l* y; _! I4 O//---- 订单修改，实现动态止盈止损跟踪
# U- Z% |4 X/ t3 M- ^* f, Pfor (cnt = 0; cnt < total; cnt++)
* v. C( y+ M) d0 E2 e{3 n( ^, h/ x; _, ^. ~
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);: Q3 V" q; j. j
if (OrderType() <= OP_SELL && OrderSymbol() == Symbol())( L, I1 K9 P" J( u* x7 y( d
{' ~! g: C  A: w
if (OrderType() == OP_SELL) // long position is opened2 q: @( O% B; g
{
, b8 F) J5 v9 r  w3 f// check for trailing stop
5 K4 X/ p7 Q, b2 y6 hif (TrailingStop > 0)
% v6 n5 q" c+ N) ]8 d{+ u& Z. o0 b( g- ~
if (Bid - OrderOpenPrice() > Point * TrailingStop)4 [2 O' r$ e+ I" q7 A& f8 F: T
{; c. A+ G; b( Q7 o+ b
if (OrderStopLoss() < Bid - Point * TrailingStop)
+ v" l, m+ ^1 C* Z' R{& G% t- \1 b1 x5 r1 P; R7 K
OrderModify(OrderTicket(), OrderOpenPrice(),- q$ D0 `. p2 T* L6 U5 F5 w
Bid - Point * TrailingStop,
6 p9 w1 |2 P. u0 T. ]OrderTakeProfit(), 0, Green);4 Z# o& I% G3 S! B
return (0);0 F' w$ z8 u$ Q+ _. N% d
}% Y$ d  ~/ C$ E5 ^; A) b
}
7 c: L4 W- G4 ~5 i}/ Z2 k: P" c+ ^! C$ M# H- d
} else // go to short position* ^' w* t, R! H9 q, K, `
{+ e+ [$ s- z0 w6 H6 G" Y' Y
// check for trailing stop
( N9 I6 Z/ b+ U6 yif (TrailingStop > 0)
6 Y8 l. \- m' [$ \! @9 t{
% Q) l# s  X% eif ((OrderOpenPrice() - Ask) > (Point * TrailingStop))9 }+ }/ e/ t3 _- ~, e& A! I- S, G3 x
{( O; z2 R" j8 ~6 U
if ((OrderStopLoss() > (Ask + Point * TrailingStop)))# G5 D9 a# N* m% h% w/ d. x9 X
{4 d) b! v3 K, s/ E
OrderModify(OrderTicket(), OrderOpenPrice(),( D9 q9 R" X+ K, X' a7 }
Ask + Point * TrailingStop,
4 d0 l+ l0 x, K( L0 H) s: OOrderTakeProfit(), 0, Red);
9 E+ Q6 x5 M) M* z+ B! O4 n: v+ jreturn (0);( e: [  @$ R: K9 D
}
0 r3 O9 o7 G; Q* u' i$ t+ F" d}: I1 O& F$ A' l4 ^6 u4 E7 O; t  y. r
}
/ @8 D" y. ]; t( ~5 U2 Y}
3 I  R+ {; W% D9 N, h}& n9 `/ E) _9 i. `
}
! k2 y/ Z" t2 V; ~# S( i: S) d1 i//----
' @* C4 G* Q  V, R% i2 Xreturn (0);
! J+ f+ A0 ?' h}
8 B7 f$ @( [  I  N$ c6 H: e4 h//+------------------------------------------------------------------+
! x3 E& J( n- D1 x# n// 移动平均线多空条件判断，, J( a9 @4 P/ g3 _, |
int Crossed(double line1, double line2)
( @3 z# u) H. J% b{
0 S2 G8 }9 R1 U% U+ Vstatic int last_direction = 0;. O/ X8 s- n5 ?$ f% y" i
static int current_direction = 0;
/ t: e- {* }* \5 Z& X- U+ n//Don't work in the first load, wait for the first cross!
9 U7 g4 D' _' m3 J* i0 kstatic bool first_time = true;
& R3 N+ K! W0 L& \: Zif (first_time == true)4 h9 M$ v0 D/ y' |+ V: {
{
7 m  I/ L5 E8 i7 mfirst_time = false;
, F7 q( b, w' F8 mreturn (0);
( k& o1 }# }% K, r) r- I9 T}1 P% R: K- \' F4 L! Q
//----
& _* U( L( _) tif (line1 > line2)
5 ]8 `' P% n: Acurrent_direction = 2; //up 多头市场上穿做多
6 s- p7 b, O1 p/ [8 `if (line1 < line2)
- N  x9 V& y: @) ?" x2 acurrent_direction = 1; //down 空头市场下穿做空
0 F8 D1 p$ J) L//----0 n% p# _6 Y/ G$ ~
if (current_direction != last_direction) //changed 多空改变 {. k2 p% X& X5 i* n' q+ q
last_direction = current_direction;$ E+ {# g  C, v* N' Y
return (last_direction);
5 L% ^- l& N! `5 B& `else return (0); //not changed
2 z+ q( I# q# y6 N8 w}