//+------------------------------------------------------------------+
//| pipsnja-gbp/usd-M15 |
//| |
//| |
//+------------------------------------------------------------------+
#property copyright ""
#property link ""
//---- input parameters
extern int Profit=120;
extern int Loss=60;
extern int Shift1=100;
extern int Move1=60;
extern int Shift2=10;
extern int Move2=30;
extern int Decr=14;
extern double Lots=1;
extern int Trailing=0;
extern bool Autolot=true;
extern int AutoMrgDiv=7;
int Magic=1915;
int spr;
int tp,sl,d;
bool isOrder,buy,sell;
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
spr=MarketInfo(Symbol(),MODE_SPREAD);
if (Loss==0) sl=0; else sl=1;
if (Profit==0) tp=0; else tp=1;
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
//----
// if (CurTime()-Time[0]<=10) {
int i;
if (IsTradeAllowed()) isOrder=true;
for (i = 0; i < OrdersTotal(); i++) {
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber()==Magic && OrderSymbol()==Symbol() ) isOrder=false;
}
buy=false;
sell=false;
if (Bid-Close[Shift1]<-Move1*Point && Close[Shift1]-Close[Shift1+Shift2]>Move2*Point) {buy=true;sell=false;}
if (Bid-Close[Shift1]>Move1*Point && Close[Shift1]-Close[Shift1+Shift2]<-Move2*Point) {sell=true;buy=false;}
if (AccountFreeMargin()<GetLots()*2000) isOrder=false;
if (isOrder && buy) {OrderSend(Symbol(),OP_BUY,GetLots(),Ask,3,(Bid-(Loss)*Point)*sl,(Ask+(Profit+spr)*Point)*tp,"",Magic,0,FireBrick); d=Day();}
if (isOrder && sell) {OrderSend(Symbol(),OP_SELL,GetLots(),Bid,3,(Ask+(Loss)*Point)*sl,(Bid-(Profit+spr)*Point)*tp,"",Magic,0,DarkViolet); d=Day();}
if (Trailing>0) for(i=0; i<=OrdersTotal();i++) {
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber()==Magic && OrderSymbol()==Symbol()) {
if (OrderType()==OP_BUY && Bid-OrderOpenPrice()>Trailing*Point && Bid-OrderStopLoss()>Trailing*Point ) OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Trailing*Point,OrderTakeProfit(),0,CLR_NONE);
if (OrderType()==OP_SELL && OrderOpenPrice()-Ask>Trailing*Point && OrderStopLoss()-Ask>Trailing*Point ) OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Trailing*Point,OrderTakeProfit(),0,CLR_NONE);
}
}
//----
return(0);
}
//+------------------------------------------------------------------+
double GetLots()
{
double res;
if (Autolot) {
res=NormalizeDouble(AccountFreeMargin()/(AutoMrgDiv*1000),0);
if (Decr>0) {
int losses=0;
for(int j=HistoryTotal()-1;j>=0;j--)
{
if(OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)==false) { Print("Error in history!"); break; }
if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic ) continue;
//----
if(OrderProfit()>0) break;
if(OrderProfit()<0) losses++;
}
if(losses>1) res=NormalizeDouble(res-res*losses/Decr,0);
}
if (res<Lots) res=Lots;
if (res>99) res=99;
return(res);
} else return(Lots);
}
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 automatically opens orders when conditions are reached
It can change open orders parameters, due to possible stepping strategy
Other Features:
