Topics
14 May 2014, 03:25
3251
2
11 Feb 2014, 17:32
7492
6
26 Nov 2013, 19:19
8015
7
07 Nov 2013, 00:29
21521
29
Replies
epps11
12 Mar 2014, 22:37
RE: RE: A second one
It has to be recompiled for MT4 600 and then recompiled to Calgo
nirin said:
Hi epps11,
It seems to have a lot of errors when running it.
Thanks
epps11 said:
I'm not sure if I posted this or not.
#property copyright "Copyright © 2011-2012, Jizz" #property link "" /*Martingale : You can set a closed martingale : martingale=true, maxtrades=1, basketpercent or basketpips=true. Or an open martingale : martingale=true, tradesperbar=100, basketpercent or basketpips=true, addpositions=true. Scalping : You can use timeout and target, time filter, set maxtrades=1, changedirection=true to optimize the scalping.*/ //+----------------------------------------------------------------------------+ //| External inputs | //+----------------------------------------------------------------------------+ //--- Add "extern " before each parameter to get them in the inputs tab string comment="EA"; // comment to display in the order extern int magic=1234; // magic number required if you use different settings on a same pair, same timeframe bool useprint=false; // use print bool emailalert=false; // use email alert bool onlybuy=false; // only enter buy orders bool onlysell=false; // only enter sell orders extern string moneymanagement="Money Management"; extern double lots=0.1; // lots size extern bool mm=false; // enable risk management extern double risk=1; // risk in percentage of the account extern double minlot=0.01; // minimum lots size extern double maxlot=100; // maximum lots size extern int lotdigits=2; // lot digits, 1=0.1, 2=0.01 bool martingale=false; // enable the martingale, set maxtrades to 1 int martingalemode=0; // 0=don't use percentrecovering, 1=use percentrecovering double multiplier=2.0; // multiplier used for the martingale double percentrecovering=50.0; // percentage of the last losses to recover bool addpositions=false; // add positions, set tradesperbar to 100 int addposmode=0; // 0=counter, 1=follow double pipstep=20; // multiplier used for the martingale double pipstepfactor=1.0; // multiply the pipstep by the number of buy/sell orders string profitmanagement="Profit Management"; bool basketpercent=false; // enable the basket percent double profit=0.1; // close all orders if a profit of 10 percents has been reached double loss=100; // close all orders if a loss of 30 percents has been reached bool basketpips=false; // enable the basket pips double profitpips=10; // close all orders if a profit of 10 percents has been reached double losspips=10000; // close all orders if a loss of 30 percents has been reached bool basketdollars=false; // enable basket dollars double dollars=5; // target in dollars extern string ordersmanagement="Order Management"; extern bool ecn=true; // make the expert compatible with ecn brokers extern bool instantorders=true; // instant orders extern bool stoporders=false; // stoporders extern bool limitorders=false; // limit orders extern bool onecancelother=false; // cancel opposite pending orders when one is triggered extern int gap=20; // gap for pending orders extern bool oppositedelete=true; // delete the pending orders on an opposite signal extern bool oppositeclose=true; // close the orders on an opposite signal int oppositecloseminloss=0; // min loss to consider to enable opposite close bool partialexit=false; // partial exit at opposite close bool partialclose=false; // partial close at takeprofit2 extern bool reversesignals=false; // reverse the signals, long if short, short if long extern int maxtrades=100; // maximum trades allowed by the traders extern int tradesperbar=1; // maximum trades per bar allowed by the expert extern bool hidesl=false; // hide stop loss extern bool hidetp=false; // hide take profit extern double stoploss=6; // stop loss extern double takeprofit=0; // take profit double takeprofit2=5; // takeprofit 2 for the rest of the trade, takeprofit2 has to be smaller than takeprofit double tp2percentage=0.25; double takeprofit3=20; double tp3percentage=0.5; extern double trailingstart=6; // profit in pips required to enable the trailing stop extern double trailingstop=6; // trailing stop double trailingprofit=0; // trailing profit extern double trailingstep=1; // margin allowed to the market to enable the trailing stop extern double breakevengain=0; // gain in pips required to enable the break even extern double breakeven=0; // break even extern int expiration=1440; // expiration in minutes for pending orders double slippage=0; // maximum difference in pips between signal and order extern double maxspread=0; // maximum spread allowed by the expert, 0=disabled extern string adordersmanagement="Advanced Order Management"; bool changedirection=false; // only buy after a sell order, sell after a buy order bool onesideatatime=false; // enter only long or short when a long or short is already opened extern bool enteronopenbar=false; // enter only on open bar bool eoobexceptaddpos=true; // we don't consider added pos for enteronopenbar option extern bool onetimecalculation=false; // calculate entry logics one time per bar extern double stop=0; // stoptake=stoploss and takeprofit extern double trailing=0; // trailing=trailingstart and trailingstop bool reverseatstop=false; // we reverse the order when the stoploss has been reached bool rasoppositeclose=true; // close reversed order on opposite signal int rasstoploss=0; // reversed order stop loss int rastakeprofit=0; // reversed order take profit bool sleepafterxlosses=false; // ea sleeps after x consecutive losses int xlosses=4; // x consecutive losses int sleepminutes=60; // sleep minutes double slfactor=0; // enable dynamic stoploss if different of 0 int slmargin=0; // margin to add to the stoploss double tpfactor=0; // enable dynamic takeprofit if different of 0 int stoplevel=15; // minimum value for dynamic variables bool atrdynamics=false; // dynamic stops based on atr int atrtimeframe=60; // timeframe for the atr int atrperiod=14; // atr period double tstfactor=0; // enable dynamic trailing start if different of 0 double tsfactor=0; // enable dynamic trailing stop if different of 0 double begfactor=0; // enable dynamic breakevengain if different of 0 double befactor=0; // enable dynamic breakeven if different of 0 double psfactor=0; // enable dynamic pipstep if different of 0 double gfactor=0; // enable dynamic gap if different of 0 bool highlowdynamics=false; // dynamic stops based on highest/lowest int hltimeframe=0; // high low timeframe int candles=7; // highest/lowest on the last x candles bool sdldynamics=false; // dynamic stops based on slope direction line int sdltimeframe=0; // timeframe of the sdl int sdlperiod=15; // period of the sdl int method=3; // method of the sdl int price=0; // price of the sdl extern string entrylogics="Entry Logics"; extern double brokermode=0; // 0=we consider only 3/4 digits of price, 1=we consider all digits extern double distance=1; // minimum distance in pips between price and previous price to consider a movement extern bool long=true; // trade long orders extern int movements1=4; // movements to consider for long orders extern double seconds1=3; // seconds to consider for long orders extern bool short=true; // trade short orders extern int movements2=4; // movements to consider for short orders extern double seconds2=3; // seconds to consider for short orders int shift=1; // bar in the past to take in consideration for the signal string timefilter="Time Filter"; bool usetimefilter=false; int summergmtshift=2; // gmt offset of the broker int wintergmtshift=1; // gmt offset of the broker bool mondayfilter=false; // enable special time filter on friday int mondayhour=12; // start to trade after this hour int mondayminute=0; // minutes of the friday hour bool weekfilter=false; // enable time filter int starthour=7; // start hour to trade after this hour int startminute=0; // minutes of the start hour int endhour=21; // stop to trade after this hour int endminute=0; // minutes of the start hour bool tradesunday=true; // trade on sunday bool fridayfilter=false; // enable special time filter on friday int fridayhour=12; // stop to trade after this hour int fridayminute=0; // minutes of the friday hour bool newsfilter=false; // news filter option int minutesbefore=120; // minutes before the news int newshour=14; // hour of the news int newsminute=30; // minute of the news int minutesafter=120; // minutes after the news string timeout="Time Outs and Targets"; bool usetimeout=false; // time out, we close the order if after timeout minutes we are over target pips int timeout1=30; // time out 1 int target1=7; // target 1 int timeout2=70; // time out 2 int target2=5; // target 2 int timeout3=95; // time out 3 int target3=4; // target 3 int timeout4=120; // time out 4 int target4=2; // target 4 int timeout5=150; // time out 5 int target5=-5; // target 5 int timeout6=180; // time out 6 int target6=-8; // target 6 int timeout7=210; // time out 7 int target7=-15; // target 7 //+----------------------------------------------------------------------------+ //| Internal parameters | //+----------------------------------------------------------------------------+ datetime tstart,tend,tfriday,tmonday,lastbuyopentime,tnews,lastsellopentime,time,time2,time3,time4,time5,time6,time7,lastorderclosetime,longemailtime,shortemailtime; int i,bc=-1,cnt,tpb,tps,tries=100,lastorder,buyorderprofit,sellorderprofit,lotsize,losses,sleep,xmartingalemode=0,mstop; int nstarthour,nnewshour,nendhour,nfridayhour,nmondayhour,number,ticket,gmtshift,tradetime,expire, total,totalbuy,totalsell,totalstopbuy,totalstopsell,totallimitbuy,totallimitsell; string istarthour,inewshour,istartminute,iendhour,iendminute,inewsminute,ifridayhour,ifridayminute,imondayhour,imondayminute; double cb,sl,tp,blots,slots,lastbuylot,lastselllot,lastlot,lastprofit,mlots,win[14],sum[14],totalpips,totalprofit,percentprofit,percentloss; double lastbuyopenprice,lastsellopenprice,lastbuyprofit,lastsellprofit,tradeprofit,buyorderpips,sellorderpips,lossestorecover=0,globallosses; bool closebasket=false; bool continuebuy=true; bool continuesell=true; double pt,pt2,mt,pricedigits; int longmovements,shortmovements,timelong,timeshort; bool settimelong,settimeshort,addstoploss; double previousupprice,previousdownprice; //+----------------------------------------------------------------------------+ //| Initialization (done only when you attach the EA to the chart) | //+----------------------------------------------------------------------------+ int init(){ if(usetimefilter){ sum[2012-1999]=D'2012.03.28 02:00:00';win[2012-1999]=D'2012.10.31 03:00:00'; sum[2011-1999]=D'2011.03.29 02:00:00';win[2011-1999]=D'2011.10.25 03:00:00'; sum[2010-1999]=D'2010.03.30 02:00:00';win[2010-1999]=D'2010.10.26 03:00:00'; sum[2009-1999]=D'2009.03.29 02:00:00';win[2009-1999]=D'2009.10.25 03:00:00'; sum[2008-1999]=D'2008.03.30 02:00:00';win[2008-1999]=D'2008.10.26 03:00:00'; sum[2007-1999]=D'2007.03.25 02:00:00';win[2007-1999]=D'2007.10.28 03:00:00'; sum[2006-1999]=D'2006.03.26 02:00:00';win[2006-1999]=D'2006.10.29 03:00:00'; sum[2005-1999]=D'2005.03.27 02:00:00';win[2005-1999]=D'2005.10.30 03:00:00'; sum[2004-1999]=D'2004.03.28 02:00:00';win[2004-1999]=D'2004.10.31 03:00:00'; sum[2003-1999]=D'2003.03.30 02:00:00';win[2003-1999]=D'2003.10.26 03:00:00'; sum[2002-1999]=D'2002.03.31 02:00:00';win[2002-1999]=D'2002.10.27 03:00:00'; sum[2001-1999]=D'2001.03.25 02:00:00';win[2001-1999]=D'2001.10.28 03:00:00'; sum[2000-1999]=D'2000.03.26 02:00:00';win[2000-1999]=D'2000.10.29 03:00:00'; sum[1999-1999]=D'1999.03.28 02:00:00';win[1999-1999]=D'1999.10.31 03:00:00'; } if(basketpercent){ percentprofit=AccountBalance()*profit*0.01; percentloss=-1*AccountBalance()*loss*0.01; } if(Digits==3 || Digits==5){ pt=Point*10; mt=10; if(brokermode==0){pricedigits=Digits-1;pt2=pt;} if(brokermode==1){pricedigits=Digits;pt2=Point;} }else{ pt=Point; mt=1; if(brokermode==0 || brokermode==1){pricedigits=Digits;pt2=pt;} } if(stop>0){ stoploss=stop; takeprofit=stop; } if(mm){ if(minlot>=1){lotsize=100000;} if(minlot<1){lotsize=10000;} if(minlot<0.1){lotsize=1000;} } return(0); } //+----------------------------------------------------------------------------+ //| Start (called after each tick) | //+----------------------------------------------------------------------------+ int start(){ //+----------------------------------------------------------------------------+ //| One time | //+----------------------------------------------------------------------------+ bool onetime=true; if(onetimecalculation)if(time==Time[0])onetime=false; //+----------------------------------------------------------------------------+ //| Counters | //+----------------------------------------------------------------------------+ //if(closebasket || addpositions || onesideatatime || onecancelother || maxtrades<100 || martingale){ totalbuy=count(OP_BUY); totalsell=count(OP_SELL); total=totalbuy+totalsell; if(closebasket){ totalstopbuy=count(OP_BUYSTOP); totalstopsell=count(OP_SELLSTOP); totallimitbuy=count(OP_BUYLIMIT); totallimitsell=count(OP_SELLLIMIT); } //} //+----------------------------------------------------------------------------+ //| Basket close | //+----------------------------------------------------------------------------+ if(closebasket)if(total+totalstopbuy+totalstopsell+totallimitbuy+totallimitsell>0){ close(3); delete(6); } if(closebasket)if(total+totalstopbuy+totalstopsell+totallimitbuy+totallimitsell==0)closebasket=false; if(closebasket)return(0); //+----------------------------------------------------------------------------+ //| Visualize the equity curve with the indicator vGrafBalance&Equity.mq4 | //+----------------------------------------------------------------------------+ /* GlobalVariableSet("vGrafBalance",AccountBalance()); GlobalVariableSet("vGrafEquity",AccountEquity()); */ //+----------------------------------------------------------------------------+ //| Break even, trailing, trailingstop and trailing profit | //+----------------------------------------------------------------------------+ if(breakevengain>0 && onetime)movebreakeven(breakevengain,breakeven); if(trailingstop>0 && onetime)movetrailingstop(trailingstart,trailingstop); if(trailing>0 && onetime)movetrailingstop(trailing,trailing); if(trailingprofit>0 && onetime)movetrailingprofit(trailingstart,trailingprofit); //+----------------------------------------------------------------------------+ //| Last open time, price and profits | //+----------------------------------------------------------------------------+ if(basketpercent || basketdollars || xmartingalemode==1){ buyorderprofit=0; sellorderprofit=0; } if(basketpips){ buyorderpips=0; sellorderpips=0; } lastbuyopenprice=0;lastsellopenprice=0; if(OrdersTotal()>0){ for(i=0;i<=OrdersTotal();i++){ OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderCloseTime()==0){ if(OrderType()==OP_BUY){ lastbuyopentime=OrderOpenTime(); if(addpositions)lastbuyopenprice=OrderOpenPrice(); if(basketpercent || basketdollars || xmartingalemode==1)buyorderprofit=buyorderprofit+OrderProfit(); if(basketpips)buyorderpips=buyorderpips+(OrderClosePrice()-OrderOpenPrice())/pt-MarketInfo(Symbol(),MODE_SPREAD); } if(OrderType()==OP_SELL){ lastsellopentime=OrderOpenTime(); if(addpositions)lastsellopenprice=OrderOpenPrice(); if(basketpercent || basketdollars || xmartingalemode==1)sellorderprofit=sellorderprofit+OrderProfit(); if(basketpips)sellorderpips=sellorderpips+(OrderOpenPrice()-OrderClosePrice())/pt-MarketInfo(Symbol(),MODE_SPREAD); } } } } if(basketpercent || basketdollars || xmartingalemode==1)totalprofit=buyorderprofit+sellorderprofit; if(basketpips)totalpips=buyorderpips+sellorderpips; //+----------------------------------------------------------------------------+ //| Baskets | //+----------------------------------------------------------------------------+ if(basketpercent)if((mm && totalprofit>=(AccountBalance()*profit*0.01)) || (mm==false && totalprofit>=percentprofit) || (mm && totalprofit<=(-1*AccountBalance()*loss*0.01))|| (mm==false && totalprofit<=percentloss)){ closebasket=true; } if(basketpips)if((totalpips>=profitpips) || (totalpips<=(-1*losspips))){ closebasket=true; } if(basketdollars)if(totalprofit>=dollars){ closebasket=true; } if(closebasket)return(0); //+----------------------------------------------------------------------------+ //| Sleep | //+----------------------------------------------------------------------------+ bool nosleep=true; if(sleepafterxlosses && OrdersHistoryTotal()>0){ losses=0;sleep=0; for(i=OrdersHistoryTotal()-1;i>=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_HISTORY); if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){ if(OrderProfit()>=0)sleep=1; if(OrderProfit()<0 && sleep==0){losses++;} } } for(i=0;i=xlosses)lastorderclosetime=OrderCloseTime(); } } if(TimeCurrent()-lastorderclosetime iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+1) && iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+1)< iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+2))sdlbar1=i; } int sdlbar2=0; for(i=0;i<=100;i++){ if(sdlbar2!=0)continue; if(iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i)< iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+1) && iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+1)> iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+2))sdlbar2=i; } } if(total==0){ if(previousupprice<=NormalizeDouble(Ask,pricedigits)-distance*pt2){ longmovements=longmovements+1; previousupprice=NormalizeDouble(Ask,pricedigits); if(settimelong==false){ timelong=TimeCurrent(); settimelong=true; } } else{ previousupprice=0; longmovements=0; settimelong=false; timelong=0; } if(previousdownprice>=NormalizeDouble(Ask,pricedigits)+distance*pt2){ shortmovements=shortmovements+1; previousdownprice=NormalizeDouble(Ask,pricedigits); if(settimeshort==false){ timeshort=TimeCurrent(); settimeshort=true; } } else{ previousdownprice=0; shortmovements=0; settimeshort=false; timeshort=0; } if(previousupprice==0){ previousupprice=NormalizeDouble(Ask,pricedigits); } if(previousdownprice==0){ previousdownprice=NormalizeDouble(Ask,pricedigits); } } int signal=0; if(long && longmovements==movements1 || shortmovements==movements2 && longmovements>=shortmovements && TimeCurrent()-timelong<=seconds1)signal=1; if(short && longmovements==movements1 || shortmovements==movements2 && longmovements0 && ma!=EMPTY_VALUE)signal=1; } //Comment("\nhau = "+DoubleToStr(hau,5),"\nhad = "+DoubleToStr(had,5)); //+----------------------------------------------------------------------------+ //| Time filter | //+----------------------------------------------------------------------------+ bool tradetime=true; if(usetimefilter)if(checktime())tradetime=false; //+----------------------------------------------------------------------------+ //| Signals | //+----------------------------------------------------------------------------+ bool buy=false; bool sell=false; bool barstatus=true; if(enteronopenbar)if(iVolume(NULL,0,0)>1)barstatus=false; bool buyaddstatus=true;bool selladdstatus=true; if(addpositions){ if(totalbuy>0)buyaddstatus=false; if(totalsell>0)selladdstatus=false; if(totalbuy>0){if((addposmode==0 && Ask<=lastbuyopenprice-pipstep*pt*MathPow(pipstepfactor,totalbuy)) || (addposmode==1 && Ask>=lastbuyopenprice+pipstep*pt*MathPow(pipstepfactor,totalbuy)) && (eoobexceptaddpos || (eoobexceptaddpos==false && barstatus)))buy=true;} if(totalsell>0){if((addposmode==0 && Bid>=lastsellopenprice+pipstep*pt*MathPow(pipstepfactor,totalsell)) || (addposmode==1 && Bid<=lastsellopenprice-pipstep*pt*MathPow(pipstepfactor,totalsell)) && (eoobexceptaddpos || (eoobexceptaddpos==false && barstatus)))sell=true;} } bool buyside=true;bool sellside=true; if(onesideatatime){if(totalsell>0)buyside=false;if(totalbuy>0)sellside=false;} if(signal==1 && buyaddstatus && barstatus && buyside && continuebuy && tradetime && nosleep){ if(reversesignals)sell=true;else buy=true; if(changedirection){continuebuy=false;continuesell=true;} } if(signal==2 && selladdstatus && barstatus && sellside && continuesell && tradetime && nosleep){ if(reversesignals)buy=true;else sell=true; if(changedirection){continuebuy=true;continuesell=false;} } //+----------------------------------------------------------------------------+ //| Close and delete | //+----------------------------------------------------------------------------+ if(sell)if(oppositeclose)if(partialexit)partialclose(OP_BUY,2);else close(OP_BUY); if(buy)if(oppositeclose)if(partialexit)partialclose(OP_SELL,2);else close(OP_SELL); if(hidetp || hidesl){hideclose(OP_BUY);hideclose(OP_SELL);} if(usetimeout && onetime){closetime(OP_BUY);closetime(OP_SELL);} if(onecancelother){if(totalsell>0){delete(OP_BUYSTOP);delete(OP_BUYLIMIT);}if(totalbuy>0){delete(OP_SELLSTOP);delete(OP_SELLLIMIT);}} if(partialclose){partialclose(OP_BUY,1);partialclose(OP_SELL,1);} if(partialclose){partialclose2(OP_BUY,1);partialclose2(OP_SELL,1);} if(xmartingalemode==1 && totalprofit>=-1*lossestorecover){close(OP_BUY);close(OP_SELL);} //+----------------------------------------------------------------------------+ //| Closed martingale | //+----------------------------------------------------------------------------+ xmartingalemode=0; if(martingale && !addpositions){ globallosses=0; lossestorecover=0; /*lastbuylot=0; lastselllot=0; lastorder=0;*/ if(OrdersHistoryTotal()>0){ for(i=0;i<=OrdersHistoryTotal();i++){ OrderSelect(i,SELECT_BY_POS,MODE_HISTORY); if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){ lastprofit=OrderProfit(); lastlot=OrderLots(); /*if(OrderType()==OP_BUY){ lastbuyprofit=OrderProfit(); lastbuylot=OrderLots(); lastorder=1; } if(OrderType()==OP_SELL){ lastsellprofit=OrderProfit(); lastselllot=OrderLots(); lastorder=2; }*/ } } } mlots=0; if(lastprofit<0){ mstop=0; if(OrdersHistoryTotal()>0){ for(i=OrdersHistoryTotal();i>=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_HISTORY); if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){ if(OrderProfit()>0)mstop=1; if(mstop==0)globallosses=globallosses+OrderProfit(); } } } mlots=lastlot*multiplier; if(martingalemode==1)xmartingalemode=1; lossestorecover=NormalizeDouble(globallosses*0.01*percentrecovering,2); } else mlots=lots; } //+----------------------------------------------------------------------------+ //| Max spread, max trades | //+----------------------------------------------------------------------------+ if(maxspread!=0)if((Ask-Bid)>maxspread*mt*pt)return(0); if(maxtrades<100)if((total)>=maxtrades)return(0); if(mm)if(martingale==false || (martingale && !addpositions && lastprofit>=0) || (martingale && addpositions))lots=lotsoptimized(); blots=lots;slots=lots; if(martingale){ if(addpositions){blots=lots*MathPow(multiplier,totalbuy);slots=lots*MathPow(multiplier,totalsell);} else {blots=mlots;slots=mlots;} } //+----------------------------------------------------------------------------+ //| Instant and pending orders | //+----------------------------------------------------------------------------+ if(buy && tpb0)expire=TimeCurrent()+(expiration*60)-5; if(!ecn){ if(instantorders && xmartingalemode==0){ while(ticket<=0 && number0)expire=TimeCurrent()+(expiration*60)-5; if(!ecn){ if(instantorders && xmartingalemode==0){ while(ticket<=0 && numbermaxlot)lots=maxlot; if(type==OP_BUY || type==OP_BUYSTOP || type==OP_BUYLIMIT){ if(hidesl==false && stoploss>0){sl=price-stoploss*pt;}else{sl=0;} if(hidetp==false && takeprofit>0){tp=price+takeprofit*pt;}else{tp=0;} } if(type==OP_SELL || type==OP_SELLSTOP || type==OP_SELLLIMIT){ if(hidesl==false && stoploss>0){sl=price+stoploss*pt;}else{sl=0;} if(hidetp==false && takeprofit>0){tp=price-takeprofit*pt;}else{tp=0;} } ticket=OrderSend(Symbol(),type,NormalizeDouble(lots,lotdigits),NormalizeDouble(price,Digits),slippage*mt,sl,tp, comment+" "+DoubleToStr(magic,0),magic,expire,clr); return(ticket); } //+----------------------------------------------------------------------------+ //| Lots optimized functions | //+----------------------------------------------------------------------------+ double lotsoptimized(){ double lot; if(stoploss>0)lot=AccountBalance()*(risk/100)/(stoploss*pt/MarketInfo(Symbol(),MODE_TICKSIZE)*MarketInfo(Symbol(),MODE_TICKVALUE)); else lot=NormalizeDouble((AccountBalance()/lotsize)*minlot*risk,lotdigits); //lot=AccountFreeMargin()/(100.0*(NormalizeDouble(MarketInfo(Symbol(),MODE_MARGINREQUIRED),4)+5.0)/risk)-0.05; return(lot); } //+----------------------------------------------------------------------------+ //| Time filter functions | //+----------------------------------------------------------------------------+ bool checktime(){ if(TimeCurrent()sum[TimeYear(TimeCurrent())-1999])gmtshift=summergmtshift; else gmtshift=wintergmtshift; string svrdate=Year()+"."+Month()+"."+Day(); if(mondayfilter){ nmondayhour=mondayhour+(gmtshift);if(nmondayhour>23)nmondayhour=nmondayhour-24; if(nmondayhour<10)imondayhour="0"+nmondayhour; if(nmondayhour>9)imondayhour=nmondayhour; if(mondayminute<10)imondayminute="0"+mondayminute; if(mondayminute>9)imondayminute=mondayminute; tmonday=StrToTime(svrdate+" "+imondayhour+":"+imondayminute); } if(weekfilter){ nstarthour=starthour+(gmtshift);if(nstarthour>23)nstarthour=nstarthour-24; if(nstarthour<10)istarthour="0"+nstarthour; if(nstarthour>9)istarthour=nstarthour; if(startminute<10)istartminute="0"+startminute; if(startminute>9)istartminute=startminute; tstart=StrToTime(svrdate+" "+istarthour+":"+istartminute); nendhour=endhour+(gmtshift);if(nendhour>23)nendhour=nendhour-24; if(nendhour<10)iendhour="0"+nendhour; if(nendhour>9)iendhour=nendhour; if(endminute<10)iendminute="0"+endminute; if(endminute>9)iendminute=endminute; tend=StrToTime(svrdate+" "+iendhour+":"+iendminute); } if(fridayfilter){ nfridayhour=fridayhour+(gmtshift);if(nfridayhour>23)nfridayhour=nfridayhour-24; if(nfridayhour<10)ifridayhour="0"+nfridayhour; if(nfridayhour>9)ifridayhour=nfridayhour; if(fridayminute<10)ifridayminute="0"+fridayminute; if(fridayminute>9)ifridayminute=fridayminute; tfriday=StrToTime(svrdate+" "+ifridayhour+":"+ifridayminute); } if(newsfilter){ nnewshour=newshour+(gmtshift);if(nnewshour>23)nnewshour=nnewshour-24; if(nnewshour<10)inewshour="0"+nnewshour; if(nnewshour>9)inewshour=nnewshour; if(newsminute<10)inewsminute="0"+newsminute; if(newsminute>9)inewsminute=newsminute; tnews=StrToTime(svrdate+" "+inewshour+":"+inewsminute); } if(weekfilter)if((nstarthour<=nendhour && TimeCurrent()tend) || (nstarthour>nendhour && TimeCurrent()tend))return(true); if(tradesunday==false)if(DayOfWeek()==0)return(true); if(fridayfilter)if(DayOfWeek()==5 && TimeCurrent()>tfriday)return(true); if(mondayfilter)if(DayOfWeek()==1 && TimeCurrent()tnews-minutesbefore*60 && TimeCurrent()0){ for(i=OrdersTotal();i>=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if(OrderSymbol()==Symbol() && OrderType()==type && OrderMagicNumber()==magic)cnt++; } return(cnt); } } //+----------------------------------------------------------------------------+ //| Close functions | //+----------------------------------------------------------------------------+ void close(int type){ if(OrdersTotal()>0){ for(i=OrdersTotal()-1;i>=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if(type==OP_BUY && OrderType()==OP_BUY){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && (oppositecloseminloss==0 || (oppositecloseminloss>0 && (OrderProfit()/(OrderLots()*10))<-1*oppositecloseminloss))){ RefreshRates(); OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),slippage*mt); } } if(type==OP_SELL && OrderType()==OP_SELL){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && (oppositecloseminloss==0 || (oppositecloseminloss>0 && (OrderProfit()/(OrderLots()*10))<-1*oppositecloseminloss))){ RefreshRates(); OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),slippage*mt); } } if(type==3){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_BUY){ RefreshRates(); OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),slippage*mt); } if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_SELL){ RefreshRates(); OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),slippage*mt); } } } } } void partialclose(int type,int mode){ if(OrdersTotal()>0){ for(i=OrdersTotal()-1;i>=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if(type==OP_BUY && OrderType()==OP_BUY){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderLots()>=lots && (mode==1 && OrderProfit()>=takeprofit2*OrderLots()*10) || mode==2){ RefreshRates(); OrderClose(OrderTicket(),OrderLots()*0.5,NormalizeDouble(Bid,Digits),slippage*mt); } } if(type==OP_SELL && OrderType()==OP_SELL){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderLots()>=lots && (mode==1 && OrderProfit()>=takeprofit2*OrderLots()*10) || mode==2){ RefreshRates(); OrderClose(OrderTicket(),OrderLots()*0.5,NormalizeDouble(Ask,Digits),slippage*mt); } } if(type==3){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_BUY && OrderLots()>=lots && (mode==1 && OrderProfit()>=takeprofit2*OrderLots()*10) || mode==2){ RefreshRates(); OrderClose(OrderTicket(),OrderLots()*0.5,NormalizeDouble(Bid,Digits),slippage*mt); } if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_SELL && OrderLots()>=lots && (mode==1 && OrderProfit()>=takeprofit2*OrderLots()*10) || mode==2){ RefreshRates(); OrderClose(OrderTicket(),OrderLots()*0.5,NormalizeDouble(Ask,Digits),slippage*mt); } } } } } void partialclose2(int type,int mode){ if(OrdersTotal()>0){ for(i=OrdersTotal()-1;i>=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if(type==OP_BUY && OrderType()==OP_BUY){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderLots()=takeprofit3*OrderLots()*10) || mode==2){ RefreshRates(); OrderClose(OrderTicket(),NormalizeDouble(OrderLots()*tp3percentage,lotdigits),NormalizeDouble(Bid,Digits),slippage*mt); } } if(type==OP_SELL && OrderType()==OP_SELL){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderLots()=takeprofit3*OrderLots()*10) || mode==2){ RefreshRates(); OrderClose(OrderTicket(),NormalizeDouble(OrderLots()*tp3percentage,lotdigits),NormalizeDouble(Ask,Digits),slippage*mt); } } if(type==3){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_BUY && OrderLots()=takeprofit3*OrderLots()*10) || mode==2){ RefreshRates(); OrderClose(OrderTicket(),NormalizeDouble(OrderLots()*tp3percentage,lotdigits),NormalizeDouble(Bid,Digits),slippage*mt); } if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_SELL && OrderLots()=takeprofit3*OrderLots()*10) || mode==2){ RefreshRates(); OrderClose(OrderTicket(),NormalizeDouble(OrderLots()*tp3percentage,lotdigits),NormalizeDouble(Ask,Digits),slippage*mt); } } } } } void hideclose(int type){ if(OrdersTotal()>0){ for(i=OrdersTotal()-1;i>=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if(type==OP_BUY && OrderType()==OP_BUY){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && (hidesl && stoploss>0 && NormalizeDouble(OrderClosePrice()-OrderOpenPrice(),Digits)<=(-1)*stoploss*pt-MarketInfo(Symbol(),MODE_SPREAD)*pt) || (hidetp && takeprofit>0 && NormalizeDouble(OrderClosePrice()-OrderOpenPrice(),Digits)>=takeprofit*pt)){ RefreshRates(); OrderClose(OrderTicket(),OrderLots(),Bid,slippage*mt); } } if(type==OP_SELL && OrderType()==OP_SELL){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && (hidesl && stoploss>0 && NormalizeDouble(OrderOpenPrice()-OrderClosePrice(),Digits)<=(-1)*stoploss*pt-MarketInfo(Symbol(),MODE_SPREAD)*pt) || (hidetp && takeprofit>0 && NormalizeDouble(OrderOpenPrice()-OrderClosePrice(),Digits)>=takeprofit*pt)){ RefreshRates(); OrderClose(OrderTicket(),OrderLots(),Ask,slippage*mt); } } } } } void closetime(int type){ tradeprofit=0; tradetime=0; if(OrdersTotal()>0){ for(i=OrdersTotal();i>=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if(type==OP_BUY && OrderType()==OP_BUY){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){ tradeprofit=NormalizeDouble(OrderClosePrice()-OrderOpenPrice(),Digits); tradetime=TimeCurrent()-OrderOpenTime(); if((tradeprofit>=target1*pt && tradetime>timeout1*60 && tradetime=target2*pt && tradetime>timeout2*60 && tradetime=target3*pt && tradetime>timeout3*60 && tradetime=target4*pt && tradetime>timeout4*60 && tradetime=target5*pt && tradetime>timeout5*60 && tradetime=target6*pt && tradetime>timeout6*60 && tradetime=target7*pt && tradetime>timeout7*60)){ RefreshRates(); OrderClose(OrderTicket(),OrderLots(),Bid,slippage*mt); } } } if(type==OP_SELL && OrderType()==OP_SELL){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){ tradeprofit=NormalizeDouble(OrderClosePrice()-OrderOpenPrice(),Digits); tradetime=TimeCurrent()-OrderOpenTime(); if((tradeprofit>=target1*pt && tradetime>timeout1*60 && tradetime=target2*pt && tradetime>timeout2*60 && tradetime=target3*pt && tradetime>timeout3*60 && tradetime=target4*pt && tradetime>timeout4*60 && tradetime=target5*pt && tradetime>timeout5*60 && tradetime=target6*pt && tradetime>timeout6*60 && tradetime=target7*pt && tradetime>timeout7*60)){ RefreshRates(); OrderClose(OrderTicket(),OrderLots(),Ask,slippage*mt); } } } } } } void delete(int type){ if(OrdersTotal()>0){ for(i=OrdersTotal();i>=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if(type!=6){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==type){ OrderDelete(OrderTicket()); } } if(type==6){ if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_BUYSTOP || OrderType()==OP_SELLSTOP || OrderType()==OP_BUYLIMIT || OrderType()==OP_SELLLIMIT){ OrderDelete(OrderTicket()); } } } } } //+----------------------------------------------------------------------------+ //| Modifications functions | //+----------------------------------------------------------------------------+ void movebreakeven(double breakevengain,double breakeven){ RefreshRates(); if(OrdersTotal()>0){ for(i=OrdersTotal();i>=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if(OrderType()<=OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber()==magic){ if(OrderType()==OP_BUY){ if(NormalizeDouble((Bid-OrderOpenPrice()),Digits)>=NormalizeDouble(breakevengain*pt,Digits)){ if((NormalizeDouble((OrderStopLoss()-OrderOpenPrice()),Digits)=NormalizeDouble(breakevengain*pt,Digits)){ if((NormalizeDouble((OrderOpenPrice()-OrderStopLoss()),Digits)0){ for(i=OrdersTotal();i>=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if(OrderType()<=OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber()==magic){ if(OrderType()==OP_BUY){ if(NormalizeDouble(Ask,Digits)>NormalizeDouble(OrderOpenPrice()+trailingstart*pt,Digits) && NormalizeDouble(OrderStopLoss(),Digits)(NormalizeDouble(Ask+(trailingstop+trailingstep)*pt,Digits))) || (OrderStopLoss()==0)){ OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+trailingstop*pt,Digits),OrderTakeProfit(),0,Red); return(0); } } } } } } void movetrailingprofit(double trailingstart,double trailingprofit){ RefreshRates(); for(i=OrdersTotal();i>=0;i--){ if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){ if(OrderSymbol()==Symbol()&& OrderMagicNumber()==magic){ if(OrderType()==OP_BUY){ if(NormalizeDouble(Bid-OrderOpenPrice(),Digits)<=NormalizeDouble((-1)*trailingstart*pt,Digits)){ if(NormalizeDouble(OrderTakeProfit(),Digits)>NormalizeDouble(Bid+(trailingprofit+trailingstep)*pt,Digits) || NormalizeDouble(OrderTakeProfit(),Digits)==0){ OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(Bid+trailingprofit*pt,Digits),0,Blue); } } } if(OrderType()==OP_SELL){ if(NormalizeDouble(OrderOpenPrice()-Ask,Digits)<=NormalizeDouble((-1)*trailingstart*pt,Digits)){ if(NormalizeDouble(OrderTakeProfit(),Digits)=0;i--){ OrderSelect(i,SELECT_BY_POS,MODE_TRADES); if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){ if(OrderType()==OP_BUY){ if(OrderStopLoss()==0 && stoploss>0 && takeprofit==0){ RefreshRates(); OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask-stoploss*pt,Digits),OrderTakeProfit(),0,Red); } if(OrderTakeProfit()==0 && stoploss==0 && takeprofit>0){ RefreshRates(); OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(Ask+takeprofit*pt,Digits),0,Red); } if(OrderTakeProfit()==0 && OrderStopLoss()==0 && stoploss>0 && takeprofit>0){ RefreshRates(); OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask-stoploss*pt,Digits),NormalizeDouble(Ask+takeprofit*pt,Digits),0,Red); } } if(OrderType()==OP_SELL){ if(OrderStopLoss()==0 && stoploss>0 && takeprofit==0){ RefreshRates(); OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid+stoploss*pt,Digits),OrderTakeProfit(),0,Red); } if(OrderTakeProfit()==0 && stoploss==0 && takeprofit>0){ RefreshRates(); OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(Bid-takeprofit*pt,Digits),0,Red); } if(OrderTakeProfit()==0 && OrderStopLoss()==0 && stoploss>0 && takeprofit>0){ RefreshRates(); OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid+stoploss*pt,Digits),NormalizeDouble(Bid-takeprofit*pt,Digits),0,Red); } } } } } //+----------------------------------------------------------------------------+ //| Error functions | //+----------------------------------------------------------------------------+ string errordescription(int code){ string error; switch(code){ case 0: case 1:error="no error";break; case 2:error="common error";break; case 3:error="invalid trade parameters";break; case 4:error="trade server is busy";break; case 5:error="old version of the client terminal";break; case 6:error="no connection with trade server";break; case 7:error="not enough rights";break; case 8:error="too frequent requests";break; case 9:error="malfunctional trade operation";break; case 64:error="account disabled";break; case 65:error="invalid account";break; case 128:error="trade timeout";break; case 129:error="invalid price";break; case 130:error="invalid stops";break; case 131:error="invalid trade volume";break; case 132:error="market is closed";break; case 133:error="trade is disabled";break; case 134:error="not enough money";break; case 135:error="price changed";break; case 136:error="off quotes";break; case 137:error="broker is busy";break; case 138:error="requote";break; case 139:error="order is locked";break; case 140:error="long positions only allowed";break; case 141:error="too many requests";break; case 145:error="modification denied because order too close to market";break; case 146:error="trade context is busy";break; case 4000:error="no error";break; case 4001:error="wrong function pointer";break; case 4002:error="array index is out of range";break; case 4003:error="no memory for function call stack";break; case 4004:error="recursive stack overflow";break; case 4005:error="not enough stack for parameter";break; case 4006:error="no memory for parameter string";break; case 4007:error="no memory for temp string";break; case 4008:error="not initialized string";break; case 4009:error="not initialized string in array";break; case 4010:error="no memory for array\' string";break; case 4011:error="too long string";break; case 4012:error="remainder from zero divide";break; case 4013:error="zero divide";break; case 4014:error="unknown command";break; case 4015:error="wrong jump (never generated error)";break; case 4016:error="not initialized array";break; case 4017:error="dll calls are not allowed";break; case 4018:error="cannot load library";break; case 4019:error="cannot call function";break; case 4020:error="expert function calls are not allowed";break; case 4021:error="not enough memory for temp string returned from function";break; case 4022:error="system is busy (never generated error)";break; case 4050:error="invalid function parameters count";break; case 4051:error="invalid function parameter value";break; case 4052:error="string function internal error";break; case 4053:error="some array error";break; case 4054:error="incorrect series array using";break; case 4055:error="custom indicator error";break; case 4056:error="arrays are incompatible";break; case 4057:error="global variables processing error";break; case 4058:error="global variable not found";break; case 4059:error="function is not allowed in testing mode";break; case 4060:error="function is not confirmed";break; case 4061:error="send mail error";break; case 4062:error="string parameter expected";break; case 4063:error="integer parameter expected";break; case 4064:error="double parameter expected";break; case 4065:error="array as parameter expected";break; case 4066:error="requested history data in update state";break; case 4099:error="end of file";break; case 4100:error="some file error";break; case 4101:error="wrong file name";break; case 4102:error="too many opened files";break; case 4103:error="cannot open file";break; case 4104:error="incompatible access to a file";break; case 4105:error="no order selected";break; case 4106:error="unknown symbol";break; case 4107:error="invalid price parameter for trade function";break; case 4108:error="invalid ticket";break; case 4109:error="trade is not allowed";break; case 4110:error="longs are not allowed";break; case 4111:error="shorts are not allowed";break; case 4200:error="object is already exist";break; case 4201:error="unknown object property";break; case 4202:error="object is not exist";break; case 4203:error="unknown object type";break; case 4204:error="no object name";break; case 4205:error="object coordinates error";break; case 4206:error="no specified subwindow";break; default:error="unknown error"; } return(error); } /* iCustom(NULL,0,"StepMA_v7",Length,Kv,StepSize,0,shift); iAC(NULL,0,shift); iAD(NULL,0,shift); iADX(NULL,0,adxperiod,PRICE_CLOSE,MODE_PLUSDI,shift); iAlligator(NULL,0,jawsperiod,teethperiod,lipsperiod,jawsshift,teethshift,lipsshift,MODE_SMMA,PRICE_MEDIAN,MODE_GATORJAW,shift); iAO(NULL,0,shift); iATR(NULL,0,atrperiod,shift); iBands(NULL,0,bbperiod,2,0,PRICE_CLOSE,MODE_LOWER,shift); iBearsPower(NULL,0,13,PRICE_CLOSE,0); iBullsPower(NULL,0,13,PRICE_CLOSE,0); iCCI(NULL,0,cciperiod,PRICE_CLOSE,shift); iClose(NULL,PERIOD_H1,shift); iDeMarker(NULL,0,14,shift); iEnvelopes(NULL,0,13,MODE_SMA,10,PRICE_CLOSE,0.2,MODE_UPPER,shift); iForce(NULL,0,13,MODE_SMA,PRICE_CLOSE,shift); iFractals(NULL,0,MODE_UPPER,3); High[iHighest(NULL,0,MODE_HIGH,candles,1)]; iMA(NULL,0,maperiod,0,MODE_SMA,PRICE_CLOSE,shift); iMACD(NULL,0,macdfast,macdslow,macdsma,PRICE_CLOSE,MODE_MAIN,shift); iMFI(NULL,0,MFIPeriod,shift); iMomentum(NULL,0,momentumperiod,PRICE_CLOSE,shift); iOBV(NULL,0,PRICE_CLOSE,shift); iOsMA(NULL,0,fastema,slowema,macdsma,PRICE_CLOSE,shift); iRSI(NULL,0,rsiperiod,PRICE_CLOSE,shift); iRVI(NULL,0,10,MODE_MAIN,shift); iSAR(NULL,0,step,maximum,shift); iStdDev(NULL,0,10,0,MODE_SMA,PRICE_CLOSE,shift); iStochastic(NULL,0,kperiod,dperiod,slowing,MODE_SMA,0,MODE_MAIN,shift); iStochastic(NULL,0,kperiod,dperiod,slowing,MODE_SMA,0,MODE_SIGNAL,shift); iWPR(NULL,0,WPRPeriod,shift); */
@epps11
epps11
11 Feb 2014, 18:21
A second one
I'm not sure if I posted this or not.
#property copyright "Copyright © 2011-2012, Jizz"
#property link ""
/*Martingale : You can set a closed martingale : martingale=true, maxtrades=1,
basketpercent or basketpips=true. Or an open martingale : martingale=true,
tradesperbar=100, basketpercent or basketpips=true, addpositions=true.
Scalping : You can use timeout and target, time filter, set maxtrades=1,
changedirection=true to optimize the scalping.*/
//+----------------------------------------------------------------------------+
//| External inputs |
//+----------------------------------------------------------------------------+
//--- Add "extern " before each parameter to get them in the inputs tab
string comment="EA"; // comment to display in the order
extern int magic=1234; // magic number required if you use different settings on a same pair, same timeframe
bool useprint=false; // use print
bool emailalert=false; // use email alert
bool onlybuy=false; // only enter buy orders
bool onlysell=false; // only enter sell orders
extern string moneymanagement="Money Management";
extern double lots=0.1; // lots size
extern bool mm=false; // enable risk management
extern double risk=1; // risk in percentage of the account
extern double minlot=0.01; // minimum lots size
extern double maxlot=100; // maximum lots size
extern int lotdigits=2; // lot digits, 1=0.1, 2=0.01
bool martingale=false; // enable the martingale, set maxtrades to 1
int martingalemode=0; // 0=don't use percentrecovering, 1=use percentrecovering
double multiplier=2.0; // multiplier used for the martingale
double percentrecovering=50.0; // percentage of the last losses to recover
bool addpositions=false; // add positions, set tradesperbar to 100
int addposmode=0; // 0=counter, 1=follow
double pipstep=20; // multiplier used for the martingale
double pipstepfactor=1.0; // multiply the pipstep by the number of buy/sell orders
string profitmanagement="Profit Management";
bool basketpercent=false; // enable the basket percent
double profit=0.1; // close all orders if a profit of 10 percents has been reached
double loss=100; // close all orders if a loss of 30 percents has been reached
bool basketpips=false; // enable the basket pips
double profitpips=10; // close all orders if a profit of 10 percents has been reached
double losspips=10000; // close all orders if a loss of 30 percents has been reached
bool basketdollars=false; // enable basket dollars
double dollars=5; // target in dollars
extern string ordersmanagement="Order Management";
extern bool ecn=true; // make the expert compatible with ecn brokers
extern bool instantorders=true; // instant orders
extern bool stoporders=false; // stoporders
extern bool limitorders=false; // limit orders
extern bool onecancelother=false; // cancel opposite pending orders when one is triggered
extern int gap=20; // gap for pending orders
extern bool oppositedelete=true; // delete the pending orders on an opposite signal
extern bool oppositeclose=true; // close the orders on an opposite signal
int oppositecloseminloss=0; // min loss to consider to enable opposite close
bool partialexit=false; // partial exit at opposite close
bool partialclose=false; // partial close at takeprofit2
extern bool reversesignals=false; // reverse the signals, long if short, short if long
extern int maxtrades=100; // maximum trades allowed by the traders
extern int tradesperbar=1; // maximum trades per bar allowed by the expert
extern bool hidesl=false; // hide stop loss
extern bool hidetp=false; // hide take profit
extern double stoploss=6; // stop loss
extern double takeprofit=0; // take profit
double takeprofit2=5; // takeprofit 2 for the rest of the trade, takeprofit2 has to be smaller than takeprofit
double tp2percentage=0.25;
double takeprofit3=20;
double tp3percentage=0.5;
extern double trailingstart=6; // profit in pips required to enable the trailing stop
extern double trailingstop=6; // trailing stop
double trailingprofit=0; // trailing profit
extern double trailingstep=1; // margin allowed to the market to enable the trailing stop
extern double breakevengain=0; // gain in pips required to enable the break even
extern double breakeven=0; // break even
extern int expiration=1440; // expiration in minutes for pending orders
double slippage=0; // maximum difference in pips between signal and order
extern double maxspread=0; // maximum spread allowed by the expert, 0=disabled
extern string adordersmanagement="Advanced Order Management";
bool changedirection=false; // only buy after a sell order, sell after a buy order
bool onesideatatime=false; // enter only long or short when a long or short is already opened
extern bool enteronopenbar=false; // enter only on open bar
bool eoobexceptaddpos=true; // we don't consider added pos for enteronopenbar option
extern bool onetimecalculation=false; // calculate entry logics one time per bar
extern double stop=0; // stoptake=stoploss and takeprofit
extern double trailing=0; // trailing=trailingstart and trailingstop
bool reverseatstop=false; // we reverse the order when the stoploss has been reached
bool rasoppositeclose=true; // close reversed order on opposite signal
int rasstoploss=0; // reversed order stop loss
int rastakeprofit=0; // reversed order take profit
bool sleepafterxlosses=false; // ea sleeps after x consecutive losses
int xlosses=4; // x consecutive losses
int sleepminutes=60; // sleep minutes
double slfactor=0; // enable dynamic stoploss if different of 0
int slmargin=0; // margin to add to the stoploss
double tpfactor=0; // enable dynamic takeprofit if different of 0
int stoplevel=15; // minimum value for dynamic variables
bool atrdynamics=false; // dynamic stops based on atr
int atrtimeframe=60; // timeframe for the atr
int atrperiod=14; // atr period
double tstfactor=0; // enable dynamic trailing start if different of 0
double tsfactor=0; // enable dynamic trailing stop if different of 0
double begfactor=0; // enable dynamic breakevengain if different of 0
double befactor=0; // enable dynamic breakeven if different of 0
double psfactor=0; // enable dynamic pipstep if different of 0
double gfactor=0; // enable dynamic gap if different of 0
bool highlowdynamics=false; // dynamic stops based on highest/lowest
int hltimeframe=0; // high low timeframe
int candles=7; // highest/lowest on the last x candles
bool sdldynamics=false; // dynamic stops based on slope direction line
int sdltimeframe=0; // timeframe of the sdl
int sdlperiod=15; // period of the sdl
int method=3; // method of the sdl
int price=0; // price of the sdl
extern string entrylogics="Entry Logics";
extern double brokermode=0; // 0=we consider only 3/4 digits of price, 1=we consider all digits
extern double distance=1; // minimum distance in pips between price and previous price to consider a movement
extern bool long=true; // trade long orders
extern int movements1=4; // movements to consider for long orders
extern double seconds1=3; // seconds to consider for long orders
extern bool short=true; // trade short orders
extern int movements2=4; // movements to consider for short orders
extern double seconds2=3; // seconds to consider for short orders
int shift=1; // bar in the past to take in consideration for the signal
string timefilter="Time Filter";
bool usetimefilter=false;
int summergmtshift=2; // gmt offset of the broker
int wintergmtshift=1; // gmt offset of the broker
bool mondayfilter=false; // enable special time filter on friday
int mondayhour=12; // start to trade after this hour
int mondayminute=0; // minutes of the friday hour
bool weekfilter=false; // enable time filter
int starthour=7; // start hour to trade after this hour
int startminute=0; // minutes of the start hour
int endhour=21; // stop to trade after this hour
int endminute=0; // minutes of the start hour
bool tradesunday=true; // trade on sunday
bool fridayfilter=false; // enable special time filter on friday
int fridayhour=12; // stop to trade after this hour
int fridayminute=0; // minutes of the friday hour
bool newsfilter=false; // news filter option
int minutesbefore=120; // minutes before the news
int newshour=14; // hour of the news
int newsminute=30; // minute of the news
int minutesafter=120; // minutes after the news
string timeout="Time Outs and Targets";
bool usetimeout=false; // time out, we close the order if after timeout minutes we are over target pips
int timeout1=30; // time out 1
int target1=7; // target 1
int timeout2=70; // time out 2
int target2=5; // target 2
int timeout3=95; // time out 3
int target3=4; // target 3
int timeout4=120; // time out 4
int target4=2; // target 4
int timeout5=150; // time out 5
int target5=-5; // target 5
int timeout6=180; // time out 6
int target6=-8; // target 6
int timeout7=210; // time out 7
int target7=-15; // target 7
//+----------------------------------------------------------------------------+
//| Internal parameters |
//+----------------------------------------------------------------------------+
datetime tstart,tend,tfriday,tmonday,lastbuyopentime,tnews,lastsellopentime,time,time2,time3,time4,time5,time6,time7,lastorderclosetime,longemailtime,shortemailtime;
int i,bc=-1,cnt,tpb,tps,tries=100,lastorder,buyorderprofit,sellorderprofit,lotsize,losses,sleep,xmartingalemode=0,mstop;
int nstarthour,nnewshour,nendhour,nfridayhour,nmondayhour,number,ticket,gmtshift,tradetime,expire,
total,totalbuy,totalsell,totalstopbuy,totalstopsell,totallimitbuy,totallimitsell;
string istarthour,inewshour,istartminute,iendhour,iendminute,inewsminute,ifridayhour,ifridayminute,imondayhour,imondayminute;
double cb,sl,tp,blots,slots,lastbuylot,lastselllot,lastlot,lastprofit,mlots,win[14],sum[14],totalpips,totalprofit,percentprofit,percentloss;
double lastbuyopenprice,lastsellopenprice,lastbuyprofit,lastsellprofit,tradeprofit,buyorderpips,sellorderpips,lossestorecover=0,globallosses;
bool closebasket=false;
bool continuebuy=true;
bool continuesell=true;
double pt,pt2,mt,pricedigits;
int longmovements,shortmovements,timelong,timeshort;
bool settimelong,settimeshort,addstoploss;
double previousupprice,previousdownprice;
//+----------------------------------------------------------------------------+
//| Initialization (done only when you attach the EA to the chart) |
//+----------------------------------------------------------------------------+
int init(){
if(usetimefilter){
sum[2012-1999]=D'2012.03.28 02:00:00';win[2012-1999]=D'2012.10.31 03:00:00';
sum[2011-1999]=D'2011.03.29 02:00:00';win[2011-1999]=D'2011.10.25 03:00:00';
sum[2010-1999]=D'2010.03.30 02:00:00';win[2010-1999]=D'2010.10.26 03:00:00';
sum[2009-1999]=D'2009.03.29 02:00:00';win[2009-1999]=D'2009.10.25 03:00:00';
sum[2008-1999]=D'2008.03.30 02:00:00';win[2008-1999]=D'2008.10.26 03:00:00';
sum[2007-1999]=D'2007.03.25 02:00:00';win[2007-1999]=D'2007.10.28 03:00:00';
sum[2006-1999]=D'2006.03.26 02:00:00';win[2006-1999]=D'2006.10.29 03:00:00';
sum[2005-1999]=D'2005.03.27 02:00:00';win[2005-1999]=D'2005.10.30 03:00:00';
sum[2004-1999]=D'2004.03.28 02:00:00';win[2004-1999]=D'2004.10.31 03:00:00';
sum[2003-1999]=D'2003.03.30 02:00:00';win[2003-1999]=D'2003.10.26 03:00:00';
sum[2002-1999]=D'2002.03.31 02:00:00';win[2002-1999]=D'2002.10.27 03:00:00';
sum[2001-1999]=D'2001.03.25 02:00:00';win[2001-1999]=D'2001.10.28 03:00:00';
sum[2000-1999]=D'2000.03.26 02:00:00';win[2000-1999]=D'2000.10.29 03:00:00';
sum[1999-1999]=D'1999.03.28 02:00:00';win[1999-1999]=D'1999.10.31 03:00:00';
}
if(basketpercent){
percentprofit=AccountBalance()*profit*0.01;
percentloss=-1*AccountBalance()*loss*0.01;
}
if(Digits==3 || Digits==5){
pt=Point*10;
mt=10;
if(brokermode==0){pricedigits=Digits-1;pt2=pt;}
if(brokermode==1){pricedigits=Digits;pt2=Point;}
}else{
pt=Point;
mt=1;
if(brokermode==0 || brokermode==1){pricedigits=Digits;pt2=pt;}
}
if(stop>0){
stoploss=stop;
takeprofit=stop;
}
if(mm){
if(minlot>=1){lotsize=100000;}
if(minlot<1){lotsize=10000;}
if(minlot<0.1){lotsize=1000;}
}
return(0);
}
//+----------------------------------------------------------------------------+
//| Start (called after each tick) |
//+----------------------------------------------------------------------------+
int start(){
//+----------------------------------------------------------------------------+
//| One time |
//+----------------------------------------------------------------------------+
bool onetime=true;
if(onetimecalculation)if(time==Time[0])onetime=false;
//+----------------------------------------------------------------------------+
//| Counters |
//+----------------------------------------------------------------------------+
//if(closebasket || addpositions || onesideatatime || onecancelother || maxtrades<100 || martingale){
totalbuy=count(OP_BUY);
totalsell=count(OP_SELL);
total=totalbuy+totalsell;
if(closebasket){
totalstopbuy=count(OP_BUYSTOP);
totalstopsell=count(OP_SELLSTOP);
totallimitbuy=count(OP_BUYLIMIT);
totallimitsell=count(OP_SELLLIMIT);
}
//}
//+----------------------------------------------------------------------------+
//| Basket close |
//+----------------------------------------------------------------------------+
if(closebasket)if(total+totalstopbuy+totalstopsell+totallimitbuy+totallimitsell>0){
close(3);
delete(6);
}
if(closebasket)if(total+totalstopbuy+totalstopsell+totallimitbuy+totallimitsell==0)closebasket=false;
if(closebasket)return(0);
//+----------------------------------------------------------------------------+
//| Visualize the equity curve with the indicator vGrafBalance&Equity.mq4 |
//+----------------------------------------------------------------------------+
/*
GlobalVariableSet("vGrafBalance",AccountBalance());
GlobalVariableSet("vGrafEquity",AccountEquity());
*/
//+----------------------------------------------------------------------------+
//| Break even, trailing, trailingstop and trailing profit |
//+----------------------------------------------------------------------------+
if(breakevengain>0 && onetime)movebreakeven(breakevengain,breakeven);
if(trailingstop>0 && onetime)movetrailingstop(trailingstart,trailingstop);
if(trailing>0 && onetime)movetrailingstop(trailing,trailing);
if(trailingprofit>0 && onetime)movetrailingprofit(trailingstart,trailingprofit);
//+----------------------------------------------------------------------------+
//| Last open time, price and profits |
//+----------------------------------------------------------------------------+
if(basketpercent || basketdollars || xmartingalemode==1){
buyorderprofit=0;
sellorderprofit=0;
}
if(basketpips){
buyorderpips=0;
sellorderpips=0;
}
lastbuyopenprice=0;lastsellopenprice=0;
if(OrdersTotal()>0){
for(i=0;i<=OrdersTotal();i++){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderCloseTime()==0){
if(OrderType()==OP_BUY){
lastbuyopentime=OrderOpenTime();
if(addpositions)lastbuyopenprice=OrderOpenPrice();
if(basketpercent || basketdollars || xmartingalemode==1)buyorderprofit=buyorderprofit+OrderProfit();
if(basketpips)buyorderpips=buyorderpips+(OrderClosePrice()-OrderOpenPrice())/pt-MarketInfo(Symbol(),MODE_SPREAD);
}
if(OrderType()==OP_SELL){
lastsellopentime=OrderOpenTime();
if(addpositions)lastsellopenprice=OrderOpenPrice();
if(basketpercent || basketdollars || xmartingalemode==1)sellorderprofit=sellorderprofit+OrderProfit();
if(basketpips)sellorderpips=sellorderpips+(OrderOpenPrice()-OrderClosePrice())/pt-MarketInfo(Symbol(),MODE_SPREAD);
}
}
}
}
if(basketpercent || basketdollars || xmartingalemode==1)totalprofit=buyorderprofit+sellorderprofit;
if(basketpips)totalpips=buyorderpips+sellorderpips;
//+----------------------------------------------------------------------------+
//| Baskets |
//+----------------------------------------------------------------------------+
if(basketpercent)if((mm && totalprofit>=(AccountBalance()*profit*0.01)) || (mm==false && totalprofit>=percentprofit)
|| (mm && totalprofit<=(-1*AccountBalance()*loss*0.01))|| (mm==false && totalprofit<=percentloss)){
closebasket=true;
}
if(basketpips)if((totalpips>=profitpips) || (totalpips<=(-1*losspips))){
closebasket=true;
}
if(basketdollars)if(totalprofit>=dollars){
closebasket=true;
}
if(closebasket)return(0);
//+----------------------------------------------------------------------------+
//| Sleep |
//+----------------------------------------------------------------------------+
bool nosleep=true;
if(sleepafterxlosses && OrdersHistoryTotal()>0){
losses=0;sleep=0;
for(i=OrdersHistoryTotal()-1;i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
if(OrderProfit()>=0)sleep=1;
if(OrderProfit()<0 && sleep==0){losses++;}
}
}
for(i=0;i<OrdersHistoryTotal();i++){
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
if(losses>=xlosses)lastorderclosetime=OrderCloseTime();
}
}
if(TimeCurrent()-lastorderclosetime<sleepminutes*60)nosleep=false;
}
//+----------------------------------------------------------------------------+
//| Trades per bar |
//+----------------------------------------------------------------------------+
if(tradesperbar==1){
if(lastbuyopentime<Time[0])tpb=0;else tpb=1;
if(lastsellopentime<Time[0])tps=0;else tps=1;
}
if(tradesperbar!=1 && bc!=Bars){tpb=0;tps=0;bc=Bars;}
//+----------------------------------------------------------------------------+
//| Indicators calling |
//+----------------------------------------------------------------------------+
if(onetime || shift==0){
if(atrdynamics){
double atr=iATR(NULL,atrtimeframe,atrperiod,shift);
}
if(highlowdynamics){
double high=iHigh(NULL,hltimeframe,iHighest(NULL,0,MODE_HIGH,candles,1));
double low=iLow(NULL,hltimeframe,iLowest(NULL,0,MODE_LOW,candles,1));
}
if(sdldynamics){
int sdlbar1=0;
for(i=0;i<=100;i++){
if(sdlbar1!=0)continue;
if(iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i)>
iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+1)
&& iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+1)<
iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+2))sdlbar1=i;
}
int sdlbar2=0;
for(i=0;i<=100;i++){
if(sdlbar2!=0)continue;
if(iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i)<
iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+1)
&& iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+1)>
iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+2))sdlbar2=i;
}
}
if(total==0){
if(previousupprice<=NormalizeDouble(Ask,pricedigits)-distance*pt2){
longmovements=longmovements+1;
previousupprice=NormalizeDouble(Ask,pricedigits);
if(settimelong==false){
timelong=TimeCurrent();
settimelong=true;
}
}
else{
previousupprice=0;
longmovements=0;
settimelong=false;
timelong=0;
}
if(previousdownprice>=NormalizeDouble(Ask,pricedigits)+distance*pt2){
shortmovements=shortmovements+1;
previousdownprice=NormalizeDouble(Ask,pricedigits);
if(settimeshort==false){
timeshort=TimeCurrent();
settimeshort=true;
}
}
else{
previousdownprice=0;
shortmovements=0;
settimeshort=false;
timeshort=0;
}
if(previousupprice==0){
previousupprice=NormalizeDouble(Ask,pricedigits);
}
if(previousdownprice==0){
previousdownprice=NormalizeDouble(Ask,pricedigits);
}
}
int signal=0;
if(long && longmovements==movements1 || shortmovements==movements2 && longmovements>=shortmovements && TimeCurrent()-timelong<=seconds1)signal=1;
if(short && longmovements==movements1 || shortmovements==movements2 && longmovements<shortmovements && TimeCurrent()-timeshort<=seconds2)signal=2;
if(signal!=0){
previousupprice=0;
previousdownprice=0;
longmovements=0;
shortmovements=0;
settimelong=false;
settimeshort=false;
timelong=0;
timeshort=0;
}
//--- dynamics variables
if(atrdynamics){
if(signal!=0 && slfactor!=0)stoploss=(atr/pt)*slfactor+slmargin;
if(signal!=0 && tpfactor!=0)takeprofit=(atr/pt)*tpfactor+slmargin;
if(signal!=0 && tstfactor!=0)trailingstart=(atr/pt)*tstfactor;
if(signal!=0 && tsfactor!=0)trailingstop=(atr/pt)*tsfactor;
if(signal!=0 && begfactor!=0)breakevengain=(atr/pt)*begfactor;
if(signal!=0 && befactor!=0)breakeven=(atr/pt)*befactor;
if(signal!=0 && psfactor!=0)pipstep=(atr/pt)*psfactor;
if(signal!=0 && gfactor!=0)gap=(atr/pt)*gfactor;
}
if(highlowdynamics){
if(signal==1 && slfactor!=0)stoploss=((Ask-low)/pt)*slfactor+slmargin;
if(signal==1 && tpfactor!=0)takeprofit=((high-Bid)/pt)*tpfactor;
if(signal==2 && slfactor!=0)stoploss=((high-Bid)/pt)*slfactor+slmargin;
if(signal==2 && tpfactor!=0)takeprofit=((Ask-low)/pt)*tpfactor;
}
if(sdldynamics){
if(signal==1 && slfactor!=0)stoploss=((Ask-Low[sdlbar1])/pt)*slfactor+slmargin;
if(signal==1 && tpfactor!=0)takeprofit=((High[sdlbar2]-Bid)/pt)*tpfactor;
if(signal==2 && slfactor!=0)stoploss=((High[sdlbar2]-Bid)/pt)*slfactor+slmargin;
if(signal==2 && tpfactor!=0)takeprofit=((Ask-Low[sdlbar1])/pt)*tpfactor;
}
if(atrdynamics || highlowdynamics || sdldynamics){
if(stoploss<stoplevel)stoploss=stoplevel;
if(takeprofit<stoplevel)takeprofit=stoplevel;
}
//if(ma>0 && ma!=EMPTY_VALUE)signal=1;
}
//Comment("\nhau = "+DoubleToStr(hau,5),"\nhad = "+DoubleToStr(had,5));
//+----------------------------------------------------------------------------+
//| Time filter |
//+----------------------------------------------------------------------------+
bool tradetime=true;
if(usetimefilter)if(checktime())tradetime=false;
//+----------------------------------------------------------------------------+
//| Signals |
//+----------------------------------------------------------------------------+
bool buy=false;
bool sell=false;
bool barstatus=true;
if(enteronopenbar)if(iVolume(NULL,0,0)>1)barstatus=false;
bool buyaddstatus=true;bool selladdstatus=true;
if(addpositions){
if(totalbuy>0)buyaddstatus=false;
if(totalsell>0)selladdstatus=false;
if(totalbuy>0){if((addposmode==0 && Ask<=lastbuyopenprice-pipstep*pt*MathPow(pipstepfactor,totalbuy))
|| (addposmode==1 && Ask>=lastbuyopenprice+pipstep*pt*MathPow(pipstepfactor,totalbuy))
&& (eoobexceptaddpos || (eoobexceptaddpos==false && barstatus)))buy=true;}
if(totalsell>0){if((addposmode==0 && Bid>=lastsellopenprice+pipstep*pt*MathPow(pipstepfactor,totalsell))
|| (addposmode==1 && Bid<=lastsellopenprice-pipstep*pt*MathPow(pipstepfactor,totalsell))
&& (eoobexceptaddpos || (eoobexceptaddpos==false && barstatus)))sell=true;}
}
bool buyside=true;bool sellside=true;
if(onesideatatime){if(totalsell>0)buyside=false;if(totalbuy>0)sellside=false;}
if(signal==1 && buyaddstatus && barstatus && buyside && continuebuy && tradetime && nosleep){
if(reversesignals)sell=true;else buy=true;
if(changedirection){continuebuy=false;continuesell=true;}
}
if(signal==2 && selladdstatus && barstatus && sellside && continuesell && tradetime && nosleep){
if(reversesignals)buy=true;else sell=true;
if(changedirection){continuebuy=true;continuesell=false;}
}
//+----------------------------------------------------------------------------+
//| Close and delete |
//+----------------------------------------------------------------------------+
if(sell)if(oppositeclose)if(partialexit)partialclose(OP_BUY,2);else close(OP_BUY);
if(buy)if(oppositeclose)if(partialexit)partialclose(OP_SELL,2);else close(OP_SELL);
if(hidetp || hidesl){hideclose(OP_BUY);hideclose(OP_SELL);}
if(usetimeout && onetime){closetime(OP_BUY);closetime(OP_SELL);}
if(onecancelother){if(totalsell>0){delete(OP_BUYSTOP);delete(OP_BUYLIMIT);}if(totalbuy>0){delete(OP_SELLSTOP);delete(OP_SELLLIMIT);}}
if(partialclose){partialclose(OP_BUY,1);partialclose(OP_SELL,1);}
if(partialclose){partialclose2(OP_BUY,1);partialclose2(OP_SELL,1);}
if(xmartingalemode==1 && totalprofit>=-1*lossestorecover){close(OP_BUY);close(OP_SELL);}
//+----------------------------------------------------------------------------+
//| Closed martingale |
//+----------------------------------------------------------------------------+
xmartingalemode=0;
if(martingale && !addpositions){
globallosses=0;
lossestorecover=0;
/*lastbuylot=0;
lastselllot=0;
lastorder=0;*/
if(OrdersHistoryTotal()>0){
for(i=0;i<=OrdersHistoryTotal();i++){
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
lastprofit=OrderProfit();
lastlot=OrderLots();
/*if(OrderType()==OP_BUY){
lastbuyprofit=OrderProfit();
lastbuylot=OrderLots();
lastorder=1;
}
if(OrderType()==OP_SELL){
lastsellprofit=OrderProfit();
lastselllot=OrderLots();
lastorder=2;
}*/
}
}
}
mlots=0;
if(lastprofit<0){
mstop=0;
if(OrdersHistoryTotal()>0){
for(i=OrdersHistoryTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
if(OrderProfit()>0)mstop=1;
if(mstop==0)globallosses=globallosses+OrderProfit();
}
}
}
mlots=lastlot*multiplier;
if(martingalemode==1)xmartingalemode=1;
lossestorecover=NormalizeDouble(globallosses*0.01*percentrecovering,2);
}
else mlots=lots;
}
//+----------------------------------------------------------------------------+
//| Max spread, max trades |
//+----------------------------------------------------------------------------+
if(maxspread!=0)if((Ask-Bid)>maxspread*mt*pt)return(0);
if(maxtrades<100)if((total)>=maxtrades)return(0);
if(mm)if(martingale==false || (martingale && !addpositions && lastprofit>=0) || (martingale && addpositions))lots=lotsoptimized();
blots=lots;slots=lots;
if(martingale){
if(addpositions){blots=lots*MathPow(multiplier,totalbuy);slots=lots*MathPow(multiplier,totalsell);}
else {blots=mlots;slots=mlots;}
}
//+----------------------------------------------------------------------------+
//| Instant and pending orders |
//+----------------------------------------------------------------------------+
if(buy && tpb<tradesperbar && !onlysell){
if(oppositedelete){delete(OP_SELLSTOP);delete(OP_SELLLIMIT);}
ticket=0;number=0;expire=0;
if(stoporders || limitorders)if(expiration>0)expire=TimeCurrent()+(expiration*60)-5;
if(!ecn){
if(instantorders && xmartingalemode==0){
while(ticket<=0 && number<tries){
while(!IsTradeAllowed())Sleep(5000);
RefreshRates();ticket=open(OP_BUY,blots,Ask,stoploss,takeprofit,expire,Blue);
if(ticket<0){if(useprint)Print("Error opening BUY order! ",errordescription(GetLastError()));number++;}
}
}
if(instantorders && xmartingalemode==1){
while(ticket<=0 && number<tries){
while(!IsTradeAllowed())Sleep(5000);
RefreshRates();ticket=open(OP_BUY,blots,Ask,stoploss,0,expire,Blue);
if(ticket<0){if(useprint)Print("Error opening BUY order! ",errordescription(GetLastError()));number++;}
}
}
if(stoporders)if(time2!=Time[0]){RefreshRates();ticket=open(OP_BUYSTOP,blots,Ask+gap*pt,stoploss,takeprofit,expire,Blue);time2=Time[0];tpb++;}
if(limitorders)if(time3!=Time[0]){RefreshRates();ticket=open(OP_BUYLIMIT,blots,Bid-gap*pt,stoploss,takeprofit,expire,Blue);time3=Time[0];tpb++;}
if(reverseatstop)if(time6!=Time[0]){if(rasoppositeclose)delete(OP_BUYSTOP);RefreshRates();ticket=open(OP_SELLSTOP,blots,Bid-stoploss*pt,rasstoploss,rastakeprofit,expire,Red);time6=Time[0];}
}
if(ecn){
if(instantorders){
while(ticket<=0 && number<tries){
while(!IsTradeAllowed())Sleep(5000);
RefreshRates();ticket=open(OP_BUY,blots,Ask,0,0,expire,Blue);
if(ticket<0){if(useprint)Print("Error opening BUY order! ",errordescription(GetLastError()));number++;}
}
}
if(stoporders)if(time2!=Time[0]){RefreshRates();ticket=open(OP_BUYSTOP,blots,Ask+gap*pt,0,0,expire,Blue);time2=Time[0];tpb++;}
if(limitorders)if(time3!=Time[0]){RefreshRates();ticket=open(OP_BUYLIMIT,blots,Bid-gap*pt,0,0,expire,Blue);time3=Time[0];tpb++;}
if(reverseatstop)if(time6!=Time[0]){if(rasoppositeclose)delete(OP_BUYSTOP);RefreshRates();ticket=open(OP_SELLSTOP,blots,Bid-stoploss*pt,0,0,expire,Red);time6=Time[0];}
}
if(instantorders)if(ticket<=0){if(useprint)Print("Error Occured : "+errordescription(GetLastError()));}else tpb++;
if(emailalert)if(longemailtime!=Time[0]){RefreshRates();RefreshRates();SendMail("[Long Trade]", "["+Symbol()+"] "+DoubleToStr(Ask,Digits));longemailtime=Time[0];}
}
if(sell && tps<tradesperbar && !onlybuy){
if(oppositedelete){delete(OP_BUYSTOP);delete(OP_BUYLIMIT);}
ticket=0;number=0;expire=0;
if(stoporders || limitorders)if(expiration>0)expire=TimeCurrent()+(expiration*60)-5;
if(!ecn){
if(instantorders && xmartingalemode==0){
while(ticket<=0 && number<tries){
while(!IsTradeAllowed())Sleep(5000);
RefreshRates();ticket=open(OP_SELL,slots,Bid,stoploss,takeprofit,expire,Red);
if(ticket<0){if(useprint)Print("Error opening BUY order! ",errordescription(GetLastError()));number++;}
}
}
if(instantorders && xmartingalemode==1){
while(ticket<=0 && number<tries){
while(!IsTradeAllowed())Sleep(5000);
RefreshRates();ticket=open(OP_SELL,slots,Bid,stoploss,0,expire,Red);
if(ticket<0){if(useprint)Print("Error opening BUY order! ",errordescription(GetLastError()));number++;}
}
}
if(stoporders)if(time4!=Time[0]){RefreshRates();ticket=open(OP_SELLSTOP,slots,Bid-gap*pt,stoploss,takeprofit,expire,Red);time4=Time[0];tps++;}
if(limitorders)if(time5!=Time[0]){RefreshRates();ticket=open(OP_SELLLIMIT,slots,Ask+gap*pt,stoploss,takeprofit,expire,Red);time5=Time[0];tps++;}
if(reverseatstop)if(time7!=Time[0]){if(rasoppositeclose)delete(OP_SELLSTOP);RefreshRates();ticket=open(OP_BUYSTOP,blots,Ask+stoploss*pt,rasstoploss,rastakeprofit,expire,Red);time7=Time[0];}
}
if(ecn){
if(instantorders){
while(ticket<=0 && number<tries){
while(!IsTradeAllowed())Sleep(5000);
RefreshRates();ticket=open(OP_SELL,slots,Bid,0,0,expire,Red);
if(ticket<0){if(useprint)Print("Error opening BUY order! ",errordescription(GetLastError()));number++;}
}
}
if(stoporders)if(time4!=Time[0]){RefreshRates();ticket=open(OP_SELLSTOP,slots,Bid-gap*pt,0,0,expire,Red);time4=Time[0];tps++;}
if(limitorders)if(time5!=Time[0]){RefreshRates();ticket=open(OP_SELLLIMIT,slots,Ask+gap*pt,0,0,expire,Red);time5=Time[0];tps++;}
if(reverseatstop)if(time7!=Time[0]){if(rasoppositeclose)delete(OP_SELLSTOP);RefreshRates();ticket=open(OP_BUYSTOP,blots,Ask+stoploss*pt,0,0,expire,Red);time7=Time[0];}
}
if(instantorders)if(ticket<=0){if(useprint)Print("Error Occured : "+errordescription(GetLastError()));}else tps++;
if(emailalert)if(shortemailtime!=Time[0]){RefreshRates();RefreshRates();SendMail("[Short Trade]", "["+Symbol()+"] "+DoubleToStr(Bid,Digits));shortemailtime=Time[0];}
}
if(ecn)ecnmodify(stoploss,takeprofit);
if(onetimecalculation)time=Time[0];
return(0);
}
//+----------------------------------------------------------------------------+
//| Open orders function |
//+----------------------------------------------------------------------------+
int open(int type,double lots,double price,double stoploss,double takeprofit,int expire,color clr){
int ticket=0;
if(lots<minlot)lots=minlot;
if(lots>maxlot)lots=maxlot;
if(type==OP_BUY || type==OP_BUYSTOP || type==OP_BUYLIMIT){
if(hidesl==false && stoploss>0){sl=price-stoploss*pt;}else{sl=0;}
if(hidetp==false && takeprofit>0){tp=price+takeprofit*pt;}else{tp=0;}
}
if(type==OP_SELL || type==OP_SELLSTOP || type==OP_SELLLIMIT){
if(hidesl==false && stoploss>0){sl=price+stoploss*pt;}else{sl=0;}
if(hidetp==false && takeprofit>0){tp=price-takeprofit*pt;}else{tp=0;}
}
ticket=OrderSend(Symbol(),type,NormalizeDouble(lots,lotdigits),NormalizeDouble(price,Digits),slippage*mt,sl,tp,
comment+" "+DoubleToStr(magic,0),magic,expire,clr);
return(ticket);
}
//+----------------------------------------------------------------------------+
//| Lots optimized functions |
//+----------------------------------------------------------------------------+
double lotsoptimized(){
double lot;
if(stoploss>0)lot=AccountBalance()*(risk/100)/(stoploss*pt/MarketInfo(Symbol(),MODE_TICKSIZE)*MarketInfo(Symbol(),MODE_TICKVALUE));
else lot=NormalizeDouble((AccountBalance()/lotsize)*minlot*risk,lotdigits);
//lot=AccountFreeMargin()/(100.0*(NormalizeDouble(MarketInfo(Symbol(),MODE_MARGINREQUIRED),4)+5.0)/risk)-0.05;
return(lot);
}
//+----------------------------------------------------------------------------+
//| Time filter functions |
//+----------------------------------------------------------------------------+
bool checktime(){
if(TimeCurrent()<win[TimeYear(TimeCurrent())-1999] && TimeCurrent()>sum[TimeYear(TimeCurrent())-1999])gmtshift=summergmtshift;
else gmtshift=wintergmtshift;
string svrdate=Year()+"."+Month()+"."+Day();
if(mondayfilter){
nmondayhour=mondayhour+(gmtshift);if(nmondayhour>23)nmondayhour=nmondayhour-24;
if(nmondayhour<10)imondayhour="0"+nmondayhour;
if(nmondayhour>9)imondayhour=nmondayhour;
if(mondayminute<10)imondayminute="0"+mondayminute;
if(mondayminute>9)imondayminute=mondayminute;
tmonday=StrToTime(svrdate+" "+imondayhour+":"+imondayminute);
}
if(weekfilter){
nstarthour=starthour+(gmtshift);if(nstarthour>23)nstarthour=nstarthour-24;
if(nstarthour<10)istarthour="0"+nstarthour;
if(nstarthour>9)istarthour=nstarthour;
if(startminute<10)istartminute="0"+startminute;
if(startminute>9)istartminute=startminute;
tstart=StrToTime(svrdate+" "+istarthour+":"+istartminute);
nendhour=endhour+(gmtshift);if(nendhour>23)nendhour=nendhour-24;
if(nendhour<10)iendhour="0"+nendhour;
if(nendhour>9)iendhour=nendhour;
if(endminute<10)iendminute="0"+endminute;
if(endminute>9)iendminute=endminute;
tend=StrToTime(svrdate+" "+iendhour+":"+iendminute);
}
if(fridayfilter){
nfridayhour=fridayhour+(gmtshift);if(nfridayhour>23)nfridayhour=nfridayhour-24;
if(nfridayhour<10)ifridayhour="0"+nfridayhour;
if(nfridayhour>9)ifridayhour=nfridayhour;
if(fridayminute<10)ifridayminute="0"+fridayminute;
if(fridayminute>9)ifridayminute=fridayminute;
tfriday=StrToTime(svrdate+" "+ifridayhour+":"+ifridayminute);
}
if(newsfilter){
nnewshour=newshour+(gmtshift);if(nnewshour>23)nnewshour=nnewshour-24;
if(nnewshour<10)inewshour="0"+nnewshour;
if(nnewshour>9)inewshour=nnewshour;
if(newsminute<10)inewsminute="0"+newsminute;
if(newsminute>9)inewsminute=newsminute;
tnews=StrToTime(svrdate+" "+inewshour+":"+inewsminute);
}
if(weekfilter)if((nstarthour<=nendhour && TimeCurrent()<tstart || TimeCurrent()>tend) || (nstarthour>nendhour && TimeCurrent()<tstart && TimeCurrent()>tend))return(true);
if(tradesunday==false)if(DayOfWeek()==0)return(true);
if(fridayfilter)if(DayOfWeek()==5 && TimeCurrent()>tfriday)return(true);
if(mondayfilter)if(DayOfWeek()==1 && TimeCurrent()<tmonday)return(true);
if(newsfilter)if(TimeCurrent()>tnews-minutesbefore*60 && TimeCurrent()<tnews+minutesafter*60)return(true);
return(false);
}
//+----------------------------------------------------------------------------+
//| Counter |
//+----------------------------------------------------------------------------+
int count(int type){
cnt=0;
if(OrdersTotal()>0){
for(i=OrdersTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderType()==type && OrderMagicNumber()==magic)cnt++;
}
return(cnt);
}
}
//+----------------------------------------------------------------------------+
//| Close functions |
//+----------------------------------------------------------------------------+
void close(int type){
if(OrdersTotal()>0){
for(i=OrdersTotal()-1;i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(type==OP_BUY && OrderType()==OP_BUY){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic
&& (oppositecloseminloss==0 || (oppositecloseminloss>0 && (OrderProfit()/(OrderLots()*10))<-1*oppositecloseminloss))){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),slippage*mt);
}
}
if(type==OP_SELL && OrderType()==OP_SELL){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic
&& (oppositecloseminloss==0 || (oppositecloseminloss>0 && (OrderProfit()/(OrderLots()*10))<-1*oppositecloseminloss))){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),slippage*mt);
}
}
if(type==3){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_BUY){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),slippage*mt);
}
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_SELL){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),slippage*mt);
}
}
}
}
}
void partialclose(int type,int mode){
if(OrdersTotal()>0){
for(i=OrdersTotal()-1;i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(type==OP_BUY && OrderType()==OP_BUY){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderLots()>=lots
&& (mode==1 && OrderProfit()>=takeprofit2*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),OrderLots()*0.5,NormalizeDouble(Bid,Digits),slippage*mt);
}
}
if(type==OP_SELL && OrderType()==OP_SELL){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderLots()>=lots
&& (mode==1 && OrderProfit()>=takeprofit2*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),OrderLots()*0.5,NormalizeDouble(Ask,Digits),slippage*mt);
}
}
if(type==3){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_BUY && OrderLots()>=lots
&& (mode==1 && OrderProfit()>=takeprofit2*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),OrderLots()*0.5,NormalizeDouble(Bid,Digits),slippage*mt);
}
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_SELL && OrderLots()>=lots
&& (mode==1 && OrderProfit()>=takeprofit2*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),OrderLots()*0.5,NormalizeDouble(Ask,Digits),slippage*mt);
}
}
}
}
}
void partialclose2(int type,int mode){
if(OrdersTotal()>0){
for(i=OrdersTotal()-1;i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(type==OP_BUY && OrderType()==OP_BUY){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderLots()<lots
&& (mode==1 && OrderProfit()>=takeprofit3*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),NormalizeDouble(OrderLots()*tp3percentage,lotdigits),NormalizeDouble(Bid,Digits),slippage*mt);
}
}
if(type==OP_SELL && OrderType()==OP_SELL){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderLots()<lots
&& (mode==1 && OrderProfit()>=takeprofit3*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),NormalizeDouble(OrderLots()*tp3percentage,lotdigits),NormalizeDouble(Ask,Digits),slippage*mt);
}
}
if(type==3){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_BUY && OrderLots()<lots
&& (mode==1 && OrderProfit()>=takeprofit3*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),NormalizeDouble(OrderLots()*tp3percentage,lotdigits),NormalizeDouble(Bid,Digits),slippage*mt);
}
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_SELL && OrderLots()<lots
&& (mode==1 && OrderProfit()>=takeprofit3*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),NormalizeDouble(OrderLots()*tp3percentage,lotdigits),NormalizeDouble(Ask,Digits),slippage*mt);
}
}
}
}
}
void hideclose(int type){
if(OrdersTotal()>0){
for(i=OrdersTotal()-1;i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(type==OP_BUY && OrderType()==OP_BUY){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic
&& (hidesl && stoploss>0 && NormalizeDouble(OrderClosePrice()-OrderOpenPrice(),Digits)<=(-1)*stoploss*pt-MarketInfo(Symbol(),MODE_SPREAD)*pt)
|| (hidetp && takeprofit>0 && NormalizeDouble(OrderClosePrice()-OrderOpenPrice(),Digits)>=takeprofit*pt)){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),Bid,slippage*mt);
}
}
if(type==OP_SELL && OrderType()==OP_SELL){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic
&& (hidesl && stoploss>0 && NormalizeDouble(OrderOpenPrice()-OrderClosePrice(),Digits)<=(-1)*stoploss*pt-MarketInfo(Symbol(),MODE_SPREAD)*pt)
|| (hidetp && takeprofit>0 && NormalizeDouble(OrderOpenPrice()-OrderClosePrice(),Digits)>=takeprofit*pt)){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),Ask,slippage*mt);
}
}
}
}
}
void closetime(int type){
tradeprofit=0;
tradetime=0;
if(OrdersTotal()>0){
for(i=OrdersTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(type==OP_BUY && OrderType()==OP_BUY){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
tradeprofit=NormalizeDouble(OrderClosePrice()-OrderOpenPrice(),Digits);
tradetime=TimeCurrent()-OrderOpenTime();
if((tradeprofit>=target1*pt && tradetime>timeout1*60 && tradetime<timeout2*60)
|| (tradeprofit>=target2*pt && tradetime>timeout2*60 && tradetime<timeout3*60)
|| (tradeprofit>=target3*pt && tradetime>timeout3*60 && tradetime<timeout4*60)
|| (tradeprofit>=target4*pt && tradetime>timeout4*60 && tradetime<timeout5*60)
|| (tradeprofit>=target5*pt && tradetime>timeout5*60 && tradetime<timeout6*60)
|| (tradeprofit>=target6*pt && tradetime>timeout6*60 && tradetime<timeout7*60)
|| (tradeprofit>=target7*pt && tradetime>timeout7*60)){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),Bid,slippage*mt);
}
}
}
if(type==OP_SELL && OrderType()==OP_SELL){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
tradeprofit=NormalizeDouble(OrderClosePrice()-OrderOpenPrice(),Digits);
tradetime=TimeCurrent()-OrderOpenTime();
if((tradeprofit>=target1*pt && tradetime>timeout1*60 && tradetime<timeout2*60)
|| (tradeprofit>=target2*pt && tradetime>timeout2*60 && tradetime<timeout3*60)
|| (tradeprofit>=target3*pt && tradetime>timeout3*60 && tradetime<timeout4*60)
|| (tradeprofit>=target4*pt && tradetime>timeout4*60 && tradetime<timeout5*60)
|| (tradeprofit>=target5*pt && tradetime>timeout5*60 && tradetime<timeout6*60)
|| (tradeprofit>=target6*pt && tradetime>timeout6*60 && tradetime<timeout7*60)
|| (tradeprofit>=target7*pt && tradetime>timeout7*60)){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),Ask,slippage*mt);
}
}
}
}
}
}
void delete(int type){
if(OrdersTotal()>0){
for(i=OrdersTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(type!=6){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==type){
OrderDelete(OrderTicket());
}
}
if(type==6){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_BUYSTOP || OrderType()==OP_SELLSTOP
|| OrderType()==OP_BUYLIMIT || OrderType()==OP_SELLLIMIT){
OrderDelete(OrderTicket());
}
}
}
}
}
//+----------------------------------------------------------------------------+
//| Modifications functions |
//+----------------------------------------------------------------------------+
void movebreakeven(double breakevengain,double breakeven){
RefreshRates();
if(OrdersTotal()>0){
for(i=OrdersTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderType()<=OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
if(OrderType()==OP_BUY){
if(NormalizeDouble((Bid-OrderOpenPrice()),Digits)>=NormalizeDouble(breakevengain*pt,Digits)){
if((NormalizeDouble((OrderStopLoss()-OrderOpenPrice()),Digits)<NormalizeDouble(breakeven*pt,Digits)) || OrderStopLoss()==0){
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderOpenPrice()+breakeven*pt,Digits),OrderTakeProfit(),0,Blue);
return(0);
}
}
}
else{
if(NormalizeDouble((OrderOpenPrice()-Ask),Digits)>=NormalizeDouble(breakevengain*pt,Digits)){
if((NormalizeDouble((OrderOpenPrice()-OrderStopLoss()),Digits)<NormalizeDouble(breakeven*pt,Digits)) || OrderStopLoss()==0){
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderOpenPrice()-breakeven*pt,Digits),OrderTakeProfit(),0,Red);
return(0);
}
}
}
}
}
}
}
void movetrailingstop(double trailingstart,double trailingstop){
RefreshRates();
if(OrdersTotal()>0){
for(i=OrdersTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderType()<=OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
if(OrderType()==OP_BUY){
if(NormalizeDouble(Ask,Digits)>NormalizeDouble(OrderOpenPrice()+trailingstart*pt,Digits)
&& NormalizeDouble(OrderStopLoss(),Digits)<NormalizeDouble(Bid-(trailingstop+trailingstep)*pt,Digits)){
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-trailingstop*pt,Digits),OrderTakeProfit(),0,Blue);
return(0);
}
}
else{
if(NormalizeDouble(Bid,Digits)<NormalizeDouble(OrderOpenPrice()-trailingstart*pt,Digits)
&& (NormalizeDouble(OrderStopLoss(),Digits)>(NormalizeDouble(Ask+(trailingstop+trailingstep)*pt,Digits))) || (OrderStopLoss()==0)){
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+trailingstop*pt,Digits),OrderTakeProfit(),0,Red);
return(0);
}
}
}
}
}
}
void movetrailingprofit(double trailingstart,double trailingprofit){
RefreshRates();
for(i=OrdersTotal();i>=0;i--){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()&& OrderMagicNumber()==magic){
if(OrderType()==OP_BUY){
if(NormalizeDouble(Bid-OrderOpenPrice(),Digits)<=NormalizeDouble((-1)*trailingstart*pt,Digits)){
if(NormalizeDouble(OrderTakeProfit(),Digits)>NormalizeDouble(Bid+(trailingprofit+trailingstep)*pt,Digits)
|| NormalizeDouble(OrderTakeProfit(),Digits)==0){
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(Bid+trailingprofit*pt,Digits),0,Blue);
}
}
}
if(OrderType()==OP_SELL){
if(NormalizeDouble(OrderOpenPrice()-Ask,Digits)<=NormalizeDouble((-1)*trailingstart*pt,Digits)){
if(NormalizeDouble(OrderTakeProfit(),Digits)<NormalizeDouble(Ask-(trailingprofit+trailingstep)*pt,Digits)){
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(Ask-trailingprofit*pt,Digits),0,Red);
}
}
}
}
}
}
}
//+------------------------------------------------------------------+
//| ECN modification |
//+------------------------------------------------------------------+
void ecnmodify(double stoploss,double takeprofit){
for(i=OrdersTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
if(OrderType()==OP_BUY){
if(OrderStopLoss()==0 && stoploss>0 && takeprofit==0){
RefreshRates();
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask-stoploss*pt,Digits),OrderTakeProfit(),0,Red);
}
if(OrderTakeProfit()==0 && stoploss==0 && takeprofit>0){
RefreshRates();
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(Ask+takeprofit*pt,Digits),0,Red);
}
if(OrderTakeProfit()==0 && OrderStopLoss()==0 && stoploss>0 && takeprofit>0){
RefreshRates();
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask-stoploss*pt,Digits),NormalizeDouble(Ask+takeprofit*pt,Digits),0,Red);
}
}
if(OrderType()==OP_SELL){
if(OrderStopLoss()==0 && stoploss>0 && takeprofit==0){
RefreshRates();
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid+stoploss*pt,Digits),OrderTakeProfit(),0,Red);
}
if(OrderTakeProfit()==0 && stoploss==0 && takeprofit>0){
RefreshRates();
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(Bid-takeprofit*pt,Digits),0,Red);
}
if(OrderTakeProfit()==0 && OrderStopLoss()==0 && stoploss>0 && takeprofit>0){
RefreshRates();
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid+stoploss*pt,Digits),NormalizeDouble(Bid-takeprofit*pt,Digits),0,Red);
}
}
}
}
}
//+----------------------------------------------------------------------------+
//| Error functions |
//+----------------------------------------------------------------------------+
string errordescription(int code){
string error;
switch(code){
case 0:
case 1:error="no error";break;
case 2:error="common error";break;
case 3:error="invalid trade parameters";break;
case 4:error="trade server is busy";break;
case 5:error="old version of the client terminal";break;
case 6:error="no connection with trade server";break;
case 7:error="not enough rights";break;
case 8:error="too frequent requests";break;
case 9:error="malfunctional trade operation";break;
case 64:error="account disabled";break;
case 65:error="invalid account";break;
case 128:error="trade timeout";break;
case 129:error="invalid price";break;
case 130:error="invalid stops";break;
case 131:error="invalid trade volume";break;
case 132:error="market is closed";break;
case 133:error="trade is disabled";break;
case 134:error="not enough money";break;
case 135:error="price changed";break;
case 136:error="off quotes";break;
case 137:error="broker is busy";break;
case 138:error="requote";break;
case 139:error="order is locked";break;
case 140:error="long positions only allowed";break;
case 141:error="too many requests";break;
case 145:error="modification denied because order too close to market";break;
case 146:error="trade context is busy";break;
case 4000:error="no error";break;
case 4001:error="wrong function pointer";break;
case 4002:error="array index is out of range";break;
case 4003:error="no memory for function call stack";break;
case 4004:error="recursive stack overflow";break;
case 4005:error="not enough stack for parameter";break;
case 4006:error="no memory for parameter string";break;
case 4007:error="no memory for temp string";break;
case 4008:error="not initialized string";break;
case 4009:error="not initialized string in array";break;
case 4010:error="no memory for array\' string";break;
case 4011:error="too long string";break;
case 4012:error="remainder from zero divide";break;
case 4013:error="zero divide";break;
case 4014:error="unknown command";break;
case 4015:error="wrong jump (never generated error)";break;
case 4016:error="not initialized array";break;
case 4017:error="dll calls are not allowed";break;
case 4018:error="cannot load library";break;
case 4019:error="cannot call function";break;
case 4020:error="expert function calls are not allowed";break;
case 4021:error="not enough memory for temp string returned from function";break;
case 4022:error="system is busy (never generated error)";break;
case 4050:error="invalid function parameters count";break;
case 4051:error="invalid function parameter value";break;
case 4052:error="string function internal error";break;
case 4053:error="some array error";break;
case 4054:error="incorrect series array using";break;
case 4055:error="custom indicator error";break;
case 4056:error="arrays are incompatible";break;
case 4057:error="global variables processing error";break;
case 4058:error="global variable not found";break;
case 4059:error="function is not allowed in testing mode";break;
case 4060:error="function is not confirmed";break;
case 4061:error="send mail error";break;
case 4062:error="string parameter expected";break;
case 4063:error="integer parameter expected";break;
case 4064:error="double parameter expected";break;
case 4065:error="array as parameter expected";break;
case 4066:error="requested history data in update state";break;
case 4099:error="end of file";break;
case 4100:error="some file error";break;
case 4101:error="wrong file name";break;
case 4102:error="too many opened files";break;
case 4103:error="cannot open file";break;
case 4104:error="incompatible access to a file";break;
case 4105:error="no order selected";break;
case 4106:error="unknown symbol";break;
case 4107:error="invalid price parameter for trade function";break;
case 4108:error="invalid ticket";break;
case 4109:error="trade is not allowed";break;
case 4110:error="longs are not allowed";break;
case 4111:error="shorts are not allowed";break;
case 4200:error="object is already exist";break;
case 4201:error="unknown object property";break;
case 4202:error="object is not exist";break;
case 4203:error="unknown object type";break;
case 4204:error="no object name";break;
case 4205:error="object coordinates error";break;
case 4206:error="no specified subwindow";break;
default:error="unknown error";
}
return(error);
}
/*
iCustom(NULL,0,"StepMA_v7",Length,Kv,StepSize,0,shift);
iAC(NULL,0,shift);
iAD(NULL,0,shift);
iADX(NULL,0,adxperiod,PRICE_CLOSE,MODE_PLUSDI,shift);
iAlligator(NULL,0,jawsperiod,teethperiod,lipsperiod,jawsshift,teethshift,lipsshift,MODE_SMMA,PRICE_MEDIAN,MODE_GATORJAW,shift);
iAO(NULL,0,shift);
iATR(NULL,0,atrperiod,shift);
iBands(NULL,0,bbperiod,2,0,PRICE_CLOSE,MODE_LOWER,shift);
iBearsPower(NULL,0,13,PRICE_CLOSE,0);
iBullsPower(NULL,0,13,PRICE_CLOSE,0);
iCCI(NULL,0,cciperiod,PRICE_CLOSE,shift);
iClose(NULL,PERIOD_H1,shift);
iDeMarker(NULL,0,14,shift);
iEnvelopes(NULL,0,13,MODE_SMA,10,PRICE_CLOSE,0.2,MODE_UPPER,shift);
iForce(NULL,0,13,MODE_SMA,PRICE_CLOSE,shift);
iFractals(NULL,0,MODE_UPPER,3);
High[iHighest(NULL,0,MODE_HIGH,candles,1)];
iMA(NULL,0,maperiod,0,MODE_SMA,PRICE_CLOSE,shift);
iMACD(NULL,0,macdfast,macdslow,macdsma,PRICE_CLOSE,MODE_MAIN,shift);
iMFI(NULL,0,MFIPeriod,shift);
iMomentum(NULL,0,momentumperiod,PRICE_CLOSE,shift);
iOBV(NULL,0,PRICE_CLOSE,shift);
iOsMA(NULL,0,fastema,slowema,macdsma,PRICE_CLOSE,shift);
iRSI(NULL,0,rsiperiod,PRICE_CLOSE,shift);
iRVI(NULL,0,10,MODE_MAIN,shift);
iSAR(NULL,0,step,maximum,shift);
iStdDev(NULL,0,10,0,MODE_SMA,PRICE_CLOSE,shift);
iStochastic(NULL,0,kperiod,dperiod,slowing,MODE_SMA,0,MODE_MAIN,shift);
iStochastic(NULL,0,kperiod,dperiod,slowing,MODE_SMA,0,MODE_SIGNAL,shift);
iWPR(NULL,0,WPRPeriod,shift);
*/
@epps11
epps11
29 Nov 2013, 18:10
What do you think?
Hello Jeex and Hyperloop,
For starters happy Thanksgiving and what do you think about this one it trades with the trend instead of against. Would it be possible and easier to convert? Looking at the code I know it's a mess and has a lot of excess code that can be cleaned for the cAlgo version. I have a london Vps if you want to test it out.
Thanks again,
Michael
@epps11
epps11
27 Nov 2013, 22:42
RE: Why not share it on ctdn
jeex said:
Why not share the link on this forum?
I did on the first post, but I'll just post the code here:
#property copyright "Copyright © 2011-2012, Jizz"
#property link ""
/*Martingale : You can set a closed martingale : martingale=true, maxtrades=1,
basketpercent or basketpips=true. Or an open martingale : martingale=true,
tradesperbar=100, basketpercent or basketpips=true, addpositions=true.
Scalping : You can use timeout and target, time filter, set maxtrades=1,
changedirection=true to optimize the scalping.*/
//+----------------------------------------------------------------------------+
//| External inputs |
//+----------------------------------------------------------------------------+
//--- Add "extern " before each parameter to get them in the inputs tab
string comment="EA"; // comment to display in the order
extern int magic=1234; // magic number required if you use different settings on a same pair, same timeframe
bool useprint=false; // use print
bool emailalert=false; // use email alert
bool onlybuy=false; // only enter buy orders
bool onlysell=false; // only enter sell orders
extern string moneymanagement="Money Management";
extern double lots=0.1; // lots size
extern bool mm=false; // enable risk management
extern double risk=1; // risk in percentage of the account
extern double minlot=0.01; // minimum lots size
extern double maxlot=100; // maximum lots size
extern int lotdigits=2; // lot digits, 1=0.1, 2=0.01
bool martingale=false; // enable the martingale, set maxtrades to 1
int martingalemode=0; // 0=don't use percentrecovering, 1=use percentrecovering
double multiplier=2.0; // multiplier used for the martingale
double percentrecovering=50.0; // percentage of the last losses to recover
bool addpositions=false; // add positions, set tradesperbar to 100
int addposmode=0; // 0=counter, 1=follow
double pipstep=20; // multiplier used for the martingale
double pipstepfactor=1.0; // multiply the pipstep by the number of buy/sell orders
string profitmanagement="Profit Management";
bool basketpercent=false; // enable the basket percent
double profit=0.1; // close all orders if a profit of 10 percents has been reached
double loss=100; // close all orders if a loss of 30 percents has been reached
bool basketpips=false; // enable the basket pips
double profitpips=10; // close all orders if a profit of 10 percents has been reached
double losspips=10000; // close all orders if a loss of 30 percents has been reached
bool basketdollars=false; // enable basket dollars
double dollars=5; // target in dollars
extern string ordersmanagement="Order Management";
extern bool ecn=true; // make the expert compatible with ecn brokers
extern bool instantorders=true; // instant orders
extern bool stoporders=false; // stoporders
extern bool limitorders=false; // limit orders
extern bool onecancelother=false; // cancel opposite pending orders when one is triggered
extern int gap=20; // gap for pending orders
extern bool oppositedelete=true; // delete the pending orders on an opposite signal
extern bool oppositeclose=true; // close the orders on an opposite signal
int oppositecloseminloss=0; // min loss to consider to enable opposite close
bool partialexit=false; // partial exit at opposite close
bool partialclose=false; // partial close at takeprofit2
extern bool reversesignals=false; // reverse the signals, long if short, short if long
extern int maxtrades=100; // maximum trades allowed by the traders
extern int tradesperbar=1; // maximum trades per bar allowed by the expert
extern bool hidesl=false; // hide stop loss
extern bool hidetp=false; // hide take profit
extern double stoploss=6; // stop loss
extern double takeprofit=0; // take profit
double takeprofit2=5; // takeprofit 2 for the rest of the trade, takeprofit2 has to be smaller than takeprofit
double tp2percentage=0.25;
double takeprofit3=20;
double tp3percentage=0.5;
extern double trailingstart=6; // profit in pips required to enable the trailing stop
extern double trailingstop=6; // trailing stop
double trailingprofit=0; // trailing profit
extern double trailingstep=1; // margin allowed to the market to enable the trailing stop
extern double breakevengain=0; // gain in pips required to enable the break even
extern double breakeven=0; // break even
extern int expiration=1440; // expiration in minutes for pending orders
double slippage=0; // maximum difference in pips between signal and order
extern double maxspread=0; // maximum spread allowed by the expert, 0=disabled
extern string adordersmanagement="Advanced Order Management";
bool changedirection=false; // only buy after a sell order, sell after a buy order
bool onesideatatime=false; // enter only long or short when a long or short is already opened
extern bool enteronopenbar=false; // enter only on open bar
bool eoobexceptaddpos=true; // we don't consider added pos for enteronopenbar option
extern bool onetimecalculation=false; // calculate entry logics one time per bar
extern double stop=0; // stoptake=stoploss and takeprofit
extern double trailing=0; // trailing=trailingstart and trailingstop
bool reverseatstop=false; // we reverse the order when the stoploss has been reached
bool rasoppositeclose=true; // close reversed order on opposite signal
int rasstoploss=0; // reversed order stop loss
int rastakeprofit=0; // reversed order take profit
bool sleepafterxlosses=false; // ea sleeps after x consecutive losses
int xlosses=4; // x consecutive losses
int sleepminutes=60; // sleep minutes
double slfactor=0; // enable dynamic stoploss if different of 0
int slmargin=0; // margin to add to the stoploss
double tpfactor=0; // enable dynamic takeprofit if different of 0
int stoplevel=15; // minimum value for dynamic variables
bool atrdynamics=false; // dynamic stops based on atr
int atrtimeframe=60; // timeframe for the atr
int atrperiod=14; // atr period
double tstfactor=0; // enable dynamic trailing start if different of 0
double tsfactor=0; // enable dynamic trailing stop if different of 0
double begfactor=0; // enable dynamic breakevengain if different of 0
double befactor=0; // enable dynamic breakeven if different of 0
double psfactor=0; // enable dynamic pipstep if different of 0
double gfactor=0; // enable dynamic gap if different of 0
bool highlowdynamics=false; // dynamic stops based on highest/lowest
int hltimeframe=0; // high low timeframe
int candles=7; // highest/lowest on the last x candles
bool sdldynamics=false; // dynamic stops based on slope direction line
int sdltimeframe=0; // timeframe of the sdl
int sdlperiod=15; // period of the sdl
int method=3; // method of the sdl
int price=0; // price of the sdl
extern string entrylogics="Entry Logics";
extern double brokermode=0; // 0=we consider only 3/4 digits of price, 1=we consider all digits
extern double distance=1; // minimum distance in pips between price and previous price to consider a movement
extern bool long=true; // trade long orders
extern int movements1=4; // movements to consider for long orders
extern double seconds1=3; // seconds to consider for long orders
extern bool short=true; // trade short orders
extern int movements2=4; // movements to consider for short orders
extern double seconds2=3; // seconds to consider for short orders
int shift=1; // bar in the past to take in consideration for the signal
string timefilter="Time Filter";
bool usetimefilter=false;
int summergmtshift=2; // gmt offset of the broker
int wintergmtshift=1; // gmt offset of the broker
bool mondayfilter=false; // enable special time filter on friday
int mondayhour=12; // start to trade after this hour
int mondayminute=0; // minutes of the friday hour
bool weekfilter=false; // enable time filter
int starthour=7; // start hour to trade after this hour
int startminute=0; // minutes of the start hour
int endhour=21; // stop to trade after this hour
int endminute=0; // minutes of the start hour
bool tradesunday=true; // trade on sunday
bool fridayfilter=false; // enable special time filter on friday
int fridayhour=12; // stop to trade after this hour
int fridayminute=0; // minutes of the friday hour
bool newsfilter=false; // news filter option
int minutesbefore=120; // minutes before the news
int newshour=14; // hour of the news
int newsminute=30; // minute of the news
int minutesafter=120; // minutes after the news
string timeout="Time Outs and Targets";
bool usetimeout=false; // time out, we close the order if after timeout minutes we are over target pips
int timeout1=30; // time out 1
int target1=7; // target 1
int timeout2=70; // time out 2
int target2=5; // target 2
int timeout3=95; // time out 3
int target3=4; // target 3
int timeout4=120; // time out 4
int target4=2; // target 4
int timeout5=150; // time out 5
int target5=-5; // target 5
int timeout6=180; // time out 6
int target6=-8; // target 6
int timeout7=210; // time out 7
int target7=-15; // target 7
//+----------------------------------------------------------------------------+
//| Internal parameters |
//+----------------------------------------------------------------------------+
datetime tstart,tend,tfriday,tmonday,lastbuyopentime,tnews,lastsellopentime,time,time2,time3,time4,time5,time6,time7,lastorderclosetime,longemailtime,shortemailtime;
int i,bc=-1,cnt,tpb,tps,tries=100,lastorder,buyorderprofit,sellorderprofit,lotsize,losses,sleep,xmartingalemode=0,mstop;
int nstarthour,nnewshour,nendhour,nfridayhour,nmondayhour,number,ticket,gmtshift,tradetime,expire,
total,totalbuy,totalsell,totalstopbuy,totalstopsell,totallimitbuy,totallimitsell;
string istarthour,inewshour,istartminute,iendhour,iendminute,inewsminute,ifridayhour,ifridayminute,imondayhour,imondayminute;
double cb,sl,tp,blots,slots,lastbuylot,lastselllot,lastlot,lastprofit,mlots,win[14],sum[14],totalpips,totalprofit,percentprofit,percentloss;
double lastbuyopenprice,lastsellopenprice,lastbuyprofit,lastsellprofit,tradeprofit,buyorderpips,sellorderpips,lossestorecover=0,globallosses;
bool closebasket=false;
bool continuebuy=true;
bool continuesell=true;
double pt,pt2,mt,pricedigits;
int longmovements,shortmovements,timelong,timeshort;
bool settimelong,settimeshort,addstoploss;
double previousupprice,previousdownprice;
//+----------------------------------------------------------------------------+
//| Initialization (done only when you attach the EA to the chart) |
//+----------------------------------------------------------------------------+
int init(){
if(usetimefilter){
sum[2012-1999]=D'2012.03.28 02:00:00';win[2012-1999]=D'2012.10.31 03:00:00';
sum[2011-1999]=D'2011.03.29 02:00:00';win[2011-1999]=D'2011.10.25 03:00:00';
sum[2010-1999]=D'2010.03.30 02:00:00';win[2010-1999]=D'2010.10.26 03:00:00';
sum[2009-1999]=D'2009.03.29 02:00:00';win[2009-1999]=D'2009.10.25 03:00:00';
sum[2008-1999]=D'2008.03.30 02:00:00';win[2008-1999]=D'2008.10.26 03:00:00';
sum[2007-1999]=D'2007.03.25 02:00:00';win[2007-1999]=D'2007.10.28 03:00:00';
sum[2006-1999]=D'2006.03.26 02:00:00';win[2006-1999]=D'2006.10.29 03:00:00';
sum[2005-1999]=D'2005.03.27 02:00:00';win[2005-1999]=D'2005.10.30 03:00:00';
sum[2004-1999]=D'2004.03.28 02:00:00';win[2004-1999]=D'2004.10.31 03:00:00';
sum[2003-1999]=D'2003.03.30 02:00:00';win[2003-1999]=D'2003.10.26 03:00:00';
sum[2002-1999]=D'2002.03.31 02:00:00';win[2002-1999]=D'2002.10.27 03:00:00';
sum[2001-1999]=D'2001.03.25 02:00:00';win[2001-1999]=D'2001.10.28 03:00:00';
sum[2000-1999]=D'2000.03.26 02:00:00';win[2000-1999]=D'2000.10.29 03:00:00';
sum[1999-1999]=D'1999.03.28 02:00:00';win[1999-1999]=D'1999.10.31 03:00:00';
}
if(basketpercent){
percentprofit=AccountBalance()*profit*0.01;
percentloss=-1*AccountBalance()*loss*0.01;
}
if(Digits==3 || Digits==5){
pt=Point*10;
mt=10;
if(brokermode==0){pricedigits=Digits-1;pt2=pt;}
if(brokermode==1){pricedigits=Digits;pt2=Point;}
}else{
pt=Point;
mt=1;
if(brokermode==0 || brokermode==1){pricedigits=Digits;pt2=pt;}
}
if(stop>0){
stoploss=stop;
takeprofit=stop;
}
if(mm){
if(minlot>=1){lotsize=100000;}
if(minlot<1){lotsize=10000;}
if(minlot<0.1){lotsize=1000;}
}
return(0);
}
//+----------------------------------------------------------------------------+
//| Start (called after each tick) |
//+----------------------------------------------------------------------------+
int start(){
//+----------------------------------------------------------------------------+
//| One time |
//+----------------------------------------------------------------------------+
bool onetime=true;
if(onetimecalculation)if(time==Time[0])onetime=false;
//+----------------------------------------------------------------------------+
//| Counters |
//+----------------------------------------------------------------------------+
//if(closebasket || addpositions || onesideatatime || onecancelother || maxtrades<100 || martingale){
totalbuy=count(OP_BUY);
totalsell=count(OP_SELL);
total=totalbuy+totalsell;
if(closebasket){
totalstopbuy=count(OP_BUYSTOP);
totalstopsell=count(OP_SELLSTOP);
totallimitbuy=count(OP_BUYLIMIT);
totallimitsell=count(OP_SELLLIMIT);
}
//}
//+----------------------------------------------------------------------------+
//| Basket close |
//+----------------------------------------------------------------------------+
if(closebasket)if(total+totalstopbuy+totalstopsell+totallimitbuy+totallimitsell>0){
close(3);
delete(6);
}
if(closebasket)if(total+totalstopbuy+totalstopsell+totallimitbuy+totallimitsell==0)closebasket=false;
if(closebasket)return(0);
//+----------------------------------------------------------------------------+
//| Visualize the equity curve with the indicator vGrafBalance&Equity.mq4 |
//+----------------------------------------------------------------------------+
/*
GlobalVariableSet("vGrafBalance",AccountBalance());
GlobalVariableSet("vGrafEquity",AccountEquity());
*/
//+----------------------------------------------------------------------------+
//| Break even, trailing, trailingstop and trailing profit |
//+----------------------------------------------------------------------------+
if(breakevengain>0 && onetime)movebreakeven(breakevengain,breakeven);
if(trailingstop>0 && onetime)movetrailingstop(trailingstart,trailingstop);
if(trailing>0 && onetime)movetrailingstop(trailing,trailing);
if(trailingprofit>0 && onetime)movetrailingprofit(trailingstart,trailingprofit);
//+----------------------------------------------------------------------------+
//| Last open time, price and profits |
//+----------------------------------------------------------------------------+
if(basketpercent || basketdollars || xmartingalemode==1){
buyorderprofit=0;
sellorderprofit=0;
}
if(basketpips){
buyorderpips=0;
sellorderpips=0;
}
lastbuyopenprice=0;lastsellopenprice=0;
if(OrdersTotal()>0){
for(i=0;i<=OrdersTotal();i++){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderCloseTime()==0){
if(OrderType()==OP_BUY){
lastbuyopentime=OrderOpenTime();
if(addpositions)lastbuyopenprice=OrderOpenPrice();
if(basketpercent || basketdollars || xmartingalemode==1)buyorderprofit=buyorderprofit+OrderProfit();
if(basketpips)buyorderpips=buyorderpips+(OrderClosePrice()-OrderOpenPrice())/pt-MarketInfo(Symbol(),MODE_SPREAD);
}
if(OrderType()==OP_SELL){
lastsellopentime=OrderOpenTime();
if(addpositions)lastsellopenprice=OrderOpenPrice();
if(basketpercent || basketdollars || xmartingalemode==1)sellorderprofit=sellorderprofit+OrderProfit();
if(basketpips)sellorderpips=sellorderpips+(OrderOpenPrice()-OrderClosePrice())/pt-MarketInfo(Symbol(),MODE_SPREAD);
}
}
}
}
if(basketpercent || basketdollars || xmartingalemode==1)totalprofit=buyorderprofit+sellorderprofit;
if(basketpips)totalpips=buyorderpips+sellorderpips;
//+----------------------------------------------------------------------------+
//| Baskets |
//+----------------------------------------------------------------------------+
if(basketpercent)if((mm && totalprofit>=(AccountBalance()*profit*0.01)) || (mm==false && totalprofit>=percentprofit)
|| (mm && totalprofit<=(-1*AccountBalance()*loss*0.01))|| (mm==false && totalprofit<=percentloss)){
closebasket=true;
}
if(basketpips)if((totalpips>=profitpips) || (totalpips<=(-1*losspips))){
closebasket=true;
}
if(basketdollars)if(totalprofit>=dollars){
closebasket=true;
}
if(closebasket)return(0);
//+----------------------------------------------------------------------------+
//| Sleep |
//+----------------------------------------------------------------------------+
bool nosleep=true;
if(sleepafterxlosses && OrdersHistoryTotal()>0){
losses=0;sleep=0;
for(i=OrdersHistoryTotal()-1;i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
if(OrderProfit()>=0)sleep=1;
if(OrderProfit()<0 && sleep==0){losses++;}
}
}
for(i=0;i<OrdersHistoryTotal();i++){
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
if(losses>=xlosses)lastorderclosetime=OrderCloseTime();
}
}
if(TimeCurrent()-lastorderclosetime<sleepminutes*60)nosleep=false;
}
//+----------------------------------------------------------------------------+
//| Trades per bar |
//+----------------------------------------------------------------------------+
if(tradesperbar==1){
if(lastbuyopentime<Time[0])tpb=0;else tpb=1;
if(lastsellopentime<Time[0])tps=0;else tps=1;
}
if(tradesperbar!=1 && bc!=Bars){tpb=0;tps=0;bc=Bars;}
//+----------------------------------------------------------------------------+
//| Indicators calling |
//+----------------------------------------------------------------------------+
if(onetime || shift==0){
if(atrdynamics){
double atr=iATR(NULL,atrtimeframe,atrperiod,shift);
}
if(highlowdynamics){
double high=iHigh(NULL,hltimeframe,iHighest(NULL,0,MODE_HIGH,candles,1));
double low=iLow(NULL,hltimeframe,iLowest(NULL,0,MODE_LOW,candles,1));
}
if(sdldynamics){
int sdlbar1=0;
for(i=0;i<=100;i++){
if(sdlbar1!=0)continue;
if(iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i)>
iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+1)
&& iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+1)<
iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+2))sdlbar1=i;
}
int sdlbar2=0;
for(i=0;i<=100;i++){
if(sdlbar2!=0)continue;
if(iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i)<
iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+1)
&& iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+1)>
iCustom(NULL,sdltimeframe,"Slope Direction Line",sdlperiod,method,price,2,i+2))sdlbar2=i;
}
}
if(total==0){
if(previousupprice<=NormalizeDouble(Ask,pricedigits)-distance*pt2){
longmovements=longmovements+1;
previousupprice=NormalizeDouble(Ask,pricedigits);
if(settimelong==false){
timelong=TimeCurrent();
settimelong=true;
}
}
else{
previousupprice=0;
longmovements=0;
settimelong=false;
timelong=0;
}
if(previousdownprice>=NormalizeDouble(Ask,pricedigits)+distance*pt2){
shortmovements=shortmovements+1;
previousdownprice=NormalizeDouble(Ask,pricedigits);
if(settimeshort==false){
timeshort=TimeCurrent();
settimeshort=true;
}
}
else{
previousdownprice=0;
shortmovements=0;
settimeshort=false;
timeshort=0;
}
if(previousupprice==0){
previousupprice=NormalizeDouble(Ask,pricedigits);
}
if(previousdownprice==0){
previousdownprice=NormalizeDouble(Ask,pricedigits);
}
}
int signal=0;
if(long && longmovements==movements1 || shortmovements==movements2 && longmovements>=shortmovements && TimeCurrent()-timelong<=seconds1)signal=1;
if(short && longmovements==movements1 || shortmovements==movements2 && longmovements<shortmovements && TimeCurrent()-timeshort<=seconds2)signal=2;
if(signal!=0){
previousupprice=0;
previousdownprice=0;
longmovements=0;
shortmovements=0;
settimelong=false;
settimeshort=false;
timelong=0;
timeshort=0;
}
//--- dynamics variables
if(atrdynamics){
if(signal!=0 && slfactor!=0)stoploss=(atr/pt)*slfactor+slmargin;
if(signal!=0 && tpfactor!=0)takeprofit=(atr/pt)*tpfactor+slmargin;
if(signal!=0 && tstfactor!=0)trailingstart=(atr/pt)*tstfactor;
if(signal!=0 && tsfactor!=0)trailingstop=(atr/pt)*tsfactor;
if(signal!=0 && begfactor!=0)breakevengain=(atr/pt)*begfactor;
if(signal!=0 && befactor!=0)breakeven=(atr/pt)*befactor;
if(signal!=0 && psfactor!=0)pipstep=(atr/pt)*psfactor;
if(signal!=0 && gfactor!=0)gap=(atr/pt)*gfactor;
}
if(highlowdynamics){
if(signal==1 && slfactor!=0)stoploss=((Ask-low)/pt)*slfactor+slmargin;
if(signal==1 && tpfactor!=0)takeprofit=((high-Bid)/pt)*tpfactor;
if(signal==2 && slfactor!=0)stoploss=((high-Bid)/pt)*slfactor+slmargin;
if(signal==2 && tpfactor!=0)takeprofit=((Ask-low)/pt)*tpfactor;
}
if(sdldynamics){
if(signal==1 && slfactor!=0)stoploss=((Ask-Low[sdlbar1])/pt)*slfactor+slmargin;
if(signal==1 && tpfactor!=0)takeprofit=((High[sdlbar2]-Bid)/pt)*tpfactor;
if(signal==2 && slfactor!=0)stoploss=((High[sdlbar2]-Bid)/pt)*slfactor+slmargin;
if(signal==2 && tpfactor!=0)takeprofit=((Ask-Low[sdlbar1])/pt)*tpfactor;
}
if(atrdynamics || highlowdynamics || sdldynamics){
if(stoploss<stoplevel)stoploss=stoplevel;
if(takeprofit<stoplevel)takeprofit=stoplevel;
}
//if(ma>0 && ma!=EMPTY_VALUE)signal=1;
}
//Comment("\nhau = "+DoubleToStr(hau,5),"\nhad = "+DoubleToStr(had,5));
//+----------------------------------------------------------------------------+
//| Time filter |
//+----------------------------------------------------------------------------+
bool tradetime=true;
if(usetimefilter)if(checktime())tradetime=false;
//+----------------------------------------------------------------------------+
//| Signals |
//+----------------------------------------------------------------------------+
bool buy=false;
bool sell=false;
bool barstatus=true;
if(enteronopenbar)if(iVolume(NULL,0,0)>1)barstatus=false;
bool buyaddstatus=true;bool selladdstatus=true;
if(addpositions){
if(totalbuy>0)buyaddstatus=false;
if(totalsell>0)selladdstatus=false;
if(totalbuy>0){if((addposmode==0 && Ask<=lastbuyopenprice-pipstep*pt*MathPow(pipstepfactor,totalbuy))
|| (addposmode==1 && Ask>=lastbuyopenprice+pipstep*pt*MathPow(pipstepfactor,totalbuy))
&& (eoobexceptaddpos || (eoobexceptaddpos==false && barstatus)))buy=true;}
if(totalsell>0){if((addposmode==0 && Bid>=lastsellopenprice+pipstep*pt*MathPow(pipstepfactor,totalsell))
|| (addposmode==1 && Bid<=lastsellopenprice-pipstep*pt*MathPow(pipstepfactor,totalsell))
&& (eoobexceptaddpos || (eoobexceptaddpos==false && barstatus)))sell=true;}
}
bool buyside=true;bool sellside=true;
if(onesideatatime){if(totalsell>0)buyside=false;if(totalbuy>0)sellside=false;}
if(signal==1 && buyaddstatus && barstatus && buyside && continuebuy && tradetime && nosleep){
if(reversesignals)sell=true;else buy=true;
if(changedirection){continuebuy=false;continuesell=true;}
}
if(signal==2 && selladdstatus && barstatus && sellside && continuesell && tradetime && nosleep){
if(reversesignals)buy=true;else sell=true;
if(changedirection){continuebuy=true;continuesell=false;}
}
//+----------------------------------------------------------------------------+
//| Close and delete |
//+----------------------------------------------------------------------------+
if(sell)if(oppositeclose)if(partialexit)partialclose(OP_BUY,2);else close(OP_BUY);
if(buy)if(oppositeclose)if(partialexit)partialclose(OP_SELL,2);else close(OP_SELL);
if(hidetp || hidesl){hideclose(OP_BUY);hideclose(OP_SELL);}
if(usetimeout && onetime){closetime(OP_BUY);closetime(OP_SELL);}
if(onecancelother){if(totalsell>0){delete(OP_BUYSTOP);delete(OP_BUYLIMIT);}if(totalbuy>0){delete(OP_SELLSTOP);delete(OP_SELLLIMIT);}}
if(partialclose){partialclose(OP_BUY,1);partialclose(OP_SELL,1);}
if(partialclose){partialclose2(OP_BUY,1);partialclose2(OP_SELL,1);}
if(xmartingalemode==1 && totalprofit>=-1*lossestorecover){close(OP_BUY);close(OP_SELL);}
//+----------------------------------------------------------------------------+
//| Closed martingale |
//+----------------------------------------------------------------------------+
xmartingalemode=0;
if(martingale && !addpositions){
globallosses=0;
lossestorecover=0;
/*lastbuylot=0;
lastselllot=0;
lastorder=0;*/
if(OrdersHistoryTotal()>0){
for(i=0;i<=OrdersHistoryTotal();i++){
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
lastprofit=OrderProfit();
lastlot=OrderLots();
/*if(OrderType()==OP_BUY){
lastbuyprofit=OrderProfit();
lastbuylot=OrderLots();
lastorder=1;
}
if(OrderType()==OP_SELL){
lastsellprofit=OrderProfit();
lastselllot=OrderLots();
lastorder=2;
}*/
}
}
}
mlots=0;
if(lastprofit<0){
mstop=0;
if(OrdersHistoryTotal()>0){
for(i=OrdersHistoryTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
if(OrderProfit()>0)mstop=1;
if(mstop==0)globallosses=globallosses+OrderProfit();
}
}
}
mlots=lastlot*multiplier;
if(martingalemode==1)xmartingalemode=1;
lossestorecover=NormalizeDouble(globallosses*0.01*percentrecovering,2);
}
else mlots=lots;
}
//+----------------------------------------------------------------------------+
//| Max spread, max trades |
//+----------------------------------------------------------------------------+
if(maxspread!=0)if((Ask-Bid)>maxspread*mt*pt)return(0);
if(maxtrades<100)if((total)>=maxtrades)return(0);
if(mm)if(martingale==false || (martingale && !addpositions && lastprofit>=0) || (martingale && addpositions))lots=lotsoptimized();
blots=lots;slots=lots;
if(martingale){
if(addpositions){blots=lots*MathPow(multiplier,totalbuy);slots=lots*MathPow(multiplier,totalsell);}
else {blots=mlots;slots=mlots;}
}
//+----------------------------------------------------------------------------+
//| Instant and pending orders |
//+----------------------------------------------------------------------------+
if(buy && tpb<tradesperbar && !onlysell){
if(oppositedelete){delete(OP_SELLSTOP);delete(OP_SELLLIMIT);}
ticket=0;number=0;expire=0;
if(stoporders || limitorders)if(expiration>0)expire=TimeCurrent()+(expiration*60)-5;
if(!ecn){
if(instantorders && xmartingalemode==0){
while(ticket<=0 && number<tries){
while(!IsTradeAllowed())Sleep(5000);
RefreshRates();ticket=open(OP_BUY,blots,Ask,stoploss,takeprofit,expire,Blue);
if(ticket<0){if(useprint)Print("Error opening BUY order! ",errordescription(GetLastError()));number++;}
}
}
if(instantorders && xmartingalemode==1){
while(ticket<=0 && number<tries){
while(!IsTradeAllowed())Sleep(5000);
RefreshRates();ticket=open(OP_BUY,blots,Ask,stoploss,0,expire,Blue);
if(ticket<0){if(useprint)Print("Error opening BUY order! ",errordescription(GetLastError()));number++;}
}
}
if(stoporders)if(time2!=Time[0]){RefreshRates();ticket=open(OP_BUYSTOP,blots,Ask+gap*pt,stoploss,takeprofit,expire,Blue);time2=Time[0];tpb++;}
if(limitorders)if(time3!=Time[0]){RefreshRates();ticket=open(OP_BUYLIMIT,blots,Bid-gap*pt,stoploss,takeprofit,expire,Blue);time3=Time[0];tpb++;}
if(reverseatstop)if(time6!=Time[0]){if(rasoppositeclose)delete(OP_BUYSTOP);RefreshRates();ticket=open(OP_SELLSTOP,blots,Bid-stoploss*pt,rasstoploss,rastakeprofit,expire,Red);time6=Time[0];}
}
if(ecn){
if(instantorders){
while(ticket<=0 && number<tries){
while(!IsTradeAllowed())Sleep(5000);
RefreshRates();ticket=open(OP_BUY,blots,Ask,0,0,expire,Blue);
if(ticket<0){if(useprint)Print("Error opening BUY order! ",errordescription(GetLastError()));number++;}
}
}
if(stoporders)if(time2!=Time[0]){RefreshRates();ticket=open(OP_BUYSTOP,blots,Ask+gap*pt,0,0,expire,Blue);time2=Time[0];tpb++;}
if(limitorders)if(time3!=Time[0]){RefreshRates();ticket=open(OP_BUYLIMIT,blots,Bid-gap*pt,0,0,expire,Blue);time3=Time[0];tpb++;}
if(reverseatstop)if(time6!=Time[0]){if(rasoppositeclose)delete(OP_BUYSTOP);RefreshRates();ticket=open(OP_SELLSTOP,blots,Bid-stoploss*pt,0,0,expire,Red);time6=Time[0];}
}
if(instantorders)if(ticket<=0){if(useprint)Print("Error Occured : "+errordescription(GetLastError()));}else tpb++;
if(emailalert)if(longemailtime!=Time[0]){RefreshRates();RefreshRates();SendMail("[Long Trade]", "["+Symbol()+"] "+DoubleToStr(Ask,Digits));longemailtime=Time[0];}
}
if(sell && tps<tradesperbar && !onlybuy){
if(oppositedelete){delete(OP_BUYSTOP);delete(OP_BUYLIMIT);}
ticket=0;number=0;expire=0;
if(stoporders || limitorders)if(expiration>0)expire=TimeCurrent()+(expiration*60)-5;
if(!ecn){
if(instantorders && xmartingalemode==0){
while(ticket<=0 && number<tries){
while(!IsTradeAllowed())Sleep(5000);
RefreshRates();ticket=open(OP_SELL,slots,Bid,stoploss,takeprofit,expire,Red);
if(ticket<0){if(useprint)Print("Error opening BUY order! ",errordescription(GetLastError()));number++;}
}
}
if(instantorders && xmartingalemode==1){
while(ticket<=0 && number<tries){
while(!IsTradeAllowed())Sleep(5000);
RefreshRates();ticket=open(OP_SELL,slots,Bid,stoploss,0,expire,Red);
if(ticket<0){if(useprint)Print("Error opening BUY order! ",errordescription(GetLastError()));number++;}
}
}
if(stoporders)if(time4!=Time[0]){RefreshRates();ticket=open(OP_SELLSTOP,slots,Bid-gap*pt,stoploss,takeprofit,expire,Red);time4=Time[0];tps++;}
if(limitorders)if(time5!=Time[0]){RefreshRates();ticket=open(OP_SELLLIMIT,slots,Ask+gap*pt,stoploss,takeprofit,expire,Red);time5=Time[0];tps++;}
if(reverseatstop)if(time7!=Time[0]){if(rasoppositeclose)delete(OP_SELLSTOP);RefreshRates();ticket=open(OP_BUYSTOP,blots,Ask+stoploss*pt,rasstoploss,rastakeprofit,expire,Red);time7=Time[0];}
}
if(ecn){
if(instantorders){
while(ticket<=0 && number<tries){
while(!IsTradeAllowed())Sleep(5000);
RefreshRates();ticket=open(OP_SELL,slots,Bid,0,0,expire,Red);
if(ticket<0){if(useprint)Print("Error opening BUY order! ",errordescription(GetLastError()));number++;}
}
}
if(stoporders)if(time4!=Time[0]){RefreshRates();ticket=open(OP_SELLSTOP,slots,Bid-gap*pt,0,0,expire,Red);time4=Time[0];tps++;}
if(limitorders)if(time5!=Time[0]){RefreshRates();ticket=open(OP_SELLLIMIT,slots,Ask+gap*pt,0,0,expire,Red);time5=Time[0];tps++;}
if(reverseatstop)if(time7!=Time[0]){if(rasoppositeclose)delete(OP_SELLSTOP);RefreshRates();ticket=open(OP_BUYSTOP,blots,Ask+stoploss*pt,0,0,expire,Red);time7=Time[0];}
}
if(instantorders)if(ticket<=0){if(useprint)Print("Error Occured : "+errordescription(GetLastError()));}else tps++;
if(emailalert)if(shortemailtime!=Time[0]){RefreshRates();RefreshRates();SendMail("[Short Trade]", "["+Symbol()+"] "+DoubleToStr(Bid,Digits));shortemailtime=Time[0];}
}
if(ecn)ecnmodify(stoploss,takeprofit);
if(onetimecalculation)time=Time[0];
return(0);
}
//+----------------------------------------------------------------------------+
//| Open orders function |
//+----------------------------------------------------------------------------+
int open(int type,double lots,double price,double stoploss,double takeprofit,int expire,color clr){
int ticket=0;
if(lots<minlot)lots=minlot;
if(lots>maxlot)lots=maxlot;
if(type==OP_BUY || type==OP_BUYSTOP || type==OP_BUYLIMIT){
if(hidesl==false && stoploss>0){sl=price-stoploss*pt;}else{sl=0;}
if(hidetp==false && takeprofit>0){tp=price+takeprofit*pt;}else{tp=0;}
}
if(type==OP_SELL || type==OP_SELLSTOP || type==OP_SELLLIMIT){
if(hidesl==false && stoploss>0){sl=price+stoploss*pt;}else{sl=0;}
if(hidetp==false && takeprofit>0){tp=price-takeprofit*pt;}else{tp=0;}
}
ticket=OrderSend(Symbol(),type,NormalizeDouble(lots,lotdigits),NormalizeDouble(price,Digits),slippage*mt,sl,tp,
comment+" "+DoubleToStr(magic,0),magic,expire,clr);
return(ticket);
}
//+----------------------------------------------------------------------------+
//| Lots optimized functions |
//+----------------------------------------------------------------------------+
double lotsoptimized(){
double lot;
if(stoploss>0)lot=AccountBalance()*(risk/100)/(stoploss*pt/MarketInfo(Symbol(),MODE_TICKSIZE)*MarketInfo(Symbol(),MODE_TICKVALUE));
else lot=NormalizeDouble((AccountBalance()/lotsize)*minlot*risk,lotdigits);
//lot=AccountFreeMargin()/(100.0*(NormalizeDouble(MarketInfo(Symbol(),MODE_MARGINREQUIRED),4)+5.0)/risk)-0.05;
return(lot);
}
//+----------------------------------------------------------------------------+
//| Time filter functions |
//+----------------------------------------------------------------------------+
bool checktime(){
if(TimeCurrent()<win[TimeYear(TimeCurrent())-1999] && TimeCurrent()>sum[TimeYear(TimeCurrent())-1999])gmtshift=summergmtshift;
else gmtshift=wintergmtshift;
string svrdate=Year()+"."+Month()+"."+Day();
if(mondayfilter){
nmondayhour=mondayhour+(gmtshift);if(nmondayhour>23)nmondayhour=nmondayhour-24;
if(nmondayhour<10)imondayhour="0"+nmondayhour;
if(nmondayhour>9)imondayhour=nmondayhour;
if(mondayminute<10)imondayminute="0"+mondayminute;
if(mondayminute>9)imondayminute=mondayminute;
tmonday=StrToTime(svrdate+" "+imondayhour+":"+imondayminute);
}
if(weekfilter){
nstarthour=starthour+(gmtshift);if(nstarthour>23)nstarthour=nstarthour-24;
if(nstarthour<10)istarthour="0"+nstarthour;
if(nstarthour>9)istarthour=nstarthour;
if(startminute<10)istartminute="0"+startminute;
if(startminute>9)istartminute=startminute;
tstart=StrToTime(svrdate+" "+istarthour+":"+istartminute);
nendhour=endhour+(gmtshift);if(nendhour>23)nendhour=nendhour-24;
if(nendhour<10)iendhour="0"+nendhour;
if(nendhour>9)iendhour=nendhour;
if(endminute<10)iendminute="0"+endminute;
if(endminute>9)iendminute=endminute;
tend=StrToTime(svrdate+" "+iendhour+":"+iendminute);
}
if(fridayfilter){
nfridayhour=fridayhour+(gmtshift);if(nfridayhour>23)nfridayhour=nfridayhour-24;
if(nfridayhour<10)ifridayhour="0"+nfridayhour;
if(nfridayhour>9)ifridayhour=nfridayhour;
if(fridayminute<10)ifridayminute="0"+fridayminute;
if(fridayminute>9)ifridayminute=fridayminute;
tfriday=StrToTime(svrdate+" "+ifridayhour+":"+ifridayminute);
}
if(newsfilter){
nnewshour=newshour+(gmtshift);if(nnewshour>23)nnewshour=nnewshour-24;
if(nnewshour<10)inewshour="0"+nnewshour;
if(nnewshour>9)inewshour=nnewshour;
if(newsminute<10)inewsminute="0"+newsminute;
if(newsminute>9)inewsminute=newsminute;
tnews=StrToTime(svrdate+" "+inewshour+":"+inewsminute);
}
if(weekfilter)if((nstarthour<=nendhour && TimeCurrent()<tstart || TimeCurrent()>tend) || (nstarthour>nendhour && TimeCurrent()<tstart && TimeCurrent()>tend))return(true);
if(tradesunday==false)if(DayOfWeek()==0)return(true);
if(fridayfilter)if(DayOfWeek()==5 && TimeCurrent()>tfriday)return(true);
if(mondayfilter)if(DayOfWeek()==1 && TimeCurrent()<tmonday)return(true);
if(newsfilter)if(TimeCurrent()>tnews-minutesbefore*60 && TimeCurrent()<tnews+minutesafter*60)return(true);
return(false);
}
//+----------------------------------------------------------------------------+
//| Counter |
//+----------------------------------------------------------------------------+
int count(int type){
cnt=0;
if(OrdersTotal()>0){
for(i=OrdersTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderType()==type && OrderMagicNumber()==magic)cnt++;
}
return(cnt);
}
}
//+----------------------------------------------------------------------------+
//| Close functions |
//+----------------------------------------------------------------------------+
void close(int type){
if(OrdersTotal()>0){
for(i=OrdersTotal()-1;i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(type==OP_BUY && OrderType()==OP_BUY){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic
&& (oppositecloseminloss==0 || (oppositecloseminloss>0 && (OrderProfit()/(OrderLots()*10))<-1*oppositecloseminloss))){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),slippage*mt);
}
}
if(type==OP_SELL && OrderType()==OP_SELL){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic
&& (oppositecloseminloss==0 || (oppositecloseminloss>0 && (OrderProfit()/(OrderLots()*10))<-1*oppositecloseminloss))){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),slippage*mt);
}
}
if(type==3){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_BUY){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),slippage*mt);
}
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_SELL){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),slippage*mt);
}
}
}
}
}
void partialclose(int type,int mode){
if(OrdersTotal()>0){
for(i=OrdersTotal()-1;i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(type==OP_BUY && OrderType()==OP_BUY){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderLots()>=lots
&& (mode==1 && OrderProfit()>=takeprofit2*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),OrderLots()*0.5,NormalizeDouble(Bid,Digits),slippage*mt);
}
}
if(type==OP_SELL && OrderType()==OP_SELL){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderLots()>=lots
&& (mode==1 && OrderProfit()>=takeprofit2*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),OrderLots()*0.5,NormalizeDouble(Ask,Digits),slippage*mt);
}
}
if(type==3){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_BUY && OrderLots()>=lots
&& (mode==1 && OrderProfit()>=takeprofit2*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),OrderLots()*0.5,NormalizeDouble(Bid,Digits),slippage*mt);
}
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_SELL && OrderLots()>=lots
&& (mode==1 && OrderProfit()>=takeprofit2*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),OrderLots()*0.5,NormalizeDouble(Ask,Digits),slippage*mt);
}
}
}
}
}
void partialclose2(int type,int mode){
if(OrdersTotal()>0){
for(i=OrdersTotal()-1;i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(type==OP_BUY && OrderType()==OP_BUY){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderLots()<lots
&& (mode==1 && OrderProfit()>=takeprofit3*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),NormalizeDouble(OrderLots()*tp3percentage,lotdigits),NormalizeDouble(Bid,Digits),slippage*mt);
}
}
if(type==OP_SELL && OrderType()==OP_SELL){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderLots()<lots
&& (mode==1 && OrderProfit()>=takeprofit3*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),NormalizeDouble(OrderLots()*tp3percentage,lotdigits),NormalizeDouble(Ask,Digits),slippage*mt);
}
}
if(type==3){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_BUY && OrderLots()<lots
&& (mode==1 && OrderProfit()>=takeprofit3*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),NormalizeDouble(OrderLots()*tp3percentage,lotdigits),NormalizeDouble(Bid,Digits),slippage*mt);
}
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_SELL && OrderLots()<lots
&& (mode==1 && OrderProfit()>=takeprofit3*OrderLots()*10) || mode==2){
RefreshRates();
OrderClose(OrderTicket(),NormalizeDouble(OrderLots()*tp3percentage,lotdigits),NormalizeDouble(Ask,Digits),slippage*mt);
}
}
}
}
}
void hideclose(int type){
if(OrdersTotal()>0){
for(i=OrdersTotal()-1;i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(type==OP_BUY && OrderType()==OP_BUY){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic
&& (hidesl && stoploss>0 && NormalizeDouble(OrderClosePrice()-OrderOpenPrice(),Digits)<=(-1)*stoploss*pt-MarketInfo(Symbol(),MODE_SPREAD)*pt)
|| (hidetp && takeprofit>0 && NormalizeDouble(OrderClosePrice()-OrderOpenPrice(),Digits)>=takeprofit*pt)){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),Bid,slippage*mt);
}
}
if(type==OP_SELL && OrderType()==OP_SELL){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic
&& (hidesl && stoploss>0 && NormalizeDouble(OrderOpenPrice()-OrderClosePrice(),Digits)<=(-1)*stoploss*pt-MarketInfo(Symbol(),MODE_SPREAD)*pt)
|| (hidetp && takeprofit>0 && NormalizeDouble(OrderOpenPrice()-OrderClosePrice(),Digits)>=takeprofit*pt)){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),Ask,slippage*mt);
}
}
}
}
}
void closetime(int type){
tradeprofit=0;
tradetime=0;
if(OrdersTotal()>0){
for(i=OrdersTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(type==OP_BUY && OrderType()==OP_BUY){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
tradeprofit=NormalizeDouble(OrderClosePrice()-OrderOpenPrice(),Digits);
tradetime=TimeCurrent()-OrderOpenTime();
if((tradeprofit>=target1*pt && tradetime>timeout1*60 && tradetime<timeout2*60)
|| (tradeprofit>=target2*pt && tradetime>timeout2*60 && tradetime<timeout3*60)
|| (tradeprofit>=target3*pt && tradetime>timeout3*60 && tradetime<timeout4*60)
|| (tradeprofit>=target4*pt && tradetime>timeout4*60 && tradetime<timeout5*60)
|| (tradeprofit>=target5*pt && tradetime>timeout5*60 && tradetime<timeout6*60)
|| (tradeprofit>=target6*pt && tradetime>timeout6*60 && tradetime<timeout7*60)
|| (tradeprofit>=target7*pt && tradetime>timeout7*60)){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),Bid,slippage*mt);
}
}
}
if(type==OP_SELL && OrderType()==OP_SELL){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
tradeprofit=NormalizeDouble(OrderClosePrice()-OrderOpenPrice(),Digits);
tradetime=TimeCurrent()-OrderOpenTime();
if((tradeprofit>=target1*pt && tradetime>timeout1*60 && tradetime<timeout2*60)
|| (tradeprofit>=target2*pt && tradetime>timeout2*60 && tradetime<timeout3*60)
|| (tradeprofit>=target3*pt && tradetime>timeout3*60 && tradetime<timeout4*60)
|| (tradeprofit>=target4*pt && tradetime>timeout4*60 && tradetime<timeout5*60)
|| (tradeprofit>=target5*pt && tradetime>timeout5*60 && tradetime<timeout6*60)
|| (tradeprofit>=target6*pt && tradetime>timeout6*60 && tradetime<timeout7*60)
|| (tradeprofit>=target7*pt && tradetime>timeout7*60)){
RefreshRates();
OrderClose(OrderTicket(),OrderLots(),Ask,slippage*mt);
}
}
}
}
}
}
void delete(int type){
if(OrdersTotal()>0){
for(i=OrdersTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(type!=6){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==type){
OrderDelete(OrderTicket());
}
}
if(type==6){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic && OrderType()==OP_BUYSTOP || OrderType()==OP_SELLSTOP
|| OrderType()==OP_BUYLIMIT || OrderType()==OP_SELLLIMIT){
OrderDelete(OrderTicket());
}
}
}
}
}
//+----------------------------------------------------------------------------+
//| Modifications functions |
//+----------------------------------------------------------------------------+
void movebreakeven(double breakevengain,double breakeven){
RefreshRates();
if(OrdersTotal()>0){
for(i=OrdersTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderType()<=OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
if(OrderType()==OP_BUY){
if(NormalizeDouble((Bid-OrderOpenPrice()),Digits)>=NormalizeDouble(breakevengain*pt,Digits)){
if((NormalizeDouble((OrderStopLoss()-OrderOpenPrice()),Digits)<NormalizeDouble(breakeven*pt,Digits)) || OrderStopLoss()==0){
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderOpenPrice()+breakeven*pt,Digits),OrderTakeProfit(),0,Blue);
return(0);
}
}
}
else{
if(NormalizeDouble((OrderOpenPrice()-Ask),Digits)>=NormalizeDouble(breakevengain*pt,Digits)){
if((NormalizeDouble((OrderOpenPrice()-OrderStopLoss()),Digits)<NormalizeDouble(breakeven*pt,Digits)) || OrderStopLoss()==0){
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderOpenPrice()-breakeven*pt,Digits),OrderTakeProfit(),0,Red);
return(0);
}
}
}
}
}
}
}
void movetrailingstop(double trailingstart,double trailingstop){
RefreshRates();
if(OrdersTotal()>0){
for(i=OrdersTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderType()<=OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
if(OrderType()==OP_BUY){
if(NormalizeDouble(Ask,Digits)>NormalizeDouble(OrderOpenPrice()+trailingstart*pt,Digits)
&& NormalizeDouble(OrderStopLoss(),Digits)<NormalizeDouble(Bid-(trailingstop+trailingstep)*pt,Digits)){
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid-trailingstop*pt,Digits),OrderTakeProfit(),0,Blue);
return(0);
}
}
else{
if(NormalizeDouble(Bid,Digits)<NormalizeDouble(OrderOpenPrice()-trailingstart*pt,Digits)
&& (NormalizeDouble(OrderStopLoss(),Digits)>(NormalizeDouble(Ask+(trailingstop+trailingstep)*pt,Digits))) || (OrderStopLoss()==0)){
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask+trailingstop*pt,Digits),OrderTakeProfit(),0,Red);
return(0);
}
}
}
}
}
}
void movetrailingprofit(double trailingstart,double trailingprofit){
RefreshRates();
for(i=OrdersTotal();i>=0;i--){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol()&& OrderMagicNumber()==magic){
if(OrderType()==OP_BUY){
if(NormalizeDouble(Bid-OrderOpenPrice(),Digits)<=NormalizeDouble((-1)*trailingstart*pt,Digits)){
if(NormalizeDouble(OrderTakeProfit(),Digits)>NormalizeDouble(Bid+(trailingprofit+trailingstep)*pt,Digits)
|| NormalizeDouble(OrderTakeProfit(),Digits)==0){
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(Bid+trailingprofit*pt,Digits),0,Blue);
}
}
}
if(OrderType()==OP_SELL){
if(NormalizeDouble(OrderOpenPrice()-Ask,Digits)<=NormalizeDouble((-1)*trailingstart*pt,Digits)){
if(NormalizeDouble(OrderTakeProfit(),Digits)<NormalizeDouble(Ask-(trailingprofit+trailingstep)*pt,Digits)){
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(Ask-trailingprofit*pt,Digits),0,Red);
}
}
}
}
}
}
}
//+------------------------------------------------------------------+
//| ECN modification |
//+------------------------------------------------------------------+
void ecnmodify(double stoploss,double takeprofit){
for(i=OrdersTotal();i>=0;i--){
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic){
if(OrderType()==OP_BUY){
if(OrderStopLoss()==0 && stoploss>0 && takeprofit==0){
RefreshRates();
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask-stoploss*pt,Digits),OrderTakeProfit(),0,Red);
}
if(OrderTakeProfit()==0 && stoploss==0 && takeprofit>0){
RefreshRates();
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(Ask+takeprofit*pt,Digits),0,Red);
}
if(OrderTakeProfit()==0 && OrderStopLoss()==0 && stoploss>0 && takeprofit>0){
RefreshRates();
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask-stoploss*pt,Digits),NormalizeDouble(Ask+takeprofit*pt,Digits),0,Red);
}
}
if(OrderType()==OP_SELL){
if(OrderStopLoss()==0 && stoploss>0 && takeprofit==0){
RefreshRates();
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid+stoploss*pt,Digits),OrderTakeProfit(),0,Red);
}
if(OrderTakeProfit()==0 && stoploss==0 && takeprofit>0){
RefreshRates();
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(Bid-takeprofit*pt,Digits),0,Red);
}
if(OrderTakeProfit()==0 && OrderStopLoss()==0 && stoploss>0 && takeprofit>0){
RefreshRates();
OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid+stoploss*pt,Digits),NormalizeDouble(Bid-takeprofit*pt,Digits),0,Red);
}
}
}
}
}
//+----------------------------------------------------------------------------+
//| Error functions |
//+----------------------------------------------------------------------------+
string errordescription(int code){
string error;
switch(code){
case 0:
case 1:error="no error";break;
case 2:error="common error";break;
case 3:error="invalid trade parameters";break;
case 4:error="trade server is busy";break;
case 5:error="old version of the client terminal";break;
case 6:error="no connection with trade server";break;
case 7:error="not enough rights";break;
case 8:error="too frequent requests";break;
case 9:error="malfunctional trade operation";break;
case 64:error="account disabled";break;
case 65:error="invalid account";break;
case 128:error="trade timeout";break;
case 129:error="invalid price";break;
case 130:error="invalid stops";break;
case 131:error="invalid trade volume";break;
case 132:error="market is closed";break;
case 133:error="trade is disabled";break;
case 134:error="not enough money";break;
case 135:error="price changed";break;
case 136:error="off quotes";break;
case 137:error="broker is busy";break;
case 138:error="requote";break;
case 139:error="order is locked";break;
case 140:error="long positions only allowed";break;
case 141:error="too many requests";break;
case 145:error="modification denied because order too close to market";break;
case 146:error="trade context is busy";break;
case 4000:error="no error";break;
case 4001:error="wrong function pointer";break;
case 4002:error="array index is out of range";break;
case 4003:error="no memory for function call stack";break;
case 4004:error="recursive stack overflow";break;
case 4005:error="not enough stack for parameter";break;
case 4006:error="no memory for parameter string";break;
case 4007:error="no memory for temp string";break;
case 4008:error="not initialized string";break;
case 4009:error="not initialized string in array";break;
case 4010:error="no memory for array\' string";break;
case 4011:error="too long string";break;
case 4012:error="remainder from zero divide";break;
case 4013:error="zero divide";break;
case 4014:error="unknown command";break;
case 4015:error="wrong jump (never generated error)";break;
case 4016:error="not initialized array";break;
case 4017:error="dll calls are not allowed";break;
case 4018:error="cannot load library";break;
case 4019:error="cannot call function";break;
case 4020:error="expert function calls are not allowed";break;
case 4021:error="not enough memory for temp string returned from function";break;
case 4022:error="system is busy (never generated error)";break;
case 4050:error="invalid function parameters count";break;
case 4051:error="invalid function parameter value";break;
case 4052:error="string function internal error";break;
case 4053:error="some array error";break;
case 4054:error="incorrect series array using";break;
case 4055:error="custom indicator error";break;
case 4056:error="arrays are incompatible";break;
case 4057:error="global variables processing error";break;
case 4058:error="global variable not found";break;
case 4059:error="function is not allowed in testing mode";break;
case 4060:error="function is not confirmed";break;
case 4061:error="send mail error";break;
case 4062:error="string parameter expected";break;
case 4063:error="integer parameter expected";break;
case 4064:error="double parameter expected";break;
case 4065:error="array as parameter expected";break;
case 4066:error="requested history data in update state";break;
case 4099:error="end of file";break;
case 4100:error="some file error";break;
case 4101:error="wrong file name";break;
case 4102:error="too many opened files";break;
case 4103:error="cannot open file";break;
case 4104:error="incompatible access to a file";break;
case 4105:error="no order selected";break;
case 4106:error="unknown symbol";break;
case 4107:error="invalid price parameter for trade function";break;
case 4108:error="invalid ticket";break;
case 4109:error="trade is not allowed";break;
case 4110:error="longs are not allowed";break;
case 4111:error="shorts are not allowed";break;
case 4200:error="object is already exist";break;
case 4201:error="unknown object property";break;
case 4202:error="object is not exist";break;
case 4203:error="unknown object type";break;
case 4204:error="no object name";break;
case 4205:error="object coordinates error";break;
case 4206:error="no specified subwindow";break;
default:error="unknown error";
}
return(error);
}
/*
iCustom(NULL,0,"StepMA_v7",Length,Kv,StepSize,0,shift);
iAC(NULL,0,shift);
iAD(NULL,0,shift);
iADX(NULL,0,adxperiod,PRICE_CLOSE,MODE_PLUSDI,shift);
iAlligator(NULL,0,jawsperiod,teethperiod,lipsperiod,jawsshift,teethshift,lipsshift,MODE_SMMA,PRICE_MEDIAN,MODE_GATORJAW,shift);
iAO(NULL,0,shift);
iATR(NULL,0,atrperiod,shift);
iBands(NULL,0,bbperiod,2,0,PRICE_CLOSE,MODE_LOWER,shift);
iBearsPower(NULL,0,13,PRICE_CLOSE,0);
iBullsPower(NULL,0,13,PRICE_CLOSE,0);
iCCI(NULL,0,cciperiod,PRICE_CLOSE,shift);
iClose(NULL,PERIOD_H1,shift);
iDeMarker(NULL,0,14,shift);
iEnvelopes(NULL,0,13,MODE_SMA,10,PRICE_CLOSE,0.2,MODE_UPPER,shift);
iForce(NULL,0,13,MODE_SMA,PRICE_CLOSE,shift);
iFractals(NULL,0,MODE_UPPER,3);
High[iHighest(NULL,0,MODE_HIGH,candles,1)];
iMA(NULL,0,maperiod,0,MODE_SMA,PRICE_CLOSE,shift);
iMACD(NULL,0,macdfast,macdslow,macdsma,PRICE_CLOSE,MODE_MAIN,shift);
iMFI(NULL,0,MFIPeriod,shift);
iMomentum(NULL,0,momentumperiod,PRICE_CLOSE,shift);
iOBV(NULL,0,PRICE_CLOSE,shift);
iOsMA(NULL,0,fastema,slowema,macdsma,PRICE_CLOSE,shift);
iRSI(NULL,0,rsiperiod,PRICE_CLOSE,shift);
iRVI(NULL,0,10,MODE_MAIN,shift);
iSAR(NULL,0,step,maximum,shift);
iStdDev(NULL,0,10,0,MODE_SMA,PRICE_CLOSE,shift);
iStochastic(NULL,0,kperiod,dperiod,slowing,MODE_SMA,0,MODE_MAIN,shift);
iStochastic(NULL,0,kperiod,dperiod,slowing,MODE_SMA,0,MODE_SIGNAL,shift);
iWPR(NULL,0,WPRPeriod,shift);
*/
@epps11
epps11
20 Nov 2013, 23:28
RE: Towel
jeex said:
We just threw the towel... This EA is a lab rat. It will only work in a lab, not in real time. So we stopped developing on this project. It's a complete and utter waste of time. Although the maker has done a nice job in analysing how to skim the momentum, this robot can never win from spread, commission and slippage.
Would it be possible for you to send me the incomplete code? Or maybe post it here?
@epps11
epps11
17 Nov 2013, 17:17
RE: RE: RE: Make an indicator
jeex said:
/forum/cbot-support/1853?page=2#18
epps11 said:
jeex said:
My findings after filleting the jibberjabber out of the code:
With respect for the maker of the code: the method is child's play. On the M1 timeframe it calculates 4 channels: IMA, BollingerBands, Envelopes and ATR. The placed trade is with the minimal allowed StopLoss and TakeProfit and then it starts trailing. So with high volatility the engine can't keep up with the facts and you start losing money at high rate.
What would be nice if the method of the 4 channels was translated in an indicator.
Was this for Calgo or Mt4? If for Calgo maybe I can take a look at it. I know that in Mt4 the high volatility is too fast and causes the EA to lose, but I'm not sure about Calgo.
Could I take a look at the new alpha EA?
@epps11
epps11
17 Nov 2013, 15:23
RE: Make an indicator
jeex said:
My findings after filleting the jibberjabber out of the code:
With respect for the maker of the code: the method is child's play. On the M1 timeframe it calculates 4 channels: IMA, BollingerBands, Envelopes and ATR. The placed trade is with the minimal allowed StopLoss and TakeProfit and then it starts trailing. So with high volatility the engine can't keep up with the facts and you start losing money at high rate.
What would be nice if the method of the 4 channels was translated in an indicator.
Was this for Calgo or Mt4? If for Calgo maybe I can take a look at it. I know that in Mt4 the high volatility is too fast and causes the EA to lose, but I'm not sure about Calgo.
@epps11
epps11
14 Nov 2013, 00:40
RE: RE: So, rebuild for cAlgo?
Hyperloop said:
Jeex, if you're interested, you and I can code the algorithm together. I agree that the original code has "too much" and a lot of it can be cut down.
At the same time, I currently work with institutional price feeds. My spreads typically range between 0.0-1.0 pips plus a commission. It may something that can help in the performance of this model.
Let me know if you're interested.
I'm confused are you guys remaking it for Mt4 or Calgo. If for Calgo maybe I could ask and if possible make a code for the Ea to use level 2 data
@epps11
epps11
13 Nov 2013, 13:22
RE: Collab
jeex said:
I do believe in the quality of this EA's method. But rebuilding 26 A4-pages of code (made a print to study it) is a lot of work.
Maybe we can do this together. The program has a lot of useless functions and jibberjabber (with my sincere apologies to the maker, who has done a great job) for testing purposes etc. Stripping all that would halftime the job and make the program lean and mean.
Who's with me?
And then for using this one efectively we need a broker with very low spread on the EURUSD, EURGBP and GBPUSD (and maybe gold). MahiFX has a fixed rate on the EURUSD of 0.8. but only works with MT4. CommexFX (my broker) has a very low variable spread starting at 0.4 on the EURUSD. Any better suggestions?
Best regards
No, the EA will not be successful on MT4 the creator has said it himself. I was also told by a broker who looked at this strategy that it will not work on MT4. He told me on a tick level MT4 isn't fast enough and he said ctrader or fix API would be a better option if I was serious on making the strategy work. If you didn't know on a tick level like on a spike MT4 is too slow and literally skips pips this kills the trade for the EA were slippage and price execution is everything. So, basically this EA needs to be converted to another platform to work.
Thanks again,
Michael
@epps11
epps11
13 Nov 2013, 00:59
RE: RE: tested and not happy
Hyperloop said:
jeex said:
Tested the EA in a live account and was not happy. The beautiful straight line up in backtesting is almost the same in a live account, except now its going straight down. Too much slippage and volatility within a bar, that is not considered during backtesting. This EA needs optimal conditions to make money.
That's unfortunate. Would it be viable perhaps running it on a higher timeframe?
Hello Hyperloop,
Would it be possible for you to code this EA to Calgo?
Thanks,
Michael
@epps11
epps11
12 Nov 2013, 23:23
RE: tested and not happy
jeex said:
Tested the EA in a live account and was not happy. The beautiful straight line up in backtesting is almost the same in a live account, except now its going straight down. Too much slippage and volatility within a bar, that is not considered during backtesting. This EA needs optimal conditions to make money.
This is why I want to transfer to EA to Calgo the creator himself said that MT4 is too slow with too many limitations
@epps11
epps11
08 Nov 2013, 13:42
RE: Tested?
jeex said:
No problem at all, but a lot of work.
But have you tested this EA? in MT4 it shows about 135 errors. It needs an indicator and some more. It seems like you only got half of it here.
This XMT-scalper is supposed to be quite an awesome scalper with good results.
Here is the rest of the file here https://anonfiles.com/file/8bd78c2991e0d698339ca0ae5558f309
@epps11
epps11
14 May 2014, 03:26
Example of EA
Like this
@epps11