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)
United States
United Kingdom
India
Deutschland
España
France
Italia
Polska
Brasil
Россия
Türkiye
Indonesia
Malaysia
日本
한국
Home Stock Screener Forex Signal Finder 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
Profile Profile Settings Account and Billing Priority Support Ideas Published Followers Following Private Messages Chat Sign Out