A variation of Ehlers stoch RSI replaced with CCI
//By Glaz
//A variation of Ehlers stoch RSI
study("Ehlers StochCCI")
RSI_Length = input(8)
Stoc_Length = input(8)
WMA_Length = input(5)
docol = input(true,title="Color Change")
Value1 = cci( hlc3, RSI_Length ) - lowest( cci(hlc3, RSI_Length), Stoc_Length)
Value2 = highest(cci(close, RSI_Length ), Stoc_Length ) - lowest(cci(close,RSI_Length ),Stoc_Length )
Value3 = nz( Value1/Value2)
Value4 = 2 * ( wma( Value3, WMA_Length ) - 0.5)
Trigger = Value4[1]
col = docol ? Value4 > Value4[1] ? #0094FF : #FF006E : #0094FF
plot(Value4,color=col)
plot(Trigger,color=yellow)
hline(0)
hline(0.80)
hline(-0.80)