/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
/////////////////////////////////////////////////////////////////////////////////////////
//
// CoinFlip_v01.mq4
// Derk wehler
//
#property copyright "Derk Wehler"
#property link ""
#include <OrderReliable_V1_1_0.mqh>
extern string S1 = "-- MONEY MANAGEMENT SETTINGS --";
extern bool MoneyManagement = false;
extern double TradeSizePercent = 10; // Change to whatever percent of equity you wish to risk.
extern double Lots = 1.0;
extern double MaxLots = 100.0;
extern string S2 = " ";
extern string S3 = "-- INDICATOR SETTINGS --";
extern bool UseTrend = false;
extern int LMSA_Period = 10;
extern string S4 = " ";
extern string S5 = "-- OTHER SETTINGS --";
extern int Slippage = 1;
extern string Name_Expert = "CoinFlip";
int MagicNumber;
int TradesInThisSymbol;
int ary[2][3];
int init()
{
MathSrand(LocalTime());
MagicNumber = 2112 + func_Symbol2Val(Symbol())*100 + func_TimeFrame_Const2Val(Period());
return(0);
}
int deinit()
{
return(0);
// This is a stubbed out function called merely to prevent compiler warnings
BumFunc();
}
int start()
{
static int prevBars = -1;
// Return if this is NOT a new candle
int curBars = Bars;
if (prevBars == -1)
prevBars = curBars;
if (curBars == prevBars)
return(0);
prevBars = curBars;
if (CheckOpenPositions() > 1)
{
Print("ERROR ! ERROR ! ERROR : CheckOpenPositions > 1 : ERROR ! ERROR ! ERROR");
return (0);
}
HandleOpenPositions(); // Will close open position if appropriate
bool direction;
if (UseTrend)
direction = NoFlip();
else
direction = Flip();
if (CheckOpenPositions() == 0)
{
Print("=============================================================");
if (direction)
{
OrderSendReliable(Symbol(), OP_BUY, GetLots(), Ask, Slippage, 0, 0,
GetCommentForOrder(), MagicNumber, 0, CLR_NONE);
Print("=================== No open positions, Opening BUY =====================");
}
else
{
OrderSendReliable(Symbol(), OP_SELL, GetLots(), Bid, Slippage, 0, 0,
GetCommentForOrder(), MagicNumber, 0, CLR_NONE);
Print("=================== No open positions, Opening SELL ====================");
}
}
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();
Print("===> rand == ", rand, "; rand % 2 = ", rand%2);
if (rand % 2 == 1)
return (TRUE);
return (FALSE);
}
//=============================================================================
// Flip
// Return whether to go long or short in a trade based on an indicator
//=============================================================================
bool NoFlip()
{
int CheckSegments = 10;
int lsmaDirection[100];
double lsmaNeutral[101];
double lsmaUp[101];
double lsmaDown[101];
int retVal = 0;
// Check for the direction (or color) of the LSMA line for the last several segments
for (int i=0; i < CheckSegments+1; i++)
{
lsmaNeutral[i] = iCustom(NULL, 0, "LSMA", LMSA_Period, 0, i); // ALWAYS ! 0x7FFFFFFF
lsmaUp[i] = iCustom(NULL, 0, "LSMA", LMSA_Period, 1, i); // Green if i & i-1 ! 0x7FFFFFFF
lsmaDown[i] = iCustom(NULL, 0, "LSMA", LMSA_Period, 2, i); // Red if i & i-1 ! 0x7FFFFFFF
}
// Determine the color (direction) of these line segments
for (i=0; i < CheckSegments; i++)
{
// For any candle pair, i & i-1, the LSMA line is Green (heading up) if...
if (lsmaUp[i] != 0x7FFFFFFF && lsmaUp[i+1] != 0x7FFFFFFF)
lsmaDirection[i] = 1;
//
// The LSMA line is Red (heading down)
else if (lsmaDown[i] != 0x7FFFFFFF && lsmaDown[i+1] != 0x7FFFFFFF)
lsmaDirection[i] = -1;
//
// Otherwise it is neutral
else
lsmaDirection[i] = 0;
}
if (lsmaDirection[i] == 1)
return (true);
if (lsmaDirection[i] == -1)
return (false);
// If the indicator is not going up OR down, then flip a coin...
return (Flip());
}
//=============================================================================
// CheckExitCondition
// Check if exit condition is met
//=============================================================================
bool CheckExitCondition(string TradeType)
{
if ((Close[1] < Close[2] && TradeType == "BUY") ||
(Close[1] > Close[2] && TradeType == "SELL"))
{
Print("EXIT_CONDITION: EXIT!! Direction: ", TradeType);
return (TRUE);
}
Print("EXIT_CONDITION: DO NOT EXIT");
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);
}
//=============================================================================
// Handle Open Positions
// Check if any open positions need to be closed or modified
//=============================================================================
int HandleOpenPositions()
{
int cnt;
bool YesClose;
double pt;
for (cnt=OrdersTotal()-1; cnt >= 0; cnt--)
{
OrderSelect (cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol())
continue;
if (OrderMagicNumber() != MagicNumber)
continue;
double price = Bid;
string direction = "BUY";
int type = OrderType();
if (type == OP_BUY || type == OP_SELL)
{
if (OrderType() == OP_SELL)
{
price = Ask;
direction = "SELL";
}
bool close = CheckExitCondition(direction);
if (close)
{
Print("===================================================================");
OrderCloseReliable(OrderTicket(), OrderLots(), price, Slippage, CLR_NONE);
Print("========================= CLOSING POSIITON ============================");
}
}
}
}
//=============================================================================
// Money Management Functions
//=============================================================================
double LotsOptimized()
{
double lot = Lots;
lot = NormalizeDouble(MathFloor(AccountFreeMargin() * TradeSizePercent / 10000) / 10, 1);
// Check if mini or standard Account
if (lot < 1.0) lot = 1.0;
if (lot > MaxLots) lot = MaxLots;
return(lot);
}
double GetLots()
{
double lot;
lot = Lots;
if (MoneyManagement)
lot = LotsOptimized();
if (lot >= 1.0)
lot = MathFloor(lot);
else
lot = 1.0;
return(lot);
}
//=============================================================================
// Functions used to calculate unique magic number
//=============================================================================
//=============================================================================
// Time frame interval appropriation function
//=============================================================================
int func_TimeFrame_Const2Val(int Constant )
{
switch(Constant)
{
case 1: // M1
return(1);
case 5: // M5
return(2);
case 15:
return(3);
case 30:
return(4);
case 60:
return(5);
case 240:
return(6);
case 1440:
return(7);
case 10080:
return(8);
case 43200:
return(9);
}
}
int func_Symbol2Val(string symbol)
{
string mySymbol = StringSubstr(symbol,0,6); // Handle problem of trailing m on mini accounts.
if(mySymbol=="AUDCAD") return(1);
if(mySymbol=="AUDJPY") return(2);
if(mySymbol=="AUDNZD") return(3);
if(mySymbol=="AUDUSD") return(4);
if(mySymbol=="CHFJPY") return(5);
if(mySymbol=="EURAUD") return(6);
if(mySymbol=="EURCAD") return(7);
if(mySymbol=="EURCHF") return(8);
if(mySymbol=="EURGBP") return(9);
if(mySymbol=="EURJPY") return(10);
if(mySymbol=="EURUSD") return(11);
if(mySymbol=="GBPCHF") return(12);
if(mySymbol=="GBPJPY") return(13);
if(mySymbol=="GBPUSD") return(14);
if(mySymbol=="NZDUSD") return(15);
if(mySymbol=="USDCAD") return(16);
if(mySymbol=="USDCHF") return(17);
if(mySymbol=="USDJPY") return(18);
return(19);
}
string GetCommentForOrder()
{
return (Name_Expert);
}
void BumFunc()
{
return (0);
OrderSendReliableMKT(Symbol(), OP_BUY, 0, 3.500, 0, 0, 0, "none", 99, 0);
OrderModifyReliable(0, 0, 0, 0, 0);
OrderModifyReliableSymbol(Symbol(), 0, 0, 0, 0, 0);
OrderCloseReliable(0, 0, 0, 0);
OrderReliableLastErr();
}
Sample
Analysis
Market Information Used:
Series array that contains close prices for each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
LSMA
Order Management characteristics:
Checks for the total of open orders
Other Features: