/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
/*
+------------------------------------+
| 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
v49h - - Added the ability to specify the number of long and short orders that can
be open at once, so the 'hedge' effect isn't blocked by a full limit of
orders, all in one direction.
v49L - - Added ProfitLock(tm) of my own style
Found 2 errors. found two return(0) inside the 'for' loop that closes orders.
This would have caused orders not to be closed until the next tick. Was causing
a small but noticable difference in profit, and would severly affected the
handling of profits during spikes.
*/
// 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.1;
extern int Slippage=2;
extern int NumberOfLongOrders=12;
extern int NumberOfShortOrders=13;
extern bool UseOpts=true;
// these two lines are over-ridden my UseOpts
extern int ProfitMade=103; // how much money do you want ( see init() section )
extern int StopLoss=54; // optimized per pair (see init() section)
// ProfitLock(tm) Thanks Roger!
extern bool PLEnabled=true;
extern int PLBreakEven=61;
// 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=120;
// naming and numbering
int MagicNumber = 200511042140;
string TradeComment = "TrueScalper_49L_";
// 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());
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=103; StopLoss= 54;}
//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();
double spread=Ask-Bid;
int cnt=0;
int gle=0;
int OrdersPerSymbol=0;
int OrdersLong=0;
int OrdersShort=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(OrderType()==OP_BUY) {OrdersLong++;}
if(OrderType()==OP_SELL) {OrdersShort++;}
}
}
if((OrdersPerSymbol < (NumberOfLongOrders+NumberOfShortOrders)) && TradeAllowed)
{
//ENTRY LONG (buy, Ask)
if(MAFast>(MASlow+p) && RSINEG && OrdersLong<NumberOfLongOrders)
{
//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 && OrdersShort<NumberOfShortOrders)
{
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);
}
}
if (PLEnabled)
{
if(Bid-OrderOpenPrice() >= PLBreakEven*p && OrderOpenPrice()>OrderStopLoss())
{
Print ("BUYMODIFY BREAKEVEN bartick=",bartick);
SL=OrderOpenPrice()+(spread*p);
OrderModify(OrderTicket(),OrderOpenPrice(), OrderOpenPrice()-(spread*p),OrderTakeProfit(), White);
}
}
} // 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);
}
}
if (PLEnabled)
{
if(OrderOpenPrice()-Ask >= PLBreakEven*p && OrderOpenPrice()<OrderStopLoss())
{
Print ("SELLMODIFY BREAKEVEN bartick=",bartick);
SL=OrderOpenPrice()-(spread*p);
OrderModify(OrderTicket(),OrderOpenPrice(), OrderOpenPrice()+(spread*p),OrderTakeProfit(), White);
}
}
} //if SELL
} // if(OrderSymbol)
} // for
} // start()
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Moving average indicator
Relative strength index
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It automatically opens orders when conditions are reached
It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy
Other Features: