Help with Money Money Management Please! (Free EA)

.


Hi All and Happy New Year to You !


I include in my post here the Code for an EA that I have developed.

I produced it using:

http://sufx.core.t3-ism.net/ExpertAdvisorBuilder/


As the Chart shows for Eur/Usd, it works quite well for occasional Scalps on Daily Chart Settings, albeit rather few trades over the 2 1/2 Year Term.


It also works well with some of the other Majors but not all.


I have tested it having the TP as preset, and also disabling the TP so that the SL flips to Trail to Close Trades given that few if any reach the TP Level.


I have added Money Management to it which is where things got fun.



The problem I have is that no matter what I do with the Input Settings I can't seem to Select Trade Values at less than 0.1 per 1k Balance. Interesting that the above shows the Results based on $1 000 Initial Balance and Trades starting at $1 per pip!!!


My wish is two-fold with the second of less importance:


1. To have the Money Management allow for Microlots.

2. To have the EA compatible with 5 Digit Brokers.

3. Did I say a 3rd ?

No but having struggled with the matter a Stealth Trailing Stop would be an AWESOME Bonus


Lord I feel cheeky now




If anyone can help with this I would be most grateful and share the EA for others use.




Thank You in advance!


Regards,

David ( FM).



Code for EA:




//+------------------------------------------------------------------+
//| This MQL is generated by Expert Advisor Builder |
//| http://sufx.core.t3-ism.net/ExpertAdvisorBuilder/ |
//| |
//| In no event will author be liable for any damages whatsoever. |
//| Use at your own risk. |
//| *************** Compiled for DAY Charts *************** |
//| |
//| **** Produced By: **** |
//| **** David Coulson (Forex Magic) **** |
//| |
+------------------- DO NOT REMOVE THIS HEADER --------------------+



#define SIGNAL_NONE 0
#define SIGNAL_BUY 1
#define SIGNAL_SELL 2
#define SIGNAL_CLOSEBUY 3
#define SIGNAL_CLOSESELL 4

#property copyright "Expert Advisor Builder"
#property link "http://sufx.core.t3-ism.net/ExpertAdvisorBuilder/"

extern int MagicNumber = 0123490;
extern bool SignalMail = False;
extern bool EachTickMode = False;
extern double Lots = 0.1;
extern bool UseMM = true;
extern double LotsPer1000 = 0.1;
extern int Slippage = 3;
extern bool UseStopLoss = True;
extern int StopLoss = 2000;
extern bool UseTakeProfit = True;
extern int TakeProfit = 2000;
extern bool UseTrailingStop = True;
extern int TrailingStop = 350;


int BarCount;
int Current;
bool TickCheck = False;
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init() {
BarCount = Bars;

if (EachTickMode) Current = 0; else Current = 1;

return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit() {
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start() {
int Order = SIGNAL_NONE;
int Total, Ticket;
double StopLossLevel, TakeProfitLevel;



if (EachTickMode && Bars != BarCount) TickCheck = False;
Total = OrdersTotal();
Order = SIGNAL_NONE;

//+------------------------------------------------------------------+
//| Variable Begin |
//+------------------------------------------------------------------+


double Buy1_1 = iStochastic(NULL, 0, 15, 8, 4, MODE_SMA, 0, MODE_MAIN, Current + 0);
double Buy1_2 = 65;
double Buy2_1 = iStochastic(NULL, 0, 15, 8, 4, MODE_SMA, 0, MODE_MAIN, Current + 1);
double Buy2_2 = 65;
double Buy3_1 = iStochastic(NULL, 0, 15, 8, 4, MODE_SMA, 0, MODE_MAIN, Current + 2);
double Buy3_2 = 65;

double Sell1_1 = iStochastic(NULL, 0, 15, 8, 4, MODE_SMA, 0, MODE_MAIN, Current + 0);
double Sell1_2 = 35;
double Sell2_1 = iStochastic(NULL, 0, 15, 8, 4, MODE_SMA, 0, MODE_MAIN, Current + 1);
double Sell2_2 = 35;
double Sell3_1 = iStochastic(NULL, 0, 15, 8, 4, MODE_SMA, 0, MODE_MAIN, Current + 2);
double Sell3_2 = 35;





//+------------------------------------------------------------------+
//| Variable End |
//+------------------------------------------------------------------+

//Check position
bool IsTrade = False;

for (int i = 0; i < Total; i ++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if(OrderType() <= OP_SELL && OrderSymbol() == Symbol()) {
IsTrade = True;
if(OrderType() == OP_BUY) {
//Close

//+------------------------------------------------------------------+
//| Signal Begin(Exit Buy) |
//+------------------------------------------------------------------+



//+------------------------------------------------------------------+
//| Signal End(Exit Buy) |
//+------------------------------------------------------------------+

if (Order == SIGNAL_CLOSEBUY && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, MediumSeaGreen);
if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Bid, Digits) + " Close Buy");
if (!EachTickMode) BarCount = Bars;
IsTrade = False;
continue;
}
//Trailing stop
if(UseTrailingStop && TrailingStop > 0) {
if(Bid - OrderOpenPrice() > Point * TrailingStop) {
if(OrderStopLoss() < Bid - Point * TrailingStop) {
OrderModify(OrderTicket(), OrderOpenPrice(), Bid - Point * TrailingStop, OrderTakeProfit(), 0, MediumSeaGreen);
if (!EachTickMode) BarCount = Bars;
continue;
}
}
}
} else {
//Close

//+------------------------------------------------------------------+
//| Signal Begin(Exit Sell) |
//+------------------------------------------------------------------+



//+------------------------------------------------------------------+
//| Signal End(Exit Sell) |
//+------------------------------------------------------------------+

if (Order == SIGNAL_CLOSESELL && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, DarkOrange);
if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Ask, Digits) + " Close Sell");
if (!EachTickMode) BarCount = Bars;
IsTrade = False;
continue;
}
//Trailing stop
if(UseTrailingStop && TrailingStop > 0) {
if((OrderOpenPrice() - Ask) > (Point * TrailingStop)) {
if((OrderStopLoss() > (Ask + Point * TrailingStop)) || (OrderStopLoss() == 0)) {
OrderModify(OrderTicket(), OrderOpenPrice(), Ask + Point * TrailingStop, OrderTakeProfit(), 0, DarkOrange);
if (!EachTickMode) BarCount = Bars;
continue;
}
}
}
}
}
}

