//@version=3
//
//This script is for measuring the strength of all currencies in the market, it's similar to indexes, but it's calculated differently and allows for customization to some degree.
//For example, you can show the bar change of all currencies, or the SMA or EMA for customizable periods, or you can select one currency and check three SMAs or EMAs for comparison.
//All currencies use 1 as the base, currencies over 1 are strong while the ones below one are weak.
//
//You can customize the range of the short, medium and long moving averages, and you can decide whether to use EMA or SMA
//If you select a symbol different from SHOW_ALL and deactive all other views the chart will show the triple SMA or EMA for that currency.
//
//

study("Simple Currency Strength Measurer", shorttitle="SCSM",overlay=false,precision=5)


currency1 = input("EUR", title = "1st currency to show", type = string)
currency2 = input("USD", title = "2nd currency to show", type = string)

tfbool = input(false, title = "Use an alternative timefame ?", type = bool)
timeframe = input("D", title = "Timeframe", type = resolution)
tf = tfbool ? timeframe:period

shortma=input(10,title="short MA", type=integer)
mediumma=input(100,title="medium MA",type=integer)
longma=input(200,title="large MA",type=integer)

useEma=input(true,"Use EMA",bool)
smooth = input(7, "MA smoothing", type = integer)

ShortMAView=input(false,"Short MA view",bool)
MediumMAView=input(true,"Medium MA view",bool)
LongMAView=input(false,"Long MA view",bool)

line1=na
line2=na

curr1=na
curr2=na


//Currency 1
EUCl= security("FX_IDC:" + currency1 + "USD",,close,lookahead=barmerge.lookahead_off)
SMAEU=sma(EUCl,shortma)
MMAEU=sma(EUCl,mediumma)
LMAEU=sma(EUCl,longma)
SEMAEU=ema(EUCl,shortma)
MEMAEU=ema(EUCl,mediumma)
LEMAEU=ema(EUCl,longma)

EGCl= security("FX_IDC:" + currency1 + "GBP",,close,lookahead=barmerge.lookahead_off)
SMAEG=sma(EGCl,shortma)
MMAEG=sma(EGCl,mediumma)
LMAEG=sma(EGCl,longma)
SEMAEG=ema(EGCl,shortma)
MEMAEG=ema(EGCl,mediumma)
LEMAEG=ema(EGCl,longma)

EACl= security("FX_IDC:" + currency1 + "AUD",,close,lookahead=barmerge.lookahead_off)
SMAEA=sma(EACl,shortma)
MMAEA=sma(EACl,mediumma)
LMAEA=sma(EACl,longma)
SEMAEA=ema(EACl,shortma)
MEMAEA=ema(EACl,mediumma)
LEMAEA=ema(EACl,longma)

ENCl= security("FX_IDC:" + currency1 + "NZD",,close,lookahead=barmerge.lookahead_off)
SMAEN=sma(ENCl,shortma)
MMAEN=sma(ENCl,mediumma)
LMAEN=sma(ENCl,longma)
SEMAEN=ema(ENCl,shortma)
MEMAEN=ema(ENCl,mediumma)
LEMAEN=ema(ENCl,longma)

ECCl= security("FX_IDC:" + currency1 + "CAD",,close,lookahead=barmerge.lookahead_off)
SMAEC=sma(ECCl,shortma)
MMAEC=sma(ECCl,mediumma)
LMAEC=sma(ECCl,longma)
SEMAEC=ema(ECCl,shortma)
MEMAEC=ema(ECCl,mediumma)
LEMAEC=ema(ECCl,longma)

ESCl= security("FX_IDC:" + currency1 + "CHF",,close,lookahead=barmerge.lookahead_off)
SMAES=sma(ESCl,shortma)
MMAES=sma(ESCl,mediumma)
LMAES=sma(ESCl,longma)
SEMAES=ema(ESCl,shortma)
MEMAES=ema(ESCl,mediumma)
LEMAES=ema(ESCl,longma)

EJCl= security("FX_IDC:" + currency1 + "JPY",,close,lookahead=barmerge.lookahead_off)
SMAEJ=sma(EJCl,shortma)
MMAEJ=sma(EJCl,mediumma)
LMAEJ=sma(EJCl,longma)
SEMAEJ=ema(EJCl,shortma)
MEMAEJ=ema(EJCl,mediumma)
LEMAEJ=ema(EJCl,longma)



//Currency 2

UECl= security("FX_IDC:" + currency2 + "EUR",,close,lookahead=barmerge.lookahead_off)
SMAUE=sma(UECl,shortma)
MMAUE=sma(UECl,mediumma)
LMAUE=sma(UECl,longma)
SEMAUE=ema(UECl,shortma)
MEMAUE=ema(UECl,mediumma)
LEMAUE=ema(UECl,longma)

UGCl= security("FX_IDC:" + currency2 + "GBP",,close,lookahead=barmerge.lookahead_off)
SMAUG=sma(UGCl,shortma)
MMAUG=sma(UGCl,mediumma)
LMAUG=sma(UGCl,longma)
SEMAUG=ema(UGCl,shortma)
MEMAUG=ema(UGCl,mediumma)
LEMAUG=ema(UGCl,longma)

UACl= security("FX_IDC:" + currency2 + "AUD",,close,lookahead=barmerge.lookahead_off)
SMAUA=sma(UACl,shortma)
MMAUA=sma(UACl,mediumma)
LMAUA=sma(UACl,longma)
SEMAUA=ema(UACl,shortma)
MEMAUA=ema(UACl,mediumma)
LEMAUA=ema(UACl,longma)

