PBKO 2.1 with RSI

18 sty 2014

//Break Out level by Leonardo Ciaccio 2014 ----------------
study(shorttitle="PBKO 2.1", title="Progressive Break Out 2.1", overlay=true)
//---------------------------------------------------------

//Input from user -----------------------------------------
length = input(120, minval=1)
src = close, len = input(12, minval=1, title="RSI Length")
//---------------------------------------------------------

//---------------------------------------------------------
upper = highest(length)
lower = lowest(length)

up = rma(max(change(src), 0), len)
down = rma(-min(change(src), 0), len)
rsi = down == 0 ? 100 : up == 0 ? 0 : 100 - (100 / (1 + up / down))

FIBO_0_50 = (upper-lower)*0.5
FIBO_0_764 = (upper-lower)*0.764
FIBO_0_618 = (upper-lower)*0.618

RSImove = (upper-lower)*(rsi/100)

plot(upper, color=olive, title='Upper')
plot(lower, color=red, title='Lower')

plot(lower+FIBO_0_764, color=#8DB8E3, title='FIBO 0.764/0.236')
plot(lower+FIBO_0_618, color=#51C44D, title='FIBO 0.618/0.382')
plot(lower+FIBO_0_50, color=#4C4EC2, title='Fibo 0.5', style=cross)
plot(upper-FIBO_0_618, color=#51C44D, title='FIBO 0.382/0.618')
plot(upper-FIBO_0_764, color=#8DB8E3, title='FIBO 0.236/0.764')
plot(lower+RSImove, color=blue, title='RSI')
//---------------------------------------------------------