@Antares66 please read post #23 above and take advantage of TDA's many videos on youtube.One question: What does "AD" mean exactly? Advance Decline?
@Antares66 please read post #23 above and take advantage of TDA's many videos on youtube.One question: What does "AD" mean exactly? Advance Decline?
Join useThinkScript to post your question to a community of 21,000+ developers and traders.
AD.DefineColor("Up", Color.UPTICK);
AD.DefineColor("Down", Color.DOWNTICK);
AD.AssignValueColor(if advnDecl > advnDecl[1] then AD.color("Up") else AD.color("Down"));
LevelLine.SetDefaultColor(GetColor(7));
AddLabel(type == type."Advance/Decline Ratio", (if advances > declines then round(advances / declines, 2) else round(-declines / advances, 2)) + ":1 Ratio");
#
# TD Ameritrade IP Company, Inc. (c) 2010-2019
#
declare lower;
input type = {default "Advance/Decline Line", "Advance/Decline Line (Breadth)", "Advance/Decline Line (Daily)", "Advance/Decline Ratio", "Advance/Decline Spread (Issues)", "Absolute Breadth Index"};
input exchange = {default NYSE, NASDAQ, AMEX};
def advances;
def declines;
switch (exchange) {
case NYSE:
advances = close("$ADVN");
declines = close("$DECN");
case NASDAQ:
advances = close("$ADVN/Q");
declines = close("$DECN/Q");
case AMEX:
advances = close("$ADVA");
declines = close("$DECA");
}
def advnDecl;
def level;
switch (type){
case "Advance/Decline Line":
advnDecl = advnDecl[1] + if !IsNaN(advances - declines) then advances - declines else 0;
level = 0;
case "Advance/Decline Line (Breadth)":
advnDecl = advances / (advances + declines);
level = 0.5;
case "Advance/Decline Line (Daily)":
advnDecl = (advances - declines) / (advances + declines);
level = 0;
case "Advance/Decline Ratio":
advnDecl = advances / declines;
level = 1;
case "Advance/Decline Spread (Issues)":
advnDecl = advances - declines;
level = 0;
case "Absolute Breadth Index":
advnDecl = AbsValue(advances - declines);
level = 0;
}
plot AD = if !IsNaN(close) then advnDecl else Double.NaN;
plot LevelLine = level;
AD.DefineColor("Up", Color.UPTICK);
AD.DefineColor("Down", Color.DOWNTICK);
AD.AssignValueColor(if advnDecl > advnDecl[1] then AD.color("Up") else AD.color("Down"));
LevelLine.SetDefaultColor(GetColor(7));
AddLabel(type == type."Advance/Decline Ratio", (if advances > declines then round(advances / declines, 2) else round(-declines / advances, 2)) + ":1 Ratio");
AD.DefineColor("Up", Color.UPTICK);
AD.DefineColor("Down", Color.DOWNTICK);
AddLabel(type == type."Advance/Decline Ratio", (if advances > declines then round(advances / declines, 2) else round(-declines / advances, 2)) + ":1 Ratio", if advances > declines then AD.Color("Up") else AD.Color("Down"));
I see, so you can run if statements sequentially. Works great (was able to see the change since I still had TOS open from today's RTH session), thanks.AddLabel(type == type."Advance/Decline Ratio", (if advances > declines then round(advances / declines, 2) else round(-declines / advances, 2)) + ":1 Ratio", if advances > declines then AD.Color("Up") else AD.Color("Down"));
def Avg = Round(sumAD / sumx, 0);
That https://tos.mx/i9WRyEL is not opening for me Could you help?Its easy to get advance decline market internals in TOS, however if you want them to be normalized and show on single chart there is some work to be done. This indicator is SNP, Nasdaq, Russel and DJIA percentage normalized (advance decline thrust) . With optional daily start indicator (good for intraday)
Link: https://tos.mx/skf776G
A newer version, Couple of improvements: color changes based on trend and signal line: https://tos.mx/i9WRyEL
Yes I do all that and get An error occurred while importing sheered itemTo Open A Shared Link
@Zlotko These are the steps I followed and it opened for me. Please post a screenshot of where the process is failing for you.
- Hover your mouse over the link
- Right-click, chose copy link address
- In TOS, click on gear icon at top of page
- Click on Open Shared Item
- Ctrl-V to paste link address
- Click on Preview
- Name the study, whatever you want
- Click Import
declare lower;
input showbreak=yes;
input avglength=3;
def break = getweek()<>getweek()[1] ;
AddVerticalLine(showbreak and break, "NewWk", Color.GRAY, 1);
DefineGlobalColor("NYSE", Color.GRAY);
DefineGlobalColor("SNP", Color.GREEN);
DefineGlobalColor("SNPDN", Color.Dark_GREEN);
DefineGlobalColor("NQ", CreateColor(102,204,55));
DefineGlobalColor("NQDN", CreateColor(0,0,155));
DefineGlobalColor("DJI", Color.RED);
DefineGlobalColor("DJIDN", Color.Dark_RED);
DefineGlobalColor("RUT", Color.yellow);
DefineGlobalColor("RUTDN", Color.dark_ORANGE);
script ADPct{
input tickup="$ADVSP";
input tickdn="$DECLSP";
input tickunch="$UNCHSP";
def advances=close(tickup);
def declines=close(tickdn);
def total=close(tickup)+ close(tickdn)+close(tickunch);
def calc =
if isnan(calc[1]) then 0
else
if Total<>0 then advances/(total)*100 else 0;
plot ADPct=calc;
};
plot ob=80; ob.setDefaultColor(color.green);ob.setLineWeight(2);
plot os=20; os.setDefaultColor(color.red);os.setLineWeight(2);
plot adSNP=ADpct();
def avgadsnp=average(adsnp,avglength);
adSNP.assignvaluecolor(if adSNP>avgADSNP then GlobalColor("SNP") else GlobalColor("SNPDN"));
plot adDJI=ADpct("$ADVI","$DECLI","$UNCHI");
def avgADDJI=average(adsnp,avglength);
ADDJI.assignvaluecolor(if adDJI>avgADDJI then GlobalColor("DJI") else GlobalColor("DJIDN"));
plot ADNQ=ADpct("$ADVN/Q","$DECN/Q","$UNCN/Q");
def avgADNQ=average(adNQ,avglength);
ADNQ.assignvaluecolor(if adNQ>avgADNQ then GlobalColor("NQ") else GlobalColor("NQDN"));
plot ADRUT=ADpct("$ADVRL","$DECLRL","$UNCHRL"); adRUT.setdefaultcolor(GlobalColor("RUT"));
def avgADRUT=average(adRUT,avglength);
ADRUT.assignvaluecolor(if adRUT>avgADRUT then GlobalColor("RUT") else GlobalColor("RUTDN"));
plot signal=50;
signal.setlineweight(2);
signal.SetPaintingStrategy(paintingStrategy.LINE_VS_POINTS);
signal.assignValueColor
(if adNQ>avgADNQ and adDJI>avgADDJI and adSNP>avgADSNP then color.green
else if adNQ<avgADNQ and adDJI<avgADDJI and adSNP<avgADSNP then color.red
else color.gray);
Perfect Thank you@Zlotko For future reference, it is easier to help you troubleshoot errors, if you provide a screenshot showing the issue.
I downloaded the study successfully using the above method which means you either have a corrupted application (fixed by reinstalling TOS) or a user error in following the above directions.
In the short-term, here is the study that you were attempting to download.
Ruby:declare lower; input showbreak=yes; input avglength=3; def break = getweek()<>getweek()[1] ; AddVerticalLine(showbreak and break, "NewWk", Color.GRAY, 1); DefineGlobalColor("NYSE", Color.GRAY); DefineGlobalColor("SNP", Color.GREEN); DefineGlobalColor("SNPDN", Color.Dark_GREEN); DefineGlobalColor("NQ", CreateColor(102,204,55)); DefineGlobalColor("NQDN", CreateColor(0,0,155)); DefineGlobalColor("DJI", Color.RED); DefineGlobalColor("DJIDN", Color.Dark_RED); DefineGlobalColor("RUT", Color.yellow); DefineGlobalColor("RUTDN", Color.dark_ORANGE); script ADPct{ input tickup="$ADVSP"; input tickdn="$DECLSP"; input tickunch="$UNCHSP"; def advances=close(tickup); def declines=close(tickdn); def total=close(tickup)+ close(tickdn)+close(tickunch); def calc = if isnan(calc[1]) then 0 else if Total<>0 then advances/(total)*100 else 0; plot ADPct=calc; }; plot ob=80; ob.setDefaultColor(color.green);ob.setLineWeight(2); plot os=20; os.setDefaultColor(color.red);os.setLineWeight(2); plot adSNP=ADpct(); def avgadsnp=average(adsnp,avglength); adSNP.assignvaluecolor(if adSNP>avgADSNP then GlobalColor("SNP") else GlobalColor("SNPDN")); plot adDJI=ADpct("$ADVI","$DECLI","$UNCHI"); def avgADDJI=average(adsnp,avglength); ADDJI.assignvaluecolor(if adDJI>avgADDJI then GlobalColor("DJI") else GlobalColor("DJIDN")); plot ADNQ=ADpct("$ADVN/Q","$DECN/Q","$UNCN/Q"); def avgADNQ=average(adNQ,avglength); ADNQ.assignvaluecolor(if adNQ>avgADNQ then GlobalColor("NQ") else GlobalColor("NQDN")); plot ADRUT=ADpct("$ADVRL","$DECLRL","$UNCHRL"); adRUT.setdefaultcolor(GlobalColor("RUT")); def avgADRUT=average(adRUT,avglength); ADRUT.assignvaluecolor(if adRUT>avgADRUT then GlobalColor("RUT") else GlobalColor("RUTDN")); plot signal=50; signal.setlineweight(2); signal.SetPaintingStrategy(paintingStrategy.LINE_VS_POINTS); signal.assignValueColor (if adNQ>avgADNQ and adDJI>avgADDJI and adSNP>avgADSNP then color.green else if adNQ<avgADNQ and adDJI<avgADDJI and adSNP<avgADSNP then color.red else color.gray);
Long-term, if you continue to have issues with opening shared links using the above method, you should contact customer support.
HTH
10:11 Mobius: AD (Advance/Decline Line) is an Intraday indicator. It's daily closing value isn't of any value since where it closes in relation to the closing price has no correlation.
Code:# # TD Ameritrade IP Company, Inc. (c) 2010-2020 # declare lower; input type = {default "Advance/Decline Line", "Advance/Decline Line (Breadth)", "Advance/Decline Line (Daily)", "Advance/Decline Ratio", "Advance/Decline Spread (Issues)", "Absolute Breadth Index"}; input exchange = {default NYSE, NASDAQ, AMEX}; def advances; def declines; switch (exchange) { case NYSE: advances = close("$ADVN"); declines = close("$DECN"); case NASDAQ: advances = close("$ADVN/Q"); declines = close("$DECN/Q"); case AMEX: advances = close("$ADVA"); declines = close("$DECA"); } def advnDecl; def level; switch (type){ case "Advance/Decline Line": advnDecl = advnDecl[1] + if !IsNaN(advances - declines) then advances - declines else 0; level = 0; case "Advance/Decline Line (Breadth)": advnDecl = advances / (advances + declines); level = 0.5; case "Advance/Decline Line (Daily)": advnDecl = (advances - declines) / (advances + declines); level = 0; case "Advance/Decline Ratio": advnDecl = advances / declines; level = 1; case "Advance/Decline Spread (Issues)": advnDecl = advances - declines; level = 0; case "Absolute Breadth Index": advnDecl = AbsValue(advances - declines); level = 0; } plot AD = if !IsNaN(close) then advnDecl else Double.NaN; plot LevelLine = level; AD.DefineColor("Up", Color.UPTICK); AD.DefineColor("Down", Color.DOWNTICK); AD.AssignValueColor(if advnDecl > advnDecl[1] then AD.color("Up") else AD.color("Down")); LevelLine.SetDefaultColor(GetColor(7)); AddLabel(type == type."Advance/Decline Ratio", (if advances > declines then round(advances / declines, 2) else round(-declines / advances, 2)) + ":1 Ratio");
Plots the Advance Decline Line Scaled to Current Price with a horizontal line at the RTH Open.
Code:# AD Line Scaled and Plotted on Upper Graph # Mobius input sym = "$ADSPD"; #hint sym: Symbol to be scaled to current price chart. def AD = close(symbol = sym); def Min = lowestAll(low); def Max = highestAll(high); def bar = barNumber(); def Today = getDay() == getLastDay(); script ScaleFunction{ input c = 0; input Min = -1; input Max = 1; def hh = HighestAll(c); def ll = LowestAll(c); plot Range = (((Max - Min) * (c - ll)) / (hh - ll)) + Min; } script LinePlot { input LineLimit = 0; input OnExpansion = yes; input data = close; input bar = 0; def ThisBar = HighestAll(bar); def cLine = if bar == ThisBar then data else Double.NaN; def cond1 = CompoundValue(1, if IsNaN(data) then cond1[1] else data, data); plot P = if ThisBar - LineLimit <= bar then HighestAll(cLine) else Double.NaN; } plot ADline = if Today then scaleFunction(c = AD, Min = Min, Max = Max) else double.nan; ADline.SetDefaultColor(Color.gray); def RTH_Bar1 = if SecondsTillTime(0930) == 0 and SecondsFromTime(0930) == 0 then bar else RTH_Bar1[1]; def OpenAD = if bar == RTH_Bar1 then ADline else OpenAD[1]; def ADLimit = if bar != RTH_Bar1 then bar - RTH_Bar1 else if bar == RTH_Bar1 then Double.NaN else ADLimit[1]; plot AD_RTH_open = LinePlot(LineLimit = ADLimit, data = OpenAD, bar = RTH_Bar1); AD_RTH_open.SetDefaultColor(Color.gray); AddLabel(1, "AD = " + AD, if AD > 0 then color.green else color.red); # End Code AD Chart Line
Advance/Decline as Label on chart
# 10:14 Mobius: here is an AD label that includes the open, high and low of the day with bubbles plotted at those price locations on the chart.
Code:# AD Label # Mobius # V01 def RTH = getTime() >= regularTradingStart(getYYYYMMDD()) and getTime() <= regularTradingEnd(getYYYYMMDD()); def o = if RTH and !RTH[1] then open("$ADSPD") else o[1]; def c = if isNaN(close("$ADSPD")) then c[1] else close("$ADSPD"); def x = barNumber(); def sumx = if RTH and !RTH[1] then 1 else if RTH then sumx[1] + 1 else if !RTH then sumx[1] else sumx[1]; def sumAD = if RTH and !RTH[1] then c else if RTH then sumAD[1] + c else sumAD[1]; def h = if isNaN(high("$ADSPD", "DAY")) then h[1] else high("$ADSPD", "DAY"); def ADHighBar = if high("$ADSPD") == h then x else double.nan; AddChartBubble(barNumber() == HighestAll(ADHighBar), high + (2 * TickSize()), "AD", color.cyan); def l = if isNaN(low("$ADSPD", "DAY")) then l[1] else low("$ADSPD", "DAY"); def ADLowBar = if low("$ADSPD") == l then x else double.nan; AddChartBubble(barNumber() == HighestAll(ADLowBar), low - (2 * TickSize()), "AD", color.orange, no); def Avg = Round(sumAD / sumx, 0); addLabel(1, "AD open " + o + " high " + h + " low " + l + " close " + c + " Avg " + Avg, if c < 0 then color.red else color.green); # End Code AD Label
Code # 2 of 3
#10:18 Mobius: Here's AD Scaled to Price and plotted along with a plot of the AD zero line at price where crosses. Which is often a price pivot area.
Code:# AD Scaled To Price # Mobius # Changed original code to use RegularTrading(Start, End) functions. Use RTH Only. # V02 2019 script Scale { input h = high; input l = low; input c = close; def RTH = getTime() >= RegularTradingStart(getYYYYMMDD()) and getTime() <= RegularTradingEnd(getYYYYMMDD()); def max = if RTH and !RTH[1] then high else if RTH and high > max[1] then high else max[1]; def min = if RTH and !RTH[1] then low else if RTH and low < min[1] then low else min[1]; def hh = if RTH and !RTH[1] then h else if RTH and h > hh[1] then h else hh[1]; def ll = if RTH and !RTH[1] then l else if RTH and l < ll[1] then l else ll[1]; plot Range = (((Max - Min) * (c - ll)) / (hh - ll)) + Min; } plot Scaled_Symbol = scale(high("$ADSPD"), low("$ADSPD"), close("$ADSPD")); Scaled_Symbol.AssignValueColor(if Scaled_Symbol > Scaled_Symbol[1] then color.green else color.red); Scaled_Symbol.SetLineWeight(2); Scaled_Symbol.HideBubble(); Scaled_Symbol.HideTitle(); def zero = if close("$ADSPD") crosses 0 then close else zero[1]; def zero_bar = if close("$ADSPD") crosses 0 then barNumber() else double.nan; plot zeroLine = if barNumber() >= highestAll(zero_bar) then highestAll(if isNaN(close[-1]) then zero else double.nan) else double.nan; zeroLine.SetDefaultColor(Color.Light_Gray); zeroLine.SetStyle(Curve.Points); zeroLine.SetLineWeight(2); zeroLine.HideBubble(); zeroLine.HideTitle(); AddChartBubble(barNumber() == HighestAll(barNumber()), zeroLine, "AD 0", zeroLine.TakeValueColor()); # End Code
#10:22 MTS1: Thanks Mobius!
#10:26 binh4984: Thank you very much Mobius for your help.
#10:33 Mobius: yw And, bin... you might consider the fact that AD is an oscillator that ranges around 0. So taking a daily average of it's closing value would be that same as taking the daily closing average of any oscillator
#10:35 Mobius: won't tell you anything of value. Now you could write a binary momentum indicator using AD on a daily basis that would tell you when a trend is in place and the momentum of that trend
#10:36 Mobius: See the True Momentum Indicator for a method to do that and adding a weight adjusted by the closing value of AD might be useful
#10:37 MTS1: I guess an average on a cumulative AD could be some sort of signal line. I know some analysts look at longer term MI's like that, also # stocks above or below an MA, new highs/lows etc. But I think AD / VOLD etc are probably more useful intraday.
(I would not endorse #3 of 3 as I don't see it's utility: markos)
Cumulative AD
Code:#10:42 Mobius: # Cumulative AD declare lower; plot Data = TotalSum(close("$ADSPD")); plot "0" = 0; #EOC#
Thread starter | Similar threads | Forum | Replies | Date |
---|---|---|---|---|
Weighted Advance/Decline For ThinkOrSwim | Indicators | 99 | ||
P | Current Price Line Indicator For ThinkOrSwim | Indicators | 25 | |
Short/Long Entry Line on Chart for ThinkorSwim | Indicators | 3 |
Start a new thread and receive assistance from our community.
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.
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.