Can´t publish the indicator, so copy&paste this on pine editor!
//version=3
study("True Strength Indicator + Moving Average Rate Of Change + Slow Stoch", shorttitle="TSI+MAROC+SlowStoch")
long = input(title="Long Length", type=integer, defval=25)
short = input(title="Short Length", type=integer, defval=13)
signal = input(title="Signal Length", type=integer, defval=13)
price = close
double_smooth(src, long, short) =>
fist_smooth = ema(src, long)
ema(fist_smooth, short)
pc = change(price)
double_smoothed_pc = double_smooth(pc, long, short)
double_smoothed_abs_pc = double_smooth(abs(pc), long, short)
tsi_value = 100 * (double_smoothed_pc / double_smoothed_abs_pc)
plot(tsi_value / 8, color=#3BB3E4)
plot(ema(tsi_value / 8, signal), color=#FF006E)
hline(0, title="Zero")
// ------------------------------------------------
sma_len = input(21, minval=1, title="SMA len")
roc_len = input(5, minval=1, title="ROC len")
src2 = close
smooth = sma(src2, sma_len)
sma_roc = 100 * (smooth - smooth[roc_len])/smooth[roc_len]
color = sma_roc > sma_roc[roc_len] ? green : red
plot(sma_roc, color=color, title="SMA ROC", style=line)
hline(0)
// ------------------------------------------------
length = input(10, minval=1), smoothK = input(6, minval=1), smoothD = input(3, minval=1)
// Get the real OHLC (useful in not standard chart - like Heikin Ashi)
t = tickerid(syminfo.prefix, ticker)
realO = security(t, period, open)
realH = security(t, period, high)
realL = security(t, period, low)
realC = security(t, period, close)
//palette = realC >= realO ? lime : red
//plotcandle(realO, realH, realL, realC, color=palette)
// Calculation
low_n = lowest(realL, length)
high_n = highest(realH, length)
k = sma(100*((realC-low_n)/(high_n-low_n)), smoothK)
d = sma(k, smoothD)
plot(k/10, color=green)
plot(d/10, color=red)
h0 = hline(7.5)
h1 = hline(2.5)
study("True Strength Indicator + Moving Average Rate Of Change + Slow Stoch", shorttitle="TSI+MAROC+SlowStoch")
long = input(title="Long Length", type=integer, defval=25)
short = input(title="Short Length", type=integer, defval=13)
signal = input(title="Signal Length", type=integer, defval=13)
price = close
double_smooth(src, long, short) =>
fist_smooth = ema(src, long)
ema(fist_smooth, short)
pc = change(price)
double_smoothed_pc = double_smooth(pc, long, short)
double_smoothed_abs_pc = double_smooth(abs(pc), long, short)
tsi_value = 100 * (double_smoothed_pc / double_smoothed_abs_pc)
plot(tsi_value / 8, color=#3BB3E4)
plot(ema(tsi_value / 8, signal), color=#FF006E)
hline(0, title="Zero")
// ------------------------------------------------
sma_len = input(21, minval=1, title="SMA len")
roc_len = input(5, minval=1, title="ROC len")
src2 = close
smooth = sma(src2, sma_len)
sma_roc = 100 * (smooth - smooth[roc_len])/smooth[roc_len]
color = sma_roc > sma_roc[roc_len] ? green : red
plot(sma_roc, color=color, title="SMA ROC", style=line)
hline(0)
// ------------------------------------------------
length = input(10, minval=1), smoothK = input(6, minval=1), smoothD = input(3, minval=1)
// Get the real OHLC (useful in not standard chart - like Heikin Ashi)
t = tickerid(syminfo.prefix, ticker)
realO = security(t, period, open)
realH = security(t, period, high)
realL = security(t, period, low)
realC = security(t, period, close)
//palette = realC >= realO ? lime : red
//plotcandle(realO, realH, realL, realC, color=palette)
// Calculation
low_n = lowest(realL, length)
high_n = highest(realH, length)
k = sma(100*((realC-low_n)/(high_n-low_n)), smoothK)
d = sma(k, smoothD)
plot(k/10, color=green)
plot(d/10, color=red)
h0 = hline(7.5)
h1 = hline(2.5)
Disclaimer
The information and publications are not meant to be, and do not constitute, financial, investment, trading, or other types of advice or recommendations supplied or endorsed by TradingView. Read more in the Terms of Use.