//+------------------------------------------------------------------+
//| AuslancoExpert_original_strategy.mq4 |
//| Copyright © 2008, FerruFx |
//| |
//| Based on the original Auslanco's strategy posted on ForexFactory |
//| http://www.forexfactory.com/showthread.php?t=41509 |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008 www.ervent.net, FerruFx"
#property link "http://www.ervent.net"
//---- Trade settings
extern string Label1 = "=== General trade settings ===";
extern double Lot = 0.1;
extern double TakeProfit = 0.0;
extern double StopLoss = 0.0;
extern int TrailingStop = 0.0;
extern int Trailing.Start.at = 0.0;
extern int Slippage = 2.0;
extern bool Managed.Lot.Size = false;
extern double Risk = 2.0;
extern string Label2 = "=== Exit settings ===";
extern bool Use.QQE.to.Exit = true;
int MagicNumber;
datetime timeprev=0;
double qqe0h4_prev,qqe2h4_prev;
double qqe0h1_prev,qqe2h1_prev;
double qqe0h1_prev2,qqe2h1_prev2;
double gannh4_prev,gannh1_prev;
int init()
{
if (Symbol() == "AUDCADm" || Symbol() == "AUDCAD") { MagicNumber = 431801; }
if (Symbol() == "AUDJPYm" || Symbol() == "AUDJPY") { MagicNumber = 431802; }
if (Symbol() == "AUDNZDm" || Symbol() == "AUDNZD") { MagicNumber = 431803; }
if (Symbol() == "AUDUSDm" || Symbol() == "AUDUSD") { MagicNumber = 431804; }
if (Symbol() == "CHFJPYm" || Symbol() == "CHFJPY") { MagicNumber = 431805; }
if (Symbol() == "EURAUDm" || Symbol() == "EURAUD") { MagicNumber = 431806; }
if (Symbol() == "EURCADm" || Symbol() == "EURCAD") { MagicNumber = 431807; }
if (Symbol() == "EURCHFm" || Symbol() == "EURCHF") { MagicNumber = 431808; }
if (Symbol() == "EURGBPm" || Symbol() == "EURGBP") { MagicNumber = 431809; }
if (Symbol() == "EURJPYm" || Symbol() == "EURJPY") { MagicNumber = 431810; }
if (Symbol() == "EURUSDm" || Symbol() == "EURUSD") { MagicNumber = 431811; }
if (Symbol() == "GBPCHFm" || Symbol() == "GBPCHF") { MagicNumber = 431812; }
if (Symbol() == "GBPJPYm" || Symbol() == "GBPJPY") { MagicNumber = 431813; }
if (Symbol() == "GBPUSDm" || Symbol() == "GBPUSD") { MagicNumber = 431814; }
if (Symbol() == "NZDJPYm" || Symbol() == "NZDJPY") { MagicNumber = 431815; }
if (Symbol() == "NZDUSDm" || Symbol() == "NZDUSD") { MagicNumber = 431816; }
if (Symbol() == "USDCHFm" || Symbol() == "USDCHF") { MagicNumber = 431817; }
if (Symbol() == "USDJPYm" || Symbol() == "USDJPY") { MagicNumber = 431818; }
if (Symbol() == "USDCADm" || Symbol() == "USDCAD") { MagicNumber = 431819; }
if (Symbol() == "AUDCHFm" || Symbol() == "AUDCHF") { MagicNumber = 431820; }
if (Symbol() == "CADCHFm" || Symbol() == "CADCHF") { MagicNumber = 431821; }
if (Symbol() == "CADJPYm" || Symbol() == "CADJPY") { MagicNumber = 431822; }
if (MagicNumber == 0) { MagicNumber = 431899; }
return(0);
}
int deinit()
{
return(0);
}
int start()
{
//---- Trail opened order
if(TrailingStop > 0 && (CountLongs() != 0 || CountShorts() != 0)) trailing();
if(timeprev!= /*Time[0]*/ iTime(Symbol(),PERIOD_H1,0)) { //---- Check signal only once a bar H1
//---- QQE and Gann Hilo calculation for H4
qqe0h4_prev = iCustom(Symbol(),PERIOD_H4,"###QQE_Alert_MTF_v2###",5,240,false,false,false,false,0,1);
qqe2h4_prev = iCustom(Symbol(),PERIOD_H4,"###QQE_Alert_MTF_v2###",5,240,false,false,false,false,2,1);
gannh4_prev = iCustom(Symbol(),PERIOD_H4,"###Gann_HiLo_Activator_v2###",10,0,1);
//---- QQE and Gann Hilo calculation for H1
qqe0h1_prev = iCustom(Symbol(),PERIOD_H1,"###QQE_Alert_MTF_v2###",5,60,false,false,false,false,0,1);
qqe2h1_prev = iCustom(Symbol(),PERIOD_H1,"###QQE_Alert_MTF_v2###",5,60,false,false,false,false,2,1);
qqe0h1_prev2 = iCustom(Symbol(),PERIOD_H1,"###QQE_Alert_MTF_v2###",5,60,false,false,false,false,0,2);
qqe2h1_prev2 = iCustom(Symbol(),PERIOD_H1,"###QQE_Alert_MTF_v2###",5,60,false,false,false,false,2,2);
gannh1_prev = iCustom(Symbol(),PERIOD_H1,"###Gann_HiLo_Activator_v2###",10,0,1);
//---- Check for H4 signal
if(CountLongs() == 0 && CountShorts() == 0) {
//---- Check for H1 Entry
if(qqe0h1_prev > 50 && qqe0h1_prev2 < 50) {
if(/*Close[1]*/ iClose(Symbol(),PERIOD_H1,1) > gannh1_prev) {
if(qqe0h4_prev > qqe2h4_prev && /*Close[1]*/ iClose(Symbol(),PERIOD_H4,1) > gannh4_prev) ManageBuy(); }}
if(qqe0h1_prev < 50 && qqe0h1_prev2 > 50) {
if(/*Close[1]*/ iClose(Symbol(),PERIOD_H1,1) < gannh1_prev) {
if(qqe0h4_prev < qqe2h4_prev && /*Close[1]*/ iClose(Symbol(),PERIOD_H4,1) < gannh4_prev) ManageSell(); }}
} //---- if(Count
//---- Check for exit
if(Use.QQE.to.Exit) {
if(CountLongs() != 0) {
if(qqe0h1_prev < 50) CloseLongs(); }
if(CountShorts() != 0) {
if(qqe0h1_prev > 50) CloseShorts(); }
}
timeprev = /*Time[0]*/ iTime(Symbol(),PERIOD_H1,0);
} //---- if(timeprev
return(0);
}
int CountLongs()
{
int count=0;
int trade;
int trades=OrdersTotal();
for(trade=0;trade<trades;trade++)
{
OrderSelect(trade,SELECT_BY_POS,MODE_TRADES);
if( OrderSymbol()!=Symbol() || OrderMagicNumber() != MagicNumber )
continue;
if(OrderType()==OP_BUY)
count++;
} //---- for
return(count);
}
int CountShorts()
{
int count=0;
int trade;
int trades=OrdersTotal();
for(trade=0;trade<trades;trade++)
{
OrderSelect(trade,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()!=Symbol() || OrderMagicNumber() != MagicNumber )
continue;
if(OrderType()==OP_SELL)
count++;
} //---- for
return(count);
}
double ManagedLotSize()
{
double lot;
if(Managed.Lot.Size && Risk > 0) lot = NormalizeDouble(((AccountEquity()*Risk)/100000),2);
else lot = Lot;
return(lot);
}
void ManageBuy()
{
double tp,sl;
if (TakeProfit==0) { tp=0; } else { tp=Ask+TakeProfit*Point; }
if (StopLoss==0) { sl=0; } else { sl=Ask-StopLoss*Point; }
for (int i = 1; i <=5; i++) //---- Loop if requote
{
RefreshRates();
int ticket=OrderSend(Symbol(),OP_BUY,ManagedLotSize(),Ask,Slippage,sl,tp,"AuslancoExpert" + " - " + Period(),MagicNumber,0,Lime);
if(ticket<0)
{
Print("Error opening BUY order : ",GetLastError());
Sleep(3000); //---- wait for 3 seconds
}
else
{
break;
}
}
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
{
Print("BUY order opened : ",OrderOpenPrice());
}
else
{
Print("Error opening BUY order : ",GetLastError());
}
}
void ManageSell()
{
double tp,sl;
if (TakeProfit==0) { tp=0; } else { tp=Bid-TakeProfit*Point; }
if (StopLoss==0) { sl=0; } else { sl=Bid+StopLoss*Point; }
for (int i = 1; i <=5; i++) //---- Loop if requote
{
RefreshRates();
int ticket=OrderSend(Symbol(),OP_SELL,ManagedLotSize(),Bid,Slippage,sl,tp,"AuslancoExpert" + " - " + Period(),MagicNumber,0,Red);
if(ticket<0)
{
Print("Error opening SELL order : ",GetLastError());
Sleep(3000); //---- wait for 3 seconds
}
else
{
break;
}
}
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
{
Print("SELL order opened : ",OrderOpenPrice());
}
else
{
Print("Error opening SELL order : ",GetLastError());
}
}
void CloseLongs()
{
int trades = OrdersTotal();
for( int trade=0; trade < trades; trade++ )
{
OrderSelect(trade,SELECT_BY_POS,MODE_TRADES);
if( OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber )
{
continue;
}
if( OrderType() == OP_BUY )
{
OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,Blue);
}
} //---- for
}
void CloseShorts()
{
int trades = OrdersTotal();
for( int trade=0; trade < trades; trade++ )
{
OrderSelect(trade,SELECT_BY_POS,MODE_TRADES);
if( OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber )
{
continue;
}
if( OrderType() == OP_SELL )
{
OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Pink);
}
} //---- for
}
void trailing()
{
int trades = OrdersTotal();
int cnt;
for(cnt=0;cnt<trades;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber)
{
if(OrderType()==OP_BUY)
{
if((Bid-OrderOpenPrice())>=(Point*TrailingStop) && (Bid-OrderOpenPrice())>=(Point*Trailing.Start.at))
{
if((OrderStopLoss()<=(Bid-Point*TrailingStop)) || (OrderStopLoss()==Trailing.Start.at))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Blue);
return(0);
}
}
} //---- if(OrderType()==OP_BUY)
else
{
if((OrderOpenPrice()-Ask)>=(Point*TrailingStop) && (OrderOpenPrice()-Ask)>=(Point*Trailing.Start.at))
{
if((OrderStopLoss()>=(Ask+Point*TrailingStop)) || (OrderStopLoss()==Trailing.Start.at))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit(),0,Red);
return(0);
}
}
} //---- else
} //---- if(OrderType()<=OP_SELL
} //---- for
} //---- void
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Series array that contains close prices for each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
###Gann_HiLo_Activator_v2###
###QQE_Alert_MTF_v2###
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:
