Stoch_VX2

study(title="Stoch_VX2", shorttitle="Stoch_VX2")
length = input(12, minval=1), smoothK = input(5, minval=1), smoothD = input(3, minval=1)
k = sma(stoch(close, high, low, length), smoothK)
d = sma(k, smoothD)
plot(k, color=gray)
plot(d, color=red, linewidth=2)
h0 = hline(80, color=red, linewidth=2)
h1 = hline(20, color=red, linewidth=2)
fill(h0, h1, color=purple, transp=100)

//study(title="Stoch_VX1", shorttitle="Stoch_VX1", overlay=false)
//Modified script for binary Options trading ="Vdubus BinaryPro 2"
//.Original PPO Code Created by TheLark / Chris Moody
// Tops & Bottoms.
pctile = input(90, title="%")
wrnpctile = input(70, title=" %")
Short = input(0.3, title="LONG")
Long = input(0.5, title="SHORT")
lkbT = input(250,title="'PRO-Top")
lkbB = input(250,title="'PRO-Bottom")
//sl=input(true)
//swl=input(true)
//Laguerre PPO Code from TheLark
lag(g, p) =>
    L0 = (1 - g)*p+g*nz(L0[1])
    L1 = -g*L0+nz(L0[1])+g*nz(L1[1])
    L2 = -g*L1+nz(L1[1])+g*nz(L2[1])
    L3 = -g*L2+nz(L2[1])+g*nz(L3[1])
    f = (L0 + 2*L1 + 2*L2 + L3)/6
    f
lmas = lag(Short, hl2)
lmal = lag(Long, hl2)

pctileB = pctile * -1
wrnpctileB = wrnpctile * -1

//PPO Plot
ppoT = (lmas-lmal)/lmal*100
ppoB = (lmal - lmas)/lmal*100
//PercentRank of PPO 
pctRankT = percentrank(ppoT, lkbT)
pctRankB = percentrank(ppoB, lkbB) * -1
//Color Definition of Columns
colT = pctRankT >= pctile ? black : pctRankT >= wrnpctile and pctRankT < pctile ? black : black
plot(pctRankT,title="Percentile Rank Columns", color=colT, style=line, linewidth=3)
//------------------------------------------