UNCl= security("FX_IDC:" + currency2 + "NZD",,close,lookahead=barmerge.lookahead_off)
SMAUN=sma(UNCl,shortma)
MMAUN=sma(UNCl,mediumma)
LMAUN=sma(UNCl,longma)
SEMAUN=ema(UNCl,shortma)
MEMAUN=ema(UNCl,mediumma)
LEMAUN=ema(UNCl,longma)

UCCl= security("FX_IDC:" + currency2 + "CAD",,close,lookahead=barmerge.lookahead_off)
SMAUC=sma(UCCl,shortma)
MMAUC=sma(UCCl,mediumma)
LMAUC=sma(UCCl,longma)
SEMAUC=ema(UCCl,shortma)
MEMAUC=ema(UCCl,mediumma)
LEMAUC=ema(UCCl,longma)

USCl= security("FX_IDC:" + currency2 + "CHF",,close,lookahead=barmerge.lookahead_off)
SMAUS=sma(USCl,shortma)
MMAUS=sma(USCl,mediumma)
LMAUS=sma(USCl,longma)
SEMAUS=ema(USCl,shortma)
MEMAUS=ema(USCl,mediumma)
LEMAUS=ema(USCl,longma)

UJCl= security("FX_IDC:" + currency2 + "JPY",,close,lookahead=barmerge.lookahead_off)
SMAUJ=sma(UJCl,shortma)
MMAUJ=sma(UJCl,mediumma)
LMAUJ=sma(UJCl,longma)
SEMAUJ=ema(UJCl,shortma)
MEMAUJ=ema(UJCl,mediumma)
LEMAUJ=ema(UJCl,longma)



if(useEma)
    if(ShortMAView)
        curr1:=(EUCl/SEMAEU + EGCl/SEMAEG +EACl/SEMAEA +ENCl/SEMAEN +ECCl/SEMAEC +ESCl/SEMAES +EJCl/SEMAEJ)/7
        curr2:= (UECl/SEMAUE + UGCl/SEMAUG +UACl/SEMAUA +UNCl/SEMAUN +UCCl/SEMAUC +USCl/SEMAUS +UJCl/SEMAUJ)/7
    else
        if(MediumMAView)
            curr1:=(EUCl/MEMAEU + EGCl/MEMAEG +EACl/MEMAEA +ENCl/MEMAEN +ECCl/MEMAEC +ESCl/MEMAES +EJCl/MEMAEJ)/7
            curr2:= (UECl/MEMAUE + UGCl/MEMAUG +UACl/MEMAUA +UNCl/MEMAUN +UCCl/MEMAUC +USCl/MEMAUS +UJCl/MEMAUJ)/7
        else
            if(LongMAView)
                curr1:=(EUCl/LEMAEU + EGCl/LEMAEG +EACl/LEMAEA +ENCl/LEMAEN +ECCl/LEMAEC +ESCl/LEMAES +EJCl/LEMAEJ)/7
                curr2:= (UECl/LEMAUE + UGCl/LEMAUG +UACl/LEMAUA +UNCl/LEMAUN +UCCl/LEMAUC +USCl/LEMAUS +UJCl/LEMAUJ)/7
else
    if(ShortMAView)
        curr1:=(EUCl/SMAEU + EGCl/SMAEG +EACl/SMAEA +ENCl/SMAEN +ECCl/SMAEC +ESCl/SMAES +EJCl/SMAEJ)/7
        curr2:= (UECl/SMAUE + UGCl/SMAUG +UACl/SMAUA +UNCl/SMAUN +UCCl/SMAUC +USCl/SMAUS +UJCl/SMAUJ)/7
    else
        if(MediumMAView)
            curr1:=(EUCl/MMAEU + EGCl/MMAEG +EACl/MMAEA +ENCl/MMAEN +ECCl/MMAEC +ESCl/MMAES +EJCl/MMAEJ)/7
            curr2:= (UECl/MMAUE + UGCl/MMAUG +UACl/MMAUA +UNCl/MMAUN +UCCl/MMAUC +USCl/MMAUS +UJCl/MMAUJ)/7
        else
            if(LongMAView)
                curr1:=(EUCl/LMAEU + EGCl/LMAEG +EACl/LMAEA +ENCl/LMAEN +ECCl/LMAEC +ESCl/LMAES +EJCl/LMAEJ)/7
                curr2:= (UECl/LMAUE + UGCl/LMAUG +UACl/LMAUA +UNCl/LMAUN +UCCl/LMAUC +USCl/LMAUS +UJCl/LMAUJ)/7



useSmoothedEma=input(true,"Use Smoothed version",bool)
eml=input(20,"em",integer)
if(useSmoothedEma)
    curr1:=ema(curr1,eml)
    curr2:=ema(curr2,eml)

if(useEma)
    line1:= ema(curr1, smooth)
    line2:= ema(curr2, smooth)
else
    line1:= sma(curr1, smooth)
    line2:= sma(curr2, smooth)

plot(curr1,title="Currency 1", color=blue, linewidth = 2, transp = 0)
plot(line1,title="MA",color=black, transp = 20)
plot(curr2, title="Currency 2", color=red, linewidth = 2, transp = 0)
plot(line2,title="MA",color=black, transp = 20)


condup = false
if curr1 > line1 and curr2 < line2
    condup := true
conddown = false
if curr1 < line1 and curr2 > line2
    conddown := true

bgcolor(condup? blue:white, transp=85)
bgcolor(conddown? red:white, transp=85)