//+------------------------------------------------------------------+
//| CurrencyPositions.mq4 |
//| Forex only! |
//| By: ZOR |
//+------------------------------------------------------------------+
#property indicator_chart_window
#property indicator_buffers 1
//---- indicator parameters
double ExtMapBuffer[];
//----
int ExtCountedBars=0;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
int total = OrdersTotal();
double USD=0,EUR=0,GBP=0,JPY=0,CHF=0,CAD=0,AUD=0,NZD=0,SGD=0,HKD=0,RUR=0,DKK=0,NOK=0,SEK=0,ZAR=0,MXN=0; // Add if more needed
for(int i = total - 1; i >= 0; i--)
{
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
string instrument = OrderSymbol();
int side = OrderType();
double lot = OrderLots();
double position;
string X1, X2;
if (side == OP_BUY || side == OP_BUYLIMIT || side == OP_BUYSTOP) position = 1;
if (side == OP_SELL || side == OP_SELLLIMIT || side == OP_SELLSTOP) position = -1;
position = position * lot;
X1 = StringSubstr(instrument,0,3);
X2 = StringSubstr(instrument,3,6);
if(StringLen(instrument)==6) // Pre-check forex symbols
{
if(X1=="USD") {USD = USD + position;}
if(X1=="EUR") {EUR = EUR + position;}
if(X1=="GBP") {GBP = GBP + position;}
if(X1=="JPY") {JPY = JPY + position;}
if(X1=="CHF") {CHF = CHF + position;}
if(X1=="CAD") {CAD = CAD + position;}
if(X1=="AUD") {AUD = AUD + position;}
if(X1=="NZD") {NZD = NZD + position;}
if(X1=="SGD") {SGD = SGD + position;}
if(X1=="HKD") {HKD = HKD + position;}
if(X1=="RUR") {RUR = RUR + position;}
if(X1=="DKK") {DKK = DKK + position;}
if(X1=="NOK") {NOK = NOK + position;}
if(X1=="SEK") {SEK = SEK + position;}
if(X1=="ZAR") {ZAR = ZAR + position;}
if(X1=="MXN") {MXN = MXN + position;} // Add if more needed
if(X2=="USD") {USD = USD - position;}
if(X2=="EUR") {EUR = EUR - position;}
if(X2=="GBP") {GBP = GBP - position;}
if(X2=="JPY") {JPY = JPY - position;}
if(X2=="CHF") {CHF = CHF - position;}
if(X2=="CAD") {CAD = CAD - position;}
if(X2=="AUD") {AUD = AUD - position;}
if(X2=="NZD") {NZD = NZD - position;}
if(X2=="SGD") {SGD = SGD - position;}
if(X2=="HKD") {HKD = HKD - position;}
if(X2=="RUR") {RUR = RUR - position;}
if(X2=="DKK") {DKK = DKK - position;}
if(X2=="NOK") {NOK = NOK - position;}
if(X2=="SEK") {SEK = SEK - position;}
if(X2=="ZAR") {ZAR = ZAR - position;}
if(X2=="MXN") {MXN = MXN - position;} // Add if more needed
}
}
string data = "\n" + "Net currency positions:" + "\n" +
"USD = " + DoubleToStr(USD,2) + " \n" +
"EUR = " + DoubleToStr(EUR,2) + " \n" +
"GBP = " + DoubleToStr(GBP,2) + " \n" +
"JPY = " + DoubleToStr(JPY,2) + " \n" +
"CHF = " + DoubleToStr(CHF,2) + " \n" +
"CAD = " + DoubleToStr(CAD,2) + " \n" +
"AUD = " + DoubleToStr(AUD,2) + " \n" +
"NZD = " + DoubleToStr(NZD,2) + " \n" +
"SGD = " + DoubleToStr(SGD,2) + " \n" +
"HKD = " + DoubleToStr(HKD,2) + " \n" +
"RUR = " + DoubleToStr(RUR,2) + " \n" +
"DKK = " + DoubleToStr(DKK,2) + " \n" +
"NOK = " + DoubleToStr(NOK,2) + " \n" +
"SEK = " + DoubleToStr(SEK,2) + " \n" +
"ZAR = " + DoubleToStr(ZAR,2) + " \n" +
"MXN = " + DoubleToStr(MXN,2) + " \n"; // Add if more needed
Comment(data);
return(0);
}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
Other Features: