Expert Advisor
/*
+------------------------------------+
| TRUE_SCALPER |
+------------------------------------+
Theory of operation
Based on MA3 of Bar[1] being higher or lower than MA7 of Bar[1]
AND
RSI2 of Bar[2] transitioning to RSI of Bar[1]
ProfitMade and StopLosses are optimized per pair
TIME FRAME
==========
Place on 5 minute chart
PAIRS
=====
As optimized. It will NOT work well on every pair
ENTRY LONG
==========
MA3(Bar[1]) is greater than MA7(Bar[1]) by at least 1 pip
RSI(2-period Bar[2]) less than RSI_Neg and RSI Bar[1] greater than RSI_Pos2
ENTRY SHORT
===========
MA3(Bar[1]) is less than than MA7(Bar[1]) by at least 1 pip
RSI(2-period Bar[2]) greater than RSI_Pos and RSI Bar[1] less than RSI_Neg2
EXIT
====
ProfitMade or TP/SL if internet fails or computer crashed
MONEY MANAGEMENT
================
-none-
RISK MANAGEMENT
===============
-none-
FAILURE MANAGEMENT
==================
Fairly complete, as most failures will be resolved on the
next tick. Comments written to log
VERSION HISTORY
===============
v2a - This is the one used successfully by Jean-François
(if you call TP of 9 and SL of 175 a 'success')
Ron converted from MT3 to MT4 and released into the wild.
Designed for M5 but I attached it to M15 and it worked fine.
long if EMA3>EMA7:::EMA3<EMA7<0
Code Adapted from Scalper EAs to use EMA and RSI and multiple currencies
v4 - Fixed a couple of ELSE statements that should NOT
have been there
Spent a LOT of time debugging the backtester
v11- added sell-&-hedge
added abandon-after-#-of-ticks
added init() section to load optimized symbol info
Spent a lot of time gathering comments and testing various stratigies
v37(11)- - reverted to v2a
- upgraded to include improved theory of operation
- changed bull & bear to slow & fast
- added debug Print() for good/bad transactions
- added debug File() for tracking bars-per-trade
v38(11)- - tried and rejected - close on next cross
- tried and only marginal - move SL to BE at some profit level
- tried TradeAllowed holdoff till next cross (misses LOTS of profit)
- found that gbpusd likes RSINEG and RSIPOS at differing levels (EUREKA!)
- profit levels MUST be - % of volitility and stop loss at volitility + % (double EUREKA!)
v39(11)- - tried seedling code and reverted to 38
v40(11)- - trying 2 or 3 orders open at once (linear gain, like trading 0.1 vs 1.0)
- added magic number
- modified multiple-order-open to work with TradeAllowed
- finally understand that the retracement needs to be optimized, not the profit
v40-43 - - tried several other indicators to escape the bad trades, reverted to
v11 to clear the confusion so it's now v11+proper ProfitMade setting
and proprt RSI optimization for the profit level
v44(11)- - back to v11 with profitmade at 1/4 volitility and optimized StopLoss and RSI
- removed commented old "abandon" code
- removed ordernum code
- tried and discarded 2nd MA and 2nd RSI from multiple periods
v45 - - fixed chart time at 15Min, so accidental timeframe won't mess up again
- added RSI transition code that wasn't in the old MQL script, looks promising
v46 - - added TradeAllowed back in, only trade once right after MA cross
and all RSI are at 50
v47 - - moved TradeAllowed to bartick, so ANY valid trade is taken regardless of number open
v48 - - Added some switches to the externs so people can test in various states
of variables when released into the wild
- Added multi-orders so we can hedge some, and do some discretionary trading
- Optimized GBPUSD for multiple trades
v49 - - Removed to hihi and lolo tracking code
v49c - - Released to group
*/
// variables declared here are GLOBAL in scope
#property copyright "Ron Thompson & Jacob Yego"
#property link "http://www.lightpatch.com/forex/TrueScalper49+"
// user input
extern double Lots=0.5;
extern int Slippage=2;
extern int NumberOfOrders=9;
extern bool UseOpts=true;
// these two lines are over-ridden my UseOpts
extern int ProfitMade=90; // how much money do you want ( see init() section )
extern int StopLoss=102; // optimized per pair (see init() section)
// More testing entries
int RSI_Pos =50;
int RSI_Neg =50;
int RSI_Pos2=50;
int RSI_Neg2=50;
// only used in case computer or internet fails
int TakeProfit=100;
// naming and numbering
int MagicNumber = 200510301113;
string TradeComment = "TrueScalper_49_";
// Bar handling
datetime bartime=0;
int bartick=0;
// one trade per cross control
bool TradeAllowed=false;
//+-------------+
//| Custom init |
//|-------------+
// Called ONCE when EA is added to chart or recompiled
int init()
{
Print ("Init happened ",CurTime());
// 20 day volitility,
// VERY close when doing 1-month optimizations
//
//AUDUSD- 66
//EURAUD-106
//EURCHF- 43
//EURGBP- 35
//EURJPY- 92
//EURUSD-105
//GBPCHF- ?
//GBPJPY-129
//GBPUSD-141
//USDCAD-104
//USDCHF-119
//USDJPY- 92
// one month optimizations to MT data feed
if(UseOpts)
{
//if (Symbol()=="AUDCAD") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="AUDJPY") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="AUDNZD") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="AUDUSD") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="CHFJPY") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="EURAUD") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="EURCAD") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="EURCHF") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="EURGBP") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="EURJPY") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="EURUSD") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="GBPCHF") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="GBPJPY") {ProfitMade= 35; StopLoss=100;}
if (Symbol()=="GBPUSD") {ProfitMade= 90; StopLoss=102;}
//if (Symbol()=="NZDJPY") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="NZDUSD") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="USDCAD") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="USDCHF") {ProfitMade= 35; StopLoss=100;}
//if (Symbol()=="USDJPY") {ProfitMade= 35; StopLoss=100;}
}//UseOpts
Print(Symbol()," is using ProfitMade=",ProfitMade," and StopLoss=",StopLoss);
Comment(" ");
}
//+----------------+
//| Custom DE-init |
//+----------------+
// Called ONCE when EA is removed from chart
int deinit()
{
Print ("DE-Init happened ",CurTime());
Comment(" ");
}
//+-----------+
//| Main |
//+-----------+
// Called EACH TICK and each Bar[]
int start()
{
double p=Point();
int cnt=0;
int gle=0;
int OrdersPerSymbol=0;
// stoploss and takeprofit calcs
double SL=0;
double TP=0;
// Moving Averages
double MAFast=0;
double MASlow=0;
// RSI indicator and direction
double RSI=0;
double RSI2=0;
bool RSIPOS=false;
bool RSINEG=false;
// PLEASE NOTE
// There is no error checking here for AccountFreeMargin
// That's because ProfitMade is in a loop at the bottom of this code.
// If you exit on no margin, you can NEVER collect profit from remaing
// open trades because the code that would collect it can never execute.
// Besides, the server won't let you trade anyway, so it was only a courtesy.
// bar counting
if(bartime!=Time[0]) {bartime=Time[0]; bartick++; TradeAllowed=true;}
// 3-period and 7-period EXPONENTIAL moving averageon CLOSE of Bar[1]
MAFast=iMA(Symbol(),15,3,0,MODE_EMA,PRICE_CLOSE,1);
MASlow=iMA(Symbol(),15,7,0,MODE_EMA,PRICE_CLOSE,1);
// 2-period RSI on Bar[2]
RSI= iRSI(Symbol(),15,2,PRICE_CLOSE,2);
RSI2=iRSI(Symbol(),15,2,PRICE_CLOSE,1);
// Determine what polarity RSI is in
if(RSI>RSI_Pos && RSI2<RSI_Pos2) {RSIPOS=true;}
if(RSI<RSI_Neg && RSI2>RSI_Neg2) {RSINEG=true;}
OrdersPerSymbol=0;
for(cnt=OrdersTotal();cnt>=0;cnt--)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if( OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber)
{
OrdersPerSymbol++;
}
}
if((OrdersPerSymbol < NumberOfOrders) && TradeAllowed)
{
//ENTRY LONG (buy, Ask)
if(MAFast>(MASlow+p) && RSINEG)
{
//Ask(buy, long)
SL=Ask-(StopLoss*p);
TP=Ask+(TakeProfit*p);
OrderSend(Symbol(),OP_BUY,Lots,Ask,Slippage,SL,TP,TradeComment,MagicNumber,White);
gle=GetLastError();
if(gle==0)
{
Print ("BUY Ask=",Ask," bartick=",bartick);
bartick=0;
TradeAllowed=false;
}
else
{
Print ("BUY -----ERROR----- Ask=",Ask," MAFast=",MAFast," MASlow=",MASlow," RSI=",RSI," gle=",gle," bartick=",bartick);
}
return(0);
}
//ENTRY SHORT (sell, Bid)
if(MAFast<(MASlow-p) && RSIPOS)
{
SL=Bid+(StopLoss*p);
TP=Bid-(TakeProfit*p);
OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage,SL,TP,TradeComment,MagicNumber,Red);
gle=GetLastError();
if(gle==0)
{
Print ("SELL Bid=",Bid," bartick=",bartick);
bartick=0;
TradeAllowed=false;
}
else
{
Print ("SELL -----ERROR----- Bid=",Bid," MAFast=",MAFast," MASlow=",MASlow," RSI=",RSI," gle=",gle," bartick=",bartick);
}
return(0);
}
} //if
// CLOSE order if profit target made
for(cnt=0;cnt<OrdersTotal();cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if( OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber )
{
if(OrderType()==OP_BUY)
{
// did we make our desired BUY profit?
if(Bid-OrderOpenPrice() > ProfitMade*p )
{
OrderClose(OrderTicket(),Lots,Bid,Slippage,White);
gle=GetLastError();
if(gle==0)
{
Print ("BUYCLOSE Bid=",Bid," bartick=",bartick);
bartick=0;
}
else
{
Print ("BUY CLOSE -----ERROR----- Bid=",Bid," MAFast=",MAFast," MASlow=",MASlow," RSI=",RSI," gle=",gle," bartick=",bartick);
}
return(0);
}
} // if BUY
if(OrderType()==OP_SELL)
{
// did we make our desired SELL profit?
if(OrderOpenPrice()-Ask > (ProfitMade*p) )
{
OrderClose(OrderTicket(),Lots,Ask,Slippage,Red);
if(gle==0)
{
Print ("SELLCLOSE Ask=",Ask," bartick=",bartick);
bartick=0;
}
else
{
Print ("SELL CLOSE -----ERROR----- Ask=",Ask," MAFast=",MAFast," MASlow=",MASlow," RSI=",RSI," gle=",gle," bartick=",bartick);
}
return(0);
}
} //if SELL
} // if(OrderSymbol)
} // for
} // start()
