[RS]Hurricane V0

//@version=2
study(title='[RS]Hurricane V0', shorttitle='H', overlay=true)
rate = input(0.0001)
window = input(100)
h1 = highest(window)+highestbars(window)*rate
h2 = highest(window)-highestbars(window)*rate
l1 = lowest(window)-highestbars(window)*rate
l2 = lowest(window)+highestbars(window)*rate
p0 = plot(h1, color=red, linewidth=2)
p1 = plot(h2, color=maroon, linewidth=1)
p2 = plot(l1, color=lime, linewidth=2)
p3 = plot(l2, color=green, linewidth=1)
fill(p0, p1, color=red, transp=80)
fill(p2, p3, color=lime, transp=80)