Snake Oscillator 1.1

study("Snake Oscillator","SNK_OSC")

len = input(25,"Length")

h = ema(high,len)
l = ema(low,len)


hp = h/h[len]
lp = l/l[len]
 
avg = avg(hp,lp)

havg = ema(highest(avg,len),len)
lavg = ema(lowest(avg,len),len)

avg2 = avg(havg,lavg)

dif = havg - avg2



pa = plot(avg,color=gray)
ph = plot(havg,color=gray)
pl = plot(lavg,color=gray)

plot(havg+dif,color=black)
plot(lavg-dif,color=black)

fill(ph,pa,color=red,transp=60)
fill(pl,pa,color=green,transp=60)