Supertrend Channels [LuxAlgo] For ThinkOrSwim

[Gmoyano81]

Someone could help me out to transform the Tradingview Supertrend Channels [LuxAlgo] to thinkorswim?

 

[samer800]

Someone could help me out to transform this tradingview pinescript to thinkorswim?

// This work is licensed under a Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0) https://creativecommons.org/licenses/by-nc-sa/4.0/
// © LuxAlgo
//@version=5
indicator("Supertrend Channels [LuxAlgo]",overlay=true,max_lines_count=500)
length = input(14)
mult = input(2)
//------------------------------------------------------------------------------
upper = 0.,lower = 0.,os = 0,max = 0.,min = 0.
src = close
atr = ta.atr(length)*mult
up = hl2 + atr
dn = hl2 - atr
upper := src[1] < upper[1] ? math.min(up,upper[1]) : up
lower := src[1] > lower[1] ? math.max(dn,lower[1]) : dn
os := src > upper ? 1 : src < lower ? 0 : os[1]
spt = os == 1 ? lower : upper
max := ta.cross(src,spt) ? nz(math.max(max[1],src),src) :
os == 1 ? math.max(src,max[1]) :
math.min(spt,max[1])
min := ta.cross(src,spt) ? nz(math.min(min[1],src),src) :
os == 0 ? math.min(src,min[1]) :
math.max(spt,min[1])
avg = math.avg(max,min)
//------------------------------------------------------------------------------
var area_up_col = color.new(#0cb51a,80)
var area_dn_col = color.new(#ff1100,80)
plot0 = plot(max,'Upper Channel'
,max != max[1] and os == 1 ? na : #0cb51a)
plot1 = plot(avg,'Average'
,#ff5d00)
plot2 = plot(min,'Lower Channel'
,min != min[1] and os == 0 ? na : #ff1100)
fill(plot0,plot1,area_up_col,'Upper Area')
fill(plot1,plot2,area_dn_col,'Lower Area')

try this. I added Bollinger trend as well.

#/ This work is licensed under a Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0) https://creativecommons.org/licenses/by-nc-sa/4.0/
#// © LuxAlgo
#indicator("Supertrend Channels [LuxAlgo]",overlay=true,max_lines_count=500)
# Converted and mod by Sam4Cok@Samer800        - 05/2023
input ShowSupertrendChannel = yes;
input CalcMethod = {default "ATR Trend", "Bollinger Trend"};
input length = 14;
input mult   = 2;
input src = close;

def na = Double.NaN;
def atrTrend = CalcMethod == CalcMethod."ATR Trend";
#---color
DefineGlobalColor("Blue" , CreateColor(33, 150, 243));
DefineGlobalColor("up", CreateColor(76, 175, 80));
DefineGlobalColor("dn", CreateColor(255, 82, 82));

    def upperBand;
    def lowerBand;
    def nATR = ATR(LENGTH = length) * mult;
    def bbup = Average(high, length) + StDev(high, length) * mult;
    def bbdn = Average(low, length)  - StDev(low, length) * mult;
    def atrup = hl2 + nATR;
    def atrdn = hl2 - nATR;
    def up = if atrTrend then atrup else bbup;
    def dn = if atrTrend then atrdn else bbdn;
    def up1 = if (IsNaN(upperBand[1]) or upperBand[1] == 0) then up else upperBand[1];
    def dn1 = if (IsNaN(lowerBand[1]) or lowerBand[1] == 0) then dn else lowerBand[1];
        upperBand = if src[1] < up1 then min(up,up1) else up;
        lowerBand = if src[1] > dn1 then max(dn,dn1) else dn;

#-- ST
def max; def min;
def upper  = upperBand;
def lower  = lowerBand;

def os  = if src > upper then 1 else if src < lower then 0 else os[1];
def spt = if os == 1 then lower else upper;
def cross = (src>spt and src[1]<=spt[1]) or (src<spt and src[1]>=spt[1]);
def max1 = if (IsNaN(max[1]) or max[1]==0) then src else max[1];
def min1 = if (IsNaN(min[1]) or min[1]==0) then src else min[1];
    max = if cross then max(max1,src) else
                   if os == 1 then max(src,max1) else min(spt, max1);
    min = if cross then min(min1,src) else
                   if os == 0 then min(src, min1) else max(spt,min1);
def avg = (max + min) / 2;
def col = if avg>avg[1] and src>avg then 1 else
          if avg<avg[1] and src<avg then -1 else 0;

#//------------------------------------------------------------------------------

plot UpperChannel = if max != max[1] and os == 1 or !ShowSupertrendChannel then na else max;    # 'Upper Channel'
plot AvgChannel   = avg;                                              # 'Average' ,#ff5d00)
plot LowerCahnel = if min != min[1] and os == 0 or !ShowSupertrendChannel then na else min;     # 'Lower Channel'

UpperChannel.SetDefaultColor(GlobalColor("up"));
LowerCahnel.SetDefaultColor(GlobalColor("dn"));
AvgChannel.AssignValueColor(if col > 0 then GlobalColor("up") else
                            if col < 0 then GlobalColor("dn") else Color.DARK_GRAY);

#-- Cloud
AddCloud(UpperChannel,AvgChannel, Color.DARK_GREEN); # 'Upper Area'
AddCloud(AvgChannel,LowerCahnel, Color.DARK_RED);    # 'Lower Area'

#-- END of CODE

 

[MarginMoses]

I know I'm a bit late to the party here but I've found this to be a really useful indicator.

Any chance this can be translated into MTF @samer800? I gave it a shot but my ThinkScript-fu needs work (obviously).

 

[samer800]

I know I'm a bit late to the party here but I've found this to be a really useful indicator.

Any chance this can be translated into MTF @samer800? I gave it a shot but my ThinkScript-fu needs work (obviously).

check the below

#/ This work is licensed under a Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0) https://creativecommons.org/licenses/by-nc-sa/4.0/
#// © LuxAlgo
#indicator("Supertrend Channels [LuxAlgo]",overlay=true,max_lines_count=500)
# Converted and mod by Sam4Cok@Samer800        - 05/2023
# Updated - Added MTF option - 09/2023
input ShowSupertrendChannel = yes;
input CalcMethod = {default "ATR Trend", "Bollinger Trend"};
input length = 14;
input mult   = 2;
input src = close;
input useChartTimeframe =  {default"Yes", "No"};
input manualTimeframe   = AggregationPeriod.FIFTEEN_MIN;

def MTFc = close(Period=manualTimeframe);
def MTFh = high(Period=manualTimeframe);
def MTFl = low(Period=manualTimeframe);
def MTFhl = hl2(Period=manualTimeframe);
#-- MTF
def c; def h; def l; def hl;
Switch (useChartTimeframe) {
case "Yes" :
    c = src;
    h = high;
    l = low;
    hl = hl2;
case "No"  :
    c = MTFc;
    h = MTFh;
    l = MTFl;
    hl = MTFhl;
}

def na = Double.NaN;
def atrTrend = CalcMethod == CalcMethod."ATR Trend";
#---color
DefineGlobalColor("Blue" , CreateColor(33, 150, 243));
DefineGlobalColor("up", CreateColor(76, 175, 80));
DefineGlobalColor("dn", CreateColor(255, 82, 82));

    def upperBand;
    def lowerBand;
    def tr = TrueRange(h, c, l);
    def nATR = WildersAverage(tr, length) * mult;
    def bbup = Average(h, length) + StDev(h, length) * mult;
    def bbdn = Average(l, length)  - StDev(l, length) * mult;
    def atrup = hl + nATR;
    def atrdn = hl - nATR;
    def up = if atrTrend then atrup else bbup;
    def dn = if atrTrend then atrdn else bbdn;
    def up1 = if (IsNaN(upperBand[1]) or upperBand[1] == 0) then up else upperBand[1];
    def dn1 = if (IsNaN(lowerBand[1]) or lowerBand[1] == 0) then dn else lowerBand[1];
        upperBand = if c[1] < up1 then min(up,up1) else up;
        lowerBand = if c[1] > dn1 then max(dn,dn1) else dn;

#-- ST
def max; def min;
def upper  = upperBand;
def lower  = lowerBand;

def os  = if c > upper then 1 else if c < lower then 0 else os[1];
def spt = if os == 1 then lower else upper;
def cross = (c>spt and c[1]<=spt[1]) or (c<spt and c[1]>=spt[1]);
def max1 = if (IsNaN(max[1]) or max[1]==0) then c else max[1];
def min1 = if (IsNaN(min[1]) or min[1]==0) then c else min[1];
    max = if cross then max(max1,c) else
                   if os == 1 then max(c,max1) else min(spt, max1);
    min = if cross then min(min1,c) else
                   if os == 0 then min(c, min1) else max(spt,min1);
def avg = (max + min) / 2;
def col = if avg>avg[1] and c>avg then 1 else
          if avg<avg[1] and c<avg then -1 else 0;

#//---------------------------------------------

plot UpperChannel = if max != max[1] and os == 1 or !ShowSupertrendChannel then na else max;
plot AvgChannel   = avg;  # 'Average'
plot LowerCahnel = if min != min[1] and os == 0 or !ShowSupertrendChannel then na else min;

UpperChannel.SetDefaultColor(GlobalColor("up"));
LowerCahnel.SetDefaultColor(GlobalColor("dn"));
AvgChannel.AssignValueColor(if col > 0 then GlobalColor("up") else
                            if col < 0 then GlobalColor("dn") else Color.DARK_GRAY);

#-- Cloud
AddCloud(UpperChannel,AvgChannel, Color.DARK_GREEN); # 'Upper Area'
AddCloud(AvgChannel,LowerCahnel, Color.DARK_RED);    # 'Lower Area'

#-- END of CODE

 

[MarginMoses]

Thank you @samer800... you are truly a god. I'll also go through and compare to the non MTF version to see what magic you made here get a bit better at this.

I did want to mention (in the case it might help you or someone else) that the study's plots will disappear (although the clouds will remain) when I add any new studies or edit any other studies currently displayed on that chart. And they will eventually "re-print" when I select a different ticker from my watchlist.

Does this happen on your end as well? Is there any way to optimize the script (or my system) so it doesn't "un-paint" when I edit other studies?

In any case, this is a great script and I really appreciate you taking the time to help out. It's much appreciated!