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

//+------------------------------------------------------------------+
5 q2 z/ t+ q& G% G/ ~//---- input parameters; J1 w. G+ G$ a3 k8 W/ C8 H
extern double TakeProfit = 20;
0 l' Z& x" l% p; U0 iextern double StopLoss = 30;
5 K3 ]; M* \8 [  i* F2 mextern double Lots = 2;
+ h8 b. R) o" Wextern double TrailingStop = 50;
) i7 X! x7 e7 rextern int ShortEma = 5;
2 @# ?% O( F( e  J2 S% vextern int LongEma = 60;
" G* \6 a8 }' y& C- X9 t/ J//+------------------------------------------------------------------+- {3 ^1 W& P5 E, F5 z* s% w
//| expert initialization function |) J0 m9 x5 b$ }' {& `' d3 B; M* _
//+------------------------------------------------------------------+& `& a4 e  i- b: n' l5 r* `
int init()* x+ b2 `. |, D2 i( i0 K8 {0 x
{
+ g* U1 W: f$ T//----
- C: ^4 u" E5 c) D* r0 a, L//----! n; ^& h  Q4 L, }' }0 J
return (0);$ @) D" U  q  O6 t5 g7 t6 S9 l( P
}
0 }- E  J. i  I  z& Q& j//+------------------------------------------------------------------+) \6 o+ D2 b2 Y$ \. {8 D- X
//| expert deinitialization function |  ^, F% }5 X* d+ a' b+ g/ n; z
//+------------------------------------------------------------------+
+ j2 Q) A: y2 sint deinit()
+ d  ~; q, [& n3 i5 {: c& c; P{
  f+ f: @) L# G  t) j7 T4 D//----3 X7 Q8 g- r, J+ g  n
//----
, X, t& V# T( L$ z% Mreturn (0);% z( U& M$ t3 [) ~5 `: X0 D* _3 S
}* Z9 N+ d1 r: L% P% l
//+------------------------------------------------------------------+
  f3 j9 b$ Y. T' W//| expert start function |
