ストキャスインジ、はじめました。

某講師の方のストキャス理論を試すために、作成しました。
無料です。良かったら投げ銭ください。待ってます。

以下コード

//@version=3

study(title="Stochastic", shorttitle="大循環ストキャス")
length1 = input(20, minval=1, title = "%K20")
length2 = input(40, minval=1, title = "%K40")

fastD = input(3, minval=1, title = "%D")
slowD = input(3, minval=1, title = "Slow%D")

percentK1 = stoch(close, high, low, length1)
percentD1 = sma(percentK1, fastD)
slow_percentD1 = sma(percentD1, slowD)

percentK2 = stoch(close, high, low, length2)
percentD2 = sma(percentK2, fastD)
slow_percentD2 = sma(percentD2, slowD)

plot(slow_percentD1, color=white)
plot(slow_percentD2, color=red)

b1=plot(slow_percentD1, color=white)
b2=plot(slow_percentD2, color=red)
fill(b1,b2,color=purple,transp=85)

plot(percentK1,color=purple,transp=10)


h0 = hline(100)
h1 = hline(80)
fill(h0, h1, color=white, transp=90, title='Level')

h2 = hline(20)
h3 = hline(0)
fill(h2, h3, color=white, transp=90, title='Level')