RicardoSantos

[RS]Scalpers Channels V0

EXPERIMENTAL:
Scalper channel inspired by keltner's channels
snapshot
Remove from Favorite Scripts Add to Favorite Scripts
study(title="[RS]Scalpers Channels V0", shorttitle="SC", overlay=true)
useTrueRange = input(true)
length = input(1440, minval=1)
smooth = input(1)
extrasmooth = input(1)
mult_increment = input(0.1)
mult = na(mult[1]) ? mult_increment : high >= upper[1] ? mult[1] + mult_increment : low <= lower[1] ? mult[1] + mult_increment : mult[1]
src = input(close, title="Source")
plot(mult, color=black)
ma = ema(ema(ema(src, length), smooth), extrasmooth)
range = useTrueRange ? tr : cum(tr)/(n+1)
rangema = ema(ema(ema(range, length), smooth), extrasmooth) * mult
upper = ma + rangema * 1
u0882 = ma + rangema * 0.882
u0764 = ma + rangema * 0.764
u0618 = ma + rangema * 0.618
u0500 = ma + rangema * 0.500
u0382 = ma + rangema * 0.382
u0236 = ma + rangema * 0.236
l0236 = ma - rangema * 0.236
l0382 = ma - rangema * 0.382
l0500 = ma - rangema * 0.500
l0618 = ma - rangema * 0.618
l0764 = ma - rangema * 0.764
l0882 = ma - rangema * 0.882
lower = ma - rangema * 1
c = blue
u = plot(upper, color=c, title="Upper")
plot(title='U0882', series=u0882, style=circles, color=black, linewidth=1)
plot(title='U0764', series=u0764, style=circles, color=black, linewidth=1)
plot(title='U0618', series=u0618, style=circles, color=black, linewidth=1)
plot(title='U0500', series=u0500, style=circles, color=black, linewidth=1)
plot(title='U0382', series=u0382, style=circles, color=black, linewidth=1)
plot(title='U0236', series=u0236, style=circles, color=black, linewidth=1)
plot(title='L0236', series=l0236, style=circles, color=black, linewidth=1)
plot(title='L0382', series=l0382, style=circles, color=black, linewidth=1)
plot(title='L0500', series=l0500, style=circles, color=black, linewidth=1)
plot(title='L0618', series=l0618, style=circles, color=black, linewidth=1)
plot(title='L0764', series=l0764, style=circles, color=black, linewidth=1)
plot(title='L0882', series=l0882, style=circles, color=black, linewidth=1)
plot(ma, color=c, title="Basis")
l = plot(lower, color=c, title="Lower")
fill(u, l, color=c)
Ideas Scripts Chart
United States
United Kingdom
India
España
France
Italia
Brasil
Россия
Türkiye
日本
한국
Home Stock Screener Economic Calendar How It Works Chart Features House Rules Moderators For the WEB Widgets Stock Charting Library Priority Support Feature Request Blog & News FAQ Help & Wiki Twitter
Private Messages Chat Ideas Published Followers Following Priority Support Public Profile Profile Settings Account and Billing Sign Out