Jump to content

!e-forexy

edgar1713006556
 Share

Recommended Posts

edgar1713006556 Newbie

edgar1713006556

Posted
Posted

here is the code of !e-forexy

!e#property copyright "Copyright © 2005-2007, BJF Trading Group"

#property link "www.iticsoftware.com"

 

#include <stdlib.mqh>

#include <stderror.mqh>

 

#define major 3

#define minor 1

 

extern double Lots = 0.1;

extern int Slippage = 3;

extern int Magic = 20070922;

 

extern int Swing = 10;

extern int dy1 = 3;

extern int dy2 = 3;

extern double kSL = 0;

extern double kTP = 0;

 

extern int H = 0;

extern int N = 0;

 

extern int T1 = 8;

extern int T2 = 11;

extern int T3 = 14;

extern int T4 = 17;

 

 

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

datetime Time0 = 0;

 

int init () {

return(0);

}

 

int deinit() {

return(0);

}

 

int start() {

 

T1 = 8;

T2 = 14;

T3 = 17;

T4 = 23;

 

kSL = 1.9;

kTP = 0.5;

 

Swing = 20;

 

dy1 = 2;

dy2 = 2;

 

 

if (!IsTesting()) Comment("Version: ", major, ".", minor);

 

if (Time0 == Time[0]) return;

Time0 = Time[0];

 

 

//Is it work time now?

bool work_time =

((TimeHour(Time[0]) >= T1) && (TimeHour(Time[0]) < T2)) ||

((TimeHour(Time[0]) >= T3) && (TimeHour(Time[0]) < T4));

 

//It is non-work time now

//We should delete all the pending orders

if (!work_time) {

int cnt = OrdersTotal();

for (int i = cnt-1; i >= 0; i--)

{

if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;

if (OrderSymbol() != Symbol()) continue;

if (OrderMagicNumber() != Magic) continue;

 

int type = OrderType();

if (type == OP_BUYSTOP || type == OP_SELLSTOP) DeleteOrder(OrderTicket());

if (type == OP_BUYLIMIT || type == OP_SELLLIMIT) DeleteOrder(OrderTicket());

}

 

return(0);

}

 

//It is work time now

//In case we have an opened orders do nothing

cnt = OrdersTotal();

for (i = 0; i < cnt; i++) {

if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;

if (OrderSymbol() != Symbol()) continue;

if (OrderMagicNumber() != Magic) continue;

 

type = OrderType();

if (type == OP_BUY || type == OP_SELL) return(0);

}

 

//We need last opened order

int ticket = GetLastOrder();

int LastTime = -1;

 

//Last time is the OpenTime of last opened order

if (ticket > 0) {

OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES);

LastTime = StrToInteger(OrderComment());

}

 

//We check a new bar (Time[0] is the open time of current 0 bar)

//Then we set a pending order once per bar

if (LastTime < Time[0]) {

int res = SetOrders();

return (res);

}

 

return (0);

}

 

//Function sets the EA pending orders

int SetOrders()

{

/*

for (int i=0; i < Bars; i++) {

if (TimeHour(Time) == H && TimeMinute(Time) == 0) break;

}

*/

 

int i = iBarShift(NULL, 0, iTime(NULL, PERIOD_D1, 0));

 

//We determine High and Low values, the time interval is [0:00 - now]

//W is an amplitude

//Avr is an average value

double H = High[iHighest(NULL, 0, MODE_HIGH, i-1, 1)];

double L = Low[iLowest(NULL, 0, MODE_LOW, i-1, 1)];

double W = H - L;

double Avr = (H + L)/2;

 

//Swing is the parameter related to a calculation value W

//We should throw off all the days with an amplitude less then Swing value

if (W < Swing*Point) return (0);

 

 

//Now in case the price < Avr - 1/2*Buffer we set BUYSTOP order at Avr + 1/2*Buffer

//in case the price > Avr + 1/2*Buffer we set SELLSTOP order at Avr - 1/2*Buffer

//The meaning of EA is the price breaks the 50% of daily range

//Buffer parameter helps to cut off all the wrong breakdowns

//BUYSTOP order it the same as BUY at order price

//SELLSTOP order it the same as SELL at order price

 

if (DayOfWeek() == 1) return;

 

int StopLevel = MarketInfo(Symbol(), MODE_STOPLEVEL) + 1;

 

if (Open[0] < Avr - dy1*Point) {

 

double Price = Avr - dy2*Point;

if (Price < Ask + StopLevel*Point) Price = Ask + StopLevel*Point;

 

double SL = L - W*kSL;

double TP = H + W*kTP;

 

//SL = 0;

 

int res = SetBuyStop(Symbol(), Lots, Price, Slippage, SL, TP, Magic, TimeCurrent());

 

return (res);

}

 

if (Open[0] > Avr + dy1*Point) {

 

Price = Avr - dy2*Point;

if (Price > Bid - StopLevel*Point) Price = Bid - StopLevel*Point;

 

SL = H + W*kSL;

TP = L - W*kTP;

 

//SL = 0;

 

res = SetSellStop(Symbol(), Lots, Price, Slippage, SL, TP, Magic, TimeCurrent());

 

return (res);

}

 

return (0);

}

 

