/////////////////////////////////////////////////////////////////////////////////////////
//
// CoinFlip_v03.mq4
// Derk wehler
//
/////////////////////////////////////////////////////////////////////////////////////////
#property copyright "Derk Wehler"
#property link ""
#include <LibOrderReliable_v1_1_2.mqh>
#include <LibDerksUtils.mqh>
extern string S1 = "-- MONEY MANAGEMENT SETTINGS --";
extern double Lots = 1.0;
extern string S2 = " ";
extern string S3 = "-- NEWS SETTINGS --";
extern int MinsPrior = 30;
extern int MinsSince = 30;
extern string S4 = " ";
extern string S5 = "-- OTHER SETTINGS --";
extern int SL = 15;
extern int TP = 30;
extern int Slippage = 1;
extern string Name_Expert = "ACoinFlip";
extern int MagicNumber = 8675309;
static int PrevBars = -1;
static int PrevMinute = -1;
int init()
{
return(0);
}
int deinit()
{
return(0);
}
int start()
{
bool direction;
double lotsMM = Lots;
// Return if this is NOT a new candle
if (Bars == PrevBars)
return(0);
PrevBars = Bars;
// Only check once per minute... No reason to call FFCal more
// than once per minute since "one minute" is it's finest resolution
if (Minute() == PrevMinute)
return(0);
PrevMinute = Minute();
if (CheckOpenPositions() == 0)
{
if (IsNewsTime())
return(0);
direction = Flip();
if (direction)
{
OrderSendReliable(Symbol(), OP_BUY, lotsMM, Ask, Slippage, Ask - SL*Point, Ask + TP*Point,
Name_Expert, MagicNumber, 0, CLR_NONE);
}
else
{
OrderSendReliable(Symbol(), OP_SELL, lotsMM, Bid, Slippage, Bid + SL*Point, Bid - TP*Point,
Name_Expert, MagicNumber, 0, CLR_NONE);
}
}
return (0);
}
///////////////////// FUNCTIONS //////////////////////
//=============================================================================
// Flip
// Return, randomly, whether to go long or short in a trade ("flip a coin")
//=============================================================================
bool Flip()
{
MathSrand(LocalTime());
int rand = MathRand();
if (rand % 2 == 1)
return (TRUE);
return (FALSE);
}
//=============================================================================
// CheckOpenPositions
// Count the number of position this EA has open
//=============================================================================
int CheckOpenPositions()
{
int cnt, NumPositions;
int NumBuyTrades, NumSellTrades; // Number of buy and sell trades in this symbol
NumBuyTrades = 0;
NumSellTrades = 0;
for(cnt=OrdersTotal()-1; cnt >= 0; cnt--)
{
OrderSelect (cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol())
continue;
if (OrderMagicNumber() != MagicNumber)
continue;
if (OrderType() == OP_BUY )
NumBuyTrades++;
if (OrderType() == OP_SELL )
NumSellTrades++;
}
NumPositions = NumBuyTrades + NumSellTrades;
return (NumPositions);
}
bool IsNewsTime()
{
int minsSince, minsUntil;
int minutesSincePrevEvent =
iCustom("EURUSD", 0, "FFCal_v05", true, true, false, true, true, 1, 0);
int minutesUntilNextEvent =
iCustom("EURUSD", 0, "FFCal_v05", true, true, false, true, true, 1, 1);
Print("minutesSinceEURUSD === ", minutesSincePrevEvent, " minutesUntilEURUSD === ", minutesUntilNextEvent);
int minutesSincePrevEvent2 =
iCustom("USDJPY", 0, "FFCal_v05", true, true, false, true, true, 1, 0);
int minutesUntilNextEvent2 =
iCustom("USDJPY", 0, "FFCal_v05", true, true, false, true, true, 1, 1);
Print("minutesSinceUSDJPY === ", minutesSincePrevEvent2, " minutesUntilUSDJPY === ", minutesUntilNextEvent2);
int minutesSincePrevEvent3 =
iCustom("GBPUSD", 0, "FFCal_v05", true, true, false, true, true, 1, 0);
int minutesUntilNextEvent3 =
iCustom("GBPUSD", 0, "FFCal_v05", true, true, false, true, true, 1, 1);
Print("minutesSinceGBPUSD === ", minutesSincePrevEvent3, " minutesUntilGBPUSD === ", minutesUntilNextEvent3);
minsSince = MathMin(minutesSincePrevEvent, MathMin(minutesSincePrevEvent2, minutesSincePrevEvent3));
minsUntil = MathMin(minutesUntilNextEvent, MathMin(minutesUntilNextEvent2, minutesUntilNextEvent3));
Print("MINIMUM OF ALL: minutesSince === ", minsSince, " minutesUntil === ", minsUntil);
if (minsSince <= MinsSince)
{
Print(".....MinsSince event < Since setting, so IS news time, returning TRUE");
return(true);
}
if (minsUntil <= MinsPrior)
{
Print(".....MinsUntil event < Until setting, so IS news time, returning TRUE");
return(true);
}
Print(".....is NOT news time, returning FALSE");
return(false);
}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
FFCal_v05
Order Management characteristics:
Checks for the total of open orders
Other Features: