//+------------------------------------------------------------------+
//| Code - Money Management.mq4 |
//| Copyright © 2007, GwadaTradeBoy |
//| gwadatradeboy@yahoo.fr |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007, GwadaTradeBoy"
#property link "gwadatradeboy@yahoo.fr"
//---- Include
#include <stderror.mqh>
#include <stdlib.mqh>
//---- Money Management
extern bool MoneyManagement = true;
extern bool StrictManagement = true;
extern bool AcountIsMini = false;
extern int TradePercent = 1;
extern int SumTradePercent = 10;
double Margin, PF, PipValue, SumTrade;
bool TradeAllowed = false;
bool Allowed = false;
//---- Optimisation des Lots
extern double Lots = 0.1;
//extern double MaximumRisk = 0.02;
extern double DecreaseFactor = 3;
double lot;
int orders, losses, spread, SL;
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
//---- Expert Advisor
spread = MarketInfo(Symbol(),MODE_SPREAD);
Margin = AccountMargin();
PF = AccountBalance();
PipValue = MarketInfo(Symbol(),MODE_TICKVALUE);
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| Calculs preliminaires de l'expert |
//+------------------------------------------------------------------+
//**************** Calcul de la posibilité de trade ****************//
bool TradeAllowed()
{
if (StrictManagement)
{
SumTrade = ((PF * SumTradePercent)/100);
if (Margin < SumTrade)
Allowed = True;
else
Allowed = True;
}
else
if (
(AccountEquity()>(PF+((SumTradePercent/100)*PF)))
|| (AccountBalance()-AccountEquity()>((TradePercent/100)*PF))
)
{
Allowed = True;
}
else
Allowed = False;
}
//----
return(Allowed)
}
//************** Calcul de la taille optimale du lot ***************//
double LotsOptimized()
{
if (AcountIsMini)
Lots = 0.01;
lot=Lots;
orders=HistoryTotal(); // Historique des ordres
losses=0; // Nombre de trade perdants consécutif
/* Selection de la taille du lot */
//lot=NormalizeDouble(AccountFreeMargin()*MaximumRisk/1000,1);
if (AcountIsMini)
lot=NormalizeDouble(AccountFreeMargin()* TradePercent/100,2);
else
lot=NormalizeDouble(AccountFreeMargin()* TradePercent/100,1);
/* Calcul du nombre de perte consecutive */
if(DecreaseFactor>0)
{
for(int i=orders-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==False)
{
Print("Erreur dans l historique!");
break;
}
if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL)
continue;
//----
if(OrderProfit()>0)
break;
if(OrderProfit()<0)
losses++;
}
if(losses>1)
lot=NormalizeDouble(lot-lot*losses/DecreaseFactor,1);
}
/* Retour de la taille du lot */
if (AcountIsMini)
if(lot<0.01)
lot=0.01;
else
if(lot<0.1)
lot=0.1;
//----
return(lot);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: