[RS]Power Correlation Oscillator (EURO) V1

//@version=2
study(title='[RS]Power Correlation Oscillator (EURO) V1', shorttitle='PCO(EURO)', overlay=false)

s00 = security('EURUSD', period, close>close[1])
s01 = security('EURGBP', period, close>close[1])
s02 = security('EURCHF', period, close>close[1])
s03 = security('EURAUD', period, close>close[1])
s04 = security('EURNZD', period, close>close[1])
s05 = security('EURJPY', period, close>close[1])
s06 = security('EURTRY', period, close>close[1])
s07 = security('EURNOK', period, close>close[1])
s08 = security('EURCAD', period, close>close[1])
s09 = security('EURSEK', period, close>close[1])

power = s00 + s01 + s02 + s03 + s04 + s05 + s06 + s07 + s08 + s09
avg_power = sma(power, input(15))
smooth_power = ema(avg_power, input(10))

hline(0, color=gray)
hline(5, color=gray)
hline(10, color=gray)
plot(title='Power', series=power, style=columns, color=power>=5?lime:red, transp=85, histbase=5)
plot(title='Average', series=avg_power, color=gray)
plot(title='Smooth', series=smooth_power, color=black)