LazyBear

Indicator: Krivo Index [Forex]

Krivo index, suggested by Richard Krivo, tries to quantify the "strength" of a currency by checking how many of its pairs are trading strongly (close above 200sma). As you can see from the chart, KI gives an excellent overview of their strength. Note how it correctly points out the JPY crash (Nov 2012).

I decided to implement KI for each currency separately to be compliant with Pine requirements. Also, this enables to add only the needed currency KI scripts (for ex., just CAD_KI and USD_KI). You can add the needed currency KI scripts and merge them all together to form a chart like this. Make sure you "right click" on all and select "Scale Right" (or "Scale Left". Thing to note is all KIs shd be aligned to the same scale).

I have published KI for only 5 currencies now, but can add more on request. BTW, this index is usable on all time frames.

More info on KrivoIndex:
-----------------------------
http://www.dailyfx.com/forex/education/t...

JPY crashing:
-----------------------------
http://webcache.googleusercontent.com/se...

Euro Slump:
-----------------------------
http://www.bloomberg.com/news/2014-05-22...

Please see the comment below for the complete list of currency pairs I used for deriving these indexes.

List of my free indicators: http://bit.ly/1LQaPK8
List of my indicators at Appstore: http://blog.tradingview.com/?p=970
Mã nguồn mở

Với tinh thần TradingView, tác giả của tập lệnh này đã xuất bản nó dưới dạng mã nguồn mở, vì vậy các nhà giao dịch có thể hiểu và xác minh nó. Chúc mừng tác giả! Bạn có thể sử dụng mã này miễn phí, nhưng việc sử dụng lại mã này trong một ấn phẩm chịu sự điều chỉnh của Nội quy nội bộ. Bạn có thể yêu thích nó để sử dụng nó trên biểu đồ.

Bạn muốn sử dụng tập lệnh này trên biểu đồ?
//
// @author LazyBear
//
// If you use this code in its original/modified form, do drop me a note. 
//
study("EUR Krivo Index [LazyBear]", shorttitle="EURKI_LB")

src=close
lengthMA=input(200)

// Helper fns
calc_score(s, l) =>
    ma = sma(s, l)
    s >= ma ? 1 : -1

calc_invscore(s, l) =>
    score=calc_score(s,l)
    -1 * score

// EUR 
ieurchf=security("FX:EURCHF", period, src)
ieurusd=security("FX:EURUSD", period, src)
ieurdkk=security("FX:EURDKK", period, src)
ieurjpy=security("FX:EURJPY", period, src)
ieurpln=security("FX:EURPLN", period, src)
ieurgbp=security("FX:EURGBP", period, src)
ieursek=security("FX:EURSEK", period, src)
ieurcad=security("FX:EURCAD", period, src)
ieurnok=security("FX:EURNOK", period, src)
ieurhuf=security("FX:EURHUF", period, src)
ieurtry=security("FX:EURTRY", period, src)
ieuraud=security("FX:EURAUD", period, src)
ieurnzd=security("FX:EURNZD", period, src)
ieurczk=security("FX:EURCZK", period, src)

// Calculate KI
eur_t = calc_score(ieurusd, lengthMA) +
        calc_score(ieurchf, lengthMA) + 
        calc_score(ieurjpy, lengthMA) + 
        calc_score(ieurdkk, lengthMA) + 
        calc_score(ieurpln, lengthMA) + 
        calc_score(ieurgbp, lengthMA) + 
        calc_score(ieursek, lengthMA) + 
        calc_score(ieurcad, lengthMA) + 
        calc_score(ieurnok, lengthMA) + 
        calc_score(ieurhuf, lengthMA) + 
        calc_score(ieurtry, lengthMA) + 
        calc_score(ieuraud, lengthMA) + 
        calc_score(ieurnzd, lengthMA) + 
        calc_score(ieurczk, lengthMA) 
        
plot(eur_t, color=maroon, linewidth=2, title="EUR KI")