//+------------------------------------------------------------------+
//| Ichimoku_EA_v1.0.mq4 |
//| Strategy is explained here:
//|http://www.kumotrader.com/ichimoku_wiki/index.php?title=Ichimoku_trading_strategies#READ_THIS_FIRST.21
//|
//| EA places 5 kinds of trades. You may see the EA place multiple trades the
//| same period, but for different entries and exits. Long orders are described here
//| and short trades are done the opposite. Specific SL, TP and BE settings for each pair
//| are set at the beginning of the Start() function. You will want to set those for yourself.
//|
//| 1. Tenkan Kijun Cross (Any TF)
//| Go long when Chinkou Span > Tenkan
//| and Tenkan > Kijun
//| and Kijun > Cloud (Komu)
//| Uses StopLoss, Trailing Stop, Breakeven and TakeProfit
//| Exit when Tenkan < Kijun
//|
//| 2. Kijun Cross (Any TF)
//| Go long when todays close > Tenkan
//| and Tenkan > Cloud
//| Stop loss is trailed 10 pips below the Kijun
//| No Breakeven or Takeprofit
//| Exit if todays close < Tenkan
//|
//| 3. Breakout (Daily, Weekly or Monthly Chart Only)
//| Go long if todays close > Cloud
//| and we have a bullish daily and weekly cloud 26 periods out
//| Trailing stop 20 pips below the cloud
//| No Breakeven or TakeProfit
//| Exit if todays close < cloud
//|
//| 4. Senkou Span Cross (Daily, Weekly or Monthly Chart Only)
//| Go long if todays close > cloud
//| and we have a bullish daily and weekly cloud 26 periods out
//| Trialing Stop 20 pips below the cloud
//| No Breakeven or Takeprofit
//| Exit if cloud 26 periods out switches direction
//|
//| 5. Chikou Span Cross (Any TF)
//| Go long if Chinkou 26 periods ago > Close and Cloud 26 periods ago
//| and todays close > Cloud today
//| Uses StopLoss, Trailing Stop, Breakeven and TakeProfit
//| Exit if Chikou 26 periods ago < close 26 periods ago
//|
//+------------------------------------------------------------------+
extern bool TradeTKCross = True;
extern bool TradeKCross = True;
extern bool TradeBreakout = True;
extern string BreakoutTFs = "1=Day, 2=Week, 3=Monthly";
extern int BreakoutTF = 1;
extern bool TradeSenkouSCross = True;
extern string SenkouSCrossTFs = "1=Day, 2=Week, 3=Monthly";
extern int SenkouSCrossTF = 1;
extern bool TradeChikouSCross = True;
extern string StopString1 = "BE, SL, TSL & TP Valid";
extern string StopString2 = "Only On TK & Chikou";
extern int BEPips=0; // Pips In profit after which EA will Move SL to BE+1
extern int TrailingStop=0; // Trailing Stop
extern int TakeProfit=0;
extern int StopLoss=0;
extern bool mm=false; //Money Management?
extern int RiskPercent=2;
extern double Lots=0.01;
extern double MinimumLot=0.01;
extern double DollarsPerLot = 10000;
extern string TradeLog = " MI_Log";
int Total, Magic;
double Spread, Entry, TP, SL, high, low, highopen, lowopen, highstopopen, lowstopopen, hightakeprofit, lowtakeprofit, lot;
string filename, TradeComment;
double IchTenkan, IchKijun, IchSenA, IchSenB, IchChin;
double IchSenA1, IchSenB1, IchSenA2, IchSenB2, IchSenA3, IchSenB3;
double IchSenPrice1, IchSenPrice2;
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
ObjectsDeleteAll();
MinimumLot = MarketInfo(Symbol(),MODE_MINLOT);
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
Print("Done Testing");
ObjectsDeleteAll();
//----
return(0);
}
/*double LotsOptimized()
{
double lot=Lots;
//---- select lot size
if (mm) lot=NormalizeDouble(MathFloor(AccountFreeMargin()*RiskPercent/100)/100,1);
// lot at this point is number of standard lots
return(lot);
}*/
double LotsOptimized(double InputLots)
{
lot=Lots;
if (mm)
{
lot = MathRound(InputLots/MinimumLot)*MinimumLot;
if(lot<MinimumLot) lot = MinimumLot;
}
return(lot);
}
int CheckOrdersCondition()
{
int result=0;
for (int i=0;i<OrdersTotal();i++)
{
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if ((OrderType()==OP_BUY) && (OrderSymbol() == Symbol()) && (OrderMagicNumber() == Magic))
{
result=result+1000;
}
if ((OrderType()==OP_SELL) && (OrderSymbol() == Symbol()) && (OrderMagicNumber() == Magic))
{
result=result+100;
}
if ((OrderType()==OP_BUYSTOP) && (OrderSymbol() == Symbol()) && (OrderMagicNumber() == Magic))
{
result=result+10;
}
if ((OrderType()==OP_SELLSTOP) && (OrderSymbol() == Symbol()) && (OrderMagicNumber() == Magic))
{
result=result+1;
}
}
return(result); // 0 means we have no trades
}
// OrdersCondition Result Pattern
// 1 1 1 1
// b s bs ss
//
void OpenBuy()
{
int ticket,err,tries;
tries = 0;
while (tries < 3)
{
ticket = OrderSend(Symbol(),OP_BUY,LotsOptimized(AccountBalance()/DollarsPerLot),Ask,3,SL,TP,TradeComment,Magic,0,Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("BUY order opened : ",OrderOpenPrice());
tries=3;
}
else
{
Print("Error opening BUY order : ",GetLastError()+" Buy @ "+Ask+" SL @ "+SL+" TP @"+TP);
Print("Lots:",Lots,", TP:",TP,", SL:",SL);
tries++;
}
}
}
void OpenSell()
{
int ticket,err,tries;
tries = 0;
while (tries < 3)
{
ticket = OrderSend(Symbol(),OP_SELL,LotsOptimized(AccountBalance()/DollarsPerLot),Bid,3,SL,TP,TradeComment,Magic,0,Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("SELL order opened : ",OrderOpenPrice());
tries=3;
}
else
{
Print("Error opening SELL order : ",GetLastError()+" Sell @ "+Bid+" SL @ "+SL+" TP @"+TP);
Print("Lots:",Lots,", TP:",TP,", SL:",SL);
tries++;
}
}
}
void OpenBuyStop()
{
int ticket,err,tries;
tries = 0;
while (tries < 3)
{
ticket = OrderSend(Symbol(),OP_BUYSTOP,LotsOptimized(AccountBalance()/DollarsPerLot),Entry,3,SL,TP,TradeComment,Magic,0,Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("BUYSTOP order opened : ",OrderOpenPrice());
tries=3;
}
else
{
Print("Error opening BUYSTOP order : ",GetLastError()+" BuyStop @ "+Entry+" SL @ "+SL+" TP @"+TP);
Print("Lots:",Lots,", TP:",TP,", SL:",SL);
tries++;
}
}
}
void OpenSellStop()
{
int ticket,err,tries;
tries = 0;
while (tries < 3)
{
ticket = OrderSend(Symbol(),OP_SELLSTOP,LotsOptimized(AccountBalance()/DollarsPerLot),Entry,3,SL,TP,TradeComment,Magic,0,Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("SELLSTOP order opened : ",OrderOpenPrice());
tries=3;
}
else
{
Print("Error opening SELLSTOP order : ",GetLastError()+" SellStop @ "+Entry+" SL @ "+SL+" TP @"+TP);
Print("Lots:",Lots,", TP:",TP,", SL:",SL);
tries++;
}
}
}
void DoBE(int byPips)
{
for (int i = 0; i < OrdersTotal(); i++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if ( OrderSymbol()==Symbol() && (OrderMagicNumber() == Magic)) // only look if mygrid and symbol...
{
if (OrderType() == OP_BUY) if (Bid - OrderOpenPrice() > byPips * Point) if (OrderStopLoss() < OrderOpenPrice()) {
Write("Moving StopLoss of Buy Order to BE+1");
OrderModify(OrderTicket(), OrderOpenPrice(), OrderOpenPrice() + Point, OrderTakeProfit(), Red);
}
if (OrderType() == OP_SELL) if (OrderOpenPrice() - Ask > byPips * Point) if (OrderStopLoss() > OrderOpenPrice()) {
Write("Moving StopLoss of Buy Order to BE+1");
OrderModify(OrderTicket(), OrderOpenPrice(), OrderOpenPrice() - Point, OrderTakeProfit(), Red);
}
}
}
}
void DoTrail()
{
for (int i = 0; i < OrdersTotal(); i++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if ( OrderSymbol()==Symbol() && (OrderMagicNumber() == Magic)) // only look if mygrid and symbol...
{
if (OrderType() == OP_BUY) {
if(Bid-OrderOpenPrice()>Point*TrailingStop)
{
if(OrderStopLoss()<Bid-Point*TrailingStop)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green);
return(0);
}
}
}
if (OrderType() == OP_SELL)
{
if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
{
if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit(),0,Red);
return(0);
}
}
}
}
}
}
void DoTrailCloud()
{
for (int i = 0; i < OrdersTotal(); i++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if ( OrderSymbol()==Symbol() && (OrderMagicNumber() == Magic)) // only look if mygrid and symbol...
{
if (OrderType() == OP_BUY)
{
if(IchSenA < IchSenB && OrderStopLoss() < IchSenA-20*Point) SL = IchSenA - 20*Point;
if(IchSenB < IchSenA && OrderStopLoss() < IchSenB-20*Point) SL = IchSenB - 20*Point;
OrderModify(OrderTicket(),OrderOpenPrice(),SL,OrderTakeProfit(),0,Green);
return(0);
}
if (OrderType() == OP_SELL)
{
if(IchSenA < IchSenB && OrderStopLoss() > IchSenB+20*Point) SL = IchSenB + 20*Point;
if(IchSenB < IchSenA && OrderStopLoss() > IchSenA+20*Point) SL = IchSenA + 20*Point;
OrderModify(OrderTicket(),OrderOpenPrice(),SL,OrderTakeProfit(),0,Red);
return(0);
}
}
}
}
void DoTrailK()
{
for (int i = 0; i < OrdersTotal(); i++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if ( OrderSymbol()==Symbol() && (OrderMagicNumber() == Magic)) // only look if mygrid and symbol...
{
if (OrderType() == OP_BUY)
{
if (OrderStopLoss() < IchKijun-10*Point)
{
OrderModify(OrderTicket(),OrderOpenPrice(),IchKijun-10*Point,OrderTakeProfit(),0,Green);
return(0);
}
}
if (OrderType() == OP_SELL)
{
if (OrderStopLoss() > IchKijun+10*Point)
{
OrderModify(OrderTicket(),OrderOpenPrice(),IchKijun+10*Point,OrderTakeProfit(),0,Red);
return(0);
}
}
}
}
}
void CloseBuy()
{
for (int i = 0; i < OrdersTotal(); i++)
{
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol()==Symbol() && (OrderMagicNumber() == Magic) && (OrderType()==OP_BUY))
{
OrderClose(OrderTicket(),OrderLots(),Bid,3,Red);
Write("in function CloseBuyOrder Executed");
}
}
}
void CloseSell()
{
for (int i = 0; i < OrdersTotal(); i++)
{
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol()==Symbol() && (OrderMagicNumber() == Magic) && (OrderType()==OP_SELL))
{
OrderClose(OrderTicket(),OrderLots(),Ask,3,Red);
Write("in function CloseSellOrder Executed");
}
}
}
void DeleteBuyStop()
{
for (int i = 0; i < OrdersTotal(); i++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol()==Symbol() && (OrderMagicNumber() == Magic) && (OrderType()==OP_BUYSTOP)) {
OrderDelete(OrderTicket());
Write("in function DeleteBuyStopOrderDelete Executed");
}
}
}
void DeleteSellStop()
{
for (int i = 0; i < OrdersTotal(); i++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol()==Symbol() && (OrderMagicNumber() == Magic) && (OrderType()==OP_SELLSTOP)) {
OrderDelete(OrderTicket());
Write("in function DeleteSellStopOrderDelete Executed");
}
}
}
void DoModify()
{
for (int i = 0; i < OrdersTotal(); i++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol()==Symbol() && (OrderMagicNumber() == Magic) && (OrderType()==OP_SELLSTOP)) {
if ((OrderOpenPrice()>Ask) || (OrderOpenPrice()<Ask)) {
Write("in function DoModify , SellStop OrderModify Executed, Sell Stop was @ "+DoubleToStr(OrderOpenPrice(),4)+" it changed to "+DoubleToStr(Ask,4));
OrderModify(OrderTicket(),Ask,SL,TP,0,Red);
}
}
if (OrderSymbol()==Symbol() && (OrderMagicNumber() == Magic) && (OrderType()==OP_BUYSTOP)) {
if ((OrderOpenPrice()>Bid) || (OrderOpenPrice()<Bid)) {
Write("in function DoModify , BuyStop OrderModify Executed, Buy Stop was @ "+DoubleToStr(OrderOpenPrice(),4)+" it changed to "+DoubleToStr(Bid,4));
OrderModify(OrderTicket(),Bid,SL,TP,0,Red);
}
}
}
}
void ModifyStop()
{
for (int i = 0; i < OrdersTotal(); i++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol()==Symbol() && (OrderMagicNumber() == Magic) && (OrderType()==OP_SELL)) {
Print("in function ModifyStop, Sell OrderModify Executed, Sell stoploss changed to ",SL);
OrderModify(OrderTicket(),Ask,SL,TP,0,Red);
}
if (OrderSymbol()==Symbol() && (OrderMagicNumber() == Magic) && (OrderType()==OP_BUY)) {
Print("in function ModifyStop, Buy OrderModify Executed, Buy stoploss was changed to ",SL);
OrderModify(OrderTicket(),Bid,SL,TP,0,Red);
}
}
}
int Write(string str)
{
int handle;
handle = FileOpen(filename,FILE_READ|FILE_WRITE|FILE_CSV,"/t");
FileSeek(handle, 0, SEEK_END);
FileWrite(handle,str + " Time " + TimeToStr(CurTime(),TIME_DATE|TIME_SECONDS));
FileClose(handle);
}
//---------------------------------
// Verify that a new bar appeared.|
//---------------------------------
bool NewBar()
{
static int lastBars;
if (lastBars != Bars)
{
lastBars = Bars;
return(true);
}
else
{
return(false);
}
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
int i, EODTime;
int OrdersCondition;
double ShortEntry, LongEntry, ShortSL, LongSL, ShortTP, LongTP;
//return if not a new bar
if (!NewBar()) return(0);
//Settings for each currency pair. Copy "else if" to create more.
/* if (!IsTesting()){
if (Symbol()=="EURUSD"){
BEPips=40;
StopLoss=15;
TakeProfit=70;
}
else if (Symbol()=="GBPUSD"){
BEPips=56;
StopLoss=21;
TakeProfit=98;
}
else if (Symbol()=="USDJPY"){
BEPips=40;
StopLoss=15;
TakeProfit=70;
}
else if (Symbol()=="USDCHF"){
BEPips=40;
StopLoss=15;
TakeProfit=70;
}
else { //default
BEPips=40;
StopLoss=15;
TakeProfit=70;
}
}
*/
filename=Symbol() + TradeLog + "-" + Month() + "-" + Day() + ".txt";
IchTenkan = iCustom(NULL,0,"Ichimoku",9,26,52,0,1); //fast
IchKijun = iCustom(NULL,0,"Ichimoku",9,26,52,1,1); //slow
IchSenA = iCustom(NULL,0,"Ichimoku",9,26,52,2,1); //Cloud Top
IchSenB = iCustom(NULL,0,"Ichimoku",9,26,52,3,1); //Cloud bottom
IchChin = iCustom(NULL,0,"Ichimoku",9,26,52,4,26); //ChinKou Span
//Print("Close[1]:",Close[1]," Tenkan:",IchTenkan," Kijun:",IchKijun," SenA:",IchSenA," SenB:",IchSenB," Chin:",IchChin);
// ShortEntry = Bid;
// ShortEntry = Bid-(Straddle*Point);
ShortSL = Bid+(StopLoss*Point);
ShortTP = Bid-(TakeProfit*Point);
// LongEntry = Ask;
// LongEntry = Ask+(Straddle*Point);
LongSL = Ask-(StopLoss*Point);
LongTP = Ask+(TakeProfit*Point);
//--------------------------
// Kijun/Tenkan Cross Orders
//--------------------------
if(TradeTKCross)
{
Magic=121920071;
TradeComment="Tenkan Kijun Cross";
OrdersCondition=CheckOrdersCondition();
// OrdersCondition Result Pattern
// 1 1 1 1
// b s bs ss
if(OrdersCondition==0)
{
//Go Long on Kijun/Tenkan cross
if (IchChin > IchTenkan && IchTenkan > IchKijun && IchKijun > IchSenA && IchKijun > IchSenB)
{
if(StopLoss>0) SL=LongSL;
if(TakeProfit>0) TP=LongTP;
OpenBuy();
}
//Go SHORT on Kijun/Tenkan cross
if (IchChin < IchTenkan && IchTenkan < IchKijun && IchKijun < IchSenA && IchKijun < IchSenB)
{
if(StopLoss>0) SL=ShortSL;
if(TakeProfit>0) TP=ShortTP;
OpenSell();
}
}
//Exit Kijun/Tenkan cross trades
if(OrdersCondition>0)
{
//Exit Kijun/Tenkan Cross trades
if (IchTenkan<IchKijun) CloseBuy();
if (IchTenkan>IchKijun) CloseSell();
if (BEPips>0) DoBE(BEPips);
if (TrailingStop>0) DoTrail();
}
}
//------------------------
// Kijun Sen Cross Orders
//------------------------
if(TradeKCross)
{
Magic=121920072;
TradeComment="Kijun Sen Cross";
OrdersCondition=CheckOrdersCondition();
// OrdersCondition Result Pattern
// 1 1 1 1
// b s bs ss
if(OrdersCondition==0)
{
//Go Long on Kijun Sen cross
if (Close[1] > IchTenkan && IchTenkan > IchSenA && IchTenkan > IchSenB)
{
SL = IchKijun-10*Point;
OpenBuy();
}
//Go SHORT on Kijun Sen cross
if (Close[1] < IchTenkan && IchTenkan < IchSenA && IchTenkan < IchSenB)
{
SL = IchKijun+10*Point;
OpenSell();
}
}
//Exit Kijun cross trades
if(OrdersCondition>0)
{
//Exit Kijun/Tenkan Cross trades
if (Close[1] < IchTenkan) CloseBuy();
if (Close[1] > IchTenkan) CloseSell();
Print("Kijun:",IchKijun,", Close: ",Close[1]);
DoTrailK();
}
}
//-------------------
// Breakout Orders
//-------------------
if(TradeBreakout)
{
Magic=121920073;
TradeComment="Cloud Breakout";
IchSenA1 = iCustom(NULL,PERIOD_D1,"Ichimoku",9,26,52,2,-26);
IchSenB1 = iCustom(NULL,PERIOD_D1,"Ichimoku",9,26,52,3,-26);
IchSenA2 = iCustom(NULL,PERIOD_W1,"Ichimoku",9,26,52,2,-26);
IchSenB2 = iCustom(NULL,PERIOD_W1,"Ichimoku",9,26,52,3,-26);
IchSenA3 = iCustom(NULL,PERIOD_MN1,"Ichimoku",9,26,52,2,-26);
IchSenB3 = iCustom(NULL,PERIOD_MN1,"Ichimoku",9,26,52,3,-26);
//Print("A1:",IchSenA1," ,B1:",IchSenB1," ,A2:",IchSenA2," ,B2:",IchSenB2," ,A3:",IchSenA3," ,B3:",IchSenB3);
OrdersCondition=CheckOrdersCondition();
// OrdersCondition Result Pattern
// 1 1 1 1
// b s bs ss
if(OrdersCondition==0)
{
switch(BreakoutTF)
{
case(1): //Daily
{
//Print("Close[1]",Close[1]," ,A: ",IchSenA," ,B: ",IchSenB," ,A1:",IchSenA1," ,B1:",IchSenB1," ,A2:",IchSenA2," ,B2:",IchSenB2," ,A3:",IchSenA3," ,B3:",IchSenB3);
//Go LONG on Breakout
if (Close[1] > IchSenA && Close[1] > IchSenB && IchSenA1 > IchSenB1 && IchSenA2 > IchSenB2)
{
if(IchSenA < IchSenB) SL = IchSenA - 20*Point;
if(IchSenB < IchSenA) SL = IchSenB - 20*Point;
OpenBuy();
}
//Go SHORT on Breakout
if (Close[1] < IchSenA && Close[1] < IchSenB && IchSenA1 < IchSenB1 && IchSenA2 < IchSenB2)
{
if(IchSenA < IchSenB) SL = IchSenA + 20*Point;
if(IchSenB < IchSenA) SL = IchSenB + 20*Point;
OpenSell();
}
return(0);
}
case(2): //Weekly
{
//Print("Close[1]",Close[1]," ,A: ",IchSenA," ,B: ",IchSenB," ,A1:",IchSenA1," ,B1:",IchSenB1," ,A2:",IchSenA2," ,B2:",IchSenB2," ,A3:",IchSenA3," ,B3:",IchSenB3);
//Go LONG on Breakout
if (Close[1] > IchSenA && Close[1] > IchSenB && IchSenA1 > IchSenB1 && IchSenA2 > IchSenB2)
{
if(IchSenA < IchSenB) SL = IchSenA - 20*Point;
if(IchSenB < IchSenA) SL = IchSenB - 20*Point;
OpenBuy();
}
//Go SHORT on Breakout
if (Close[1] < IchSenA && Close[1] < IchSenB && IchSenA1 < IchSenB1 && IchSenA2 < IchSenB2)
{
if(IchSenA < IchSenB) SL = IchSenA + 20*Point;
if(IchSenB < IchSenA) SL = IchSenB + 20*Point;
OpenSell();
}
return(0);
}
case(3): //Monthly
{
//Print("Close[1]",Close[1]," ,A: ",IchSenA," ,B: ",IchSenB," ,A1:",IchSenA1," ,B1:",IchSenB1," ,A2:",IchSenA2," ,B2:",IchSenB2," ,A3:",IchSenA3," ,B3:",IchSenB3);
Alert("Ichimoku_EA: Unable to run on monthly timeframe");
return(0);
//Go LONG on Breakout
if (Close[1] > IchSenA && Close[1] > IchSenB && IchSenA1 > IchSenB1 && IchSenA2 > IchSenB2)
{
if(IchSenA < IchSenB) SL = IchSenA - 20*Point;
if(IchSenB < IchSenA) SL = IchSenB - 20*Point;
OpenBuy();
}
//Go SHORT on Breakout
if (Close[1] < IchSenA && Close[1] < IchSenB && IchSenA1 < IchSenA1 && IchSenA2 < IchSenB2)
{
if(IchSenA < IchSenB) SL = IchSenA + 20*Point;
if(IchSenB < IchSenA) SL = IchSenB + 20*Point;
OpenSell();
}
return(0);
}
}
}
//Exit Breakout trades
if(OrdersCondition>0)
{
//if (Close[1] < IchSenA && Close[1] < IchSenB) CloseBuy();
if (Close[1] < IchSenA && Close[1] < IchSenB) CloseBuy();
//if (Close[1] > IchSenA && Close[1] > IchSenB) CloseSell();
if (Close[1] > IchSenA && Close[1] > IchSenB) CloseSell();
DoTrailCloud();
}
}
//---------------------------
// Senkou Span Cross Orders
//---------------------------
if(TradeSenkouSCross)
{
Magic=121920074;
TradeComment="Senkou Span Cross";
//Daily, Weekly and Monthly Cloud direction
//Trade with all 3 are in the same direction
IchSenA1 = iCustom(NULL,PERIOD_D1,"Ichimoku",9,26,52,2,-26);
IchSenB1 = iCustom(NULL,PERIOD_D1,"Ichimoku",9,26,52,3,-26);
IchSenA2 = iCustom(NULL,PERIOD_W1,"Ichimoku",9,26,52,2,-26);
IchSenB2 = iCustom(NULL,PERIOD_W1,"Ichimoku",9,26,52,3,-26);
IchSenA3 = iCustom(NULL,PERIOD_MN1,"Ichimoku",9,26,52,2,-26);
IchSenB3 = iCustom(NULL,PERIOD_MN1,"Ichimoku",9,26,52,3,-26);
//Print("A1:",IchSenA1," B1:",IchSenB1," A2:",IchSenA2," B2:",IchSenB2," A3:",IchSenA3," B3:",IchSenB3);
OrdersCondition=CheckOrdersCondition();
// OrdersCondition Result Pattern
// 1 1 1 1
// b s bs ss
if(OrdersCondition==0)
{
switch(SenkouSCrossTF)
{
case(1): //Daily
{
//Go Long on Senkou Span cross
if (Close[1] > IchSenA && Close[1] > IchSenB && IchSenA1 > IchSenB1 && IchSenA2 > IchSenB2)
{
if(IchSenA < IchSenB) SL = IchSenA - 20*Point;
if(IchSenB < IchSenA) SL = IchSenB - 20*Point;
OpenBuy();
}
//Go SHORT on Senkou Span cross
if (Close[1] < IchSenA && Close[1] < IchSenB && IchSenA1 < IchSenB1 && IchSenA2 < IchSenB2)
{
if(IchSenA < IchSenB) SL = IchSenA + 20*Point;
if(IchSenB < IchSenA) SL = IchSenB + 20*Point;
OpenSell();
}
return(0);
}
case(2): //Weekly
{
//Go Long on Senkou Span cross
if (Close[1] > IchSenA && Close[1] > IchSenB && IchSenA2 > IchSenB2)
{
if(IchSenA < IchSenB) SL = IchSenA - 20*Point;
if(IchSenB < IchSenA) SL = IchSenB - 20*Point;
OpenBuy();
}
//Go SHORT on Senkou Span cross
if (Close[1] < IchSenA && Close[1] < IchSenB && IchSenA2 < IchSenB2)
{
if(IchSenA < IchSenB) SL = IchSenA + 20*Point;
if(IchSenB < IchSenA) SL = IchSenB + 20*Point;
OpenSell();
}
return(0);
}
case(3): //Monthly
{
Alert("Ichimoku_EA: Unable to run on monthly timeframe");
return(0);
//Go Long on Senkou Span cross
if (Close[1] > IchSenA && Close[1] > IchSenB && IchSenA3 > IchSenB3)
{
if(IchSenA < IchSenB) SL = IchSenA - 20*Point;
if(IchSenB < IchSenA) SL = IchSenB - 20*Point;
OpenBuy();
}
//Go SHORT on Senkou Span cross
if (Close[1] < IchSenA && Close[1] < IchSenB && IchSenA3 < IchSenB3)
{
if(IchSenA < IchSenB) SL = IchSenA + 20*Point;
if(IchSenB < IchSenA) SL = IchSenB + 20*Point;
OpenSell();
}
return(0);
}
}
}
//Exit Senkou Span cross trades when our TF switches direction
if(OrdersCondition>0)
{
if (SenkouSCrossTF==1 && IchSenA1<IchSenB1) CloseBuy();
if (SenkouSCrossTF==2 && IchSenA2<IchSenB2) CloseBuy();
if (SenkouSCrossTF==3 && IchSenA3<IchSenB3) CloseBuy();
if (SenkouSCrossTF==1 && IchSenA1>IchSenB1) CloseSell();
if (SenkouSCrossTF==2 && IchSenA2>IchSenB2) CloseSell();
if (SenkouSCrossTF==3 && IchSenA3>IchSenB3) CloseSell();
DoTrailCloud();
}
}
//--------------------------
// Chikou Span Cross
//--------------------------
if(TradeChikouSCross)
{
Magic=121920075;
TradeComment="Chikou Span Cross";
IchSenA1 = iCustom(NULL,0,"Ichimoku",9,26,52,2,26);
IchSenB1 = iCustom(NULL,0,"Ichimoku",9,26,52,3,26);
OrdersCondition=CheckOrdersCondition();
// OrdersCondition Result Pattern
// 1 1 1 1
// b s bs ss
if(OrdersCondition==0)
{
//Go Long on Chikou Span cross
if (IchChin > Close[26] && Close[1] > IchSenA && Close[1] > IchSenB && IchChin > IchSenA1 && IchChin > IchSenB1)
{
if(StopLoss>0) SL=LongSL;
if(TakeProfit>0) TP=LongTP;
OpenBuy();
}
//Go SHORT on Chikou Span cross
if (IchChin < Close[26]&& Close[1] < IchSenA && Close[1] < IchSenB && IchChin < IchSenA1 && IchChin < IchSenB1)
{
if(StopLoss>0) SL=ShortSL;
if(TakeProfit>0) TP=ShortTP;
OpenSell();
}
}
//Exit Chikou Span cross trades
if(OrdersCondition>0)
{
if (IchChin < Close[26]) CloseBuy();
if (IchChin > Close[26]) CloseSell();
if (BEPips > 0) DoBE(BEPips);
if (TrailingStop > 0) DoTrail();
}
}
return(0);
}
//+------------------------------------------------------------------+
//| return error description |
//+------------------------------------------------------------------+
string ErrorDescription(int error_code)
{
string error_string;
//----
switch(error_code)
{
//---- codes returned from trade server
case 0:
case 1: error_string="no error"; break;
case 2: error_string="common error"; break;
case 3: error_string="invalid trade parameters"; break;
case 4: error_string="trade server is busy"; break;
case 5: error_string="old version of the client terminal"; break;
case 6: error_string="no connection with trade server"; break;
case 7: error_string="not enough rights"; break;
case 8: error_string="too frequent requests"; break;
case 9: error_string="malfunctional trade operation"; break;
case 64: error_string="account disabled"; break;
case 65: error_string="invalid account"; break;
case 128: error_string="trade timeout"; break;
case 129: error_string="invalid price"; break;
case 130: error_string="invalid stops"; break;
case 131: error_string="invalid trade volume"; break;
case 132: error_string="market is closed"; break;
case 133: error_string="trade is disabled"; break;
case 134: error_string="not enough money"; break;
case 135: error_string="price changed"; break;
case 136: error_string="off quotes"; break;
case 137: error_string="broker is busy"; break;
case 138: error_string="requote"; break;
case 139: error_string="order is locked"; break;
case 140: error_string="long positions only allowed"; break;
case 141: error_string="too many requests"; break;
case 145: error_string="modification denied because order too close to market"; break;
case 146: error_string="trade context is busy"; break;
//---- mql4 errors
case 4000: error_string="no error"; break;
case 4001: error_string="wrong function pointer"; break;
case 4002: error_string="array index is out of range"; break;
case 4003: error_string="no memory for function call stack"; break;
case 4004: error_string="recursive stack overflow"; break;
case 4005: error_string="not enough stack for parameter"; break;
case 4006: error_string="no memory for parameter string"; break;
case 4007: error_string="no memory for temp string"; break;
case 4008: error_string="not initialized string"; break;
case 4009: error_string="not initialized string in array"; break;
case 4010: error_string="no memory for array\' string"; break;
case 4011: error_string="too long string"; break;
case 4012: error_string="remainder from zero divide"; break;
case 4013: error_string="zero divide"; break;
case 4014: error_string="unknown command"; break;
case 4015: error_string="wrong jump (never generated error)"; break;
case 4016: error_string="not initialized array"; break;
case 4017: error_string="dll calls are not allowed"; break;
case 4018: error_string="cannot load library"; break;
case 4019: error_string="cannot call function"; break;
case 4020: error_string="expert function calls are not allowed"; break;
case 4021: error_string="not enough memory for temp string returned from function"; break;
case 4022: error_string="system is busy (never generated error)"; break;
case 4050: error_string="invalid function parameters count"; break;
case 4051: error_string="invalid function parameter value"; break;
case 4052: error_string="string function internal error"; break;
case 4053: error_string="some array error"; break;
case 4054: error_string="incorrect series array using"; break;
case 4055: error_string="custom indicator error"; break;
case 4056: error_string="arrays are incompatible"; break;
case 4057: error_string="global variables processing error"; break;
case 4058: error_string="global variable not found"; break;
case 4059: error_string="function is not allowed in testing mode"; break;
case 4060: error_string="function is not confirmed"; break;
case 4061: error_string="send mail error"; break;
case 4062: error_string="string parameter expected"; break;
case 4063: error_string="integer parameter expected"; break;
case 4064: error_string="double parameter expected"; break;
case 4065: error_string="array as parameter expected"; break;
case 4066: error_string="requested history data in update state"; break;
case 4099: error_string="end of file"; break;
case 4100: error_string="some file error"; break;
case 4101: error_string="wrong file name"; break;
case 4102: error_string="too many opened files"; break;
case 4103: error_string="cannot open file"; break;
case 4104: error_string="incompatible access to a file"; break;
case 4105: error_string="no order selected"; break;
case 4106: error_string="unknown symbol"; break;
case 4107: error_string="invalid price parameter for trade function"; break;
case 4108: error_string="invalid ticket"; break;
case 4109: error_string="trade is not allowed"; break;
case 4110: error_string="longs are not allowed"; break;
case 4111: error_string="shorts are not allowed"; break;
case 4200: error_string="object is already exist"; break;
case 4201: error_string="unknown object property"; break;
case 4202: error_string="object is not exist"; break;
case 4203: error_string="unknown object type"; break;
case 4204: error_string="no object name"; break;
case 4205: error_string="object coordinates error"; break;
case 4206: error_string="no specified subwindow"; break;
default: error_string="unknown error";
}
//----
return(error_string);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains close prices for each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Ichimoku
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:
Uses files from the file system
It writes information to file
It issuies visual alerts to the screen