//+------------------------------------------------------------------+
//| Signal Begin(Entry) |
//+------------------------------------------------------------------+

if (Buy1_1 > Buy1_2 && Buy2_1 < Buy2_2 && Buy3_1 < Buy3_2) Order = SIGNAL_BUY;

if (Sell1_1 < Sell1_2 && Sell2_1 > Sell2_2 && Sell3_1 > Sell3_2) Order = SIGNAL_SELL;


//+------------------------------------------------------------------+
//| Signal End |
//+------------------------------------------------------------------+

//Buy
if (Order == SIGNAL_BUY && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
if(!IsTrade) {
//Check free margin
if (AccountFreeMargin() < (1 * Lots)) {
Print("We have no money. Free Margin = ", AccountFreeMargin());
return(0);
}

if (UseStopLoss) StopLossLevel = Ask - StopLoss * Point; else StopLossLevel = 0.0;
if (UseTakeProfit) TakeProfitLevel = Ask + TakeProfit * Point; else TakeProfitLevel = 0.0;

Ticket = OrderSend(Symbol(), OP_BUY, CalculateLots(UseMM,LotsPer1000,Lots), Ask, Slippage, StopLossLevel, TakeProfitLevel, "Buy(#" + MagicNumber + ")", MagicNumber, 0, DodgerBlue);
if(Ticket > 0) {
if (OrderSelect(Ticket, SELECT_BY_TICKET, MODE_TRADES)) {
Print("BUY order opened : ", OrderOpenPrice());
if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Ask, Digits) + " Open Buy");
} else {
Print("Error opening BUY order : ", GetLastError());
}
}
if (EachTickMode) TickCheck = True;
if (!EachTickMode) BarCount = Bars;
return(0);
}
}

//Sell
if (Order == SIGNAL_SELL && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
if(!IsTrade) {
//Check free margin
if (AccountFreeMargin() < (1 * Lots)) {
Print("We have no money. Free Margin = ", AccountFreeMargin());
return(0);
}

if (UseStopLoss) StopLossLevel = Bid + StopLoss * Point; else StopLossLevel = 0.0;
if (UseTakeProfit) TakeProfitLevel = Bid - TakeProfit * Point; else TakeProfitLevel = 0.0;

Ticket = OrderSend(Symbol(), OP_SELL, CalculateLots(UseMM,LotsPer1000,Lots), Bid, Slippage, StopLossLevel, TakeProfitLevel, "Sell(#" + MagicNumber + ")", MagicNumber, 0, DeepPink);
if(Ticket > 0) {
if (OrderSelect(Ticket, SELECT_BY_TICKET, MODE_TRADES)) {
Print("SELL order opened : ", OrderOpenPrice());
if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Bid, Digits) + " Open Sell");
} else {
Print("Error opening SELL order : ", GetLastError());
}
}
if (EachTickMode) TickCheck = True;
if (!EachTickMode) BarCount = Bars;
return(0);
}
}

if (!EachTickMode) BarCount = Bars;

return(0);
}
//+------------------------------------------------------------------+


#define LOTS_PRECISION 1

double CalculateLots (bool useMM, double lotsPer1000, double lots)
{
if(!useMM) return (lots);

return(NormalizeDouble(AccountBalance()/1000*lotsPer1000,LOTS_PRECISION));

}










.

I've not had a really good look at the code, but your problem with using smaller lot sizes may be resolve by replacing

with

More bad code . . .

Have a read: http://forum.mql4.com/48594 and then read and implement: Loops and Closing or Deleting Orders What are Function return values ? How do I use them ?

Thank You Gumrai ~ I shall try this later and let You know

Thank You Raptor,

I have read many of Your posts on the MQL website while scouting around. Your suggestion is appreciated