Supertrend Indicator by Mobius for ThinkorSwim
- Thread starter BenTen
- Start date
-
- Tags
- trend unanswered
lostmarxbro
New member
megahead34
New member
I was able to get the original supertrend code and scanner in TOS fine, thank you!! The scanner outputs thousands of stocks, so had to add a few more filters to my liking.
How do I get this supertrend study in the TOS mobile app? It just plots a supertrend line without the buy/sell signals and it can't really be configured. Take a look at the attached screenshot. The blue is the 200 EMA.
I loaded this shared scan, is it supposed to show stocks that just triggered a buy or sell signal? It is showing stocks that had a signal from many days ago (take a look at the screenshot I just got right now).
How do I get this supertrend study in the TOS mobile app? It just plots a supertrend line without the buy/sell signals and it can't really be configured. Take a look at the attached screenshot. The blue is the 200 EMA.
I loaded this shared scan, is it supposed to show stocks that just triggered a buy or sell signal? It is showing stocks that had a signal from many days ago (take a look at the screenshot I just got right now).
Attachments
#/ This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
#// © wielkieef
#study("Smart SuperTrend", overlay = true)
# Converted by Sam4Cok@samer800 - 01/2023
#//INPUTS
input BarColor = no;
input CloudLines = yes;
input src = hl2;
input ppPeriod = 2; # "PP period"
input atrFactor = 3; # "ATR Factor"
input atrPeriod = 10; # "ATR Period"
input CloudLength = 12; # "Cloud Length"
input ADX_options = {default CLASSIC, MASANAKAMURA}; # "ADX OPTION"
input adxLenght = 14;# "ADX Lenght"
input adxThreshold = 20;# "ADX Treshold"
input closeBars = 2; # Closed bars that have to exceed the ST value before the trend reversal is confirmed
#//INDICATORS
def na = Double.NaN;
def bar = BarNumber();
def h = high;
def l = low;
def c = close;
def adxOps = ADX_options == ADX_options.CLASSIC;
script nz {
input data = close;
input rep = 0;
def repl = rep;
def ret_val = if (isNaN(data) or !data) then repl else data;
plot return = ret_val;
}
script fixnan {
input source = close;
def fix = if !IsNaN(source) then source else fix[1];
plot result = fix;
}
script FindPivots {
input dat = close; # default data or study being evaluated
input HL = 0; # default high or low pivot designation, -1 low, +1 high
input lbL = 5; # default Pivot Lookback Left
input lbR = 1; # default Pivot Lookback Right
##############
def _nan; # used for non-number returns
def _BN; # the current barnumber
def _VStop; # confirms that the lookforward period continues the pivot trend
def _V; # the Value at the actual pivot point
##############
_BN = BarNumber();
_nan = Double.NaN;
_VStop = if !IsNaN(dat) and lbR > 0 and lbL > 0 then
fold a = 1 to lbR + 1 with b=1 while b do
if HL > 0 then dat > GetValue(dat, -a) else dat < GetValue(dat, -a) else _nan;
if (HL > 0) {
_V = if _BN > lbL and dat == Highest(dat, lbL + 1) and _VStop
then dat else _nan;
} else {
_V = if _BN > lbL and dat == Lowest(dat, lbL + 1) and _VStop
then dat else _nan;
}
plot result = if !IsNaN(_V) and _VStop then _V else _nan;
}
#calcADX(_len) =>
script calcADX {
input _len = 10;
def na = Double.NaN;
def tr = TrueRange(high, close, low);
def up = (high - high[1]);
def down = -(low - low[1]);
def plusDM = if IsNaN(up) then na else (if up > down and up > 0 then up else 0);
def minusDM = if IsNaN(down) then na else (if down > up and down > 0 then down else 0);
def truerange = WildersAverage(tr, _len);
def _plus = fixnan(100 * WildersAverage(plusDM, _len) / truerange);
def _minus = fixnan(100 * WildersAverage(minusDM, _len) / truerange);
def sum = _plus + _minus;
def _adx = 100 * WildersAverage(AbsValue(_plus - _minus) / (if sum == 0 then 1 else sum), _len);
plot plus = _plus;
plot minus = _minus;
plot adx = _adx;
}
#calcADX_Masanakamura(_len) =>
script calcADX_Masanakamura {
input _len = 10;
def SmoothedTrueRange;
def SmoothedDirectionalMovementPlus;
def SmoothedDirectionalMovementMinus;
def tr = TrueRange(high, close, low);
def DirectionalMovementPlus = if (high - high[1]) > (low[1] - low) then Max((high - high[1]), 0) else 0;
def DirectionalMovementMinus = if (low[1] - low) > (high - high[1]) then Max((low[1] - low), 0) else 0;
SmoothedTrueRange = nz(SmoothedTrueRange[1]) - (nz(SmoothedTrueRange[1]) / _len) + tr;
SmoothedDirectionalMovementPlus = nz(SmoothedDirectionalMovementPlus[1]) - (nz(SmoothedDirectionalMovementPlus[1])
/ _len) + DirectionalMovementPlus;
SmoothedDirectionalMovementMinus = nz(SmoothedDirectionalMovementMinus[1]) - (nz(SmoothedDirectionalMovementMinus[1])
/ _len) + DirectionalMovementMinus;
def DP = SmoothedDirectionalMovementPlus / SmoothedTrueRange * 100;
def DM = SmoothedDirectionalMovementMinus / SmoothedTrueRange * 100;
def DX = AbsValue(DP - DM) / (DP + DM) * 100;
def AX = SimpleMovingAvg(DX, _len);
plot DIP = DP;
plot DIM = DM;
plot ADX = AX;
}
#computeAlpha(src, fastLimit, slowLimit) =>
script computeAlpha {
input src = close;
input fastLimit = 0.5;
input slowLimit = 0.05;
def PI = 2 * ASin(1);
def Period;
def detrender;
def smooth;
def I2;
def Q2;
def phase;
def mesaPeriodMult = 0.075 * nz(Period[2], Period[1]) + 0.54;
# // Calc
smooth = (4 * src + 3 * nz(src[1], src) + 2 * nz(src[2], src) + nz(src[3], src)) / 10;
detrender = (0.0962 * smooth + 0.5769 * nz(smooth[2], smooth) - 0.5769 * nz(smooth[4], smooth) -
0.0962 * nz(smooth[6], smooth)) * (0.075 * nz(Period[1]) + 0.54);
# // Compute InPhase and Quadrature components
def I1 = nz(detrender[3], detrender);
def Q1 = (0.0962 * detrender + 0.5769 * nz(detrender[2], detrender) - 0.5769 * nz(detrender[4], detrender) -
0.0962 * nz(detrender[6], detrender)) * (.075 * nz(Period[1], detrender) + 0.54);
# // Advance the phase of I1 and Q1 by 90 degrees
def jI = (.0962 * I1 + .5769 * nz(I1[2], I1) - .5769 * nz(I1[4], I1) - .0962 * nz(I1[6], I1)) * (.075 * nz(Period[1]) + 0.54);
def jQ = (.0962 * Q1 + .5769 * nz(Q1[2], Q1) - .5769 * nz(Q1[4], Q1) - .0962 * nz(Q1[6], Q1)) * (.075 * nz(Period[1]) + 0.54);
# // Phasor addition for 3 bar averaging
def I22 = I1 - jQ;
def Q22 = Q1 + jI;
# // Smooth the I and Q components before applying the discriminator
I2 = if IsNaN(I2[1]) then I22 else 0.2 * I2[1] + 0.8 * nz(I2[2], I2[1]);
Q2 = if IsNaN(Q2[1]) then Q22 else 0.2 * Q2[1] + 0.8 * nz(Q2[2], Q2[1]);
# // Homodyne Discriminator
def Re1 = I2 * nz(I2[1], I2) + Q2 * nz(Q2[1], Q2);
def Im1 = I2 * nz(Q2[1], Q2) - Q2 * nz(I2[1], I2);
def Re = if IsNaN(Re[1]) then Re1 else 0.2 * Re[1] + 0.8 * nz(Re[2], Re[1]);
def Im = if IsNaN(Im[1]) then Im1 else 0.2 * Im[1] + 0.8 * nz(Im[2], Im[1]);
#def mesaPeriod1;
if Re != 0 and Im != 0 {
Period = 2 * PI / ATan(Im / Re);
} else {
if Period[1] <= 1.5 * nz(Period[2], Period[1]) {
Period = Period[1];
} else {
if Period[1] >= 0.67 * nz(Period[2], Period[1]) {
Period = Period[1];
} else
if Max(Period[1], 6) < 50 {
Period = Max(Period[1], 6);
} else {
Period = 0.2 * Period[1] + 0.8 * nz(Period[2], Period[1]);
;
}
}
}
phase = if I1 != 0 then (180 / PI) * ATan(Q1 / I1) else phase[1];
def deltaPhase = nz(phase[1]) - phase;
def alpha1 = fastLimit / If(deltaPhase < 1, 1, deltaPhase);
def alpha = If(alpha1 < slowLimit, slowLimit, alpha1);
plot MAMA = alpha;
plot FAMA = alpha / 2;
}
def er = AbsValue(src - nz(src[CloudLength], src[1])) / Sum(AbsValue(src - src[1]), CloudLength);
def a = computeAlpha(src, er, er * 0.1).MAMA;
def b = computeAlpha(src, er, er * 0.1).FAMA;
def mama;
def fama;
def kama;
mama = a * src + (1 - a) * nz(mama[1], ExpAverage(src, CloudLength)[1]);
fama = b * mama + (1 - b) * nz(fama[1], ExpAverage(src, CloudLength)[1]);
def alpha = Power((er * (b - a)) + a, 2);
kama = alpha * src + (1 - alpha) * nz(kama[1]);
def L_cloud = kama > kama[1];
def S_cloud = kama < kama[1];
def n_cloud = kama == kama[1];
def CLOUD_COLOR = if L_cloud then 1 else if S_cloud then -1 else 0;
def mama_p = if n_cloud then na else mama;
def fama_p = if n_cloud then na else fama;
AddCloud(mama_p, fama_p, CreateColor(41, 98, 255), CreateColor(156, 39, 176), CloudLines);
#---//PRICE POSITION
def ph = if bar > ppPeriod then findpivots(h, 1, ppPeriod, ppPeriod) else Highest(h, ppPeriod);
def pl = if bar > ppPeriod then findpivots(l, -1, ppPeriod, ppPeriod) else Lowest(l, ppPeriod);
def lastpp = if !IsNaN(ph) then ph else if !IsNaN(pl) then pl else na;
#// calculate the Center line using pivot points
def center;
if (lastpp) {
if IsNaN(center[1]) {
center = lastpp;
} else {
center = (center[1] * 2 + lastpp) / 3;
}
} else {
center = center[1];
}
def nATR = ATR(LENGTH = atrPeriod);
def Up = center - (atrFactor * nATR);
def Dn = center + (atrFactor * nATR);
def TUp;
def TDown;
def Trend;
TUp = if close[1] > TUp[1] then Max(Up, TUp[1]) else Up;
TDown = if close[1] < TDown[1] then Min(Dn, TDown[1]) else Dn;
Trend = if close > TDown[1] then 1 else if close < TUp[1] then -1 else nz(Trend[1], 1);
def Trailingsl = if Trend == 1 then TUp else TDown;
#def Trailingsl = if trend == 1 then lastUp else lastDn;
#---ADX
def DIPlusC = calcADX(adxLenght).plus;
def DIMinusC = calcADX(adxLenght).Minus;
def ADXC = calcADX(adxLenght).ADX;
def DIPlusM = calcADX_Masanakamura(adxLenght).DIP;
def DIMinusM = calcADX_Masanakamura(adxLenght).DIM;
def ADXM = calcADX_Masanakamura(adxLenght).ADX;
def DIPlus = if adxOps then DIPlusC else DIPlusM;
def DIMinus = if adxOps then DIMinusC else DIMinusM;
def ADX = if adxOps then ADXC else ADXM;
def L_adx = DIPlus > DIMinus and ADX > adxThreshold;
def S_adx = DIPlus < DIMinus and ADX > adxThreshold;
#------
def bsignal = Trend == 1 and Trend[1] == -1;
def ssignal = Trend == -1 and Trend[1] == 1;
def first_long = if bsignal and !S_cloud then Trailingsl else na;
def first_short = if ssignal and !L_cloud then Trailingsl else na;
def second_long = L_cloud and L_adx and Trend == 1;
def second_short = S_cloud and S_adx and Trend == -1;
def Long = second_long or first_long;
def Short = second_short or first_short;
def long_short;
def long_last = Long and (nz(long_short[1]) == 0 or nz(long_short[1]) == -1);
def short_last = Short and (nz(long_short[1]) == 0 or nz(long_short[1]) == 1);
long_short = if long_last then 1 else if short_last then -1 else long_short[1];
def last_long_cond = Long and long_last;
def last_short_cond = Short and short_last;
def Long_plot = if bsignal and !S_cloud then Trailingsl else na or if last_long_cond then Trailingsl else na;
def Short_plot = if ssignal and !L_cloud then Trailingsl else na or if last_short_cond then Trailingsl else na;
def Long_stop = if ssignal and L_cloud then Trailingsl else na;
def Short_stop = if bsignal and S_cloud then Trailingsl else na;
#// ----Plots-
plot SmartSTup = if Trend == 1 then Trailingsl else na;#, color = CLOUD_COLOR , linewidth = 1, title = "PP line")
SmartSTup.SetDefaultColor(Color.GREEN);
plot SmartSTdn = if Trend == 1 then na else Trailingsl;#, color = CLOUD_COLOR , linewidth = 1, title = "PP line")
SmartSTdn.SetDefaultColor(Color.RED);
AddChartBubble(Long_plot, low, "Long", Color.GREEN, no);
AddChartBubble(Short_plot, high, "Short", Color.RED, yes);
plot LongExit = Long_stop;
LongExit.SetPaintingStrategy(PaintingStrategy.BOOLEAN_WEDGE_DOWN);
LongExit.SetDefaultColor(Color.CYAN);
LongExit.SetLineWeight(3);
plot ShortExit = Short_stop;
ShortExit.SetPaintingStrategy(PaintingStrategy.BOOLEAN_WEDGE_UP);
ShortExit.SetDefaultColor(Color.MAGENTA);
ShortExit.SetLineWeight(3);
#-------barcolor
AssignPriceColor(if !BarColor then Color.CURRENT else
if CLOUD_COLOR > 0 then Color.GREEN else if CLOUD_COLOR<0 then Color.RED else Color.GRAY);
#--- END CODE
This one has arrows:
#Special Thanks to Morbius who created original super trend indicator. This is a spin off of his work. All credits go to him. This software is free.
#CREATED 09/12/2020
input AtrMult = 0.7;
input nATR = 4;
input AvgType = AverageType.HULL;
input PaintBars = yes;
def ATR = MovingAverage(AvgType, TrueRange(high, close, low), nATR);
def UP = HL2 + (AtrMult * ATR);
def DN = HL2 + (-AtrMult * ATR);
def ST = if close < ST[1] then UP else DN;
plot SuperTrend = ST;
SuperTrend.AssignValueColor(if close < ST then Color.GREEN else color.RED);
AssignPriceColor(if PaintBars and close < ST
then Color.RED
else if PaintBars and close > ST
then Color.GREEN
else Color.CURRENT);
#AddChartBubble(close crosses below ST, low[1], low[1], #color.Dark_Gray);
#AddChartBubble(close crosses above ST, high[1], high[1], #color.Dark_Gray, no);
# End Code SuperTrend# Mobius
# SuperTrend
# Chat Room Request
plot SuperTrendUp = close crosses above ST;
plot SuperTrendDown = close crosses below ST;
SuperTrend.AssignValueColor(if close < ST then Color.RED else Color.GREEN);
SuperTrendUp.SetDefaultColor(Color.YELLOW);
SuperTrendUp.setPaintingStrategy(PaintingStrategy.BOOLEAN_ARROW_UP);
SuperTrendDown.SetDefaultColor(Color.PINK);
SuperTrendDown.setPaintingStrategy(PaintingStrategy.BOOLEAN_ARROW_DOWN);
def bullish = close crosses below ST;
def bearish = close crosses above ST;
# Alerts
Alert(bullish, " ", Alert.Bar, Sound.Chimes);
Alert(bearish, " ", Alert.Bar, Sound.Bell);
#ProjectionPivots_v03_JQ
#03.04.2019
#Original Code and Concept by Mobius:
# V01.08.2012 Projection Pivots
# mobius
# Notes:
# 03.04.2019 added linits on extensions
# 03.05.2019 adjusted limits on extensions by adding user input upper and lower extenion percent limits
#declare Once_Per_Bar;
#Inputs
input n = 21;
input showLines = yes;
input showValues = no;
input showBarNumbers = no;
input ExtensionLengthBars = 20; # added to control length of Entension
input UpperExtensionPercentLimit = 5;
input LowerExtensionPercentLimit = 5;
input DisplayLabel = yes; #JQ 7.8.2018 added
addlabel (DisplayLabel, "Projection Pivots n:" + n + " " , color.WHITE); #JQ 7.8.2018 added
# Universal Header _v030429019 _JQ
# code from various sources including Mobius, NoLongerNube and others
# Comment out unnecessary portions to preserve tos memory and enhance speed
# Universal Definitions using Padawan variable naming convention (JQ) v03.04.2019
# iData Definitions
def vHigh = high; # creates the variable vHigh. Use of the variable reduce data calls to tos iData server
# def initHigh = CompoundValue(1, high, high); # creates and initialized variable for High
def vLow = low;
# def initLow = CompoundValue(1, low, low);
def vOpen = open;
# def initOpen = CompoundValue(1, open, open);
def vClose = close;
# def initClose = CompoundValue(1, close, close);
def vVolume = volume;
# def initVolume = CompoundValue(1, volume, volume);
def nan = Double.NaN;
# Bar Time & Date
def bn = BarNumber();
def currentBar = HighestAll(if !IsNaN(vHigh) then bn else nan);
# def Today = GetDay() ==GetLastDay();
# def time = GetTime();
# def GlobeX = GetTime() < RegularTradingStart(GetYYYYMMDD());
# def globeX_v2 = if time crosses below RegularTradingEnd(GetYYYYMMDD()) then bn else GlobeX[1];
# def RTS = RegularTradingStart(GetYYYYMMDD());
# def RTE = RegularTradingEnd(GetYYYYMMDD());
# def RTH = GetTime() > RegularTradingStart(GetYYYYMMDD());
# def RTH_v2 = if time crosses above RegularTradingStart(GetYYYYMMDD()) then bn else RTH[1];
# bars that start and end the sessions #(borrowed from nube)
# def rthStartBar = CompoundValue(1,
# if !IsNaN(vClose)
# && time crosses above RegularTradingStart(GetYYYYMMDD())
# then bn
# else rthStartBar[1], 0);
# def rthEndBar = CompoundValue(1,
# if !IsNaN(vClose)
# && time crosses above RegularTradingEnd(GetYYYYMMDD())
# then bn
# else rthEndBar[1], 1);
# def globexStartBar = CompoundValue(1,
# if !IsNaN(vClose)
# && time crosses below RegularTradingEnd(GetYYYYMMDD())
# then bn
# else globexStartBar[1], 1);
# def rthSession = if bn crosses above rthStartBar #+ barsExtendedBeyondSession
# then 1
# else if bn crosses above rthEndBar #+ barsExtendedBeyondSession
# then 0
# else rthSession[1];
# Bubble Locations
def x_AxisLastExpansionBar = BarNumber() == HighestAll(BarNumber()); #corrected 11.12.2018 (JQ)
# syntax: addChartBubble(x_AxisLastExpansionBar, y-axis coordinate," text", Color.LIME); #verified 12.25.2018 (JQ)
def PH;
def PL;
def hh = fold i = 1 to n + 1
with p = 1
while p
do vHigh > getValue(vHigh, -i);
PH = if (bn > n and
vHigh == highest(vHigh, n) and
hh)
then vHigh
else double.NaN;
def ll = fold j = 1 to n + 1
with q = 1
while q
do vLow < getValue(low, -j);
PL = if (bn > n and
vLow == lowest(vLow, n) and
ll)
then vLow
else double.NaN;
def PHBar = if !isNaN(PH)
then bn
else PHBar[1];
def PLBar = if !isNaN(PL)
then bn
else PLBar[1];
def PHL = if !isNaN(PH)
then PH
else PHL[1];
def priorPHBar = if PHL != PHL[1]
then PHBar[1]
else priorPHBar[1];
def PLL = if !isNaN(PL)
then PL
else PLL[1];
def priorPLBar = if PLL != PLL[1]
then PLBar[1]
else priorPLBar[1];
def HighPivots = bn >= highestAll(priorPHBar);
def LowPivots = bn >= highestAll(priorPLBar);
def FirstRpoint = if HighPivots
then bn - PHBar
else 0;
def PriorRpoint = if HighPivots
then bn - PriorPHBar
else 0;
def RSlope = (getvalue(PH, FirstRpoint) - getvalue(PH, PriorRpoint))
/ (PHBar - PriorPHBar);
def FirstSpoint = if LowPivots
then bn - PLBar
else 0;
def PriorSpoint = if LowPivots
then bn - PriorPLBar
else 0;
def SSlope = (getvalue(PL, FirstSpoint) - getvalue(PL, PriorSpoint))
/ (PLBar - PriorPLBar);
def RExtend = if bn == highestall(PHBar)
then 1
else RExtend[1];
def SExtend = if bn == highestall(PLBar)
then 1
else SExtend[1];
plot pivotHigh = if HighPivots
then PH
else double.NaN;
pivotHigh.SetDefaultColor(GetColor(1));
pivotHigh.setPaintingStrategy(PaintingStrategy.VALUES_ABOVE);
pivotHigh.setHiding(!showValues);
plot pivotHighLine = if PHL > 0 and
HighPivots
then PHL
else double.NaN;
pivotHighLine.SetPaintingStrategy(PaintingStrategy.DASHES); # Mobius original was DASHES
pivotHighLine.setDefaultColor(color.uptick); #JQ 7.8.2018 added
pivotHighLine.setHiding(!showLines);
plot RLine = pivotHigh;
RLine.enableApproximation();
RLine.SetDefaultColor(Color.LIGHT_GRAY);
RLine.SetStyle(Curve.Short_DASH);
# Added code to limit resistance estension line (JQ 03.04.2019)
def calc_ResistanceExtension = if RExtend
then (bn - PHBar) * RSlope + PHL
else double.NaN;
plot line_ResistanceExtension = if bn <= (Currentbar + ExtensionLengthBars)
and calc_ResistanceExtension[1] >= (lowestall(vLow) * (1-(lowerExtensionPercentLimit/100)))
and calc_ResistanceExtension[1] <= (Highestall(vHigh) * (1 + (upperExtensionPercentLimit/100)))
then calc_ResistanceExtension else double.nan;
line_ResistanceExtension.SetStyle(Curve.Short_DASH);
line_ResistanceExtension.SetDefaultColor(color.LIGHT_GRAY); #was 7
line_ResistanceExtension.setLineWeight(1);
# Low Plots
plot pivotLow = if LowPivots
then PL
else double.NaN;
pivotLow.setDefaultColor(GetColor(4));
pivotLow.setPaintingStrategy(PaintingStrategy.VALUES_BELOW);
pivotLow.setHiding(!showValues);
plot pivotLowLine = if PLL > 0 and
LowPivots
then PLL
else double.NaN;
pivotLowLine.SetPaintingStrategy(PaintingStrategy.DASHES); # Mobius original was DASHES
pivotLowLine.setDefaultColor(color.DOWNTICK);# # JQ 7.8.2018 added
pivotLowLine.setHiding(!showLines);
plot SupportLine = pivotLow;
SupportLine.enableApproximation();
SupportLine.SetDefaultColor(color.LIGHT_GRAY);
SUpportLine.SetStyle(Curve.Short_DASH);
# Added code to limit support estension line (JQ 03.04.2019)
def calc_SupportExtension = if SExtend
then (bn - PLBar) * SSlope + PLL
else double.NaN;
plot line_SupportExtension = if bn <= (Currentbar + ExtensionLengthBars)
and calc_SupportExtension[1] >= (lowestall(vLow) * (1-(lowerExtensionPercentLimit/100)))
and calc_SupportExtension[1] <= (Highestall(vHigh) * (1 + (upperExtensionPercentLimit/100)))
then calc_supportExtension else double.nan;
line_SupportExtension.SetDefaultColor(color.LIGHT_GRAY); #was 7
line_SupportExtension.SetStyle(Curve.Short_DASH);
line_SupportExtension.setLineWeight(1);
plot BarNumbersBelow = bn;
BarNumbersBelow.SetDefaultColor(GetColor(0));
BarNumbersBelow.setHiding(!showBarNumbers);
BarNumbersBelow.SetPaintingStrategy(PaintingStrategy.VALUES_BELOW);
plot PivotDot = if !isNaN(pivotHigh)
then pivotHigh
else if !isNaN(pivotLow)
then pivotLow
else double.NaN;
pivotDot.SetDefaultColor(GetColor(7));
pivotDot.SetPaintingStrategy(PaintingStrategy.POINTS);
pivotDot.SetLineWeight(3);
##
# End Code
This was added/modified to the SuperTrend code Samer800 posted to provide arrows and make bubbles optionable.
Here is the full code
Code:#/ This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/ #// © wielkieef #study("Smart SuperTrend", overlay = true) # Converted by Sam4Cok@samer800 - 01/2023 #//INPUTS input BarColor = no; input CloudLines = yes; input src = hl2; input ppPeriod = 2; # "PP period" input atrFactor = 3; # "ATR Factor" input atrPeriod = 10; # "ATR Period" input CloudLength = 12; # "Cloud Length" input ADX_options = {default CLASSIC, MASANAKAMURA}; # "ADX OPTION" input adxLenght = 14;# "ADX Lenght" input adxThreshold = 20;# "ADX Treshold" input closeBars = 2; # Closed bars that have to exceed the ST value before the trend reversal is confirmed #//INDICATORS def na = Double.NaN; def bar = BarNumber(); def h = high; def l = low; def c = close; def adxOps = ADX_options == ADX_options.CLASSIC; script nz { input data = close; input rep = 0; def repl = rep; def ret_val = if (isNaN(data) or !data) then repl else data; plot return = ret_val; } script fixnan { input source = close; def fix = if !IsNaN(source) then source else fix[1]; plot result = fix; } script FindPivots { input dat = close; # default data or study being evaluated input HL = 0; # default high or low pivot designation, -1 low, +1 high input lbL = 5; # default Pivot Lookback Left input lbR = 1; # default Pivot Lookback Right ############## def _nan; # used for non-number returns def _BN; # the current barnumber def _VStop; # confirms that the lookforward period continues the pivot trend def _V; # the Value at the actual pivot point ############## _BN = BarNumber(); _nan = Double.NaN; _VStop = if !IsNaN(dat) and lbR > 0 and lbL > 0 then fold a = 1 to lbR + 1 with b=1 while b do if HL > 0 then dat > GetValue(dat, -a) else dat < GetValue(dat, -a) else _nan; if (HL > 0) { _V = if _BN > lbL and dat == Highest(dat, lbL + 1) and _VStop then dat else _nan; } else { _V = if _BN > lbL and dat == Lowest(dat, lbL + 1) and _VStop then dat else _nan; } plot result = if !IsNaN(_V) and _VStop then _V else _nan; } #calcADX(_len) => script calcADX { input _len = 10; def na = Double.NaN; def tr = TrueRange(high, close, low); def up = (high - high[1]); def down = -(low - low[1]); def plusDM = if IsNaN(up) then na else (if up > down and up > 0 then up else 0); def minusDM = if IsNaN(down) then na else (if down > up and down > 0 then down else 0); def truerange = WildersAverage(tr, _len); def _plus = fixnan(100 * WildersAverage(plusDM, _len) / truerange); def _minus = fixnan(100 * WildersAverage(minusDM, _len) / truerange); def sum = _plus + _minus; def _adx = 100 * WildersAverage(AbsValue(_plus - _minus) / (if sum == 0 then 1 else sum), _len); plot plus = _plus; plot minus = _minus; plot adx = _adx; } #calcADX_Masanakamura(_len) => script calcADX_Masanakamura { input _len = 10; def SmoothedTrueRange; def SmoothedDirectionalMovementPlus; def SmoothedDirectionalMovementMinus; def tr = TrueRange(high, close, low); def DirectionalMovementPlus = if (high - high[1]) > (low[1] - low) then Max((high - high[1]), 0) else 0; def DirectionalMovementMinus = if (low[1] - low) > (high - high[1]) then Max((low[1] - low), 0) else 0; SmoothedTrueRange = nz(SmoothedTrueRange[1]) - (nz(SmoothedTrueRange[1]) / _len) + tr; SmoothedDirectionalMovementPlus = nz(SmoothedDirectionalMovementPlus[1]) - (nz(SmoothedDirectionalMovementPlus[1]) / _len) + DirectionalMovementPlus; SmoothedDirectionalMovementMinus = nz(SmoothedDirectionalMovementMinus[1]) - (nz(SmoothedDirectionalMovementMinus[1]) / _len) + DirectionalMovementMinus; def DP = SmoothedDirectionalMovementPlus / SmoothedTrueRange * 100; def DM = SmoothedDirectionalMovementMinus / SmoothedTrueRange * 100; def DX = AbsValue(DP - DM) / (DP + DM) * 100; def AX = SimpleMovingAvg(DX, _len); plot DIP = DP; plot DIM = DM; plot ADX = AX; } #computeAlpha(src, fastLimit, slowLimit) => script computeAlpha { input src = close; input fastLimit = 0.5; input slowLimit = 0.05; def PI = 2 * ASin(1); def Period; def detrender; def smooth; def I2; def Q2; def phase; def mesaPeriodMult = 0.075 * nz(Period[2], Period[1]) + 0.54; # // Calc smooth = (4 * src + 3 * nz(src[1], src) + 2 * nz(src[2], src) + nz(src[3], src)) / 10; detrender = (0.0962 * smooth + 0.5769 * nz(smooth[2], smooth) - 0.5769 * nz(smooth[4], smooth) - 0.0962 * nz(smooth[6], smooth)) * (0.075 * nz(Period[1]) + 0.54); # // Compute InPhase and Quadrature components def I1 = nz(detrender[3], detrender); def Q1 = (0.0962 * detrender + 0.5769 * nz(detrender[2], detrender) - 0.5769 * nz(detrender[4], detrender) - 0.0962 * nz(detrender[6], detrender)) * (.075 * nz(Period[1], detrender) + 0.54); # // Advance the phase of I1 and Q1 by 90 degrees def jI = (.0962 * I1 + .5769 * nz(I1[2], I1) - .5769 * nz(I1[4], I1) - .0962 * nz(I1[6], I1)) * (.075 * nz(Period[1]) + 0.54); def jQ = (.0962 * Q1 + .5769 * nz(Q1[2], Q1) - .5769 * nz(Q1[4], Q1) - .0962 * nz(Q1[6], Q1)) * (.075 * nz(Period[1]) + 0.54); # // Phasor addition for 3 bar averaging def I22 = I1 - jQ; def Q22 = Q1 + jI; # // Smooth the I and Q components before applying the discriminator I2 = if IsNaN(I2[1]) then I22 else 0.2 * I2[1] + 0.8 * nz(I2[2], I2[1]); Q2 = if IsNaN(Q2[1]) then Q22 else 0.2 * Q2[1] + 0.8 * nz(Q2[2], Q2[1]); # // Homodyne Discriminator def Re1 = I2 * nz(I2[1], I2) + Q2 * nz(Q2[1], Q2); def Im1 = I2 * nz(Q2[1], Q2) - Q2 * nz(I2[1], I2); def Re = if IsNaN(Re[1]) then Re1 else 0.2 * Re[1] + 0.8 * nz(Re[2], Re[1]); def Im = if IsNaN(Im[1]) then Im1 else 0.2 * Im[1] + 0.8 * nz(Im[2], Im[1]); #def mesaPeriod1; if Re != 0 and Im != 0 { Period = 2 * PI / ATan(Im / Re); } else { if Period[1] <= 1.5 * nz(Period[2], Period[1]) { Period = Period[1]; } else { if Period[1] >= 0.67 * nz(Period[2], Period[1]) { Period = Period[1]; } else if Max(Period[1], 6) < 50 { Period = Max(Period[1], 6); } else { Period = 0.2 * Period[1] + 0.8 * nz(Period[2], Period[1]); ; } } } phase = if I1 != 0 then (180 / PI) * ATan(Q1 / I1) else phase[1]; def deltaPhase = nz(phase[1]) - phase; def alpha1 = fastLimit / If(deltaPhase < 1, 1, deltaPhase); def alpha = If(alpha1 < slowLimit, slowLimit, alpha1); plot MAMA = alpha; plot FAMA = alpha / 2; } def er = AbsValue(src - nz(src[CloudLength], src[1])) / Sum(AbsValue(src - src[1]), CloudLength); def a = computeAlpha(src, er, er * 0.1).MAMA; def b = computeAlpha(src, er, er * 0.1).FAMA; def mama; def fama; def kama; mama = a * src + (1 - a) * nz(mama[1], ExpAverage(src, CloudLength)[1]); fama = b * mama + (1 - b) * nz(fama[1], ExpAverage(src, CloudLength)[1]); def alpha = Power((er * (b - a)) + a, 2); kama = alpha * src + (1 - alpha) * nz(kama[1]); def L_cloud = kama > kama[1]; def S_cloud = kama < kama[1]; def n_cloud = kama == kama[1]; def CLOUD_COLOR = if L_cloud then 1 else if S_cloud then -1 else 0; def mama_p = if n_cloud then na else mama; def fama_p = if n_cloud then na else fama; AddCloud(mama_p, fama_p, CreateColor(41, 98, 255), CreateColor(156, 39, 176), CloudLines); #---//PRICE POSITION def ph = if bar > ppPeriod then findpivots(h, 1, ppPeriod, ppPeriod) else Highest(h, ppPeriod); def pl = if bar > ppPeriod then findpivots(l, -1, ppPeriod, ppPeriod) else Lowest(l, ppPeriod); def lastpp = if !IsNaN(ph) then ph else if !IsNaN(pl) then pl else na; #// calculate the Center line using pivot points def center; if (lastpp) { if IsNaN(center[1]) { center = lastpp; } else { center = (center[1] * 2 + lastpp) / 3; } } else { center = center[1]; } def nATR = ATR(LENGTH = atrPeriod); def Up = center - (atrFactor * nATR); def Dn = center + (atrFactor * nATR); def TUp; def TDown; def Trend; TUp = if close[1] > TUp[1] then Max(Up, TUp[1]) else Up; TDown = if close[1] < TDown[1] then Min(Dn, TDown[1]) else Dn; Trend = if close > TDown[1] then 1 else if close < TUp[1] then -1 else nz(Trend[1], 1); def Trailingsl = if Trend == 1 then TUp else TDown; #def Trailingsl = if trend == 1 then lastUp else lastDn; #---ADX def DIPlusC = calcADX(adxLenght).plus; def DIMinusC = calcADX(adxLenght).Minus; def ADXC = calcADX(adxLenght).ADX; def DIPlusM = calcADX_Masanakamura(adxLenght).DIP; def DIMinusM = calcADX_Masanakamura(adxLenght).DIM; def ADXM = calcADX_Masanakamura(adxLenght).ADX; def DIPlus = if adxOps then DIPlusC else DIPlusM; def DIMinus = if adxOps then DIMinusC else DIMinusM; def ADX = if adxOps then ADXC else ADXM; def L_adx = DIPlus > DIMinus and ADX > adxThreshold; def S_adx = DIPlus < DIMinus and ADX > adxThreshold; #------ def bsignal = Trend == 1 and Trend[1] == -1; def ssignal = Trend == -1 and Trend[1] == 1; def first_long = if bsignal and !S_cloud then Trailingsl else na; def first_short = if ssignal and !L_cloud then Trailingsl else na; def second_long = L_cloud and L_adx and Trend == 1; def second_short = S_cloud and S_adx and Trend == -1; def Long = second_long or first_long; def Short = second_short or first_short; def long_short; def long_last = Long and (nz(long_short[1]) == 0 or nz(long_short[1]) == -1); def short_last = Short and (nz(long_short[1]) == 0 or nz(long_short[1]) == 1); long_short = if long_last then 1 else if short_last then -1 else long_short[1]; def last_long_cond = Long and long_last; def last_short_cond = Short and short_last; def Long_plot = if bsignal and !S_cloud then Trailingsl else na or if last_long_cond then Trailingsl else na; def Short_plot = if ssignal and !L_cloud then Trailingsl else na or if last_short_cond then Trailingsl else na; def Long_stop = if ssignal and L_cloud then Trailingsl else na; def Short_stop = if bsignal and S_cloud then Trailingsl else na; #// ----Plots- plot SmartSTup = if Trend == 1 then Trailingsl else na;#, color = CLOUD_COLOR , linewidth = 1, title = "PP line") SmartSTup.SetDefaultColor(Color.GREEN); plot SmartSTdn = if Trend == 1 then na else Trailingsl;#, color = CLOUD_COLOR , linewidth = 1, title = "PP line") SmartSTdn.SetDefaultColor(Color.RED); ########## Arrow addition; Bubble Controller 20240104 input showarrows = yes; input lineweight = 4; plot longarrow = if !showarrows then double.nan else Long_plot; longarrow.setpaintingStrategy(paintingStrategy.BOOLEAN_ARROW_UP); longarrow.setdefaultColor(color.green); longarrow.setlineWeight(lineweight); plot shortarrow = if !showarrows then double.nan else Short_plot; shortarrow.setpaintingStrategy(paintingStrategy.BOOLEAN_ARROW_DOWN); shortarrow.setdefaultColor(color.red); shortarrow.setlineWeight(lineweight); input showbubbles = no; AddChartBubble(showbubbles and Long_plot, low, "Long", Color.GREEN, no); AddChartBubble(showbubbles and Short_plot, high, "Short", Color.RED, yes); ######### plot LongExit = Long_stop; LongExit.SetPaintingStrategy(PaintingStrategy.BOOLEAN_WEDGE_DOWN); LongExit.SetDefaultColor(Color.CYAN); LongExit.SetLineWeight(3); plot ShortExit = Short_stop; ShortExit.SetPaintingStrategy(PaintingStrategy.BOOLEAN_WEDGE_UP); ShortExit.SetDefaultColor(Color.MAGENTA); ShortExit.SetLineWeight(3); #-------barcolor AssignPriceColor(if !BarColor then Color.CURRENT else if CLOUD_COLOR > 0 then Color.GREEN else if CLOUD_COLOR<0 then Color.RED else Color.GRAY); #--- END CODE
the scanner is amazing. thank you. im only getting buy signals though. how can i set the scanner to get sell signals also?
Last edited by a moderator:
spencepuppy
Member
Did anyone figure out the mobile version for this? The link at the top just takes you back to the same page. Is there an addition to the code that is needed?
The only working mobile Supertrend can be found:
https://usethinkscript.com/threads/supertrend-cci-atr-in-1-plot-for-mobile-for-thinkorswim.494/
Hi, I see many tickers, which one to choose and on what basis?
No indicator can be used in isolation.
Here is a thread for setting up your VIP Trending Chart Setup:
Add the supertrend to the above setup to identify high probability entry zones.
https://usethinkscript.com/threads/trending-trade-setups.18264/#post-145296
can you set an alert on think or swim for when you get a new buy or sell signal on the super trend indicator?
Join useThinkScript to post your question to a community of 21,000+ developers and traders.
| Thread starter | Similar threads | Forum | Replies | Date |
|---|---|---|---|---|
|
Archived: Supertrend Indicator by Mobius for ThinkorSwim | Indicators | 312 | |
|
|
SuperTrend and RSI Laguerre Indicator for ThinkorSwim | Indicators | 35 | |
| S | Smart Supertrend For ThinkOrSwim | Indicators | 13 | |
| M | SuperTrend Oscillator [LUX] For ThinkOrSwim | Indicators | 6 | |
| B | SuperTrend TradingView Look-A-Like For ThinkOrSwim | Indicators | 64 |
Similar threads
Similar threads
Similar threads
The Market Trading Game Changer
Join 2,500+ subscribers inside the useThinkScript VIP Membership Club
- Exclusive indicators
- Proven strategies & setups
- Private Discord community
- ‘Buy The Dip’ signal alerts
- Exclusive members-only content
- Add-ons and resources
- 1 full year of unlimited support
Frequently Asked Questions
What is useThinkScript?
useThinkScript is the #1 community of stock market investors using indicators and other tools to power their trading strategies. Traders of all skill levels use our forums to learn about scripting and indicators, help each other, and discover new ways to gain an edge in the markets.
How do I get started?
We get it. Our forum can be intimidating, if not overwhelming. With thousands of topics, tens of thousands of posts, our community has created an incredibly deep knowledge base for stock traders. No one can ever exhaust every resource provided on our site.
If you are new, or just looking for guidance, here are some helpful links to get you started.
- The most viewed thread:
https://usethinkscript.com/threads/repainting-trend-reversal-for-thinkorswim.183/ - Our most popular indicator:
https://usethinkscript.com/threads/buy-the-dip-indicator-for-thinkorswim.3553/ - Answers to frequently asked questions:
https://usethinkscript.com/threads/answers-to-commonly-asked-questions.6006/
What are the benefits of VIP Membership?
VIP members get exclusive access to these proven and tested premium indicators: Buy the Dip, Advanced Market Moves 2.0, Take Profit, and Volatility Trading Range. In addition, VIP members get access to over 50 VIP-only custom indicators, add-ons, and strategies, private VIP-only forums, private Discord channel to discuss trades and strategies in real-time, customer support, trade alerts, and much more. Learn all about VIP membership here.
How can I access the premium indicators?
To access the premium indicators, which are plug and play ready, sign up for VIP membership here.