//+------------------------------------------------------------------+
//| Cross Angry Miserable .mq4 |
//| Copyright © 2006, Don Perry |
//| http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Don Perry"
#property link "http://www.metaquotes.net"
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
double EMAFp;
double EMASp;
double EMAF1;
double EMAS1;
bool crossedUp=false;
int SBStat=0;
int FromHourTrade=7;
int ToHourTrade=20;
double RSI,RSI2;
bool Firstry=true;
extern int FastPeriod=23;
extern bool UseHourTrade= true;
extern int SlowPeriod=89;
extern int SL=40;
extern int TakeProfit=100;
extern double Lots=1;
extern int TrailingStop=18;
extern int incTp=5;
int bar;
extern int Risk=10;
extern bool MM = true;
extern int MaxTrades=2;
int ticket [];
double RSITrend=0;
extern int Selectivity=37;
bool buying,selling;
int iTick=0;
double barsAVG=0;
int total;
int cnt;
int index;
bool sellable;
bool buyable;
double low,high;
int init()
{
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
bar=getPeriod();
if(checkParams()!=0)
{
if( UseHourTrade ){
if((( FromHourTrade <= ToHourTrade ) && ( Hour() < FromHourTrade || Hour() > ToHourTrade ))
|| // Allow for Overnight Trading
(( FromHourTrade > ToHourTrade ) && ( Hour() < FromHourTrade && Hour() > ToHourTrade ))
||Day()==5
) {
return(0);
}
}
CheckEquity();
//EMAS1 =iCustom(Symbol(),PERIOD_M30,"KAMA#3",SlowPeriod,0,0);// iMA(NULL,0,SlowPeriod,0,MA_method,PRICE_MEDIAN,0); //slow
//EMAF1 =iCustom(Symbol(),PERIOD_M30,"KAMA#3",FastPeriod,0,0);// iMA(NULL,0,SlowPeriod,0,MA_method,PRICE_MEDIAN,0); //slow
EMAF1 = iMA(NULL,0,FastPeriod,0,MODE_EMA,PRICE_WEIGHTED,0); //fast
EMAS1 = iMA(NULL,0,SlowPeriod,0,MODE_EMA,PRICE_WEIGHTED,0); //slow
RSI = iRSI(NULL,PERIOD_M5,14,PRICE_WEIGHTED,0);
RSI2 = iRSI(NULL,PERIOD_M5,14,PRICE_WEIGHTED,7);
double RSIM1 = iRSI(NULL,PERIOD_M15,14,PRICE_WEIGHTED,0);
double RSIM2 = iRSI(NULL,PERIOD_M15 ,14,PRICE_WEIGHTED,7);
double RSIL1 = iRSI(NULL,PERIOD_M30 ,14,PRICE_WEIGHTED,0);
double RSIL2 = iRSI(NULL,PERIOD_M30 ,14,PRICE_WEIGHTED,7);
//RSITrend = iRSI(NULL,PERIOD_H4,Selectivity,PRICE_WEIGHTED,0);
if(MM==true) Lots = LotSize();
bool bullish=((RSI>55&&RSIM1>55&&RSIL1>55)&&(RSIL2<50&&RSIM2<50&&RSI2<50)&&EMAS1>EMAF1);
bool bearish=((RSI<55&&RSIM1<55&&RSIL1<55)&&(RSIL2>50&&RSIM2>50&&RSI2>50)&&EMAS1<EMAF1);
buyable=(bullish);//RSI>50&&RSI2<RSI);
sellable= (bearish);//RSI<50&&RSI2>RSI);
//Print(stdDev);
if(buyable&&!buying)// &&RSITrend>55
if(OrdersTotal()<MaxTrades)
//if(difference<=30&&difference>0)
{
//OrderSelect( iTick , SELECT_BY_POS , MODE_TRADES);
// OrderClose(OrderTicket(),OrderLots(),Ask,2,White);//,Ask,3,White);
iTick=OrderSend(Symbol(),OP_BUY,Lots,Ask,2,Ask-(SL*Point),Ask+(TakeProfit*Point),"Cross Buy",16384, Minute()-100 ,Lime);
//+(5*Point)
buying=true;
selling=false;
}
//Print(difference2+":"+difference);
if(sellable!selling)//&&RSITrend<45
if(OrdersTotal()<MaxTrades)
//if(difference<=30&&difference>0)
{
//OrderSelect( iTick , SELECT_BY_POS, MODE_TRADES);
// OrderClose(OrderTicket(),OrderLots(),Ask,2,White);//,Ask,3,White);
iTick=OrderSend(Symbol(),OP_SELL,Lots,Bid,2,Bid+(SL*Point),Bid-(TakeProfit*Point),"Cross Sell",16384,Minute()-100,Orange);
selling=true;
buying=false;
}
}
total = OrdersTotal();
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL && OrderSymbol()==Symbol())
{
if(OrderType()==OP_BUY) // long position is opened
{
// check for trailing stop
if(TrailingStop>0)
{
if(Bid-OrderOpenPrice()>Point*TrailingStop)
{
if(OrderStopLoss()<Bid-Point*TrailingStop)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green);
if(OrderTakeProfit()-Ask<incTp*Point)
{
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),OrderTakeProfit()+incTp*Point,0,Pink);
// Print("-=--=--=--=--=--=--"+"is the ask, TP="+OrderTakeProfit());
}
if(OrderOpenPrice()<Ask&&OrderStopLoss()<Ask)
{OrderModify(OrderTicket(),OrderOpenPrice(),Ask,OrderTakeProfit(),0,Pink);
}
return(0);
}
}
}
}
else // go to short position
{
// check for trailing stop
if(TrailingStop>0)
{
if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
{
if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit()-incTp*Point,0,Red);
if(Bid-OrderTakeProfit()<incTp*Point)
{
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),OrderTakeProfit()-incTp*Point,0,Pink);
// Print("-=--=--=--=--=--=--"+Bid+"is the ask, TP="+OrderTakeProfit());
}
if(OrderOpenPrice()>Ask&&OrderStopLoss()>Ask)
{OrderModify(OrderTicket(),OrderOpenPrice(),Ask,OrderTakeProfit(),0,Pink);
}
return(0);
}
}
}
}
}
}
return(0);
}
//+------------------------------------------------------------------+
double LotSize()
{
double lotMM = MathCeil(AccountFreeMargin() * Risk / 10000) / 10;
if (lotMM < 0.1) lotMM = Lots;
if (lotMM > 1.0) lotMM = MathCeil(lotMM);
if (lotMM > 100) lotMM = 100;
return (lotMM);
}
int checkParams()
{if(DayOfWeek()>=5 && Hour()>=21){
return(0);
}
if(Bars<100){
Print("bars less than 100");
return(0);
}
if(SL<4){
Print("StopLoss less than 10");
// return(0);
}
if(TakeProfit<4){
Print("TakeProfit less than 10");
return(0);
}
if(TrailingStop<10){
Print("StopLoss less than 10");
return(0);
}
return(1);
}
int CheckEquity()
{double pcnt = 100+(AccountEquity()-AccountBalance())/AccountBalance()*100;
//Print("Account equity = ",AccountEquity());
//Print("Account balance = ",AccountBalance());
//Print("EQ%= ",pcnt);
if(false)// pcnt>180)
{
total=OrdersTotal();
for(cnt=0;cnt<=total;cnt++)
{OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
OrderClose(OrderTicket(),OrderLots(),Ask,2,White);
}
// Print("ALL ORDERS CLOSE-->Locked in EQUITY Profit");
}
return(0);
}
int getPeriod()
{
switch(Period())
{
case PERIOD_M5:
return (8);
break;
case PERIOD_M15:
return (10);
break;
case PERIOD_M30:
return (14);
break;
case PERIOD_H1:
return (20);
break;
default:
Print("NOT An Acceptable Timeframe");
return (0);
break;
}
}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Moving average indicator
Relative strength index
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
It Closes Orders by itself
Other Features:
