/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
//+------------------------------------------+
//| 2MA Expert
//+------------------------------------------+
// This one is a dog. Tried on several timeframes and no-go
/*
Put a 5 period Exponential MA of the Open,
and a 5EMA of the Close on a chart, on any
timeframe. The above results were given from
the 1hr chart.
Buy when the MA of the Close crosses above
the MA of the Open, and vice versa for reversing
the position to Short. This is theoretically
an "always in the market" system.
The system takes advantage of the fact that
when the market is in an uptrend, the closes
will be above the Opens in a given timeframe.
And vice versa.
Now, the system catches trends VERY WELL,
both beginning and ending, as you can see below.
The problem, and the reason I'm writing this post,
is that it gets whipsawed (as any trendfollowing system)
on sideways markets.
*/
#property copyright "Ron Thompson"
#property link "http://www.lightpatch.com/forex"
// User Input
extern double Lots = 1.0 ;
extern int TakeProfit = 0 ;
extern int StopLoss = 0 ;
// Global scope
double barmove0 = 0;
double barmove1 = 0;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//|------------------------------------------------------------------|
int init()
{
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
bool found=false;
bool rising=false;
bool falling=false;
bool cross=false;
double slA=0, slB=0, tpA=0, tpB=0;
double p=Point();
double emaF, emaM, emaS;
double PemaF, PemaM, PemaS;
int cnt=0;
// Error checking
if(AccountFreeMargin()<(1000*Lots)) {Print("-----NO MONEY"); return(0);}
if(Bars<100) {Print("-----NO BARS "); return(0);}
if(barmove0==Open[0] && barmove1==Open[1]) { return(0);}
// bars moved, update current position
barmove0=Open[0];
barmove1=Open[1];
// since the bar just moved
// calculate TP and SL for (B)id and (A)sk
tpA=Ask+(p*TakeProfit);
slA=Ask-(p*StopLoss);
tpB=Bid-(p*TakeProfit);
slB=Bid+(p*StopLoss);
if (TakeProfit<=0) {tpA=0; tpB=0;}
if (StopLoss<=0) {slA=0; slB=0;}
// Hourly chart
// 3 WMA's 5/10/15
// ADX (14)
//emaF= iMA(Symbol(),PERIOD_H4, 2,0,PRICE_OPEN,MODE_EMA,0);
emaM= iMA(Symbol(),0,25,0,PRICE_OPEN,MODE_EMA,1);
emaS= iMA(Symbol(),0,25,0,PRICE_CLOSE,MODE_EMA,1);
PemaM= iMA(Symbol(),0,25,0,PRICE_OPEN,MODE_EMA,2);
PemaS= iMA(Symbol(),0,25,0,PRICE_CLOSE,MODE_EMA,2);
if (PemaM<emaS && emaM>emaS) { falling=true; cross=true; Print("p=",PemaM," c=",emaM," s=",emaS);}
if (PemaM>emaS && emaM<emaS) { rising=true; cross=true; Print("p=",PemaM," c=",emaM," s=",emaS);}
// close then open orders based on cross
if (cross)
{
// Close ALL the open orders
for(cnt=OrdersTotal();cnt>=0;cnt--)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol()==Symbol())
{
if (OrderType()==0) {OrderClose(OrderTicket(),Lots,Bid,3,White);}
if (OrderType()==1) {OrderClose(OrderTicket(),Lots,Ask,3,Red);}
}
}
// Open new order based on direction of cross
if (rising) OrderSend(Symbol(),OP_BUY,Lots,Ask,3,slA,tpA,"ZZZ100",11123,0,White);
if (falling) OrderSend(Symbol(),OP_SELL,Lots,Bid,3,slB,tpB,"ZZZ100",11321,0,Red);
return(0);
}
return(0);
}
Sample
Analysis
Market Information Used:
Series array that contains open prices of each bar
Indicator Curves created:
Indicators Used:
Moving average indicator
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It Closes Orders by itself
It automatically opens orders when conditions are reached
Other Features: