-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathBearishEngulfing.mq4
461 lines (405 loc) · 24.9 KB
/
BearishEngulfing.mq4
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
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
//+--------------------------------------------------------------------------+
//| BearishEngulfing.mq4 |
//| Copyright 2016, soubra2003 |
//| https://www.mql5.com/en/users/soubra2003 |
//+--------------------------------------------------------------------------+
#property copyright "Copyright 2016, Soubra2003"
#property link "https://www.mql5.com/en/users/soubra2003/seller"
#property version "1.1"
#property strict
//---
#define BalanceErr "EA: NOT ENOUGH BALANCE! Check your trading account balance and/or the lot size."
//---
input string sep1 = ""; //Trades Options ...................................
input int MagicNumber = 9813658; //Magic Number
input double Lots = 0.1; //Lot Size
input double StopLoss = 3; //Stop Loss (0 = Disable)
input double TakeProfit = 3; //Take Profit (0 = Disable)
input int Slippage = 1; //Max. Slippage
//---
double MyPoint = Point;
string TradesComment = "By BearEng";
//+------------------------------------------------------------------+
//| Expert initialization function
//+------------------------------------------------------------------+
int OnInit()
{
Comment(" ");
if(Digits==3 || Digits==5) MyPoint=Point*10;
//---
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
Print("Bye.");
}
//+------------------------------------------------------------------+
//| Expert tick function
//+------------------------------------------------------------------+
void OnTick()
{
//--- Closing By Signal
/* if( TotalOrdersCount() >= 1 )
{
if( Close[0] < Low[1] ) CloseAllOpenedBuy();
else if( Close[0] > High[1] ) CloseAllOpenedSell();
}
*/
//--- Trading
if(TotalOrdersCount() < 1)
{
if((Close[2] > Open[2]) && (Close[1] < Open[1]))
{
if(( Close[1] < Open[2] ) && (Open[1] > Close[2]))
{
SellExecute();
}
}
}
}
//+------------------------------------------------------------------+
//| Expert TotalOrdersCount function
//+------------------------------------------------------------------+
int TotalOrdersCount()
{
int result = 0;
for(int i=0; i<OrdersTotal(); i++)
{
int ordselect_ = OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
result++;
}
return(result);
}
//+------------------------------------------------------------------+
//| Expert BuyExecute function
//+------------------------------------------------------------------+
void BuyExecute()
{
int tkt_buy = 0;
double OrderPrice = 0;
while(IsTradeContextBusy()) Sleep(100);
if(AccountFreeMarginCheck(Symbol(),OP_BUY,Lots)<=0 || /* NOT_ENOUGH_MONEY */GetLastError()==134)
{
Alert(BalanceErr);
return;
}
else
{
RefreshRates();
OrderPrice = Ask;
tkt_buy = OrderSend(Symbol(), //Pair
OP_BUY, //Command Type
NormalizeDouble(Lots,Digits), //Lot Size
OrderPrice, //Market Price
Slippage, //Max. Slippage
NULL, //Stop Loss
NULL, //Take Profit
TradesComment, //Comment
MagicNumber, //Magic No.
0, //Expiration (Only Pending Orders)
Red); //Arrow Color
if(tkt_buy>0)
{
Print("Buy order placed successfully");
//---
double TheStopLoss=0;
double TheTakeProfit=0;
bool MyOrderSelect = OrderSelect(tkt_buy,SELECT_BY_TICKET);
if(StopLoss > 0) TheStopLoss = OrderOpenPrice()-StopLoss*MyPoint;
if(TakeProfit > 0) TheTakeProfit = OrderOpenPrice()+TakeProfit*MyPoint;
bool MyOrderModify = OrderModify(OrderTicket(), //Selected Ticket No.
OrderOpenPrice(), //Selected Order Open Price
/*Modify*/ NormalizeDouble(TheStopLoss,Digits), //Selected Order Stop Loss
/*Modify*/ NormalizeDouble(TheTakeProfit,Digits), //Selected Order Take Profit
0, //Selected Order Expiration (Only Pending Orders)
Green); //Selected Order Arrow Color
if(!MyOrderModify) Print("Unable to place SL/TP for the Buy order: ",ErrorDescription(GetLastError()));
}
else Print("Buy order failed with error: ",ErrorDescription((GetLastError())));
}
}
//+------------------------------------------------------------------+
//| Expert SellExecute function
//+------------------------------------------------------------------+
void SellExecute()
{
int tkt_sell = 0;
double OrderPrice = 0;
while(IsTradeContextBusy()) Sleep(100);
if(AccountFreeMarginCheck(Symbol(),OP_SELL,Lots)<=0 || /* NOT_ENOUGH_MONEY */GetLastError()==134)
{
Alert(BalanceErr);
return;
}
else
{
RefreshRates();
OrderPrice = Bid;
tkt_sell = OrderSend(Symbol(), //Pair
OP_SELL, //Command Type
Lots,
OrderPrice, //Market Price
Slippage, //Max. Slippage
OrderPrice + StopLoss, //Stop Loss
OrderPrice - TakeProfit, //Take Profit
TradesComment, //Comment
MagicNumber, //Magic No.
0, //Expiration (Only Pending Orders)
Blue); //Arrow Color
if(tkt_sell>0)
{
Print("Sell order placed successfully");
//---
double TheStopLoss=0;
double TheTakeProfit=0;
bool MyOrderSelect = OrderSelect(tkt_sell,SELECT_BY_TICKET);
if(StopLoss > 0)
{
TheStopLoss = OrderOpenPrice()+StopLoss*MyPoint;
}
if(TakeProfit > 0)
{
TheTakeProfit = OrderOpenPrice()-TakeProfit*MyPoint;
}
bool MyOrderModify = OrderModify(OrderTicket(), //Selected Ticket No.
OrderOpenPrice(), //Selected Order Open Price
/*Modify*/ NormalizeDouble(TheStopLoss,Digits), //Selected Order Stop Loss
/*Modify*/ NormalizeDouble(TheTakeProfit,Digits), //Selected Order Stop Loss
0, //Selected Order Expiration (Only Pending Orders)
Green); //Selected Order Arrow Color
if(!MyOrderModify)
{
Print("Unable to place SL/TP for the Sell order: ",ErrorDescription(GetLastError()));
}
}
else
{
Print("Sell order failed with error: ",ErrorDescription(GetLastError()));
}
}
}
//+------------------------------------------------------------------+
//| CLOSE ALL OPENED POSITIONS Buy-Only
//+------------------------------------------------------------------+
void CloseAllOpenedBuy()
{
int total = OrdersTotal();
for(int i=total-1; i>=0; i--)
{
int ticket = OrderSelect(i,SELECT_BY_POS);
if( OrderMagicNumber() == MagicNumber )
{
if( OrderType() == OP_BUY )
{
//Close opened long positions
bool result = OrderClose(OrderTicket(),OrderLots(),MarketInfo(OrderSymbol(),MODE_BID),3,clrNONE);
if(!result)
{
Alert("Order ",OrderTicket()," failed to close. Error: ",ErrorDescription(GetLastError()));
Sleep(750);
}
}
}
}
}
//+------------------------------------------------------------------+
//| CLOSE ALL OPENED POSITIONS Sell-Only
//+------------------------------------------------------------------+
void CloseAllOpenedSell()
{
int total = OrdersTotal();
for(int i=total-1; i>=0; i--)
{
int ticket = OrderSelect(i,SELECT_BY_POS);
if( OrderMagicNumber() == MagicNumber )
{
if( OrderType() == OP_SELL )
{
//Close opened short positions
bool result = OrderClose(OrderTicket(),OrderLots(),MarketInfo(OrderSymbol(),MODE_ASK),3,clrNONE);
if(!result)
{
Alert("Order ",OrderTicket()," failed to close. Error: ",ErrorDescription(GetLastError()));
Sleep(750);
}
}
}
}
}
//+------------------------------------------------------------------+
//| return error description
//+------------------------------------------------------------------+
string ErrorDescription(int error_code)
{
string error_string;
//---
switch(error_code)
{
//--- codes returned from trade server
case 0: error_string="no error"; break;
case 1: error_string="no error, trade conditions not changed"; break;
case 2: error_string="common error"; break;
case 3: error_string="invalid trade parameters"; break;
case 4: error_string="trade server is busy"; break;
case 5: error_string="old version of the client terminal"; break;
case 6: error_string="no connection with trade server"; break;
case 7: error_string="not enough rights"; break;
case 8: error_string="too frequent requests"; break;
case 9: error_string="malfunctional trade operation (never returned error)"; break;
case 64: error_string="account disabled"; break;
case 65: error_string="invalid account"; break;
case 128: error_string="trade timeout"; break;
case 129: error_string="invalid price"; break;
case 130: error_string="invalid stops"; break;
case 131: error_string="invalid trade volume"; break;
case 132: error_string="market is closed"; break;
case 133: error_string="trade is disabled"; break;
case 134: error_string="not enough money"; break;
case 135: error_string="price changed"; break;
case 136: error_string="off quotes"; break;
case 137: error_string="broker is busy (never returned error)"; break;
case 138: error_string="requote"; break;
case 139: error_string="order is locked"; break;
case 140: error_string="long positions only allowed"; break;
case 141: error_string="too many requests"; break;
case 145: error_string="modification denied because order is too close to market"; break;
case 146: error_string="trade context is busy"; break;
case 147: error_string="expirations are denied by broker"; break;
case 148: error_string="amount of open and pending orders has reached the limit"; break;
case 149: error_string="hedging is prohibited"; break;
case 150: error_string="prohibited by FIFO rules"; break;
//--- mql4 errors
case 4000: error_string="no error (never generated code)"; break;
case 4001: error_string="wrong function pointer"; break;
case 4002: error_string="array index is out of range"; break;
case 4003: error_string="no memory for function call stack"; break;
case 4004: error_string="recursive stack overflow"; break;
case 4005: error_string="not enough stack for parameter"; break;
case 4006: error_string="no memory for parameter string"; break;
case 4007: error_string="no memory for temp string"; break;
case 4008: error_string="non-initialized string"; break;
case 4009: error_string="non-initialized string in array"; break;
case 4010: error_string="no memory for array\' string"; break;
case 4011: error_string="too long string"; break;
case 4012: error_string="remainder from zero divide"; break;
case 4013: error_string="zero divide"; break;
case 4014: error_string="unknown command"; break;
case 4015: error_string="wrong jump (never generated error)"; break;
case 4016: error_string="non-initialized array"; break;
case 4017: error_string="dll calls are not allowed"; break;
case 4018: error_string="cannot load library"; break;
case 4019: error_string="cannot call function"; break;
case 4020: error_string="expert function calls are not allowed"; break;
case 4021: error_string="not enough memory for temp string returned from function"; break;
case 4022: error_string="system is busy (never generated error)"; break;
case 4023: error_string="dll-function call critical error"; break;
case 4024: error_string="internal error"; break;
case 4025: error_string="out of memory"; break;
case 4026: error_string="invalid pointer"; break;
case 4027: error_string="too many formatters in the format function"; break;
case 4028: error_string="parameters count is more than formatters count"; break;
case 4029: error_string="invalid array"; break;
case 4030: error_string="no reply from chart"; break;
case 4050: error_string="invalid function parameters count"; break;
case 4051: error_string="invalid function parameter value"; break;
case 4052: error_string="string function internal error"; break;
case 4053: error_string="some array error"; break;
case 4054: error_string="incorrect series array usage"; break;
case 4055: error_string="custom indicator error"; break;
case 4056: error_string="arrays are incompatible"; break;
case 4057: error_string="global variables processing error"; break;
case 4058: error_string="global variable not found"; break;
case 4059: error_string="function is not allowed in testing mode"; break;
case 4060: error_string="function is not confirmed"; break;
case 4061: error_string="send mail error"; break;
case 4062: error_string="string parameter expected"; break;
case 4063: error_string="integer parameter expected"; break;
case 4064: error_string="double parameter expected"; break;
case 4065: error_string="array as parameter expected"; break;
case 4066: error_string="requested history data is in update state"; break;
case 4067: error_string="internal trade error"; break;
case 4068: error_string="resource not found"; break;
case 4069: error_string="resource not supported"; break;
case 4070: error_string="duplicate resource"; break;
case 4071: error_string="cannot initialize custom indicator"; break;
case 4072: error_string="cannot load custom indicator"; break;
case 4073: error_string="no history data"; break;
case 4074: error_string="not enough memory for history data"; break;
case 4075: error_string="not enough memory for indicator"; break;
case 4099: error_string="end of file"; break;
case 4100: error_string="some file error"; break;
case 4101: error_string="wrong file name"; break;
case 4102: error_string="too many opened files"; break;
case 4103: error_string="cannot open file"; break;
case 4104: error_string="incompatible access to a file"; break;
case 4105: error_string="no order selected"; break;
case 4106: error_string="unknown symbol"; break;
case 4107: error_string="invalid price parameter for trade function"; break;
case 4108: error_string="invalid ticket"; break;
case 4109: error_string="trade is not allowed in the expert properties"; break;
case 4110: error_string="longs are not allowed in the expert properties"; break;
case 4111: error_string="shorts are not allowed in the expert properties"; break;
case 4200: error_string="object already exists"; break;
case 4201: error_string="unknown object property"; break;
case 4202: error_string="object does not exist"; break;
case 4203: error_string="unknown object type"; break;
case 4204: error_string="no object name"; break;
case 4205: error_string="object coordinates error"; break;
case 4206: error_string="no specified subwindow"; break;
case 4207: error_string="graphical object error"; break;
case 4210: error_string="unknown chart property"; break;
case 4211: error_string="chart not found"; break;
case 4212: error_string="chart subwindow not found"; break;
case 4213: error_string="chart indicator not found"; break;
case 4220: error_string="symbol select error"; break;
case 4250: error_string="notification error"; break;
case 4251: error_string="notification parameter error"; break;
case 4252: error_string="notifications disabled"; break;
case 4253: error_string="notification send too frequent"; break;
case 4260: error_string="ftp server is not specified"; break;
case 4261: error_string="ftp login is not specified"; break;
case 4262: error_string="ftp connect failed"; break;
case 4263: error_string="ftp connect closed"; break;
case 4264: error_string="ftp change path error"; break;
case 4265: error_string="ftp file error"; break;
case 4266: error_string="ftp error"; break;
case 5001: error_string="too many opened files"; break;
case 5002: error_string="wrong file name"; break;
case 5003: error_string="too long file name"; break;
case 5004: error_string="cannot open file"; break;
case 5005: error_string="text file buffer allocation error"; break;
case 5006: error_string="cannot delete file"; break;
case 5007: error_string="invalid file handle (file closed or was not opened)"; break;
case 5008: error_string="wrong file handle (handle index is out of handle table)"; break;
case 5009: error_string="file must be opened with FILE_WRITE flag"; break;
case 5010: error_string="file must be opened with FILE_READ flag"; break;
case 5011: error_string="file must be opened with FILE_BIN flag"; break;
case 5012: error_string="file must be opened with FILE_TXT flag"; break;
case 5013: error_string="file must be opened with FILE_TXT or FILE_CSV flag"; break;
case 5014: error_string="file must be opened with FILE_CSV flag"; break;
case 5015: error_string="file read error"; break;
case 5016: error_string="file write error"; break;
case 5017: error_string="string size must be specified for binary file"; break;
case 5018: error_string="incompatible file (for string arrays-TXT, for others-BIN)"; break;
case 5019: error_string="file is directory, not file"; break;
case 5020: error_string="file does not exist"; break;
case 5021: error_string="file cannot be rewritten"; break;
case 5022: error_string="wrong directory name"; break;
case 5023: error_string="directory does not exist"; break;
case 5024: error_string="specified file is not directory"; break;
case 5025: error_string="cannot delete directory"; break;
case 5026: error_string="cannot clean directory"; break;
case 5027: error_string="array resize error"; break;
case 5028: error_string="string resize error"; break;
case 5029: error_string="structure contains strings or dynamic arrays"; break;
default: error_string="unknown error";
}
//---
return(error_string);
}
//+------------------------------------------------------------------+
//Bye