6 Q6 J$ T1 ~" a5 L9 C3 V//+------------------------------------------------------------------+
  w  E! q* v' Y; D% X$ Dint start()7 B4 c5 c4 W4 a  H
{
' B4 ~, K+ k- H% a7 B( Bint cnt, ticket, total;% o& q/ s# Y4 A1 ?
double SEma, LEma;
4 y# \/ F* [% E9 b! f# Z//----5 w5 F$ ~  @  u( h
if (Bars < 100)! z& i' M1 v. ^% F' s. S
{* {" ^; N/ ^4 F$ E& I6 D* x6 O
Print("bars less than 100");/ H  i0 B4 J: T0 W! K
return (0);. c4 b8 s# \7 V% B, N+ X
}
; V3 m: [( w7 C1 |* E//----* E+ F, {# e6 P
if (TakeProfit < 10)" N& w/ C+ D' Y: i
{
1 }, n) g- z" P' HPrint("TakeProfit less than 10");
' M0 v+ j% U) D' W, v# U. jreturn (0); // check TakeProfit
0 q) S' e, }9 I' ^5 V6 u}, @( k9 _( Y1 m, Q
//----  [4 e- I- Q$ h2 f6 g
SEma = iMA(NULL, 0, ShortEma, 0, MODE_EMA, PRICE_CLOSE, 0);  {- t7 s0 L0 x9 b- Z; H. \
LEma = iMA(NULL, 0, LongEma, 0, MODE_EMA, PRICE_CLOSE, 0);
* ^1 f' w8 r2 c) d, a# Z//----5 h) x9 d* y. X, x3 J/ t  ?
static int isCrossed = 0;
4 ~8 H9 k0 P8 l- N6 t  xisCrossed = Crossed(LEma, SEma);
% @+ r5 i- Y! y2 K. P7 @//----
+ i3 b* d' Y8 ?/ [- @total = OrdersTotal();/ {% N, `" ]0 x2 F, c* [
if (total < 1)! K; ], z. c, l" ~5 Z* a0 H6 u
{
5 ~0 ~8 N/ i/ H+ s8 F; Z) Qif (isCrossed == 1) // 满足空仓条件，开空仓+ [9 m' k7 z& E3 R5 [- ^
{7 E9 Z* t! u, m. v2 n8 G& W6 w3 ]
ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, 3, Bid + StopLoss * Point,
) i1 e; l, @- y6 ZBid - TakeProfit * Point, "EMA_CROSS", 12345, 0, Green);1 e' D# f' z0 A, |
if (ticket > 0)5 Z  i, }% a* N: q$ L( [# }
{
! r3 x" _+ |; J9 V. @. b  [if (OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES))
4 w# H* U( P  m# VPrint("SELL order opened : ", OrderOpenPrice());
# o3 X8 L* }! Q0 L# W} else
- L- U* d8 d6 ]- b  xPrint("Error opening SELL order : ", GetLastError());& |+ F! G( F8 ~: T' i! ^# J; K
return (0);
/ m& w3 |7 B* {. i* [; {}8 w: z6 @0 @+ d# w9 }' W
if (isCrossed == 2) // 满足多仓条件，开多仓
' V; w0 `* k" P* X) D{
! ^3 M5 ^5 r' S9 E' T) D) F# J' j- }ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, 3, Ask - StopLoss * Point,5 J' N. k3 A3 I! H& y
Ask + TakeProfit * Point, "EMA_CROSS", 12345, 0, Red);
- J; @4 t' }- v, d- C1 H1 Y3 Q9 Hif (ticket > 0)
* E2 W7 l1 x3 Q/ Q, E{
5 n$ N1 S* G3 Rif (OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES))
4 k& Q4 Y$ g$ V$ \Print("BUY order opened : ", OrderOpenPrice());
5 N8 H( n: ]2 e2 U. ]} else( u  m" g% X% c" o; H+ M& A) @
Print("Error opening BUY order : ", GetLastError());4 o0 g  A& s4 T* V3 u
return (0);4 u/ g& Y6 e9 B! h8 ~: J
}
$ v2 G  x3 N+ L7 Dreturn (0);  Z3 S9 `; c" _( G
}
/ j0 I5 u2 Z/ c% {$ z; S$ i# {//---- 订单修改，实现动态止盈止损跟踪
+ |4 x9 _$ a7 i: Yfor (cnt = 0; cnt < total; cnt++)
; N3 \7 q4 a; @0 @, y5 i  r{
* i6 G: I4 u! c* T: }( hOrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
& {! q( C$ a2 C7 A" Zif (OrderType() <= OP_SELL && OrderSymbol() == Symbol())
( A. I* c' V2 S- T. w0 n; }{5 J, ]$ A& s& B5 l# w$ O
if (OrderType() == OP_SELL) // long position is opened# Y$ M# z5 L' o* Q- B
{
$ H' x( B) J5 Q, [// check for trailing stop! S: G# H0 l+ f- f
if (TrailingStop > 0)6 v' a3 j' R' Y  f+ d
{7 j# \' j2 ?3 N0 G4 _5 S& D3 `
if (Bid - OrderOpenPrice() > Point * TrailingStop)
) V  z% E  k5 ^) _, k{
& X) V) a" D, X2 y# i: \  @if (OrderStopLoss() < Bid - Point * TrailingStop)3 F4 }+ }0 {- B* `
{) Q5 f7 u& g: v
OrderModify(OrderTicket(), OrderOpenPrice(),& F! G- h: q3 L. W  R1 C
Bid - Point * TrailingStop,
+ p6 ]2 T5 T; A+ jOrderTakeProfit(), 0, Green);
+ }3 t* {* E. J* d: x4 u, G2 }return (0);# H1 v7 Y$ v, Y$ o% K$ U
}) M( g  v; {8 ^0 P& G( T) Y
}! o& ?) k0 i/ V+ k* T; S  i5 x/ H
}8 ]. w0 B' A: u6 D7 d" C
} else // go to short position
1 ~( R4 E- f, v* P  c{2 v4 b4 {  x1 q' x# h7 s
// check for trailing stop
  @1 M7 O6 N4 I4 b5 Bif (TrailingStop > 0)  O1 ?  d: g) |
{
  o) l% E+ X. p% h5 V, }7 Eif ((OrderOpenPrice() - Ask) > (Point * TrailingStop))) D8 e# V8 W2 s( g0 S$ r$ z" c/ ?, C
{
0 V# m  f" R! _1 tif ((OrderStopLoss() > (Ask + Point * TrailingStop)))8 {8 w3 f3 E! ?+ j6 a5 M. g" @/ Y
{2 a2 e8 e* |% \) g. l
OrderModify(OrderTicket(), OrderOpenPrice(),6 E8 Q- f$ l# ]" H# ?7 ]( }  t
Ask + Point * TrailingStop,
OrderTakeProfit(), 0, Red);4 @2 L  t0 _1 G4 p5 I8 ]( P
return (0);; ~# \7 {0 x$ t  m4 S# s6 z/ `
}
3 Z; R, k% E& m' t}
6 ~# X8 w8 J& U0 L3 X}1 }. X& q% d/ G* e' h
}
$ K( f) G- ?, e- V2 n0 M1 B* A/ S% @& N}
" k8 Y$ C; u1 O# r1 g}$ f. M# J4 g" S7 j
//----* [* z& i! }* g8 e2 m' d6 f9 b& b
return (0);
# O5 i& Z0 e  |9 y}- I. a* Q% M* t% F+ k, b
//+------------------------------------------------------------------+; H" |8 c4 ^! ^/ D8 r
// 移动平均线多空条件判断，
) `  k9 q* V' n& d( O+ P" |  L' hint Crossed(double line1, double line2)& m0 U! [2 U& U# k9 ~
{
, r2 z# a7 z0 O9 c  d# E1 I+ E, vstatic int last_direction = 0;
' G& h/ M. V# u+ v/ rstatic int current_direction = 0;
* v) c. z1 {2 T4 E8 W5 I* C//Don't work in the first load, wait for the first cross!
4 Z- s1 P- G' E5 a" Vstatic bool first_time = true;
( u9 E! J- g* b2 \, l0 U) Dif (first_time == true)# w0 c: i6 \3 c/ {: B5 y) f
{
. @" [9 }; A' F7 z+ G* q: o1 `first_time = false;, q& b- N! m) B  o5 [/ `
return (0);& Y3 ~. D; W, l1 p6 b# U1 g
}8 L" [) k7 \1 N! Y& P
//----
2 Q: l; t( `. Bif (line1 > line2)/ _, J/ ~3 C' x
current_direction = 2; //up 多头市场上穿做多
6 o1 h, m3 _* e, Eif (line1 < line2)3 M- v. c" U' Z: Y
current_direction = 1; //down 空头市场下穿做空
# z: B  B4 {7 ]: j; ?& [. I6 i//----
! e1 H  c+ P$ F# J( I# Dif (current_direction != last_direction) //changed 多空改变 {( R% u4 z2 k# h7 J
last_direction = current_direction;% T+ W, p% {7 U
return (last_direction);2 i( }; j! g5 Y; v4 S
else return (0); //not changed
+ H8 I2 W- O5 Z) [1 \; g% g}