FSST - Fast and Slow Kurtosis Modification

////////////////////////////////////////////////////////////
//  Copyright by HPotter v1.0 27/06/2014
// FSST is the another modification of FSK indicator. It uses RSI and SLowK in the calculation.
// The FSST is constructed from five different parts. The Kurtosis, the Fast Kurtosis(FK), 
// the Fast/Slow Kurtosis(FSK), FSRS and Weighted FSRS.
////////////////////////////////////////////////////////////
study(title="FSST (Fast and Slow Kurtosis)", shorttitle="FSST (Fast and Slow Kurtosis)")
BuyZone = input(0)
hline(BuyZone, color=green, linestyle=line)
xMOM_R = mom(mom(close, 3), 1)
xMOM_RAvr = ema(xMOM_R, 65)
xMOM_RWAvr = wma(xMOM_RAvr, 6)
xHH = highest(high, 9)
xLL = lowest(low, 9)
xValue = xHH - xLL
FastK = (close - xLL) / xValue * 100
xFastD = nz(xFastD[1]) + (0.5 * (FastK - nz(xFastD[1])))
xFSST = 500 * xMOM_RWAvr + xFastD
xFSST_WAvr = wma(xFSST, 9)
plot(xFSST, color=blue, title="FSST")
plot(xFSST_WAvr, color=red, title="WMAFSST")