ATR_RSRL indicator For ThinkorSwim

[borntostun]

Hi all. Here's an indicator that I've used in Tradingview (pinescript) for a while. I'm wondering if it's possible to get this transformed into thinkscript. Thanks!

//@version=2
study(title = "ATR_RSRL", shorttitle = "ATR_RSRL",overlay=true)
length = input(14, minval=1)
src = input(close, title="Source")
mult = input(2.0, minval=0.001, maxval=50)
maLen=input(7,title="maLength")
basis = sma(src, length)
dev = mult * atr(length)
upper = basis + dev
lower = basis - dev
bbr = (src - lower)/(upper - lower)
bbe= ema(bbr,maLen)
up =  bbe[1]>bbe and bbe[2]<bbe[1]?bbe:na
bt =  bbe[1]<bbe and bbe[2]>bbe[1]?bbe:na

topH=na(up)==0?highest(3):na
bottomL=na(bt)==0?lowest(3):na

tf= fixnan(topH)
bf =fixnan(bottomL)

btop=close>open?close:open
bbot=close>open?open:close

plot(tf,color=red,style=circles,linewidth=1,offset=-1)
plot(bf,color=green,style=circles,linewidth=1,offset=-1)

https://www.tradingview.com/script/49jj3DMZ-ATR-RSRL/

 

[diazlaz]

thanks for your suggestion, very nice - it's simple and effective. here you go @borntostun. please share how you use it and if anyone has any good enhancements please share it back with the community.

Original

Port

Code:

#ATR_RSRL indicator to ThinkorSwim
#
#CREDITS
# tongue1
# https://www.tradingview.com/script/49jj3DMZ-ATR-RSRL/
#
#CHANGELOG
# 2019.12.10 1.0 @diazlaz - Initial Port/Interperation
#
#REQUEST
# @borntostun
#
#

declare upper;

#INPUTS
input length = 14;
input mult = 2.0;
input maLen = 7;
input showLabels = yes;

#LOGIC
def src = close;
def basis = Average(src, length);
def dev = mult * atr(length);
def upper = basis + dev;
def lower = basis - dev;
def bbr = (src - lower)/(upper - lower);
def bbe = expAverage(bbr, maLen);

def na = Double.NaN;
def up =  if bbe[1] > bbe and bbe[2] < bbe[1] then bbe else 0;
def bt =  if bbe[1] < bbe and bbe[2] > bbe[1] then bbe else 0;

def topH = if up != 0 then highest(high, 3) else topH[1];
def bottomL = if bt != 0 then lowest(low, 3) else bottomL[1];

def btop = if close > open then close else open;
def bbot = if close > open then open else close;

#PLOTS
plot pTF = topH;
pTF.SetPaintingStrategy(paintingStrategy = PaintingStrategy.DASHES);
pTF.SetDefaultColor(COLOR.RED);

plot pBF = bottomL;
pBF.SetPaintingStrategy(paintingStrategy = PaintingStrategy.DASHES);
pBF.SetDefaultColor(COLOR.GREEN);

#LABELS
AddLabel(showLabels, "ATR_RSRL->", COLOR.CYAN);
AddLabel(showLabels, "Top: " + AsDollars(pTF), COLOR.PINK);
AddLabel(showLabels, "Bottom: " + AsDollars(pBF), COLOR.GREEN);