While it is not possible to provide an exact answer as you did not elucidate as to what the label you are requesting should contain.
# psar_chg_box_00
#https://usethinkscript.com/threads/psar-transition-box.12706/
# PSAR Transition Box
# draw a box from the last dot on the old ParabolicSar Trend to the current dot?
# PSAR Transition Indicator
# tomsk
# 11.20.2019
# V1.0 - 11.20.2019 - tomsk - Initial release of PSAR Transition Indicator
# This study looks for a PSAR state transition (either from bullish to bearish
# or vice versa) and plots a horizontal price line into the expansion area. If
# the state transition already triggered, it calculates the number of bars ago
# the event happened. I've included labels, alerts as well as chart bubbles
input accelerationFactor = 0.02;
input accelerationLimit = 0.2;
input offSet = 2;
assert(accelerationFactor > 0, "'acceleration factor' must be positive: " + accelerationFactor);
assert(accelerationLimit >= accelerationFactor, "'acceleration limit' (" + accelerationLimit + ") must be greater than or equal to 'acceleration factor' (" + accelerationFactor + ")");
def bar = barNumber();
def state = {default init, long, short};
def extreme;
def SAR;
def acc;
switch (state[1]) {
case init:
state = state.long;
acc = accelerationFactor;
extreme = high;
SAR = low;
case short:
if (SAR[1] < high)
then {
state = state.long;
acc = accelerationFactor;
extreme = high;
SAR = extreme[1];
} else {
state = state.short;
if (low < extreme[1])
then {
acc = min(acc[1] + accelerationFactor, accelerationLimit);
extreme = low;
} else {
acc = acc[1];
extreme = extreme[1];
}
SAR = max(max(high, high[1]), SAR[1] + acc * (extreme - SAR[1]));
}
case long:
if (SAR[1] > low)
then {
state = state.short;
acc = accelerationFactor;
extreme = low;
SAR = extreme[1];
} else {
state = state.long;
if (high > extreme[1])
then {
acc = min(acc[1] + accelerationFactor, accelerationLimit);
extreme = high;
} else {
acc = acc[1];
extreme = extreme[1];
}
SAR = min(min(low, low[1]), SAR[1] + acc * (extreme - SAR[1]));
}
}
plot parSAR = SAR;
parSAR.SetPaintingStrategy(PaintingStrategy.POINTS);
parSAR.SetDefaultColor(GetColor(5));
#---------------------------
#---------------------------
def bn = barnumber();
def na = double.nan;
def lastbar = !isnan(close[0]) and isnan(close[-1]);
def lastbn = HighestAll(If(IsNaN(close), 0, bn));
#---------------------------
# last bar in trend series
def Bull2 = state[0] == state.short and state[-1] == state.long;
def Bear2 = state[0] == state.long and state[-1] == state.short;
# bn of last bar in trend
def chg_bn2 = if bn == 1 then 1
else if bull2 or bear2 then bn
else chg_bn2[1];
def last_chg_bn2 = highestall(chg_bn2);
#def prev_sar = if bn == 1 or isnan(close) then 0
def prev_sar = if bn == 1 then 0
else if bn == last_chg_bn2 then sar
else prev_sar[1];
def last_trend = (bn >= highestall(chg_bn2) and !isnan(close));
input draw_cloud_on_bars = yes;
plot p = if draw_cloud_on_bars and last_trend then prev_sar else na;
#p.SetStyle(Curve.MEDIUM_DASH);
p.SetDefaultColor(Color.light_gray);
p.setlineweight(2);
p.hidebubble();
def last_sar = highestall(if lastbn == bn then sar else 0);
def issarup = ( last_sar > prev_sar);
plot l = if draw_cloud_on_bars and last_trend then last_sar else na;
#l.SetStyle(Curve.MEDIUM_DASH);
l.AssignValueColor(if issarup then color.green else color.red);
l.setlineweight(1);
l.hidebubble();
addcloud(p,l,color.red,color.green);
#-------------------------------
# cloud after last bar
input show_cloud_after_last_bar = yes;
input cloud_width = 3;
input bars_in_future = 2;
def bif = bars_in_future;
def cls = close;
def x = isNaN(cls[bif]) and !isNaN(cls[bif+1+cloud_width]);
plot p2 = if show_cloud_after_last_bar and x then prev_sar else na;
plot l2 = if show_cloud_after_last_bar and x then last_sar else na;
p2.SetDefaultColor(Color.light_gray);
p2.setlineweight(2);
p2.hidebubble();
l2.AssignValueColor(if issarup then color.green else color.red);
l2.setlineweight(1);
l2.hidebubble();
addcloud(p2,l2,color.red,color.green);
#---------------------------
def transitionBull = state[1] == state.short and state == state.long;
def transitionBear = state[1] == state.long and state == state.short;
def transitionBar = if transitionBull or transitionBear
then bar
else transitionBar[1];
def transitionPrice = if bar == HighestAll(transitionBar)
then close
else transitionPrice[1];
def transitionBarsAgo = if bar != transitionBar
then bar - transitionBar
else if bar == transitionBar
then Double.NaN
else transitionBarsAgo[1];
def timeAxis = if IsNaN(close[-1]) and !IsNaN(close) then bar else timeAxis[1];
plot horizLine = if 0 and GetTime() <= RegularTradingEnd(getYYYYMMDD()) and
transitionBar == HighestAll(transitionBar)
then transitionPrice
else Double.NaN;
horizLine.SetLineWeight(2);
horizLine.SetDefaultColor(Color.Yellow);
AddLabel(transitionBull or transitionBear, "PSAR Transition Detected Now!", Color.Yellow);
AddLabel(!(transitionBull or transitionBear), "PSAR Transition " + transitionBarsAgo + " bars ago", Color.Cyan);
Alert(transitionBull, "PSAR Transition Bull", Alert.BAR, Sound.Ding);
Alert(transitionBear, "PSAR Transition Bear", Alert.Bar, Sound.Ring);
#AddChartBubble(bar == HighestAll(timeAxis+offSet), transitionPrice, "PSAR\nTransitioned", Color.Pink);
# End PSAR Transition Indicator
## PSAR_Transition_barcnt_01
# https://usethinkscript.com/threads/psar-flips.13056/
# UnAnswered PSAR Flips
# mbrennan5 Oct 7, 2022
#Is there any way to store the PSAR flip count using the script in the below link? I'd like to be able to compare the length of the last X number of PSAR flips.
#https://usethinkscript.com/threads/psar-transition-indicator-for-thinkorswim.1130/#post-9944
#tomsk
#Nov 20, 2019
#This study looks for a PSAR state transition (either from bullish to bearish or vice versa) and plots a horizontal price line into the expansion area.
#If the state transition already triggered, it calculates the number of bars ago the event happened. I've included labels, alerts as well as chart bubbles.
#As of this moment if you load a daily chart of GS, you'll see a state transition TODAY!
# PSAR Transition Indicator
# tomsk
# 11.20.2019
# V1.0 - 11.20.2019 - tomsk - Initial release of PSAR Transition Indicator
# This study looks for a PSAR state transition (either from bullish to bearish
# or vice versa) and plots a horizontal price line into the expansion area. If
# the state transition already triggered, it calculates the number of bars ago
# the event happened. I've included labels, alerts as well as chart bubbles
input accelerationFactor = 0.02;
input accelerationLimit = 0.2;
input offSet = 2;
assert(accelerationFactor > 0, "'acceleration factor' must be positive: " + accelerationFactor);
assert(accelerationLimit >= accelerationFactor, "'acceleration limit' (" + accelerationLimit + ") must be greater than or equal to 'acceleration factor' (" + accelerationFactor + ")");
def bar = barNumber();
def state = {default init, long, short};
def extreme;
def SAR;
def acc;
switch (state[1]) {
case init:
state = state.long;
acc = accelerationFactor;
extreme = high;
SAR = low;
case short:
if (SAR[1] < high)
then {
state = state.long;
acc = accelerationFactor;
extreme = high;
SAR = extreme[1];
} else {
state = state.short;
if (low < extreme[1])
then {
acc = min(acc[1] + accelerationFactor, accelerationLimit);
extreme = low;
} else {
acc = acc[1];
extreme = extreme[1];
}
SAR = max(max(high, high[1]), SAR[1] + acc * (extreme - SAR[1]));
}
case long:
if (SAR[1] > low)
then {
state = state.short;
acc = accelerationFactor;
extreme = low;
SAR = extreme[1];
} else {
state = state.long;
if (high > extreme[1])
then {
acc = min(acc[1] + accelerationFactor, accelerationLimit);
extreme = high;
} else {
acc = acc[1];
extreme = extreme[1];
}
SAR = min(min(low, low[1]), SAR[1] + acc * (extreme - SAR[1]));
}
}
plot parSAR = SAR;
parSAR.SetPaintingStrategy(PaintingStrategy.POINTS);
parSAR.SetDefaultColor(GetColor(5));
def transitionBull = state[1] == state.short and state == state.long;
def transitionBear = state[1] == state.long and state == state.short;
def transitionBar = if transitionBull or transitionBear
then bar
else transitionBar[1];
def transitionPrice = if bar == HighestAll(transitionBar)
then close
else transitionPrice[1];
def transitionBarsAgo = if bar != transitionBar
then bar - transitionBar
else if bar == transitionBar
then Double.NaN
else transitionBarsAgo[1];
def timeAxis = if IsNaN(close[-1]) and !IsNaN(close) then bar else timeAxis[1];
#plot horizLine = if GetTime() <= RegularTradingEnd(getYYYYMMDD()) and
# transitionBar == HighestAll(transitionBar)
# then transitionPrice
# else Double.NaN;
#horizLine.SetLineWeight(2);
#horizLine.SetDefaultColor(Color.Yellow);
AddLabel(transitionBull or transitionBear, "PSAR Transition Detected Now!", Color.Yellow);
AddLabel(!(transitionBull or transitionBear), "PSAR Transition " + transitionBarsAgo + " bars ago", Color.Cyan);
Alert(transitionBull, "PSAR Transition Bull", Alert.BAR, Sound.Ding);
Alert(transitionBear, "PSAR Transition Bear", Alert.Bar, Sound.Ring);
AddChartBubble(bar == HighestAll(timeAxis+offSet), transitionPrice, "PSAR\nTransitioned", Color.Pink);
# End PSAR Transition Indicator
#-----------------------------
# var1, get bn's of 1st bar in set
# find bns, loop, copy to var2, in 1st bars
def bn = barnumber();
# transitionBull , dots below
# transitionBear , dots above
#-----------------------------
# make a new way to count dots in each sar set
def bulltrendsarcnt;
def beartrendsarcnt;
def flipcnt;
def bulltotal;
def beartotal;
if bn == 1 then {
bulltrendsarcnt = 0;
beartrendsarcnt = 0;
flipcnt = 0;
bulltotal = 0;
beartotal = 0;
} else if transitionBull then {
bulltrendsarcnt = fold i = 1 to 100
with p = 1
while getvalue(!transitionBear, -i)
do p + ( if !isnan(getvalue(close, -i)) then 1 else 0);
beartrendsarcnt = 0;
flipcnt = flipcnt[1] + 1;
bulltotal = bulltotal[1] + bulltrendsarcnt;
beartotal = beartotal[1];
} else if transitionBear then {
bulltrendsarcnt = 0;
beartrendsarcnt = fold j = 1 to 100
with q = 1
while getvalue(!transitionBull, -j)
do q + ( if !isnan(getvalue(close, -j)) then 1 else 0);
flipcnt = flipcnt[1] + 1;
bulltotal = bulltotal[1];
beartotal = beartotal[1] + beartrendsarcnt;
} else {
bulltrendsarcnt = bulltrendsarcnt[1];
beartrendsarcnt = beartrendsarcnt[1];
flipcnt = flipcnt[1];
bulltotal = bulltotal[1];
beartotal = beartotal[1];
}
def bull_avg = (bulltotal/flipcnt);
def bear_avg = (beartotal/flipcnt);
addchartbubble(1, low*0.990,
bn + "\n" +
bulltrendsarcnt + " bull\n" +
beartrendsarcnt + " bear\n" +
flipcnt + " flips\n" +
bulltotal + " bull_t\n" +
beartotal + " bear_t\n" +
bull_avg + " bull_avg\n" +
bear_avg + " bear-avg"
, ( if transitionBull then color.green else if transitionBear then color.magenta else color.gray), no);
#--------------------------------------
# old way, look for barnumbers , not used
def bearbn = if bn == 1 then 0
else if transitionBear then bn
else bearbn[1];
def bullbn = if bn == 1 then 0
else if transitionBull then bn
else bullbn[1];
# calc qty of sar dots, and save on 1st bar of next set
def bulllen = if bn == 1 then 0
else if transitionBear then (bearbn - bullbn)
else 0;
# make the count negative, for bear dots
def bearlen = if bn == 1 then 0
else if transitionBull then -(bullbn - bearbn)
else 0;
addchartbubble(0, low*0.990,
bn + "\n" +
bearbn + "\n" +
bearlen + "\n" +
bullbn + "\n" +
bulllen
, ( if transitionBull then color.green else if transitionBear then color.magenta else color.gray), no);
#
#
# Display Previous Day's PSAR on Lower timeframe
# BenTen
input Period = aggregationPeriod.DAY;
def close = close(period = Period);
def low = low(period = Period);
def high = high(period = Period);
def open = open(period = Period);
input accelerationFactor = 0.02;
input accelerationLimit = 0.2;
assert(accelerationFactor > 0, "'acceleration factor' must be positive: " + accelerationFactor);
assert(accelerationLimit >= accelerationFactor, "'acceleration limit' (" + accelerationLimit + ") must be greater than or equal to 'acceleration factor' (" + accelerationFactor + ")");
def state = {default init, long, short};
def extreme;
def SAR;
def acc;
switch (state[1]) {
case init:
state = state.long;
acc = accelerationFactor;
extreme = high;
SAR = low;
case short:
if (SAR[1] < high)
then {
state = state.long;
acc = accelerationFactor;
extreme = high;
SAR = extreme[1];
} else {
state = state.short;
if (low < extreme[1])
then {
acc = min(acc[1] + accelerationFactor, accelerationLimit);
extreme = low;
} else {
acc = acc[1];
extreme = extreme[1];
}
SAR = max(max(high, high[1]), SAR[1] + acc * (extreme - SAR[1]));
}
case long:
if (SAR[1] > low)
then {
state = state.short;
acc = accelerationFactor;
extreme = low;
SAR = extreme[1];
} else {
state = state.long;
if (high > extreme[1])
then {
acc = min(acc[1] + accelerationFactor, accelerationLimit);
extreme = high;
} else {
acc = acc[1];
extreme = extreme[1];
}
SAR = min(min(low, low[1]), SAR[1] + acc * (extreme - SAR[1]));
}
}
plot parSAR = SAR[1];
parSAR.SetPaintingStrategy(PaintingStrategy.POINTS);
parSAR.SetDefaultColor(GetColor(5));# psar_alerts_01
# -------------
# 2021-05-12
# halcyonguy
# -------------
# copy original parabolicsar study
# add alerts on crossovers
# add arrows on crossovers
# -------------------
# TD Ameritrade IP Company, Inc. (c) 2008-2021
#
input accelerationFactor = 0.02;
input accelerationLimit = 0.2;
assert(accelerationFactor > 0, "'acceleration factor' must be positive: " + accelerationFactor);
assert(accelerationLimit >= accelerationFactor, "'acceleration limit' (" + accelerationLimit + ") must be greater than or equal to 'acceleration factor' (" + accelerationFactor + ")");
def state = {default init, long, short};
def extreme;
def SAR;
def acc;
switch (state[1]) {
case init:
state = state.long;
acc = accelerationFactor;
extreme = high;
SAR = low;
case short:
if (SAR[1] < high)
then {
state = state.long;
acc = accelerationFactor;
extreme = high;
SAR = extreme[1];
} else {
state = state.short;
if (low < extreme[1])
then {
acc = min(acc[1] + accelerationFactor, accelerationLimit);
extreme = low;
} else {
acc = acc[1];
extreme = extreme[1];
}
SAR = max(max(high, high[1]), SAR[1] + acc * (extreme - SAR[1]));
}
case long:
if (SAR[1] > low)
then {
state = state.short;
acc = accelerationFactor;
extreme = low;
SAR = extreme[1];
} else {
state = state.long;
if (high > extreme[1])
then {
acc = min(acc[1] + accelerationFactor, accelerationLimit);
extreme = high;
} else {
acc = acc[1];
extreme = extreme[1];
}
SAR = min(min(low, low[1]), SAR[1] + acc * (extreme - SAR[1]));
}
}
plot parSAR = SAR;
parSAR.SetPaintingStrategy(PaintingStrategy.POINTS);
parSAR.SetDefaultColor(GetColor(5));
# ---- end original code -------------
# check if psar dots have crossed over price
def xdwn = (sar[1] < close[1] and sar > close);
def xup = (sar[1] > close[1] and sar < close);
def na = double.nan;
input show_arrows = yes;
plot xup2 = if show_arrows then xup else na;
xup2.SetPaintingStrategy(PaintingStrategy.boolean_arrow_up);
xup2.SetDefaultColor(color.green);
xup2.setlineweight(3);
plot xdwn2 = if show_arrows then xdwn else na;
xdwn2.SetPaintingStrategy(PaintingStrategy.boolean_arrow_down);
xdwn2.SetDefaultColor(color.red);
xdwn2.setlineweight(3);
# =====================================
# alerts , sounds
# alert(condition, text, alert type, sound);
# Sound.Ding, higher , up sound
# Sound.Bell, lower , down sound
input enable_alerts = yes;
alert(enable_alerts and xup, "crossed up" ,alert.BAR, sound.DING);
alert(enable_alerts and xdwn, "crossed down" ,alert.BAR, sound.bell);
# =====================================
#
in the picture you can see the addition, but I still would like to plot in the same line of the other information (% and $), at the left end of it, the number of periods it remained in the corresponding state for past situations, and also for current.
Code:# # TD Ameritrade IP Company, Inc. (c) 2008-2023 # input accelerationFactor = 0.02; input accelerationLimit = 0.2; Assert(accelerationFactor > 0, "'acceleration factor' must be positive: " + accelerationFactor); Assert(accelerationLimit >= accelerationFactor, "'acceleration limit' (" + accelerationLimit + ") must be greater than or equal to 'acceleration factor' (" + accelerationFactor + ")"); def state = {default init, long, short}; def extreme; def SAR; def acc; switch (state[1]) { case init: state = state.long; acc = accelerationFactor; extreme = high; SAR = low; case short: if (SAR[1] < high) then { state = state.long; acc = accelerationFactor; extreme = high; SAR = extreme[1]; } else { state = state.short; if (low < extreme[1]) then { acc = Min(acc[1] + accelerationFactor, accelerationLimit); extreme = low; } else { acc = acc[1]; extreme = extreme[1]; } SAR = Max(Max(high, high[1]), SAR[1] + acc * (extreme - SAR[1])); } case long: if (SAR[1] > low) then { state = state.short; acc = accelerationFactor; extreme = low; SAR = extreme[1]; } else { state = state.long; if (high > extreme[1]) then { acc = Min(acc[1] + accelerationFactor, accelerationLimit); extreme = high; } else { acc = acc[1]; extreme = extreme[1]; } SAR = Min(Min(low, low[1]), SAR[1] + acc * (extreme - SAR[1])); } } plot parSAR = SAR; parSAR.SetPaintingStrategy(PaintingStrategy.POINTS); parSAR.SetDefaultColor(GetColor(5)); #========================================================================================= #pSAR direction coloring parSAR.DefineColor("Up", Color.DARK_GREEN); parSAR.DefineColor("Down", Color.RED); parSAR.DefineColor("Flat", Color.GRAY); parSAR.AssignValueColor(if (SAR < low) then parSAR.Color("Up") else parSAR.Color("Down") ); #========================================================================================= # shows percentage distance of initial psar change to close to serve as reference of the gap # and price level at that change. also plot a price level for the initial sar of each sar state input ShowLabel = yes; def StateChange = if state == state.long and state[1] == state.short then 1 else if state == state.short and state[1] == state.long then -1 else 0; def sar_level = if StateChange <> 0 then SAR else sar_level[1]; plot level = if ShowLabel then sar_level else Double.NaN; AddChartBubble(StateChange == 1 and ShowLabel, SAR * 1.000, (SAR - close) / close * 100 + "% $" + level, Color.UPTICK, no); AddChartBubble(StateChange == -1 and ShowLabel, SAR * 1.000, (SAR - close) / close * 100 + "% $" + level, Color.DOWNTICK , yes); #========================================================================================= def longcount = if StateChange == 1 then 1 else if state == state.long then longcount[1] + 1 else 0 ; AddChartBubble(state==state.long and !isnan(close) and isnan(close[-1]) or state == state.long and state[-1] == state.short, level, longcount, Color.UPTICK); def shortcount = if StateChange == -1 then 1 else if state == state.short then shortcount[1] + 1 else 0 ; AddChartBubble(state==state.short and !isnan(close) and isnan(close[-1]) or state == state.short and state[-1] == state.long, level, shortcount, Color.DOWNTICK);
Excellent. Thanks for the help.
this is my polished version of the addition to pSAR:
Join useThinkScript to post your question to a community of 21,000+ developers and traders.
| Thread starter | Similar threads | Forum | Replies | Date |
|---|---|---|---|---|
| F | Repaints Multi-Time Frame MTF PSAR for ThinkorSwim | Indicators | 60 | |
| T | PSAR Transition Indicator for ThinkorSwim | Indicators | 30 |
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.