//Gets the last opened orders

int GetLastOrder()

{

int ticket = -1;

int tm0 = 0;

 

int cnt = OrdersTotal();

for (int i = 0; i < cnt; i++) {

if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;

if (OrderSymbol() != Symbol()) continue;

if (OrderMagicNumber() != Magic) continue;

 

int type = OrderType();

if (type != OP_BUYSTOP && type != OP_SELLSTOP) continue;

 

int LastTime = StrToInteger(OrderComment());

if (LastTime > tm0) {

ticket = OrderTicket();

tm0 = OrderOpenTime();

}

}

 

return (ticket);

}

 

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

int SleepOk = 2000;

int SleepErr = 6000;

 

//Service functions

int SetBuyStop(string symbol, double lot, double price, int slip, double sl, double tp, int magic, string comment="", datetime exp = 0)

{

int dig = MarketInfo(symbol, MODE_DIGITS);

 

price = NormalizeDouble(price, dig);

sl = NormalizeDouble(sl, dig);

tp = NormalizeDouble(tp, dig);

 

string _lot = DoubleToStr(lot, 1);

string _price = DoubleToStr(price, dig);

string _sl = DoubleToStr(sl, dig);

string _tp = DoubleToStr(tp, dig);

 

Print("SetBuyStop \"", symbol, "\", ", _lot, ", ", _price, ", ", slip, ", ", _sl, ", ", _tp, ", ", magic, ", \"", comment, "\"");

 

int res = OrderSend(symbol, OP_BUYSTOP, lot, price, slip, sl, tp, comment, magic, exp);

if (res >= 0) {

Sleep(SleepOk);

return (res);

}

 

int code = GetLastError();

Print("Error setting BUYSTOP order: ", ErrorDescription(code), " (", code, ")");

Sleep(SleepErr);

 

return (-1);

}

 

int SetSellStop(string symbol, double lot, double price, int slip, double sl, double tp, int magic, string comment="", datetime exp = 0)

{

int dig = MarketInfo(symbol, MODE_DIGITS);

 

price = NormalizeDouble(price, dig);

sl = NormalizeDouble(sl, dig);

tp = NormalizeDouble(tp, dig);

 

string _lot = DoubleToStr(lot, 1);

string _price = DoubleToStr(price, dig);

string _sl = DoubleToStr(sl, dig);

string _tp = DoubleToStr(tp, dig);

 

Print("SetSellStop \"", symbol, "\", ", _lot, ", ", _price, ", ", slip, ", ", _sl, ", ", _tp, ", ", magic, ", \"", comment, "\"");

 

int res = OrderSend(symbol, OP_SELLSTOP, lot, price, slip, sl, tp, comment, magic, exp);

if (res >= 0) {

Sleep(SleepOk);

return (res);

}

 

int code = GetLastError();

Print("Error setting SELLSTOP order: ", ErrorDescription(code), " (", code, ")");

Sleep(SleepErr);

 

return (-1);

}

 

bool DeleteOrder(int ticket)

{

bool res = OrderDelete(ticket);

if (res) {

Sleep(SleepOk);

return (res);

}

 

int code = GetLastError();

Print("DeleteOrder failed: ", ErrorDescription(code), " (", code, ")");

Sleep(SleepErr);

 

return (false);

}

 

from 14decembre 2011 to Today

it grow from 500$to 16184$ with setting:0.8lot!!!

on backtest it work but doesn't work on demo

help please

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing


About us

Indo-Investasi.com, is since 2008, one of the prime online destinations for information and discussion about forex trading, and online investments.

Share your experiences, find tools and learning materials, seek help, and make friends. More About us.

Indo-Investasi Community

Important Pages

Financial Disclaimer: Trading FOREX on margin carries a high level of risk, and may not be suitable for everyone. Past performance is not a guarantee of future results. The high degree of leverage can work against you as well as for you. Before deciding to invest in foreign exchange you should carefully consider your investment objectives, level of experience, and risk appetite. The possibility exists that you could sustain a loss of some or all of your initial investment and therefore you should not invest money that you cannot afford to lose. Please see our Terms & Conditions for more information.
×
×
  • Create New...