//+------------------------------------------------------------------+
//| pipsnja |
//| |
//| |
//+------------------------------------------------------------------+
#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;
if (Bid-Close[Shift1]>Move1*Point && Close[Shift1]-Close[Shift1+Shift2]<-Move2*Point) sell=true;
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: