//+------------------------------------------------------------------+
//| ASCV |
//| Copyright © 2005, IDS Corp. |
//| |
//+------------------------------------------------------------------+
extern double Lots=1;
//----
double Profit1,Profit2;
//----
int cnt, ticket, total;
int OpenBuy, OpenSell;
int OpenBuy1, OpenSell1;
int FlagBalance;
int pause=20000;
//----
double TakeProfit;
//double Lots = 1;
double TrailingStop;
double signals,signalb,Value1;
double signalscl,signalbcl;
double Closebuy,Closesell;
double slb,sls;
double slb1,sls1;
double slb10,sls10;
double ttp=15;
double dstos,dstob;
double stdd;
double PPL,P1L,P2L,P4L,P5L;
double btb,bts;
//+------------------------------------------------------------------+
//|V=30 Fr-yes 1stModify-no ModifyTP-no iStdDev |
//+------------------------------------------------------------------+
int start()
{
//if (DayOfWeek()==5){ return(0);}
if (Hour()<2||Hour()>20) return(0);
if (Minute()==0)
{
OpenSell1=0;
OpenBuy1=0;
OpenSell=0;
OpenBuy=0;
signalb=0;
}
if (FlagBalance==0)
{
Profit1=AccountBalance();
FlagBalance=1;
}
// Getting signals-------------------------------
signalb=iCustom(NULL, 0, "ASCTrend1sig",1,0);
signals=iCustom(NULL, 0, "ASCTrend1sig",0,0);
//----
stdd=iStdDev(NULL,0,10,MODE_SMA,0,PRICE_MEDIAN,0);
//----
btb=iCustom(NULL, 0, "BrainTrend1Sig",1,0);
bts=iCustom(NULL, 0, "BrainTrend1Sig",0,0);
PPL=iCustom(NULL, 0, "Pivot_AllLevels",2,0);
P1L=iCustom(NULL, 0, "Pivot_AllLevels",0,0);
P2L=iCustom(NULL, 0, "Pivot_AllLevels",1,0);
P4L=iCustom(NULL, 0, "Pivot_AllLevels",3,0);
P5L=iCustom(NULL, 0, "Pivot_AllLevels",4,0);
//----1
if (stdd>0.001)
{
if (signalb>0)
{
if (signalb<Low[0] && Ask>PPL && Volume[0]-Volume[1]>=30)
{
OpenBuy=1;
}
}
if (signals>0)
{
if (signals>High[0]&& Bid<PPL && Volume[0]-Volume[1]>=30)
{
OpenSell=1;
}
}
}
//----2
if (signalb>0 && btb>0)
{
if (signalb<Low[0] && btb<Low[0] && Volume[0]-Volume[1]>30)
{
OpenBuy=1;
}
}
if (signals>0 && bts>0)
{
if (signals>High[0]&& bts>High[0] && Volume[0]-Volume[1]>30)
{
OpenSell=1;
}
}
//Trading----------------------------------
total=OrdersTotal();
if(total<1)
{
Closesell=0;
Closebuy=0;
if (Profit1 !=AccountBalance())
{
Profit2=(AccountBalance()-Profit1);
SendMail(" ","Last order closed. Profit="+DoubleToStr(Profit2,2)+". Balance="+DoubleToStr(AccountBalance(),2));
Profit1=AccountBalance();
}
// check for BUY-----------------------
if(OpenBuy==1 && signalb!=0)
{
slb1=signalb;
/* +((Close[0]-signalb)/2);
if ((Ask-slb1)>=33*Point){slb=slb1;}
else {slb=Ask-33*Point;}
*/
if (P2L-Ask>=50*Point) TakeProfit=P2L;
else
{
if(P1L-Ask>=50*Point) TakeProfit=P1L;
else TakeProfit=Ask+50*Point;
}
ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,slb1,TakeProfit," ",16384,0,Green);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
{
Print("BUY order opened : ",OrderOpenPrice());
SendMail(" ","BUY order opened : "+OrderOpenPrice());
OpenBuy=0;
signalb=0;
}
}
else
{
Print("Error opening BUY order : ",GetLastError());
return(0);
}
}
// check for SELL-----------------------------
if(OpenSell==1 && signals!=0)
{
sls1=signals;
/* -((signals-Close[0])/2);
if ((sls1-Bid)>=33*Point){sls=sls1;}
else {sls=Bid+33*Point;}
*/
if (Bid-P4L>=50*Point) TakeProfit=P4L;
else
{
if (Bid-P5L>=50*Point) TakeProfit=P5L;
else TakeProfit=Bid-50*Point;
}
ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,sls1,TakeProfit," ",16384,0,Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
{
Print("SELL order opened : ",OrderOpenPrice());
SendMail(" ","SELL order opened : "+OrderOpenPrice());
OpenSell=0;
signalb=0;
}
}
else
{
Print("Error opening SELL order : ",GetLastError());
// SendMail(" ","Error opening SELL order : "+GetLastError());
return(0);
}
}
return(0);
}
//Close&Modify------------------------------------
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL && // check for opened position
OrderSymbol()==Symbol()) // check for symbol
{
//Getting CloseSignals------------------------------------
//ASC
signalbcl=iCustom(NULL, 0, "ASCTrend1sig",1,1);
if (Minute()==0&&signalbcl==0&&signalb==0&&(CurTime()-OrderOpenTime())<=3600)
{Closebuy=1;}
//----
signalscl=iCustom(NULL, 0, "ASCTrend1sig",0,1);
if (Minute()==0&&signalscl==0&&signals==0&&(CurTime()-OrderOpenTime())<=3600)
{Closesell=1;}
//STO
dstob=iStochastic(NULL,0,5,3,3,MODE_SMA,0,MODE_MAIN,0)-iStochastic(NULL,0,5,3,3,MODE_SMA,0,MODE_SIGNAL,0);
dstos=iStochastic(NULL,0,5,3,3,MODE_SMA,0,MODE_SIGNAL,0)-iStochastic(NULL,0,5,3,3,MODE_SMA,0,MODE_MAIN,0);
/* if(dstos>=2)
{
Closebuy=1;
}
if(dstob>=2)
{
Closesell=1;
}
*/
//Close BUY-----------------------------------
if(OrderType()==OP_BUY)
{
if(OpenSell==1||Closebuy==1)
{
OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); // close position
Sleep(pause);
return(0); // exit
}
// Modify BUY ---------------------------------
if(OrderStopLoss()<OrderOpenPrice())
{TrailingStop=25;}
else {TrailingStop=30;}
//1st Modify-----------------------------------
/* if (OrderStopLoss()<OrderOpenPrice())
{
slb10=(OrderStopLoss()+(Bid-OrderOpenPrice()));
if ((Bid-OrderOpenPrice())<(Point*TrailingStop)&& slb10>OrderStopLoss())
{
OrderModify(OrderTicket(),OrderOpenPrice(),slb10,OrderTakeProfit(),0,Green);
slb10=0;
}
}
*/
//2nd Modify-----------------------------------
if(Bid-OrderOpenPrice()>=Point*TrailingStop)
{
if(OrderStopLoss()<Bid-Point*TrailingStop)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green);
if (OrderStopLoss()==OrderOpenPrice())
{SendMail(" ","Last order SL=OP");}
return(0);
}
}
//Modify TakeProfit BUY---------------------
if ((OrderTakeProfit()-Bid)<(ttp*Point)&&dstob>=5)
{
if (OrderTakeProfit()!=0)
{
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),OrderTakeProfit()+15*Point,0,Red);
}
}
}
//Close SELL------------------------------
if(OrderType()==OP_SELL)
{
if(OpenBuy==1||Closesell==1)
{
OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // close position
Sleep(pause);
return(0); // exit
}
//Modify SELL ----------------------------
if(OrderStopLoss()>OrderOpenPrice())
{TrailingStop=25;}
else {TrailingStop=30;}
//1st Modify -----------------------------
/* if (OrderStopLoss()>OrderOpenPrice())
{
sls10=(OrderStopLoss()-(OrderOpenPrice()-Ask));
if ((OrderOpenPrice()-Ask)<(Point*TrailingStop)&& sls10<OrderStopLoss())
{
OrderModify(OrderTicket(),OrderOpenPrice(),sls10,OrderTakeProfit(),0,Red);
sls10=0;
}
}
*/
//2nd Modify -----------------------------
if((OrderOpenPrice()-Ask)>=(Point*TrailingStop))
{
if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit(),0,Red);
if (OrderStopLoss()==OrderOpenPrice())
{SendMail(" ","Last order SL=OP");}
return(0);
}
}
//Modify TakeProfit SELL------------------
if ((Ask-OrderTakeProfit())<(ttp*Point)&&dstos>=5)
{
if (OrderTakeProfit()!=0)
{
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),OrderTakeProfit()-15*Point,0,Red);
}
}
}
}
}
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains the lowest prices of each bar
Series array that contains tick volumes of each bar
Series array that contains the highest prices of each bar
Series array that contains close prices for each bar
Indicator Curves created:
Indicators Used:
Standard Deviation indicator
Stochastic oscillator
Custom Indicators Used:
ASCTrend1sig
BrainTrend1Sig
Pivot_AllLevels
Order Management characteristics:
Checks for the total of open orders
It automatically opens orders when conditions are reached
It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy
Other Features:
It sends emails
