/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
//Name := BronzeWarrioir01
//converted to MT4 by suffic369@yahoo
extern int MagicNumber=6290102;
extern double Lots=0.1;
extern int Slippage = 3;
extern double lTakeProfit = 0;
extern double sTakeProfit = 0;
extern double lStopLoss = 0;
extern double sStopLoss = 0;
extern double lTrailingStop = 0;
extern double sTrailingStop = 0;
//extern int mgod=2005;
extern int FrMarg=3000;
extern int porog=500;
extern int per=14;
extern int d=3;
extern int test=0;
extern int workb=-50;
extern int works=50;
extern int pred=100;
extern int sliv=-2000;
extern int mm=30;
//bool ft=true, first=true,two=false ;
//int mlot=0,j=0,s=0,b=0,os=0,ob=0,pr=4,summa=0,sell=0,buy=0;
//int cnt=0,//Top=0,
// inul=0,ione=0,pm=0,down=0,bloks=0,blokb=0,ps=0,wpr=0,cci=0,zz=0;
int down=0;
int init() {
return (0);
}
int deinit() {
return (0);
}
int start() {
//if mgod!=year then exit;
//j=j+1;
//if j>=1000 then j=0;
double mlot=Lots;
/*
if (ft) {
if (Point>0.002) {
pr=2;ft=false;
}
} // pr: 2 or 4,¼Û¸ñСÊýµãºóµÄ¶àÉÙλÊý
*/
int Total = OrdersTotal();
int sbo=0; int s=0; int b=0; int pendings=0; int bpendings=0;int spendings=0;int summa=0; int ssum=0; int bsum=0;
for ( int i=0; i<Total; i++) {
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
if ( (OrderType()==OP_SELLSTOP || OrderType()==OP_BUYSTOP)
&& OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) pendings=pendings+1;
if ( OrderType()==OP_BUYSTOP
&& OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) bpendings=bpendings+1;
if ( OrderType()==OP_SELLSTOP
&& OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) spendings=spendings+1;
if ( OrderType()<=OP_SELL
&& OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) sbo=sbo+1;//have open trades
if (OrderMagicNumber() == MagicNumber && OrderSymbol()==Symbol() && (OrderType()==OP_SELL || OrderType()==OP_BUY)) {
summa=summa+OrderProfit();// profit of open trade
}
if (OrderType()==OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) {
s=s+1;//open trade is sell
//ssum=ssum+OrderProfit();//sell trade profit
}
if (OrderType()==OP_BUY && OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) {
b=b+1;//have open buy
//bsum=bsum+OrderProfit();//buy trade profit
}
}
}
if (b+s==0 ) {
int pm=0;int ps=0;
}
if (summa<0 && summa< down) down=MathRound(summa);
//If (CurTime-LastTradeTime<15) return(0);
if (s+b+bpendings+spendings==0 && AccountBalance()==AccountFreeMargin() && AccountBalance()<5000) {
Comment(" ");return(0);
}
double inul=iCustom(NULL,0,"DayImpuls",per,d,0,0);
double ione=iCustom(NULL,0,"DayImpuls",per,d,0,1);
double wpr=iWPR(NULL,0,per,0);
double cci=iCCI(NULL,0,per,PRICE_CLOSE,0);
double zz=0; // ZZ2=iCustom(NULL,0,"ZigZag",depth,deviation,backstep,0,0);
if (test==1) { //default test=0
Print("Data: ",Year(),".",Month(),".",Day()," Pozz=",s+b," Impuls=",MathRound(inul),
" WPR=",MathRound(wpr)," CCI=",MathRound(cci)," ZZ=",zz," Price=",Open[0]," Prof=",MathRound(summa)," Down=",MathAbs(down));
//if j<=2 then Comment(" ");
}
if (test==0) {
Comment("Data: ",Year(),".",Month(),".",Day()," Time ",Hour(),":",Minute(),"\n","Pozz=",s+b," Impuls=",MathRound(inul),
" WPR=",MathRound(wpr)," CCI=",MathRound(cci)," Price=",Open[0]," Prof=",MathRound(summa)," Down=",MathAbs(down));
}
if (summa>=porog) pm=1;
if (pm==1) {
for ( i=0; i<Total; i++) {
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
if (OrderType()==OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) {
OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, DarkOrange);
return(0);
}
if (OrderType()==OP_BUY && OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) {
OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, MediumSeaGreen);
return(0);
}
}
}
}
if (summa<sliv) ps=1;
if (ps==1) {
for ( i=0; i<Total; i++) {
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
if (OrderType()==OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) {
OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, DarkOrange);
return(0);
}
if (OrderType()==OP_BUY && OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber) {
OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, MediumSeaGreen);
return(0);
}
}
}
}
if (s+b==0) { int bloks=0;int blokb=0;}
if (AccountFreeMargin()>=FrMarg && s+b<2) {
if (bloks==0) {
if (inul>works && ione>inul && wpr>-15 && cci>150 && s==0) {
//Top=Bid;
blokb=1;
if (sStopLoss>0) double sl= Bid+sStopLoss*Point; else sl= 0;
if (sTakeProfit>0) double tp= Bid-sTakeProfit*Point; else tp= 0;
OrderSend(Symbol(),OP_SELL,mlot,Bid,Slippage,sl,tp,"sell"+MagicNumber,MagicNumber,0,Red);
//Setorder(OP_SELL,mlot,PriceBid,3,Bid+StopLoss*point,Bid-TakeProfit*point,Gold);
return(0);
}
if (b==0 && s==1 && (summa<=-pred/2 || summa>=pred)) {
if (lStopLoss>0) sl= Ask-lStopLoss*Point; else sl= 0;
if (lTakeProfit>0) tp= Ask+lTakeProfit*Point; else tp= 0;
OrderSend(Symbol(),OP_BUY,mm*mlot,Ask,Slippage,sl,tp,"buy"+MagicNumber,MagicNumber,0,Blue);
//Setorder(OP_BUY,mm*mlot,PriceAsk,3,Ask-StopLoss*point,Ask+TakeProfit*point,Gold);
return(0);
}
}
if (blokb==0) {
if (inul<workb && ione<inul && wpr<-85 && cci<-150 && b==0) {
//Top=Ask;
bloks=1;
if (lStopLoss>0) sl= Ask-lStopLoss*Point; else sl= 0;
if (lTakeProfit>0) tp= Ask+lTakeProfit*Point; else tp= 0;
OrderSend(Symbol(),OP_BUY,mlot,Ask,Slippage,sl,tp,"buy"+MagicNumber,MagicNumber,0,Blue);
//Setorder(OP_BUY,mlot,PriceAsk,3,Ask-StopLoss*point,Ask+TakeProfit*point,Gold);
return(0);
}
if (s==0 && b==1 && (summa<=-pred/2 || summa>=pred)) {
if (sStopLoss>0) sl= Bid+sStopLoss*Point; else sl= 0;
if (sTakeProfit>0) tp= Bid-sTakeProfit*Point; else tp= 0;
OrderSend(Symbol(),OP_SELL,mm*mlot,Bid,Slippage,sl,tp,"sell"+MagicNumber,MagicNumber,0,Red);
//Setorder(OP_SELL,mm*mlot,PriceBid,3,Bid+StopLoss*point,Bid-TakeProfit*point,Gold);
return(0);
}
}
}
return(0);
}
Sample
Analysis
Market Information Used:
Series array that contains open prices of each bar
Indicator Curves created:
Indicators Used:
Larry William percent range indicator
Commodity channel index
Custom Indicators Used:
DayImpuls
Order Management characteristics:
Checks for the total of open orders
It Closes Orders by itself
It automatically opens orders when conditions are reached
Other Features:
