Price Data Components
Orders Execution
Indicators Used
1
Views
0
Downloads
0
Favorites
EA_PSar_004B
/*------------------------------------------------------------------+
| EA_PSar_004B.mq4 |
| Copyright © 2010 |
| basisforex@gmail.com |
+------------------------------------------------------------------*/
#property copyright "Copyright © 2010, basisforex@gmail.com"
#property link "basisforex@gmail.com"
//-----
#define MagicNum 101
//---
extern bool sar4 = false;
extern bool sar3 = true;
extern bool sar2 = true;
//-----
extern string _CloseModifyPeriod = "1 or 5 or 15 or 30 or 60 or 240 or 1440";
extern int CloseModifyPeriod = 30;
extern int PointDifferent = 15;
extern double step15 = 0.062;
extern double step30 = 0.058;
extern double step60 = 0.058;
extern double step240 = 0.058;
extern double stepClo = 0.051;
extern double max = 0.1;
//-----
extern int TP = 888;
extern int SL = 555;
//-----
extern bool UseMM = false;
extern int PercentMM = 10;
extern double Lots = 0.1;
int Per;
//+------------------------------------------------------------------+
double GetLots()
{
if (UseMM)
{
double a;
a = NormalizeDouble((PercentMM * AccountFreeMargin() / 100000), 1);
if(a > 49.9) return(49.9);
else if(a < 0.1)
{
Print("Lots < 0.1");
return(0);
}
else return(a);
}
else return(Lots);
}
//+------------------------------------------------------------------+
int CalculateCurrentOrders()
{
int orderT = OrdersTotal(), buys = 0, sells = 0;
//----
for(int i = 0; i < orderT; i++)
{
if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES) == false) break;
if(OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNum)
{
if(OrderType() == OP_BUY) buys++;
if(OrderType() == OP_SELL) sells++;
}
}
if(buys > 0) return(buys);
else if(sells > 0) return(-sells);
else return(0);
}
//+------------------------------------------------------------------+
int Get_Broker_Digit()
{
if(Digits == 5 || Digits == 3)
{
return(10);
}
else
{
return(1);
}
}
//+------------------------------------------------------------------+
int start()
{
if(StringFind(Symbol(), "EURUSD", 0) != 0)
{
Comment("Not a right Symbol: ", Symbol(), " <> EURUSD");
return(0);
}
if(Period() != 1)
{
Comment("Not a right Period!!! It should be M1");
return(0);
}
if(AccountFreeMargin() < 20)
{
Comment("AccountFreeMargin < 20");
return(0);
}
//======================================================================
double sa15_0, sa15_1, sa30_0, sa30_1, sa60_0, sa60_1, sa240_0, sa240_1;
double saUp, saDn;
int saDif;
int cnt, ticket, total;
int digitKoeff = Get_Broker_Digit();
//-----
if(CalculateCurrentOrders() == 0)
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
if(sar2 == true && sar3 == true && sar4 == true)
{
sa15_0 = iSAR(NULL, PERIOD_M15, step15, max, 0);
sa15_1 = iSAR(NULL, PERIOD_M15, step15, max, 1);
sa30_0 = iSAR(NULL, PERIOD_M30, step30, max, 0);
sa30_1 = iSAR(NULL, PERIOD_M30, step30, max, 1);
sa60_0 = iSAR(NULL, PERIOD_H1, step60, max, 0);
sa60_1 = iSAR(NULL, PERIOD_H1, step60, max, 1);
sa240_0 = iSAR(NULL, PERIOD_H4, step240, max, 0);
sa240_1 = iSAR(NULL, PERIOD_H4, step240, max, 1);
//--------------------------------------------
if(sa15_0 > sa30_0) saUp = sa15_0;
else saUp = sa30_0;
if(saUp > sa60_0) saUp = saUp;
else saUp = sa60_0;
if(saUp > sa240_0) saUp = saUp;
else saUp = sa240_0;
//-----
if(sa15_0 < sa30_0) saDn = sa15_0;
else saDn = sa30_0;
if(saDn < sa60_0) saDn = saDn;
else saDn = sa60_0;
if(saDn < sa240_0) saDn = saDn;
else saUp = sa240_0;
//-----
saDif = (saUp - saDn) / Point;
//----------------------------
if(saDif <= PointDifferent)
{
if((sa15_0 < iLow(NULL, PERIOD_M15, 0) && sa30_0 < iLow(NULL, PERIOD_M30, 0) && sa60_0 < iLow(NULL, PERIOD_H1, 0) && sa240_1 > iHigh(NULL, PERIOD_H4, 1) && sa240_0 < iLow(NULL, PERIOD_H4, 0)) ||
(sa15_0 < iLow(NULL, PERIOD_M15, 0) && sa30_0 < iLow(NULL, PERIOD_M30, 0) && sa240_0 < iLow(NULL, PERIOD_H4, 0) && sa60_1 > iHigh(NULL, PERIOD_H1, 1) && sa60_0 < iLow(NULL, PERIOD_H1, 0)) ||
(sa15_0 < iLow(NULL, PERIOD_M15, 0) && sa60_0 < iLow(NULL, PERIOD_H1, 0) && sa240_0 < iLow(NULL, PERIOD_H4, 0) && sa30_1 > iHigh(NULL, PERIOD_M30, 1) && sa30_0 < iLow(NULL, PERIOD_M30, 0)) ||
(sa30_0 < iLow(NULL, PERIOD_M30, 0) && sa60_0 < iLow(NULL, PERIOD_H1, 0) && sa240_0 < iLow(NULL, PERIOD_H4, 0) && sa15_1 > iHigh(NULL, PERIOD_M15, 1) && sa15_0 < iLow(NULL, PERIOD_M15, 0)))
{
ticket = OrderSend(Symbol(), OP_BUY, GetLots(), Ask, 3 * digitKoeff, 0, 0, "+Psar", MagicNum, 0, Green);
if(ticket > 0)
{
OrderModify(ticket, Ask, Ask - SL * Point * digitKoeff, Ask + TP * Point * digitKoeff, 0, Green);
}
}
if((sa15_0 > iHigh(NULL, PERIOD_M15, 0) && sa30_0 > iHigh(NULL, PERIOD_M30, 0) && sa60_0 > iHigh(NULL, PERIOD_H1, 0) && sa240_1 < iLow(NULL, PERIOD_H4, 1) && sa240_0 > iHigh(NULL, PERIOD_H4, 0)) ||
(sa15_0 > iHigh(NULL, PERIOD_M15, 0) && sa30_0 > iHigh(NULL, PERIOD_M30, 0) && sa240_0 > iHigh(NULL, PERIOD_H4, 0) && sa60_1 < iLow(NULL, PERIOD_H1, 1) && sa60_0 > iHigh(NULL, PERIOD_H1, 0)) ||
(sa15_0 > iHigh(NULL, PERIOD_M15, 0) && sa60_0 > iHigh(NULL, PERIOD_H1, 0) && sa240_0 > iHigh(NULL, PERIOD_H4, 0) && sa30_1 < iLow(NULL, PERIOD_M30, 1) && sa30_0 > iHigh(NULL, PERIOD_M30, 0)) ||
(sa30_0 > iHigh(NULL, PERIOD_M30, 0) && sa60_0 > iHigh(NULL, PERIOD_H1, 0) && sa240_0 > iHigh(NULL, PERIOD_H4, 0) && sa15_1 < iLow(NULL, PERIOD_M15, 1) && sa15_0 > iHigh(NULL, PERIOD_M15, 0)))
{
ticket = OrderSend(Symbol(), OP_SELL, GetLots(), Bid, 3 * digitKoeff, 0, 0, "+Psar", MagicNum, 0, Red);
if(ticket > 0)
{
OrderModify(ticket, Bid, Bid + SL * Point * digitKoeff, Bid - TP * Point * digitKoeff, 0, Red);
}
}
}
}
//*********************************************************************************************************************
if(sar2 == true && sar3 == true && sar4 == false)
{
sa15_0 = iSAR(NULL, PERIOD_M15, step15, max, 0);
sa15_1 = iSAR(NULL, PERIOD_M15, step15, max, 1);
sa30_0 = iSAR(NULL, PERIOD_M30, step30, max, 0);
sa30_1 = iSAR(NULL, PERIOD_M30, step30, max, 1);
sa60_0 = iSAR(NULL, PERIOD_H1, step60, max, 0);
sa60_1 = iSAR(NULL, PERIOD_H1, step60, max, 1);
//---------------------------------------------
if(sa15_0 > sa30_0) saUp = sa15_0;
else saUp = sa30_0;
if(saUp > sa60_0) saUp = saUp;
else saUp = sa60_0;
//---
if(sa15_0 < sa30_0) saDn = sa15_0;
else saDn = sa30_0;
if(saDn < sa60_0) saDn = saDn;
else saDn = sa60_0;
//---
saDif = (saUp - saDn) / Point;
//-------------------------------
if(saDif <= PointDifferent)
{
if((sa15_0 < iLow(NULL, PERIOD_M15, 0) && sa30_0 < iLow(NULL, PERIOD_M30, 0) && sa60_1 > iHigh(NULL, PERIOD_H1, 1) && sa60_0 < iLow(NULL, PERIOD_H1, 0)) ||
(sa15_0 < iLow(NULL, PERIOD_M15, 0) && sa60_0 < iLow(NULL, PERIOD_H1, 0) && sa30_1 > iHigh(NULL, PERIOD_M30, 1) && sa30_0 < iLow(NULL, PERIOD_M30, 0)) ||
(sa30_0 < iLow(NULL, PERIOD_M30, 0) && sa60_0 < iLow(NULL, PERIOD_H1, 0) && sa15_1 > iHigh(NULL, PERIOD_M15, 1) && sa15_0 < iLow(NULL, PERIOD_M15, 0)))
{
ticket = OrderSend(Symbol(), OP_BUY, GetLots(), Ask, 3 * digitKoeff, 0, 0, "+Psar", MagicNum, 0, Green);
if(ticket > 0)
{
OrderModify(ticket, Ask, Ask - SL * Point * digitKoeff, Ask + TP * Point * digitKoeff, 0, Green);
}
}
if((sa15_0 > iHigh(NULL, PERIOD_M15, 0) && sa30_0 > iHigh(NULL, PERIOD_M30, 0) && sa60_1 < iLow(NULL, PERIOD_H1, 1) && sa60_0 > iHigh(NULL, PERIOD_H1, 0)) ||
(sa15_0 > iHigh(NULL, PERIOD_M15, 0) && sa60_0 > iHigh(NULL, PERIOD_H1, 0) && sa30_1 < iLow(NULL, PERIOD_M30, 1) && sa30_0 > iHigh(NULL, PERIOD_M30, 0)) ||
(sa30_0 > iHigh(NULL, PERIOD_M30, 0) && sa60_0 > iHigh(NULL, PERIOD_H1, 0) && sa15_1 < iLow(NULL, PERIOD_M15, 1) && sa15_0 > iHigh(NULL, PERIOD_M15, 0)))
{
ticket = OrderSend(Symbol(), OP_SELL, GetLots(), Bid, 3 * digitKoeff, 0, 0, "+Psar", MagicNum, 0, Red);
if(ticket > 0)
{
OrderModify(ticket, Bid, Bid + SL * Point * digitKoeff, Bid - TP * Point * digitKoeff, 0, Red);
}
}
}
}
//*********************************************************************************************************************
if(sar2 == true && sar3 == false && sar4 == false)
{
sa15_0 = iSAR(NULL, PERIOD_M15, step15, max, 0);
sa15_1 = iSAR(NULL, PERIOD_M15, step15, max, 1);
sa30_0 = iSAR(NULL, PERIOD_M30, step30, max, 0);
sa30_1 = iSAR(NULL, PERIOD_M30, step30, max, 1);
//---------------------------------------------
if(sa15_0 > sa30_0) saUp = sa15_0;
else saUp = sa30_0;
//---
if(sa15_0 < sa30_0) saDn = sa15_0;
else saDn = sa30_0;
//---
saDif = (saUp - saDn) / Point;
//-------------------------------
if(saDif <= PointDifferent)
{
if((sa15_0 < iLow(NULL, PERIOD_M15, 0) && sa30_1 > iHigh(NULL, PERIOD_M30, 1) && sa30_0 < iLow(NULL, PERIOD_M30, 0)) ||
(sa30_0 < iLow(NULL, PERIOD_M30, 0) && sa15_1 > iHigh(NULL, PERIOD_M15, 1) && sa15_0 < iLow(NULL, PERIOD_M15, 0)))
{
ticket = OrderSend(Symbol(), OP_BUY, GetLots(), Ask, 3 * digitKoeff, 0, 0, "+Psar", MagicNum, 0, Green);
if(ticket > 0)
{
OrderModify(ticket, Ask, Ask - SL * Point * digitKoeff, Ask + TP * Point * digitKoeff, 0, Green);
}
}
if((sa15_0 > iHigh(NULL, PERIOD_M15, 0) && sa30_1 < iLow(NULL, PERIOD_M30, 1) && sa30_0 > iHigh(NULL, PERIOD_M30, 0)) ||
(sa30_0 > iHigh(NULL, PERIOD_M30, 0) && sa15_1 < iLow(NULL, PERIOD_M15, 1) && sa15_0 > iHigh(NULL, PERIOD_M15, 0)))
{
ticket = OrderSend(Symbol(), OP_SELL, GetLots(), Bid, 3 * digitKoeff, 0, 0, "+Psar", MagicNum, 0, Red);
if(ticket > 0)
{
OrderModify(ticket, Bid, Bid + SL * Point * digitKoeff, Bid - TP * Point * digitKoeff, 0, Red);
}
}
}
}
//*********************************************************************************************************************
if(sar2 == false && sar3 == false && sar4 == false)
{
sa15_0 = iSAR(NULL, PERIOD_M15, step15, max, 0);
sa15_1 = iSAR(NULL, PERIOD_M15, step15, max, 1);
//---------------------------------------------
if(sa15_1 > iHigh(NULL, PERIOD_M15, 1) && sa15_0 < iLow(NULL, PERIOD_M15, 0))
{
ticket = OrderSend(Symbol(), OP_BUY, GetLots(), Ask, 3 * digitKoeff, 0, 0, "+Psar", MagicNum, 0, Green);
if(ticket > 0)
{
OrderModify(ticket, Ask, Ask - SL * Point * digitKoeff, Ask + TP * Point * digitKoeff, 0, Green);
}
}
if(sa30_0 > iHigh(NULL, PERIOD_M30, 0) && sa15_1 < iLow(NULL, PERIOD_M15, 1) && sa15_0 > iHigh(NULL, PERIOD_M15, 0))
{
ticket = OrderSend(Symbol(), OP_SELL, GetLots(), Bid, 3 * digitKoeff, 0, 0, "+Psar", MagicNum, 0, Red);
if(ticket > 0)
{
OrderModify(ticket, Bid, Bid + SL * Point * digitKoeff, Bid - TP * Point * digitKoeff, 0, Red);
}
}
}
}//************************************************************************************************************************************
//======================================================================================================================================
double saCloMod_1 = 0, saCloMod_0 = 0;
total = OrdersTotal();
for(cnt = 0; cnt < total; cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType() <= OP_SELL && OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNum)
{
if(CloseModifyPeriod <= 1) Per = 1;
else if(CloseModifyPeriod <= 5) Per = 5;
else if(CloseModifyPeriod <= 15) Per = 15;
else if(CloseModifyPeriod <= 30) Per = 30;
else if(CloseModifyPeriod <= 60) Per = 60;
else if(CloseModifyPeriod <= 240) Per = 240;
else Per = 1440;
//-----
saCloMod_1 = iSAR(NULL, Per, stepClo, max, 1);
saCloMod_0 = iSAR(NULL, Per, stepClo, max, 0);
//-----------------------
if(OrderType() == OP_BUY)
{
if(saCloMod_1 < Low[1] && saCloMod_0 > High[0])
{
OrderClose(OrderTicket(), OrderLots(), Bid, 3 * digitKoeff, Violet);
return(0);
}
if(saCloMod_0 >= OrderOpenPrice() && saCloMod_0 > OrderStopLoss())
{
OrderModify(OrderTicket(), OrderOpenPrice(), saCloMod_0, OrderTakeProfit(), 0, Green);
return(0);
}
}
else if(OrderType() == OP_SELL)
{
if(saCloMod_1 > High[1] && saCloMod_0 < Low[0])
{
OrderClose(OrderTicket(), OrderLots(), Ask, 3 * digitKoeff, Violet);
return(0);
}
if(saCloMod_0 <= OrderOpenPrice() && saCloMod_0 < OrderStopLoss())
{
OrderModify(OrderTicket(), OrderOpenPrice(), saCloMod_0, OrderTakeProfit(), 0, Red);
return(0);
}
}
}
}
return(0);
}
Comments