//+------------------------------------------------------------------+
//| promax.mq4 |
//| Copyright © 2009 |
//| |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, Roslan Rahmat"
#property link "xroslan@gmail.com"
extern double Lots=0;
extern int Risk.Percent=10;
extern double Pip.Order=30;
extern double Stop.Loss=30;
extern double Trailing=10;
extern int Spread.Limit=5;
extern int Magic.No=111;
int i=0;
int Slippage=0;
int Stop.Level;
double Margin;
double Spread;
double Lots.Step;
double Min.Lots;
double Max.Lots;
double Lots.Digit;
string EA.Name="Promax_";
string EA.Version="1a";
int init() {
Lots.Step = NormalizeDouble(MarketInfo(Symbol(), MODE_LOTSTEP),2);
Min.Lots = NormalizeDouble(MarketInfo(Symbol(), MODE_MINLOT),2);
Max.Lots = NormalizeDouble(MarketInfo(Symbol(), MODE_MAXLOT),2);
Margin = NormalizeDouble(MarketInfo(Symbol(), MODE_MARGINREQUIRED),4);
Stop.Level = MarketInfo(Symbol(), MODE_STOPLEVEL);
if (Lots.Step==0.01) Lots.Digit=2;
else if (Lots.Step==0.10) Lots.Digit=1;
else Lots.Digit=0;
if (Digits==5||Digits==3) {
Pip.Order*=10; Stop.Loss*=10; Trailing*=10; Spread.Limit*=10;
}
if (Stop.Loss<Stop.Level) Stop.Loss=Stop.Level;
return(0);
}
int start() {
double Buy.TP=0, Buy.SL=0, Sell.TP=0, Sell.SL=0, Price.Buy=0, Price.Sell=0;
int No.Buy=0, No.Sell=0, No.BuyStop=0, No.SellStop=0, No.Orders=0;
bool To.Trade=true;
Spread=MarketInfo(Symbol(),MODE_SPREAD);
if (Spread>Spread.Limit) To.Trade=false;
for(i=0;i<OrdersTotal();i++) {
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if (OrderSymbol()==Symbol()&&OrderMagicNumber()==Magic.No) {
No.Orders++;
if(OrderType()==OP_BUY) {
No.Buy++;
if (Bid-OrderOpenPrice()>Point*Trailing&&Trailing>0) {
if (OrderStopLoss()+Point<Bid-Point*Trailing)
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*Trailing,OrderTakeProfit(),0,Yellow);
}
if (OrderStopLoss()>=OrderOpenPrice()) { Delete.Pending(OP_SELLSTOP); }
}
if(OrderType()==OP_SELL) {
No.Sell++;
if (OrderOpenPrice()-Ask>Point*Trailing&&Trailing>0) {
if (OrderStopLoss()-Point>Ask+Point*Trailing||OrderStopLoss()==0.0)
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*Trailing,OrderTakeProfit(),0,Yellow);
}
if (OrderStopLoss()<=OrderOpenPrice()) { Delete.Pending(OP_BUYSTOP); }
}
if (OrderType()==OP_BUYSTOP) { No.BuyStop++; }
if (OrderType()==OP_SELLSTOP) { No.SellStop++; }
}
}
if (No.Orders<1&&To.Trade) {
Price.Buy=Ask+(Pip.Order*Point);
Price.Sell=Bid-(Pip.Order*Point);
if (Stop.Loss>0) Buy.SL=Price.Buy-Stop.Loss*Point; else Buy.SL=0;
if (Stop.Loss>0) Sell.SL=Price.Sell+Stop.Loss*Point; else Sell.SL=0;
OrderSend(Symbol(),OP_BUYSTOP,Do.Lots(),Price.Buy,Slippage,Buy.SL,0,EA.Name+EA.Version,Magic.No,0,Blue);
OrderSend(Symbol(),OP_SELLSTOP,Do.Lots(),Price.Sell,Slippage,Sell.SL,0,EA.Name+EA.Version,Magic.No,0,Red);
}
return(0);
}
double Do.Lots() {
double lots;
if (Lots>0) lots=Lots;
else lots=NormalizeDouble(AccountFreeMargin()/100000*Risk.Percent,Lots.Digit);
if (lots<Min.Lots) lots=Min.Lots;
if (lots>Max.Lots) lots=Max.Lots;
return(lots);
}
void Delete.Pending(int oper) {
for(int i=0;i<OrdersTotal();i++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol()==Symbol()&&OrderType()==oper) {
OrderDelete(OrderTicket());
}
}
}
Sample
Analysis
Market Information Used:
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
It automatically opens orders when conditions are reached
Other Features:
