PBKO 2.2 with stocastich

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

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

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

k = sma(stoch(close, high, low, STOCA_length), smoothK)
d = sma(k, smoothD)

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

Stoca_K = (upper-lower)*(k/100)
Stoca_D = (upper-lower)*(d/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+Stoca_K, color=blue, title='Stoca K')
plot(lower+Stoca_D, color=red, title='Stoca D')
//---------------------------------------------------------