This script is a multi-currency correlation indicator designed to help traders visualize how various major currencies interact with one another. Instead of looking at just one currency pair (like EUR/USD), this tool provides a holistic view of the "strength" and "movement" of the major global currencies relative to each other simultaneously.
Core Functionality
The script calculates a series of moving averages for several major currencies: USD, EUR, GBP, CHF, AUD, CAD, JPY, and NZD. By processing these values across different timeframes—ranging from small scales like 1-minute charts to large scales like monthly charts—the tool creates a unified visual representation of market sentiment.
How the Logic Works
The indicator operates through three main steps:
1. Dynamic Timeframe Adaptation The script is "smart" regarding the chart you are viewing. It automatically adjusts its internal calculations based on your current timeframe. For example, if you are on a 5-minute chart, it uses specific fast and slow calculation periods tailored for that speed; if you switch to a Daily chart, it swaps those values automatically to ensure the data remains relevant and smooth.
2. Multi-Currency Correlation Mapping This is the heart of the script. For every currency you have enabled (like USD or JPY), the logic performs complex cross-calculations:
- It identifies the relationship between your primary currency and all other active currencies.
- It uses mathematical combinations (addition, subtraction, multiplication, and division) to determine how much "pull" or "push" each currency is exerting on the others.
- For instance, it calculates how a move in the Euro affects the Australian Dollar by looking at their shared relationships with the USD and other base currencies.
3. Visual Representation The result of these calculations is plotted as distinct lines in a separate window on your trading platform. Each line corresponds to a specific currency:
- Color Coding: Each currency is assigned a unique, professional color (e.g., Green for USD, Red for GBP) so you can easily distinguish them at a glance.
- Labeling: The script automatically creates text labels to identify which line belongs to which currency.
- Symbol Awareness: It includes a feature that detects the specific symbol you are currently trading; if the chart symbol matches one of the monitored currencies, it adjusts the line thickness to make it stand out more clearly.
Summary for the User
Essentially, this tool transforms a chaotic web of individual currency pairs into a organized set of lines. It allows you to see the "big picture"—helping you identify which currencies are leading the market and how they are moving in harmony (or opposition) with one another across any timeframe you choose to trade.
Indicators Used
Miscellaneous
14
Views
0
Downloads
0
Favorites
CC
//+------------------------------------------------------------------+
//| CC.mq4 |
//| SemSemFX@rambler.ru |
//| http://onix-trade.net/forum/index.php?showtopic=107 |
//+------------------------------------------------------------------+
#property copyright "SemSemFX@rambler.ru"
#property link "http://onix-trade.net/forum/index.php?showtopic=107"
//----
string Indicator_Name = "CC: ";
int Objs = 0;
//----
#property indicator_separate_window
#property indicator_buffers 8
//---- parameters
extern int MA_Method = 3;
extern int Price = 6;
extern bool USD = 1;
extern bool EUR = 1;
extern bool GBP = 1;
extern bool CHF = 1;
extern bool JPY = 1;
extern bool AUD = 1;
extern bool CAD = 1;
extern bool NZD = 1;
extern color Color_USD = Green;
extern color Color_EUR = DarkBlue;
extern color Color_GBP = Red;
extern color Color_CHF = Chocolate;
extern color Color_JPY = Maroon;
extern color Color_AUD = DarkOrange;
extern color Color_CAD = Purple;
extern color Color_NZD = Teal;
extern int Line_Thickness = 2;
extern int All_Bars = 0;
extern int Last_Bars = 0;
// for monthly
extern int mn_per = 12;
extern int mn_fast = 3;
// for weekly
extern int w_per = 9;
extern int w_fast = 3;
// for daily
extern int d_per = 5;
extern int d_fast = 3;
// for H4
extern int h4_per = 18;
extern int h4_fast = 6;
// for H1
extern int h1_per = 24;
extern int h1_fast = 8;
// for M30
extern int m30_per = 16;
extern int m30_fast = 2;
// for M15
extern int m15_per = 16;
extern int m15_fast = 4;
// for M5
extern int m5_per = 12;
extern int m5_fast = 3;
// for M1
extern int m1_per = 30;
extern int m1_fast = 10;
//----
double arrUSD[];
double arrEUR[];
double arrGBP[];
double arrCHF[];
double arrJPY[];
double arrAUD[];
double arrCAD[];
double arrNZD[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
if(USD)
Indicator_Name = StringConcatenate(Indicator_Name, " USD");
if(EUR)
Indicator_Name = StringConcatenate(Indicator_Name, " EUR");
if(GBP)
Indicator_Name = StringConcatenate(Indicator_Name, " GBP");
if(CHF)
Indicator_Name = StringConcatenate(Indicator_Name, " CHF");
if(AUD)
Indicator_Name = StringConcatenate(Indicator_Name, " AUD");
if(CAD)
Indicator_Name = StringConcatenate(Indicator_Name, " CAD");
if(JPY)
Indicator_Name = StringConcatenate(Indicator_Name, " JPY");
if(NZD)
Indicator_Name = StringConcatenate(Indicator_Name, " NZD");
IndicatorShortName(Indicator_Name);
int cur = 0;
int st = 23;
if(USD)
{
sl("~", cur, Color_USD);
cur += st;
}
if(EUR)
{
sl("~", cur, Color_EUR);
cur += st;
}
if(GBP)
{
sl("~", cur, Color_GBP);
cur += st;
}
if(CHF)
{
sl("~", cur, Color_CHF);
cur += st;
}
if(AUD)
{
sl("~", cur, Color_AUD);
cur+=st;
}
if(CAD)
{
sl("~", cur, Color_CAD);
cur+=st;
}
if(JPY)
{
sl("~", cur, Color_JPY);
cur += st;
}
if(NZD)
{
sl("~", cur, Color_NZD);
cur+=st;
}
//----
int width = 0;
if(0 > StringFind(Symbol(), "USD", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(0, DRAW_LINE, DRAW_LINE, width, Color_USD);
SetIndexBuffer(0, arrUSD);
SetIndexLabel(0, "USD");
if(0 > StringFind(Symbol(), "EUR", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(1, DRAW_LINE, DRAW_LINE, width, Color_EUR);
SetIndexBuffer(1, arrEUR);
SetIndexLabel(1, "EUR");
if(0 > StringFind(Symbol(), "GBP", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(2, DRAW_LINE, DRAW_LINE, width, Color_GBP);
SetIndexBuffer(2, arrGBP);
SetIndexLabel(2, "GBP");
if(0 > StringFind(Symbol(), "CHF", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(3, DRAW_LINE, DRAW_LINE, width, Color_CHF);
SetIndexBuffer(3, arrCHF);
SetIndexLabel(3, "CHF");
if(0 > StringFind(Symbol(), "JPY", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(4, DRAW_LINE, DRAW_LINE, width, Color_JPY);
SetIndexBuffer(4, arrJPY);
SetIndexLabel(4, "JPY");
if(0 > StringFind(Symbol(), "AUD", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(5, DRAW_LINE, DRAW_LINE, width, Color_AUD);
SetIndexBuffer(5, arrAUD);
SetIndexLabel(5, "AUD");
if(0 > StringFind(Symbol(), "CAD", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(6, DRAW_LINE, DRAW_LINE, width, Color_CAD);
SetIndexBuffer(6, arrCAD);
SetIndexLabel(6, "CAD");
if(0 > StringFind(Symbol(), "NZD", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(7, DRAW_LINE, DRAW_LINE, width, Color_NZD);
SetIndexBuffer(7, arrNZD);
SetIndexLabel(7, "NZD");
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
for(int i = 0; i < Objs; i++)
{
if(!ObjectDelete(Indicator_Name + i))
Print("error: code #", GetLastError());
}
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int limit;
int counted_bars = IndicatorCounted();
//---- ïðîâåðêà íà âîçìîæíûå îøèáêè
if(counted_bars < 0)
return(-1);
//---- ïîñëåäíèé ïîñ÷èòàííûé áàð áóäåò ïåðåñ÷èòàí
// if(counted_bars>0) counted_bars-=10;
if(All_Bars < 1)
All_Bars = Bars;
if(counted_bars > 0 && Last_Bars > 0)
counted_bars -= Last_Bars;
limit = All_Bars - counted_bars;
int Slow, Fast;
switch(Period())
{
case 1: Slow = m1_per; Fast = m1_fast; break;
case 5: Slow = m5_per; Fast = m5_fast; break;
case 15: Slow = m15_per;Fast = m15_fast; break;
case 30: Slow = m30_per;Fast = m30_fast; break;
case 60: Slow = h1_per; Fast = h1_fast; break;
case 240: Slow = h4_per; Fast = h4_fast; break;
case 1440: Slow = d_per; Fast = d_fast; break;
case 10080: Slow = w_per; Fast = w_fast; break;
case 43200: Slow = mn_per; Fast = mn_fast; break;
}
//---- îñíîâíîé öèêë
for(int i = 0; i < limit; i++)
{
// Ïðåäâàðèòåëüíûé ðàññ÷åò
if(EUR)
{
double EURUSD_Fast = ma("EURUSD-Pro", Fast, MA_Method, Price, i);
double EURUSD_Slow = ma("EURUSD-Pro", Slow, MA_Method, Price, i);
if (!EURUSD_Fast || !EURUSD_Slow)
break;
}
if(GBP)
{
double GBPUSD_Fast = ma("GBPUSD-Pro", Fast, MA_Method, Price, i);
double GBPUSD_Slow = ma("GBPUSD-Pro", Slow, MA_Method, Price, i);
if(!GBPUSD_Fast || !GBPUSD_Slow)
break;
}
if(AUD)
{
double AUDUSD_Fast = ma("AUDUSD-Pro", Fast, MA_Method, Price, i);
double AUDUSD_Slow = ma("AUDUSD-Pro", Slow, MA_Method, Price, i);
if(!AUDUSD_Fast || !AUDUSD_Slow)
break;
}
if(NZD)
{
double NZDUSD_Fast = ma("NZDUSD-Pro", Fast, MA_Method, Price, i);
double NZDUSD_Slow = ma("NZDUSD-Pro", Slow, MA_Method, Price, i);
if(!NZDUSD_Fast || !NZDUSD_Slow)
break;
}
if(CAD)
{
double USDCAD_Fast = ma("USDCAD-Pro", Fast, MA_Method, Price, i);
double USDCAD_Slow = ma("USDCAD-Pro", Slow, MA_Method, Price, i);
if(!USDCAD_Fast || !USDCAD_Slow)
break;
}
if(CHF)
{
double USDCHF_Fast = ma("USDCHF-Pro",Fast,MA_Method,Price,i);
double USDCHF_Slow = ma("USDCHF-Pro",Slow,MA_Method,Price,i);
if(!USDCHF_Fast || !USDCHF_Slow)
break;
}
if(JPY)
{
double USDJPY_Fast = ma("USDJPY-Pro", Fast, MA_Method, Price, i) /
100;
double USDJPY_Slow = ma("USDJPY-Pro", Slow, MA_Method, Price, i) /
100;
if(!USDJPY_Fast || !USDJPY_Slow)
break;
}
// ðàññ÷åò âàëþò
if(USD)
{
arrUSD[i] = 0;
if(EUR)
arrUSD[i] += EURUSD_Slow - EURUSD_Fast;
if(GBP)
arrUSD[i] += GBPUSD_Slow - GBPUSD_Fast;
if(AUD)
arrUSD[i] += AUDUSD_Slow - AUDUSD_Fast;
if(NZD)
arrUSD[i] += NZDUSD_Slow - NZDUSD_Fast;
if(CHF)
arrUSD[i] += USDCHF_Fast - USDCHF_Slow;
if(CAD)
arrUSD[i] += USDCAD_Fast - USDCAD_Slow;
if(JPY)
arrUSD[i] += USDJPY_Fast - USDJPY_Slow;
}// end if USD
if(EUR)
{
arrEUR[i] = 0;
if(USD)
arrEUR[i] += EURUSD_Fast - EURUSD_Slow;
if(GBP)
arrEUR[i] += EURUSD_Fast / GBPUSD_Fast - EURUSD_Slow /
GBPUSD_Slow;
if(AUD)
arrEUR[i] += EURUSD_Fast / AUDUSD_Fast - EURUSD_Slow /
AUDUSD_Slow;
if(NZD)
arrEUR[i] += EURUSD_Fast / NZDUSD_Fast - EURUSD_Slow /
NZDUSD_Slow;
if(CHF)
arrEUR[i] += EURUSD_Fast*USDCHF_Fast -
EURUSD_Slow*USDCHF_Slow;
if(CAD)
arrEUR[i] += EURUSD_Fast*USDCAD_Fast -
EURUSD_Slow*USDCAD_Slow;
if(JPY)
arrEUR[i] += EURUSD_Fast*USDJPY_Fast -
EURUSD_Slow*USDJPY_Slow;
}// end if EUR
if(GBP)
{
arrGBP[i] = 0;
if(USD)
arrGBP[i] += GBPUSD_Fast - GBPUSD_Slow;
if(EUR)
arrGBP[i] += EURUSD_Slow / GBPUSD_Slow - EURUSD_Fast /
GBPUSD_Fast;
if(AUD)
arrGBP[i] += GBPUSD_Fast / AUDUSD_Fast - GBPUSD_Slow /
AUDUSD_Slow;
if(NZD)
arrGBP[i] += GBPUSD_Fast / NZDUSD_Fast - GBPUSD_Slow /
NZDUSD_Slow;
if(CHF)
arrGBP[i] += GBPUSD_Fast*USDCHF_Fast -
GBPUSD_Slow*USDCHF_Slow;
if(CAD)
arrGBP[i] += GBPUSD_Fast*USDCAD_Fast -
GBPUSD_Slow*USDCAD_Slow;
if(JPY)
arrGBP[i] += GBPUSD_Fast*USDJPY_Fast -
GBPUSD_Slow*USDJPY_Slow;
}// end if GBP
if(AUD)
{
arrAUD[i] = 0;
if(USD)
arrAUD[i] += AUDUSD_Fast - AUDUSD_Slow;
if(EUR)
arrAUD[i] += EURUSD_Slow / AUDUSD_Slow - EURUSD_Fast /
AUDUSD_Fast;
if(GBP)
arrAUD[i] += GBPUSD_Slow / AUDUSD_Slow - GBPUSD_Fast /
AUDUSD_Fast;
if(NZD)
arrAUD[i] += AUDUSD_Fast / NZDUSD_Fast - AUDUSD_Slow /
NZDUSD_Slow;
if(CHF)
arrAUD[i] += AUDUSD_Fast*USDCHF_Fast -
AUDUSD_Slow*USDCHF_Slow;
if(CAD)
arrAUD[i] += AUDUSD_Fast*USDCAD_Fast -
AUDUSD_Slow*USDCAD_Slow;
if(JPY)
arrAUD[i] += AUDUSD_Fast*USDJPY_Fast -
AUDUSD_Slow*USDJPY_Slow;
}// end if AUD
if(NZD)
{
arrNZD[i] = 0;
if(USD)
arrNZD[i] += NZDUSD_Fast - NZDUSD_Slow;
if(EUR)
arrNZD[i] += EURUSD_Slow / NZDUSD_Slow - EURUSD_Fast /
NZDUSD_Fast;
if(GBP)
arrNZD[i] += GBPUSD_Slow / NZDUSD_Slow - GBPUSD_Fast /
NZDUSD_Fast;
if(AUD)
arrNZD[i] += AUDUSD_Slow / NZDUSD_Slow - AUDUSD_Fast /
NZDUSD_Fast;
if(CHF)
arrNZD[i] += NZDUSD_Fast*USDCHF_Fast -
NZDUSD_Slow*USDCHF_Slow;
if(CAD)
arrNZD[i] += NZDUSD_Fast*USDCAD_Fast -
NZDUSD_Slow*USDCAD_Slow;
if(JPY)
arrNZD[i] += NZDUSD_Fast*USDJPY_Fast -
NZDUSD_Slow*USDJPY_Slow;
}// end if NZD
if(CAD)
{
arrCAD[i] = 0;
if(USD)
arrCAD[i] += USDCAD_Slow - USDCAD_Fast;
if(EUR)
arrCAD[i] += EURUSD_Slow*USDCAD_Slow -
EURUSD_Fast*USDCAD_Fast;
if(GBP)
arrCAD[i] += GBPUSD_Slow*USDCAD_Slow -
GBPUSD_Fast*USDCAD_Fast;
if(AUD)
arrCAD[i] += AUDUSD_Slow*USDCAD_Slow -
AUDUSD_Fast*USDCAD_Fast;
if(NZD)
arrCAD[i] += NZDUSD_Slow*USDCAD_Slow -
NZDUSD_Fast*USDCAD_Fast;
if(CHF)
arrCAD[i] += USDCHF_Fast / USDCAD_Fast -
USDCHF_Slow / USDCAD_Slow;
if(JPY)
arrCAD[i] += USDJPY_Fast / USDCAD_Fast -
USDJPY_Slow / USDCAD_Slow;
}// end if CAD
if(CHF)
{
arrCHF[i] = 0;
if(USD)
arrCHF[i] += USDCHF_Slow - USDCHF_Fast;
if(EUR)
arrCHF[i] += EURUSD_Slow*USDCHF_Slow -
EURUSD_Fast*USDCHF_Fast;
if(GBP)
arrCHF[i] += GBPUSD_Slow*USDCHF_Slow -
GBPUSD_Fast*USDCHF_Fast;
if(AUD)
arrCHF[i] += AUDUSD_Slow*USDCHF_Slow -
AUDUSD_Fast*USDCHF_Fast;
if(NZD)
arrCHF[i] += NZDUSD_Slow*USDCHF_Slow -
NZDUSD_Fast*USDCHF_Fast;
if(CAD)
arrCHF[i] += USDCHF_Slow / USDCAD_Slow -
USDCHF_Fast / USDCAD_Fast;
if(JPY)
arrCHF[i] += USDJPY_Fast / USDCHF_Fast -
USDJPY_Slow / USDCHF_Slow;
}// end if CHF
if(JPY)
{
arrJPY[i] = 0;
if(USD)
arrJPY[i] += USDJPY_Slow - USDJPY_Fast;
if(EUR)
arrJPY[i] += EURUSD_Slow*USDJPY_Slow -
EURUSD_Fast*USDJPY_Fast;
if(GBP)
arrJPY[i] += GBPUSD_Slow*USDJPY_Slow -
GBPUSD_Fast*USDJPY_Fast;
if(AUD)
arrJPY[i] += AUDUSD_Slow*USDJPY_Slow -
AUDUSD_Fast*USDJPY_Fast;
if(NZD)
arrJPY[i] += NZDUSD_Slow*USDJPY_Slow -
NZDUSD_Fast*USDJPY_Fast;
if(CAD)
arrJPY[i] += USDJPY_Slow / USDCAD_Slow -
USDJPY_Fast / USDCAD_Fast;
if(CHF)
arrJPY[i] += USDJPY_Slow / USDCHF_Slow -
USDJPY_Fast / USDCHF_Fast;
}// end if JPY
}//end block for(int i=0; i<limit; i++)
//----
return(0);
}
//+------------------------------------------------------------------+
//| Subroutines |
//+------------------------------------------------------------------+
double ma(string sym, int per, int Mode, int Price, int i)
{
return(iMA(sym, 0, per, 0, Mode, Price, i));
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void sl(string sym, int y, color col)
{
int window = WindowFind(Indicator_Name);
string ID = Indicator_Name + Objs;
Print("ID:", ID);
int tmp = 10 + y;
Objs++;
if(ObjectCreate(ID, OBJ_LABEL, window, 0, 0))
{
//ObjectSet(ID, OBJPROP_CORNER, 1);
ObjectSet(ID, OBJPROP_XDISTANCE, y + 35);
ObjectSet(ID, OBJPROP_YDISTANCE, 0);
ObjectSetText(ID, sym, 18, "Arial Black", col);
}
}
//+------------------------------------------------------------------+
Comments