This script is a multi-currency analysis tool designed to track and visualize the relative strength and movement of major global currencies simultaneously. Instead of looking at just one pair (like EUR/USD), it provides a comprehensive overview of how different currencies are performing against each other by aggregating data from multiple markets.
Core Functionality
The logic operates by calculating "Moving Averages"—a standard technical analysis tool that smooths out price fluctuations—for several major currencies including the USD, EUR, GBP, CHF, AUD, CAD, JPY, and NZD. It then performs a series of mathematical comparisons between these averages to determine the momentum of each currency.
How the Logic Works
The script follows a systematic process to generate its visual data:
1. Context Awareness (Timeframes) The tool automatically detects which timeframe you are currently viewing (e.g., 1-minute, Hour 4, Daily, or Monthly charts). It then adjusts its internal "Fast" and "Slow" calculation speeds automatically so that the data remains relevant to the specific zoom level of your chart.
2. Currency Correlation Calculations The script does not treat each currency in isolation. For every currency listed, it performs a cross-calculation against the others. For example:
- It calculates the difference between fast and slow price movements for various pairs.
- It uses mathematical operations (addition, subtraction, multiplication, and division) to determine how a currency's value is shifting relative to the "basket" of other major currencies.
3. Aggregate Strength Visualization The final output is a series of lines displayed in a separate window on your trading platform. Each line represents one of the major currencies. The logic determines the position of these lines by summing up the calculated movements of all the individual pairs.
- If a currency is gaining strength against many other currencies, its corresponding line will trend upward.
- If it is losing strength, the line will trend downward.
4. Dynamic Filtering The script includes a feature to focus your view. You can choose to see the entire "basket" of currencies at once or toggle the settings to only show the specific pair currently on your main chart. It also dynamically adjusts the visual thickness of lines based on whether the currency you are viewing is part of the active pair name (e.g., it might highlight the primary currency being traded more prominently).
Summary for the User
In simple terms, this script acts as a Currency Momentum Dashboard. It takes complex price data from multiple different pairs, runs them through a mathematical "filter" to see who is winning and who is losing in the global market, and displays that information as clear, color-coded lines. This allows you to see at a glance which currencies are currently the strongest or weakest without having to manually check dozens of different charts.
Indicators Used
Miscellaneous
16
Views
0
Downloads
0
Favorites
CC_v1
//+------------------------------------------------------------------+
//| CC.mq4 |
//| SemSemFX@rambler.ru |
//| http://onix-trade.net/forum/index.php?showtopic=107 |
//| modified by finimej: http://www.formulatrader.com |
//+------------------------------------------------------------------+
#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 bool ShowOnlyPairOnChart = false;
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[];
int Slow, Fast;
string endfx;
bool noendfx=true;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
endfx = StringSubstr(Symbol(),6,StringLen(Symbol())-6);
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;
}
//---- 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();
double OPEN, HIGH, LOW, CLOSE;
//---- ïðîâåðêà íà âîçìîæíûå îøèáêè
if(counted_bars < 0)
return(-1);
//---- ïîñëåäíèé ïîñ÷èòàííûé áàð áóäåò ïåðåñ÷èòàí
if(counted_bars > 0)
counted_bars -= 10;
limit = Bars - counted_bars;
RefreshRates();
for(int i = 0; i < limit; i++)
{
// Ïðåäâàðèòåëüíûé ðàññ÷åò
if(EUR)
{
double EURUSD_Fast = ma( StringConcatenate("EURUSD",endfx), Fast, MA_Method, Price, i);
double EURUSD_Slow = ma(StringConcatenate("EURUSD",endfx), Slow, MA_Method, Price, i);
if (!EURUSD_Fast || !EURUSD_Slow)
break;
}
if(GBP)
{
double GBPUSD_Fast = ma(StringConcatenate("GBPUSD",endfx), Fast, MA_Method, Price, i);
double GBPUSD_Slow = ma(StringConcatenate("GBPUSD",endfx), Slow, MA_Method, Price, i);
if(!GBPUSD_Fast || !GBPUSD_Slow)
break;
}
if(AUD)
{
double AUDUSD_Fast = ma(StringConcatenate("AUDUSD",endfx), Fast, MA_Method, Price, i);
double AUDUSD_Slow = ma(StringConcatenate("AUDUSD",endfx), Slow, MA_Method, Price, i);
if(!AUDUSD_Fast || !AUDUSD_Slow)
break;
}
if(NZD)
{
double NZDUSD_Fast = ma(StringConcatenate("NZDUSD",endfx), Fast, MA_Method, Price, i);
double NZDUSD_Slow = ma(StringConcatenate("NZDUSD",endfx), Slow, MA_Method, Price, i);
if(!NZDUSD_Fast || !NZDUSD_Slow)
break;
}
if(CAD)
{
double USDCAD_Fast = ma(StringConcatenate("USDCAD",endfx), Fast, MA_Method, Price, i);
double USDCAD_Slow = ma(StringConcatenate("USDCAD",endfx), Slow, MA_Method, Price, i);
if(!USDCAD_Fast || !USDCAD_Slow)
break;
}
if(CHF)
{
double USDCHF_Fast = ma(StringConcatenate("USDCHF",endfx),Fast,MA_Method,Price,i);
double USDCHF_Slow = ma(StringConcatenate("USDCHF",endfx),Slow,MA_Method,Price,i);
if(!USDCHF_Fast || !USDCHF_Slow)
break;
}
if(JPY)
{
double USDJPY_Fast = ma(StringConcatenate("USDJPY",endfx), Fast, MA_Method, Price, i) /
100;
double USDJPY_Slow = ma(StringConcatenate("USDJPY",endfx), Slow, MA_Method, Price, i) /
100;
if(!USDJPY_Fast || !USDJPY_Slow)
break;
}
// ðàññ÷åò âàëþò
if (((ShowOnlyPairOnChart==true) && (StringFind(Symbol(),"USD",0)!=-1))||((ShowOnlyPairOnChart==false) && (USD==true)))
{
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 (((ShowOnlyPairOnChart==true) && (StringFind(Symbol(),"EUR",0)!=-1))||((ShowOnlyPairOnChart==false) && (EUR==true)))
{
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 (((ShowOnlyPairOnChart==true) && (StringFind(Symbol(),"GBP",0)!=-1))||((ShowOnlyPairOnChart==false) && (GBP==true)))
{
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 (((ShowOnlyPairOnChart==true) && (StringFind(Symbol(),"AUD",0)!=-1))||((ShowOnlyPairOnChart==false) && (AUD==true)))
{
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 (((ShowOnlyPairOnChart==true) && (StringFind(Symbol(),"NZD",0)!=-1))||((ShowOnlyPairOnChart==false) && (NZD==true)))
{
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 (((ShowOnlyPairOnChart==true) && (StringFind(Symbol(),"CAD",0)!=-1))||((ShowOnlyPairOnChart==false) && (CAD==true)))
{
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 (((ShowOnlyPairOnChart==true) && (StringFind(Symbol(),"CHF",0)!=-1))||((ShowOnlyPairOnChart==false) && (CHF==true)))
{
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 (((ShowOnlyPairOnChart==true) && (StringFind(Symbol(),"JPY",0)!=-1))||((ShowOnlyPairOnChart==false) && (JPY==true)))
{
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++)
//----
RefreshRates();
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