//+------------------------------------------------------------------+
//| plan x.mq4 |
//| Copyright © 2005, Peter Ingram |
//| http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, Peter Ingram"
#property link "http://www.metaquotes.net"
//----
extern double Lots =0.1;
extern int Slippage =2;
extern int LongTarget =25;
extern int ShortTarget =20;
extern int InitialSL =25;
extern int TrailStopTrigger =10;
extern int TrailStopPips =5;
extern double BeginTime =11;
extern double EndTime =15;
extern int MagicNumber =411;
extern string comment ="plan x";
//----
int shift,c,b,i,s,ticket;
double tsl;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int init(){return(0);}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int deinit(){return(0);}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
if(Period()!=PERIOD_M15) {Alert("Expert for 15m Chart!"); return(0);}
PosCounter();
//
shift=iBarShift(NULL,PERIOD_M15,begintime()); //Print(shift);
//
if(CurTime()<endtime() && CurTime()>subsequentclose())
{//15min timeframe
if(Close[1]>(Close[shift]+(LongTarget*Point)) && b==0)
{
ticket=OrderSend(Symbol(),
OP_BUY,
Lots,
Ask,
Slippage,
Ask-(InitialSL*Point),
0,//OrderTakeProfit
comment,
MagicNumber,
0,//Order expiration time/date
Aqua);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
{ Print(ticket);
}
else Print("Error Opening Buy Order: ",GetLastError());
return(0);
}
}//buy
if(Close[1]<(Close[shift]-(ShortTarget*Point)) && s==0)
{
ticket=OrderSend(Symbol(),
OP_SELL,
Lots,
Bid,
Slippage,
Bid+(InitialSL*Point),
0,//OrderTakeProfit
comment,
MagicNumber,
0,//Order expiration time/date
Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
{
Print(ticket);
}
else Print("Error Opening Sell Order: ",GetLastError());
return(0);
}
}
}//sell
if(!IsTesting())
{
for(i=0;i<=OrdersTotal();i++)
{
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber)
{
if(OrderType()==OP_BUY)
{
Print(OrderOpenPrice()," ",OrderStopLoss());
if(OrderStopLoss()<OrderOpenPrice() && Bid-OrderOpenPrice()>=(TrailStopTrigger*Point))
{
tsl=OrderOpenPrice()+(TrailStopPips*Point);}
if(OrderStopLoss()>OrderOpenPrice() && Bid-OrderStopLoss()>=(TrailStopTrigger*Point))
{
tsl=OrderStopLoss()+(TrailStopPips*Point);
}
OrderModify(OrderTicket(),
OrderOpenPrice(),
tsl,
OrderTakeProfit(),
OrderExpiration(),
LightGreen);
}
if(OrderType()==OP_SELL)
{
Print(OrderOpenPrice()," ",OrderStopLoss());
if(OrderStopLoss()>OrderOpenPrice() && OrderOpenPrice()-Ask>=(TrailStopTrigger*Point))
{
tsl=OrderOpenPrice()-(TrailStopPips*Point);}
if(OrderStopLoss()<OrderOpenPrice() && OrderStopLoss()-Ask>=(TrailStopTrigger*Point))
{
tsl=OrderStopLoss()-(TrailStopPips*Point);}
OrderModify(OrderTicket(),
OrderOpenPrice(),
tsl,
OrderTakeProfit(),
OrderExpiration(),
HotPink);
}
}
}
}//live trailstop
if(IsTesting())
{
for(i=0;i<=OrdersTotal();i++)
{
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber)
{
if(OrderType()==OP_BUY)
{
Print(OrderOpenPrice()," ",OrderStopLoss());
if(OrderStopLoss()<OrderOpenPrice() && Close[0]-OrderOpenPrice()>=(TrailStopTrigger*Point))
{
tsl=OrderOpenPrice()+(TrailStopPips*Point);}
if(OrderStopLoss()>OrderOpenPrice() && Close[0]-OrderStopLoss()>=(TrailStopTrigger*Point))
{
tsl=OrderStopLoss()+(TrailStopPips*Point);}
OrderModify(OrderTicket(),
OrderOpenPrice(),
tsl,
OrderTakeProfit(),
OrderExpiration(),
LightGreen);
}
if(OrderType()==OP_SELL)
{
Print(OrderOpenPrice()," ",OrderStopLoss());
if(OrderStopLoss()>OrderOpenPrice() && OrderOpenPrice()-Close[0]>=(TrailStopTrigger*Point))
{
tsl=OrderOpenPrice()-(TrailStopPips*Point);}
if(OrderStopLoss()<OrderOpenPrice() && OrderStopLoss()-Close[0]>=(TrailStopTrigger*Point))
{
tsl=OrderStopLoss()-(TrailStopPips*Point);}
OrderModify(OrderTicket(),
OrderOpenPrice(),
tsl,
OrderTakeProfit(),
OrderExpiration(),
HotPink);
}
}
}
}//backtest trailstop
if(!IsTesting()) printcomments();
return(0);}
//Functions
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
datetime begintime()
{
string date=TimeToStr(CurTime(),TIME_DATE);
string hour=DoubleToStr(BeginTime,0);
string minutes=":00";
return(StrToTime(date+" "+hour+minutes));
}//end
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
datetime endtime()
{
string date=TimeToStr(CurTime(),TIME_DATE);
string hour=DoubleToStr(EndTime,0);
string minutes=":00";
return(StrToTime(date+" "+hour+minutes));
}//end
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
datetime subsequentclose()
{
string date=TimeToStr(CurTime(),TIME_DATE);
string hour=DoubleToStr(BeginTime,0);
string minutes=":15";
return(StrToTime(date+" "+hour+minutes));
}//end
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void printcomments()
{
Comment("Last Tick: ",TimeToStr(CurTime(),TIME_DATE|TIME_SECONDS),"\n",
"Begin Time: ",TimeToStr(begintime(),TIME_DATE|TIME_MINUTES),"\n",
"Begin Bar Close Price:",Close[shift],"\n",
"End Time: ",TimeToStr(endtime(),TIME_DATE|TIME_MINUTES));
}//end
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void PosCounter()
{
b=0;s=0;
for(int cnt=0;cnt<=OrdersTotal();cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber)
{
if(OrderType()==OP_SELL) s++;
if(OrderType()==OP_BUY)b++;}}}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains close prices for each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It can change open orders parameters, due to possible stepping strategy
Other Features:
It issuies visual alerts to the screen