2026-07-26 23:08:32 -04:00 | | | //+------------------------------------------------------------------+
|
| | | //| Warrior_EA |
|
| | | //| AnimateDread |
|
| | | //| |
|
| | | //+------------------------------------------------------------------+
|
| | | #include <Expert\ExpertMoney.mqh>
|
| | | #include "..\System\TradeChecks.mqh"
|
| | | //+------------------------------------------------------------------+
|
2026-08-22 00:30:14 -04:00 | | | //| Class CExpertMoneyCustom. Common base for every money-management |
|
| | | //| strategy in this EA. |
|
2026-07-26 23:08:32 -04:00 | | | //+------------------------------------------------------------------+
|
| | | class CExpertMoneyCustom : public CExpertMoney
|
| | | {
|
| | | protected:
|
| | | //--- The full #14/#3/#5/#2 gate. Returns the corrected volume in `lots`, or 0.0 with a
|
| | | //--- populated `description` when no legal volume exists for this trade right now.
|
| | | bool ValidateLotForTrade(const string symb, double &lots, ENUM_ORDER_TYPE type, string &description);
|
| | | //--- Kept as thin wrappers over the shared library so the two names the existing money
|
| | | //--- strategies already call (Money\MoneyRiskBase.mqh) keep working unchanged.
|
| | | bool CheckAndCorrectVolumeValue(double &volume, string &description);
|
| | | bool CheckAndAdjustMoneyForTrade(string symb, double &lots, ENUM_ORDER_TYPE type);
|
| | | //--- Symbol this money object is sizing for. m_symbol is set by CExpertMoney::Init(); fall back
|
| | | //--- to the chart symbol only if a strategy is used stand-alone before Init() has run.
|
| | | string MoneySymbol(void) { return (m_symbol != NULL) ? m_symbol.Name() : _Symbol; }
|
| | | };
|
| | | //+------------------------------------------------------------------+
|
| | | //| Article #14/#3/#5/#2 - the complete pre-OrderSend volume gate. |
|
| | | //+------------------------------------------------------------------+
|
| | | bool CExpertMoneyCustom::ValidateLotForTrade(const string symb, double &lots, ENUM_ORDER_TYPE type, string &description)
|
| | | {
|
| | | if(!TCValidateVolumeForTrade(symb, lots, type, description))
|
| | | {
|
| | | //--- throttled: an exhausted margin/volume limit is true on every tick until it changes, and
|
| | | //--- an unthrottled Print here floods the journal for as long as the condition lasts
|
| | | TCLog("money:" + symb + ":" + EnumToString(type),
|
| | | StringFormat("%s: no tradeable volume for %s %s - %s", __FUNCTION__, symb, EnumToString(type), description));
|
| | | lots = 0.0;
|
| | | return false;
|
| | | }
|
| | | if(description != "")
|
| | | TCLog("money-adjust:" + symb + ":" + EnumToString(type),
|
| | | StringFormat("%s: volume adjusted for %s %s - %s", __FUNCTION__, symb, EnumToString(type), description));
|
| | | return true;
|
| | | }
|
| | | //+------------------------------------------------------------------+
|
| | | //| Article #3 - check and correct the order volume. |
|
| | | //| Delegates to TCNormalizeVolume(), which snaps to the volume step |
|
| | | //| BEFORE clamping to [min,max] (see its comment for why the reverse |
|
| | | //| order can emit an out-of-range volume) and then re-verifies the |
|
| | | //| corrected value against all three properties. |
|
| | | //+------------------------------------------------------------------+
|
| | | bool CExpertMoneyCustom::CheckAndCorrectVolumeValue(double &volume, string &description)
|
| | | {
|
| | | return TCNormalizeVolume(MoneySymbol(), volume, description);
|
| | | }
|
| | | //+------------------------------------------------------------------+
|
| | | //| Article #2/#5 - fit the trade size to free margin and to the |
|
| | | //| per-symbol aggregate volume limit. |
|
| | | //+------------------------------------------------------------------+
|
| | | bool CExpertMoneyCustom::CheckAndAdjustMoneyForTrade(string symb, double &lots, ENUM_ORDER_TYPE type)
|
| | | {
|
| | | string description;
|
| | | return ValidateLotForTrade(symb, lots, type, description);
|
| | | }
|
| | | //+------------------------------------------------------------------+
|
