Intraday high and low moves

K

KD3

New member
Hi, i'm new here. I've tried searching but had no luck.
Can someone help me create a script that can measure the intraday swing high and low (preferably in points, ticks works too)?
I'm not a coder, so I tried copying and pasting stuff, but not getting what I want. This is a start (from Ben's anchored VWAP), I changed n=4
But I was wondering if it's possible to change the arrows to the number of ticks or points it moved from the swing high or low, like this image?
I would like to know the points it moved without having to draw a trendline to count.
Here is the image of what I would like to look like:
N3nVcZY.png

and this is what I have so far:
eMuIOW8.png


#hint n: Lookback period for finding swing highs, lows.
input n = 4;

#hint ticks: Offset High/Low VWAP lines by this number of ticks.
input ticks = 2.0;

def bnOK = barNumber() > n;

def isHigher = fold i = 1 to n + 1 with p = 1
while p do high > GetValue(high, -i);

def HH = if bnOK and isHigher
and high == Highest(high, n)
then high else Double.NaN;

def isLower = fold j = 1 to n + 1 with q = 1
while q do low < GetValue(low, -j);

def LL = if bnOK and isLower
and low == Lowest(low, n)
then low else Double.NaN;

def PivH = if HH > 0 then HH else Double.NaN;
def PivL = if LL > 0 then LL else Double.NaN;

plot Up = !isNaN(PivL);
Up.SetPaintingStrategy(PaintingStrategy.BOOLEAN_ARROW_UP);
Up.SetLineWeight(3);
Up.SetDefaultColor(Color.WHITE);

plot Dn = !isNaN(PivH);
Dn.SetPaintingStrategy(PaintingStrategy.BOOLEAN_ARROW_DOWN);
Dn.SetLineWeight(3);
Dn.SetDefaultColor(Color.ORANGE);
 
Solution
S
KD3 said:
Hi, i'm new here. I've tried searching but had no luck.
Can someone help me create a script that can measure the intraday swing high and low (preferably in points, ticks works too)?
I'm not a coder, so I tried copying and pasting stuff, but not getting what I want. This is a start (from Ben's anchored VWAP), I changed n=4
But I was wondering if it's possible to change the arrows to the number of ticks or points it moved from the swing high or low, like this image?
I would like to know the points it moved without having to draw a trendline to count.
Here is the image of what I would like to look like:
N3nVcZY.png

and this is what I have so far:
eMuIOW8.png


#hint n: Lookback period...
Click to expand...
Sort by date Sort by votes
KD3 said:
Hi, i'm new here. I've tried searching but had no luck.
Can someone help me create a script that can measure the intraday swing high and low (preferably in points, ticks works too)?
I'm not a coder, so I tried copying and pasting stuff, but not getting what I want. This is a start (from Ben's anchored VWAP), I changed n=4
But I was wondering if it's possible to change the arrows to the number of ticks or points it moved from the swing high or low, like this image?
I would like to know the points it moved without having to draw a trendline to count.
Here is the image of what I would like to look like:
N3nVcZY.png

and this is what I have so far:
eMuIOW8.png


#hint n: Lookback period for finding swing highs, lows.
input n = 4;

#hint ticks: Offset High/Low VWAP lines by this number of ticks.
input ticks = 2.0;

def bnOK = barNumber() > n;

def isHigher = fold i = 1 to n + 1 with p = 1
while p do high > GetValue(high, -i);

def HH = if bnOK and isHigher
and high == Highest(high, n)
then high else Double.NaN;

def isLower = fold j = 1 to n + 1 with q = 1
while q do low < GetValue(low, -j);

def LL = if bnOK and isLower
and low == Lowest(low, n)
then low else Double.NaN;

def PivH = if HH > 0 then HH else Double.NaN;
def PivL = if LL > 0 then LL else Double.NaN;

plot Up = !isNaN(PivL);
Up.SetPaintingStrategy(PaintingStrategy.BOOLEAN_ARROW_UP);
Up.SetLineWeight(3);
Up.SetDefaultColor(Color.WHITE);

plot Dn = !isNaN(PivH);
Dn.SetPaintingStrategy(PaintingStrategy.BOOLEAN_ARROW_DOWN);
Dn.SetLineWeight(3);
Dn.SetDefaultColor(Color.ORANGE);
Click to expand...


Rather than using the code you provided, here is code that I have posted that is similar, but forces a zigzag pattern as shown in your first example.

This code already had a showbubbles option, which is set to NO for your request, but has many options that may interest you. I have added a bubbles option which is set to YES, which has your request for Points and Ticcks.

The upper image is the code provided below. The lower code is what you provided. It does not provide a zigzag as there are often multiple, consecutive highs or lows without an interceding high or low between these.

Screenshot 2023-10-26 155941.png
Code: 
#Swing_HL_Pivots_Stats_v1

input pivotlength = 4;
input showhorizontals = no;
input show_zigzag_line = no;
input HHLLlabels = no;
input showbubbles = no;
input showHHLL_in_bubbles = no;
input showprice_in_bubbles = no;
input showpercentpricechange_in_bubbles = no;
input showbarcount_in_bubbles = no;
input showdollarchange_in_bubbles = no;

def h = high;
def l = low;
def c = close;
def o = open;
def v = volume;

# Simple Swing Pivots

def HH1 = h >= Highest(h, pivotlength) and h >= Highest(h, pivotlength)[-pivotlength];
def High1 = if HH1 then h else Double.NaN;
def LL1 = l <= Lowest(l, pivotlength) and l <= Lowest(l, pivotlength)[-pivotlength];
def Low1 = if LL1 then l else Double.NaN;
def PointCount = if BarNumber() == 1 then 0 else
                 if IsNaN(c) then PointCount[1] else
                 if !IsNaN(High1) then Max(1, PointCount[1] + 1) else
                 if !IsNaN(Low1) then Min(-1, PointCount[1] - 1)
                 else PointCount[1];

#Horizontal Lines at Pivots1
def RangeHI = if !IsNaN(High1) and PointCount == 1
then h else RangeHI[1];
plot Rhi = RangeHI;
Rhi.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
Rhi.SetLineWeight(1);
Rhi.SetDefaultColor(Color.GRAY);
Rhi.SetHiding(!showhorizontals);
def RangeLO = if !IsNaN(Low1) and PointCount == -1
then l else RangeLO[1];
plot Rlo = RangeLO;
Rlo.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
Rlo.SetLineWeight(1);
Rlo.SetDefaultColor(Color.GRAY);
Rlo.SetHiding(!showhorizontals);

#HH/LH & LH/LL1 Labels

def rh1 = if !IsNaN(Rhi) then Rhi else rh1[1];
def rh2 = if rh1 != rh1[1] then rh1[1] else rh2[1];

AddLabel(HHLLlabels, if rh1 > rh2
              then "Higher Highs"
              else "Lower Highs",
              if rh1 > rh2
              then Color.GREEN
              else Color.RED);

def rl1 = if !IsNaN(Rlo) then Rlo else rl1[1];
def rl2 = if rl1 != rl1[1] then rl1[1] else rl2[1];
AddLabel(HHLLlabels, if  rl1 > rl2
              then "Higher Lows"
              else "Lower Lows",
              if rl1 > rl2
              then Color.GREEN
              else Color.RED);

#ZigZags
def zHI;
def zLO;

zHI = if !IsNaN(High1) and PointCount == 1 then h else Double.NaN;
zLO = if !IsNaN(Low1) and PointCount == -1 then l else Double.NaN;

def bn = BarNumber();
def lastzhi = if !IsNaN(zHI) then bn else lastzhi[1];
def lastzlo = if !IsNaN(zLO) then bn else lastzlo[1];

#ZigZag Line
plot hilowline = if !IsNaN(zHI) then zHI else zLO;
hilowline.EnableApproximation();
hilowline.SetLineWeight(3);
hilowline.SetDefaultColor(Color.GRAY);
hilowline.SetHiding(!show_zigzag_line);

def last = if IsNaN(close[-1]) and !IsNaN(close) then BarNumber() else Double.NaN;
def lastbar   = if BarNumber() == HighestAll(last) then 1 else 0;
def lastvalue = if lastbar then close else Double.NaN;

plot hilowline1 = if bn < Max(lastzhi, lastzlo)
                  then Double.NaN
                  else if lastzlo > lastzhi and !IsNaN(zLO)
                  then zLO
                  else if lastzlo < lastzhi and !IsNaN(zHI)
                  then zHI else lastvalue;
hilowline1.EnableApproximation();
hilowline1.SetLineWeight(3);
hilowline1.SetDefaultColor(Color.GRAY);
hilowline1.SetHiding(!show_zigzag_line);

def xxhigh  = if rh1 == high then high else xxhigh[1];
def xxlow   = if rl1 == low then low else xxlow[1];

#Percent Price Change between ZigZags
def chghigh = (rh1 - xxlow[1]) / xxlow[1] * 100;
def chglow  = (rl1 - xxhigh[1]) / xxhigh[1] * 100;

#Bar Count between ZigZags
def barcountchange = AbsValue(lastzhi - lastzlo);


AddChartBubble(showbubbles and !IsNaN(High1) and PointCount == 1, high,
(if showHHLL_in_bubbles then
(if rh1 > rh2 then "HH\n" else "LH\n")
else "") +
(if showprice_in_bubbles then
AsText(high) + "\n" else "") +
(if showpercentpricechange_in_bubbles
then Round(chghigh) + "%\n" else "") +
(if showbarcount_in_bubbles then
 barcountchange + "\n" else "") +
(if showdollarchange_in_bubbles then
"" + AsDollars((rh1 - xxlow[1])) else "") ,
Color.GRAY
#if xxhigh > xxhigh[1] then Color.GREEN else Color.RED
);

AddChartBubble(showbubbles and !IsNaN(Low1) and PointCount == -1, low,
(if showHHLL_in_bubbles then
(if rl1 > rl2 then "HL\n" else "LL\n")
else "") +
(if showprice_in_bubbles then
AsText(low) + "\n" else "") +
(if showpercentpricechange_in_bubbles
then Round(chglow) + "%\n" else "") +
(if showbarcount_in_bubbles then
barcountchange + "\n" else "") +
(if showdollarchange_in_bubbles then
"" + AsDollars(rl1 - xxhigh[1]) else ""),
#if xxlow > xxlow[1] then Color.GREEN else Color.RED,
Color.GRAY, no);

input bubbles = yes;
AddChartBubble(bubbles and !IsNaN(High1) and PointCount == 1,
high,
"Points: " + (Rhi - Rlo[1]) +
"\nTicks: " + ((Rhi - Rlo[1]) / TickSize()),
Color.GRAY);

AddChartBubble(bubbles and !IsNaN(Low1) and PointCount == -1,
low,
"Points: " + (Rlo - Rhi[1]) +
"\nTicks: " + ((Rlo - Rhi[1]) / TickSize()),
Color.GRAY,
no);

#If last bar is not a pivot, then Pending based upon high/low of that bar
def pivhbar = lastzhi;#if !IsNaN(pivh) then BarNumber() else pivhbar[1];
def pivlbar = lastzlo;#if !IsNaN(pivl) then BarNumber() else pivlbar[1];

AddChartBubble(bubbles and IsNaN(close[-1]) and !IsNaN(close),
if pivhbar > pivlbar then low else high,
"Pending\n" + "Points: " + (if pivhbar > pivlbar then Rhi - low else high - Rlo) +
"\nTicks: " + if pivhbar > pivlbar then (Rhi - low) / TickSize() else (high - Rlo) / TickSize(), Color.YELLOW,
if pivhbar > pivlbar then no else yes);

input test = no;
AddLabel(test, TickSize() + " " + TickValue());

#
Click to expand...
 
Last edited:
Upvote 0 Downvote
Solution
SleepyZ said:
Rather than using the code you provided, here is code that I have posted that is similar, but forces a zigzag patteern as shown in your first example.

This code already had a showbubbles option, which is set to NO for your request, but has many options that may interest you. I have added a bubbles option which is set to YES, which has your request for Points and Ticcks.

The upper image is the code provided below. The lower code is what you provided. It does not provide a zigzag as there are often multiple, consecutive highs or lows without an interceding high or low between these.
Click to expand...
that's amazing! thats exactly what I was wanting. thank you so much! This is great!
 
Last edited by a moderator:
Upvote -1 Downvote
SleepyZ said:
Rather than using the code you provided, here is code that I have posted that is similar, but forces a zigzag pattern as shown in your first example.

This code already had a showbubbles option, which is set to NO for your request, but has many options that may interest you. I have added a bubbles option which is set to YES, which has your request for Points and Ticcks.

The upper image is the code provided below. The lower code is what you provided. It does not provide a zigzag as there are often multiple, consecutive highs or lows without an interceding high or low between these.
Click to expand...
@SleepyZ This script is great, thank you so much. I have a question: it all works wonderfully except that the "barcountchange" variable doesn't work well for tracking the current bar count that has elapsed since the last pivot high or low. If the bar count is added to the "pending" bubble, it instead shows the total bar count that occurred until the last pivot high or low. To create a bar count for the bars that have elapsed since after the last pivot high or low, I tried "pending_barcountchange = if !isNan(high1) or !isNan(low1) then 1 else pending_barcountchange[1] + 1;"

Sometimes I am confused by how the script repaints the last pivot high or low and what this does to the bar count. I have observed a case where the last pivot high or low bubble disappears but then the current "pending" one still shows a bar count as if the last pivot high or low had not disappeared (for example, if two bars ago the last pivot low bubble shows "Bars: 42" and then the current "pending" bubble shows: "Bars: 2" then it has happened where the pivot showing "Bars: 42" disappeared on the next bar, but then the "pending" bubble still shows "Bars: 3" instead of showing "Bars: 45" as I'd expect if the last pivot high or low had really been deleted. Maybe this issue is only limited to occasionally happening while the script is repainting, I'm not sure.

I have includeda screenshot of an example of how the numbers for "pending"barcountchange" don't add up as expected sometimes (the "BullCt," BearCt," "NeutralCt" stats are additions based on other signals that aren't part of the original script but I have not altered the original script in any way other than adding the "pending_barcountchange" variable and displaying its value in the pending bubble instead of using the "barcountchange" variable in that bubble):

Capture-pendingbarcountchg.PNG


Can you suggest a better way of defining the pending bar count so that it would correctly read as 5 instead of 2 as in the above screenshotted example?
 
Upvote 0 Downvote
lmk99 said:
@SleepyZ This script is great, thank you so much. I have a question: it all works wonderfully except that the "barcountchange" variable doesn't work well for tracking the current bar count that has elapsed since the last pivot high or low. If the bar count is added to the "pending" bubble, it instead shows the total bar count that occurred until the last pivot high or low. To create a bar count for the bars that have elapsed since after the last pivot high or low, I tried "pending_barcountchange = if !isNan(high1) or !isNan(low1) then 1 else pending_barcountchange[1] + 1;"

Sometimes I am confused by how the script repaints the last pivot high or low and what this does to the bar count. I have observed a case where the last pivot high or low bubble disappears but then the current "pending" one still shows a bar count as if the last pivot high or low had not disappeared (for example, if two bars ago the last pivot low bubble shows "Bars: 42" and then the current "pending" bubble shows: "Bars: 2" then it has happened where the pivot showing "Bars: 42" disappeared on the next bar, but then the "pending" bubble still shows "Bars: 3" instead of showing "Bars: 45" as I'd expect if the last pivot high or low had really been deleted. Maybe this issue is only limited to occasionally happening while the script is repainting, I'm not sure.

I have includeda screenshot of an example of how the numbers for "pending"barcountchange" don't add up as expected sometimes (the "BullCt," BearCt," "NeutralCt" stats are additions based on other signals that aren't part of the original script but I have not altered the original script in any way other than adding the "pending_barcountchange" variable and displaying its value in the pending bubble instead of using the "barcountchange" variable in that bubble):

View attachment 20399

Can you suggest a better way of defining the pending bar count so that it would correctly read as 5 instead of 2 as in the above screenshotted example?
Click to expand...
@lmk99 was your question to @SleepyZ resolved or did you figure it out. If you don't mind, if you figured it out, kindly share the new script. Thanks.
 
Upvote 0 Downvote
Tootall said:
@lmk99 was your question to @SleepyZ resolved or did you figure it out. If you don't mind, if you figured it out, kindly share the new script. Thanks.
Click to expand...

Sorry, missed imk99's request. This barct def should fix that pending barcount.

Code: 
#If last bar is not a pivot, then Pending based upon high/low of that bar
def pivhbar = lastzhi;#if !IsNaN(pivh) then BarNumber() else pivhbar[1];
def pivlbar = lastzlo;#if !IsNaN(pivl) then BarNumber() else pivlbar[1];
def barct = if pivhbar > pivlbar then AbsValue(pivhbar - BarNumber()) else AbsValue(pivlbar - BarNumber());

AddChartBubble(bubbles and IsNaN(close[-1]) and !IsNaN(close),
if pivhbar > pivlbar then low else high,
"Pending\n" + "Points: " + (if pivhbar > pivlbar then Rhi - low else high - Rlo) +
"\nTicks: " + (if pivhbar > pivlbar then (Rhi - low) / TickSize() else (high - Rlo) / TickSize()) + " \nBarCount " + barct, Color.YELLOW,
if pivhbar > pivlbar then no else yes);
Click to expand...

Here is the full code with that fix added showing an example of pending following a high/low prior pivot.

Screenshot 2024-01-14 100350.png
Code: 
#Swing_HL_Pivots_Stats_v1

input pivotlength = 4;
input showhorizontals = no;
input show_zigzag_line = no;
input HHLLlabels = no;
input showbubbles = no;
input showHHLL_in_bubbles = no;
input showprice_in_bubbles = no;
input showpercentpricechange_in_bubbles = no;
input showbarcount_in_bubbles = no;
input showdollarchange_in_bubbles = no;

def h = high;
def l = low;
def c = close;
def o = open;
def v = volume;

# Simple Swing Pivots

def HH1 = h >= Highest(h, pivotlength) and h >= Highest(h, pivotlength)[-pivotlength];
def High1 = if HH1 then h else Double.NaN;
def LL1 = l <= Lowest(l, pivotlength) and l <= Lowest(l, pivotlength)[-pivotlength];
def Low1 = if LL1 then l else Double.NaN;
def PointCount = if BarNumber() == 1 then 0 else
                 if IsNaN(c) then PointCount[1] else
                 if !IsNaN(High1) then Max(1, PointCount[1] + 1) else
                 if !IsNaN(Low1) then Min(-1, PointCount[1] - 1)
                 else PointCount[1];

#Horizontal Lines at Pivots1
def RangeHI = if !IsNaN(High1) and PointCount == 1
then h else RangeHI[1];
plot Rhi = RangeHI;
Rhi.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
Rhi.SetLineWeight(1);
Rhi.SetDefaultColor(Color.GRAY);
Rhi.SetHiding(!showhorizontals);
def RangeLO = if !IsNaN(Low1) and PointCount == -1
then l else RangeLO[1];
plot Rlo = RangeLO;
Rlo.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
Rlo.SetLineWeight(1);
Rlo.SetDefaultColor(Color.GRAY);
Rlo.SetHiding(!showhorizontals);

#HH/LH & LH/LL1 Labels

def rh1 = if !IsNaN(Rhi) then Rhi else rh1[1];
def rh2 = if rh1 != rh1[1] then rh1[1] else rh2[1];

AddLabel(HHLLlabels, if rh1 > rh2
              then "Higher Highs"
              else "Lower Highs",
              if rh1 > rh2
              then Color.GREEN
              else Color.RED);

def rl1 = if !IsNaN(Rlo) then Rlo else rl1[1];
def rl2 = if rl1 != rl1[1] then rl1[1] else rl2[1];
AddLabel(HHLLlabels, if  rl1 > rl2
              then "Higher Lows"
              else "Lower Lows",
              if rl1 > rl2
              then Color.GREEN
              else Color.RED);

#ZigZags
def zHI;
def zLO;

zHI = if !IsNaN(High1) and PointCount == 1 then h else Double.NaN;
zLO = if !IsNaN(Low1) and PointCount == -1 then l else Double.NaN;

def bn = BarNumber();
def lastzhi = if !IsNaN(zHI) then bn else lastzhi[1];
def lastzlo = if !IsNaN(zLO) then bn else lastzlo[1];

#ZigZag Line
plot hilowline = if !IsNaN(zHI) then zHI else zLO;
hilowline.EnableApproximation();
hilowline.SetLineWeight(3);
hilowline.SetDefaultColor(Color.GRAY);
hilowline.SetHiding(!show_zigzag_line);

def last = if IsNaN(close[-1]) and !IsNaN(close) then BarNumber() else Double.NaN;
def lastbar   = if BarNumber() == HighestAll(last) then 1 else 0;
def lastvalue = if lastbar then close else Double.NaN;

plot hilowline1 = if bn < Max(lastzhi, lastzlo)
                  then Double.NaN
                  else if lastzlo > lastzhi and !IsNaN(zLO)
                  then zLO
                  else if lastzlo < lastzhi and !IsNaN(zHI)
                  then zHI else lastvalue;
hilowline1.EnableApproximation();
hilowline1.SetLineWeight(3);
hilowline1.SetDefaultColor(Color.GRAY);
hilowline1.SetHiding(!show_zigzag_line);

def xxhigh  = if rh1 == high then high else xxhigh[1];
def xxlow   = if rl1 == low then low else xxlow[1];

#Percent Price Change between ZigZags
def chghigh = (rh1 - xxlow[1]) / xxlow[1] * 100;
def chglow  = (rl1 - xxhigh[1]) / xxhigh[1] * 100;

#Bar Count between ZigZags
def barcountchange = AbsValue(lastzhi - lastzlo);


AddChartBubble(showbubbles and !IsNaN(High1) and PointCount == 1, high,
(if showHHLL_in_bubbles then
(if rh1 > rh2 then "HH\n" else "LH\n")
else "") +
(if showprice_in_bubbles then
AsText(high) + "\n" else "") +
(if showpercentpricechange_in_bubbles
then Round(chghigh) + "%\n" else "") +
(if showbarcount_in_bubbles then
 barcountchange + "\n" else "") +
(if showdollarchange_in_bubbles then
"" + AsDollars((rh1 - xxlow[1])) else "") ,
Color.GRAY
#if xxhigh > xxhigh[1] then Color.GREEN else Color.RED
);

AddChartBubble(showbubbles and !IsNaN(Low1) and PointCount == -1, low,
(if showHHLL_in_bubbles then
(if rl1 > rl2 then "HL\n" else "LL\n")
else "") +
(if showprice_in_bubbles then
AsText(low) + "\n" else "") +
(if showpercentpricechange_in_bubbles
then Round(chglow) + "%\n" else "") +
(if showbarcount_in_bubbles then
barcountchange + "\n" else "") +
(if showdollarchange_in_bubbles then
"" + AsDollars(rl1 - xxhigh[1]) else ""),
#if xxlow > xxlow[1] then Color.GREEN else Color.RED,
Color.GRAY, no);

input bubbles = yes;
AddChartBubble(bubbles and !IsNaN(High1) and PointCount == 1,
high,
"Points: " + (Rhi - Rlo[1]) +
"\nTicks: " + ((Rhi - Rlo[1]) / TickSize()),
Color.GRAY);

AddChartBubble(bubbles and !IsNaN(Low1) and PointCount == -1,
low,
"Points: " + (Rlo - Rhi[1]) +
"\nTicks: " + ((Rlo - Rhi[1]) / TickSize()),
Color.GRAY,
no);

#If last bar is not a pivot, then Pending based upon high/low of that bar
def pivhbar = lastzhi;#if !IsNaN(pivh) then BarNumber() else pivhbar[1];
def pivlbar = lastzlo;#if !IsNaN(pivl) then BarNumber() else pivlbar[1];
def barct = if pivhbar > pivlbar then AbsValue(pivhbar - BarNumber()) else AbsValue(pivlbar - BarNumber());

AddChartBubble(bubbles and IsNaN(close[-1]) and !IsNaN(close),
if pivhbar > pivlbar then low else high,
"Pending\n" + "Points: " + (if pivhbar > pivlbar then Rhi - low else high - Rlo) +
"\nTicks: " + (if pivhbar > pivlbar then (Rhi - low) / TickSize() else (high - Rlo) / TickSize()) + " \nBarCount " + barct, Color.YELLOW,
if pivhbar > pivlbar then no else yes);

input test = no;
AddLabel(test, TickSize() + " " + TickValue());
Click to expand...
 
Upvote 0 Downvote
SleepyZ said:
Sorry, missed imk99's request. This barct def should fix that pending barcount.



Here is the full code with that fix added showing an example of pending following a high/low prior pivot.
Click to expand...
This is amazing! In the inputs/options it has a yes/no toggle for "showprice in bubbles", "showdollarchange" and "showpercentagepricechange in bubbles", however when I put them on yes it still only shows ticks and points. Is this something I am doing wrong or does the code need to be edited to have the bubble show current Price +/- and Price%change. Thanks
 
Upvote 0 Downvote
@SleepyZ I found this thread looking for script to identify intraday swing highs and lows. It's awesome. I would like an indicator that draws horizontal clouds x number ATR above or below the swing with a width of x number of ATR. User inputs x. The left edge of the cloud would be at the swing and extend to the right. It would be nice to have the clouds persist for research purposes or select to display the current cloud only which would be replaced at the next swing. I use this approach manually as part of a methodology to set take profit levels while day trading index futures.
 

Attachments

  • ATR_Cloud.png
    ATR_Cloud.png
    24.1 KB · Views: 59
Upvote 0 Downvote
vanwooten said:
@SleepyZ I found this thread looking for script to identify intraday swing highs and lows. It's awesome. I would like an indicator that draws horizontal clouds x number ATR above or below the swing with a width of x number of ATR. User inputs x. The left edge of the cloud would be at the swing and extend to the right. It would be nice to have the clouds persist for research purposes or select to display the current cloud only which would be replaced at the next swing. I use this approach manually as part of a methodology to set take profit levels while day trading index futures.
Click to expand...


This will place clouds between 2 atr factors below/above pivot high/low
You can choose to either display pivot low or pivot high clouds and the number to display
The atr factors and the colors and number of clouds can be controlled at the input screen
Screenshot 2024-12-22 213718.jpg
Click to expand...
#Swing_HL_Pivots_Stats_v1

input pivotlength = 4;
input showhorizontals = no;
input show_zigzag_line = no;
input HHLLlabels = no;
input showbubbles = no;
input showHHLL_in_bubbles = no;
input showprice_in_bubbles = no;
input showpercentpricechange_in_bubbles = no;
input showbarcount_in_bubbles = no;
input showdollarchange_in_bubbles = no;

def h = high;
def l = low;
def c = close;
def o = open;
def v = volume;

# Simple Swing Pivots

def HH1 = h >= Highest(h, pivotlength) and h >= Highest(h, pivotlength)[-pivotlength];
def High1 = if HH1 then h else Double.NaN;
def LL1 = l <= Lowest(l, pivotlength) and l <= Lowest(l, pivotlength)[-pivotlength];
def Low1 = if LL1 then l else Double.NaN;
def PointCount = if BarNumber() == 1 then 0 else
if IsNaN(c) then PointCount[1] else
if !IsNaN(High1) then Max(1, PointCount[1] + 1) else
if !IsNaN(Low1) then Min(-1, PointCount[1] - 1)
else PointCount[1];

#Horizontal Lines at Pivots1
def RangeHI = if !IsNaN(High1) and PointCount == 1
then h else RangeHI[1];
plot Rhi = RangeHI;
Rhi.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
Rhi.SetLineWeight(1);
Rhi.SetDefaultColor(Color.GRAY);
Rhi.SetHiding(!showhorizontals);
def RangeLO = if !IsNaN(Low1) and PointCount == -1
then l else RangeLO[1];
plot Rlo = RangeLO;
Rlo.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
Rlo.SetLineWeight(1);
Rlo.SetDefaultColor(Color.GRAY);
Rlo.SetHiding(!showhorizontals);

#HH/LH & LH/LL1 Labels

def rh1 = if !IsNaN(Rhi) then Rhi else rh1[1];
def rh2 = if rh1 != rh1[1] then rh1[1] else rh2[1];

AddLabel(HHLLlabels, if rh1 > rh2
then "Higher Highs"
else "Lower Highs",
if rh1 > rh2
then Color.GREEN
else Color.RED);

def rl1 = if !IsNaN(Rlo) then Rlo else rl1[1];
def rl2 = if rl1 != rl1[1] then rl1[1] else rl2[1];
AddLabel(HHLLlabels, if rl1 > rl2
then "Higher Lows"
else "Lower Lows",
if rl1 > rl2
then Color.GREEN
else Color.RED);

#ZigZags
def zHI;
def zLO;

zHI = if !IsNaN(High1) and PointCount == 1 then h else Double.NaN;
zLO = if !IsNaN(Low1) and PointCount == -1 then l else Double.NaN;

def bn = BarNumber();
def lastzhi = if !IsNaN(zHI) then bn else lastzhi[1];
def lastzlo = if !IsNaN(zLO) then bn else lastzlo[1];

#ZigZag Line
plot hilowline = if !IsNaN(zHI) then zHI else zLO;
hilowline.EnableApproximation();
hilowline.SetLineWeight(3);
hilowline.SetDefaultColor(Color.GRAY);
hilowline.SetHiding(!show_zigzag_line);

def last = if IsNaN(close[-1]) and !IsNaN(close) then BarNumber() else Double.NaN;
def lastbar = if BarNumber() == HighestAll(last) then 1 else 0;
def lastvalue = if lastbar then close else Double.NaN;

plot hilowline1 = if bn < Max(lastzhi, lastzlo)
then Double.NaN
else if lastzlo > lastzhi and !IsNaN(zLO)
then zLO
else if lastzlo < lastzhi and !IsNaN(zHI)
then zHI else lastvalue;
hilowline1.EnableApproximation();
hilowline1.SetLineWeight(3);
hilowline1.SetDefaultColor(Color.GRAY);
hilowline1.SetHiding(!show_zigzag_line);

def xxhigh = if rh1 == high then high else xxhigh[1];
def xxlow = if rl1 == low then low else xxlow[1];

#Percent Price Change between ZigZags
def chghigh = (rh1 - xxlow[1]) / xxlow[1] * 100;
def chglow = (rl1 - xxhigh[1]) / xxhigh[1] * 100;

#Bar Count between ZigZags
def barcountchange = AbsValue(lastzhi - lastzlo);

AddChartBubble(showbubbles and !IsNaN(High1) and PointCount == 1, high,
(if showHHLL_in_bubbles then
(if rh1 > rh2 then "HH\n" else "LH\n")
else "") +
(if showprice_in_bubbles then
AsText(high) + "\n" else "") +
(if showpercentpricechange_in_bubbles
then Round(chghigh) + "%\n" else "") +
(if showbarcount_in_bubbles then
barcountchange + "\n" else "") +
(if showdollarchange_in_bubbles then
"" + AsDollars((rh1 - xxlow[1])) else "") ,
Color.GRAY
#if xxhigh > xxhigh[1] then Color.GREEN else Color.RED
);

AddChartBubble(showbubbles and !IsNaN(Low1) and PointCount == -1, low,
(if showHHLL_in_bubbles then
(if rl1 > rl2 then "HL\n" else "LL\n")
else "") +
(if showprice_in_bubbles then
AsText(low) + "\n" else "") +
(if showpercentpricechange_in_bubbles
then Round(chglow) + "%\n" else "") +
(if showbarcount_in_bubbles then
barcountchange + "\n" else "") +
(if showdollarchange_in_bubbles then
"" + AsDollars(rl1 - xxhigh[1]) else ""),
#if xxlow > xxlow[1] then Color.GREEN else Color.RED,
Color.GRAY, no);

input bubbles = yes;
AddChartBubble(bubbles and !IsNaN(High1) and PointCount == 1,
high,
"Points: " + (Rhi - Rlo[1]) +
"\nTicks: " + ((Rhi - Rlo[1]) / TickSize()),
Color.GRAY);

AddChartBubble(bubbles and !IsNaN(Low1) and PointCount == -1,
low,
"Points: " + (Rlo - Rhi[1]) +
"\nTicks: " + ((Rlo - Rhi[1]) / TickSize()),
Color.GRAY,
no);

#If last bar is not a pivot, then Pending based upon high/low of that bar
def pivhbar = lastzhi;#if !IsNaN(pivh) then BarNumber() else pivhbar[1];
def pivlbar = lastzlo;#if !IsNaN(pivl) then BarNumber() else pivlbar[1];
def barct = if pivhbar > pivlbar then AbsValue(pivhbar - BarNumber()) else AbsValue(pivlbar - BarNumber());

AddChartBubble(bubbles and IsNaN(close[-1]) and !IsNaN(close),
if pivhbar > pivlbar then low else high,
"Pending\n" + "Points: " + (if pivhbar > pivlbar then Rhi - low else high - Rlo) +
"\nTicks: " + (if pivhbar > pivlbar then (Rhi - low) / TickSize() else (high - Rlo) / TickSize()) + " \nBarCount " + barct, Color.YELLOW,
if pivhbar > pivlbar then no else yes);


#ATR Clouds at Pivots

input atrfactor1 = 2.0;
input atrfactor2 = 3.0;
input atrlength = 14;
input clouds = {default pivot_lows, pivot_highs};
input clouds_to_display = 1;

DefineGlobalColor("L", Color.LIGHT_GREEN);
DefineGlobalColor("H", Color.LIGHT_RED);

def rhicount = if !IsNaN(close) and Rhi != Rhi[1] then rhicount[1] + 1 else rhicount[1];
def rhicond = HighestAll(rhicount) - rhicount + 1;
def hiatr = if bn == pivhbar then ATR(atrlength) else hiatr[1];

plot rhigh1 = if clouds_to_display < rhicond then Double.NaN else if clouds == clouds.pivot_highs then Rhi - hiatr * atrfactor1 else Double.NaN;
plot rhigh2 = if clouds_to_display < rhicond then Double.NaN else if clouds == clouds.pivot_highs then Rhi - hiatr * atrfactor2 else Double.NaN;
rhigh1.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
rhigh2.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
rhigh1.SetDefaultColor(GlobalColor("H"));
rhigh2.SetDefaultColor(GlobalColor("H"));

AddCloud(rhigh2, rhigh1, GlobalColor("H"), GlobalColor("H"));

def rlocount = if !IsNaN(close) and Rlo != Rlo[1] then rlocount[1] + 1 else rlocount[1];
def rlocond = HighestAll(rlocount) - rlocount + 1;
def loatr = if bn == pivlbar then ATR() else loatr[1];

plot rlow1 = if clouds_to_display < rlocond then Double.NaN else if clouds == clouds.pivot_lows then Rlo + loatr * atrfactor1 else Double.NaN;
plot rlow2 = if clouds_to_display < rlocond then Double.NaN else if clouds == clouds.pivot_lows then Rlo + loatr * atrfactor2 else Double.NaN;
rlow1.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
rlow2.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
rlow1.SetDefaultColor(GlobalColor("L"));
rlow2.SetDefaultColor(GlobalColor("L"));

AddCloud(rlow1, rlow2, GlobalColor("L"), GlobalColor("L"));

input test = no;
AddLabel(test, TickSize() + " " + TickValue());
#
Click to expand...
 
Last edited:
Upvote 0 Downvote
SleepyZ said:
This will place clouds between 2 atr factors above/below pivot high/low
The atr factors and the colors and number of clouds can be controlled at the input screen
Click to expand...
Thank You for your work. I am a trader, not a coder and this can be very profitable in the right hands. A couple of things:

1. The green clouds should appear above swing lows and red ones below swing highs.
2. I don't mind having two clouds but shouldn't the setting be two for that?
 
Upvote 0 Downvote
Upvote 0 Downvote
@vanwooten
Here is a different version that will plot the clouds, whether pivot highs or lows, based upon the number at input clouds_to_display.
The image shows that input set to display the last 3.

Screenshot 2024-12-24 053548.jpg
Click to expand...
Code: 
#Swing_HL_Pivots_Stats_v1

input pivotlength = 4;
input showhorizontals = no;
input show_zigzag_line = no;
input HHLLlabels = no;
input showbubbles = no;
input showHHLL_in_bubbles = no;
input showprice_in_bubbles = no;
input showpercentpricechange_in_bubbles = no;
input showbarcount_in_bubbles = no;
input showdollarchange_in_bubbles = no;

def h = high;
def l = low;
def c = close;
def o = open;
def v = volume;

# Simple Swing Pivots

def HH1 = h >= Highest(h, pivotlength) and h >= Highest(h, pivotlength)[-pivotlength];
def High1 = if HH1 then h else Double.NaN;
def LL1 = l <= Lowest(l, pivotlength) and l <= Lowest(l, pivotlength)[-pivotlength];
def Low1 = if LL1 then l else Double.NaN;
def PointCount = if BarNumber() == 1 then 0 else
                 if IsNaN(c) then PointCount[1] else
                 if !IsNaN(High1) then Max(1, PointCount[1] + 1) else
                 if !IsNaN(Low1) then Min(-1, PointCount[1] - 1)
                 else PointCount[1];

#Horizontal Lines at Pivots1
def RangeHI = if !IsNaN(High1) and PointCount == 1
then h else RangeHI[1];
plot Rhi = RangeHI;
Rhi.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
Rhi.SetLineWeight(1);
Rhi.SetDefaultColor(Color.GRAY);
Rhi.SetHiding(!showhorizontals);
def RangeLO = if !IsNaN(Low1) and PointCount == -1
then l else RangeLO[1];
plot Rlo = RangeLO;
Rlo.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
Rlo.SetLineWeight(1);
Rlo.SetDefaultColor(Color.GRAY);
Rlo.SetHiding(!showhorizontals);

#HH/LH & LH/LL1 Labels

def rh1 = if !IsNaN(Rhi) then Rhi else rh1[1];
def rh2 = if rh1 != rh1[1] then rh1[1] else rh2[1];

AddLabel(HHLLlabels, if rh1 > rh2
              then "Higher Highs"
              else "Lower Highs",
              if rh1 > rh2
              then Color.GREEN
              else Color.RED);

def rl1 = if !IsNaN(Rlo) then Rlo else rl1[1];
def rl2 = if rl1 != rl1[1] then rl1[1] else rl2[1];
AddLabel(HHLLlabels, if  rl1 > rl2
              then "Higher Lows"
              else "Lower Lows",
              if rl1 > rl2
              then Color.GREEN
              else Color.RED);

#ZigZags
def zHI;
def zLO;

zHI = if !IsNaN(High1) and PointCount == 1 then h else Double.NaN;
zLO = if !IsNaN(Low1) and PointCount == -1 then l else Double.NaN;

def bn = BarNumber();
def lastzhi = if !IsNaN(zHI) then bn else lastzhi[1];
def lastzlo = if !IsNaN(zLO) then bn else lastzlo[1];

#ZigZag Line
plot hilowline = if !IsNaN(zHI) then zHI else zLO;
hilowline.EnableApproximation();
hilowline.SetLineWeight(3);
hilowline.SetDefaultColor(Color.GRAY);
hilowline.SetHiding(!show_zigzag_line);

def last = if IsNaN(close[-1]) and !IsNaN(close) then BarNumber() else Double.NaN;
def lastbar   = if BarNumber() == HighestAll(last) then 1 else 0;
def lastvalue = if lastbar then close else Double.NaN;

plot hilowline1 = if bn < Max(lastzhi, lastzlo)
                  then Double.NaN
                  else if lastzlo > lastzhi and !IsNaN(zLO)
                  then zLO
                  else if lastzlo < lastzhi and !IsNaN(zHI)
                  then zHI else lastvalue;
hilowline1.EnableApproximation();
hilowline1.SetLineWeight(3);
hilowline1.SetDefaultColor(Color.GRAY);
hilowline1.SetHiding(!show_zigzag_line);

def xxhigh  = if rh1 == high then high else xxhigh[1];
def xxlow   = if rl1 == low then low else xxlow[1];

#Percent Price Change between ZigZags
def chghigh = (rh1 - xxlow[1]) / xxlow[1] * 100;
def chglow  = (rl1 - xxhigh[1]) / xxhigh[1] * 100;

#Bar Count between ZigZags
def barcountchange = AbsValue(lastzhi - lastzlo);

AddChartBubble(showbubbles and !IsNaN(High1) and PointCount == 1, high,
(if showHHLL_in_bubbles then
(if rh1 > rh2 then "HH\n" else "LH\n")
else "") +
(if showprice_in_bubbles then
AsText(high) + "\n" else "") +
(if showpercentpricechange_in_bubbles
then Round(chghigh) + "%\n" else "") +
(if showbarcount_in_bubbles then
 barcountchange + "\n" else "") +
(if showdollarchange_in_bubbles then
"" + AsDollars((rh1 - xxlow[1])) else "") ,
Color.GRAY
#if xxhigh > xxhigh[1] then Color.GREEN else Color.RED
);

AddChartBubble(showbubbles and !IsNaN(Low1) and PointCount == -1, low,
(if showHHLL_in_bubbles then
(if rl1 > rl2 then "HL\n" else "LL\n")
else "") +
(if showprice_in_bubbles then
AsText(low) + "\n" else "") +
(if showpercentpricechange_in_bubbles
then Round(chglow) + "%\n" else "") +
(if showbarcount_in_bubbles then
barcountchange + "\n" else "") +
(if showdollarchange_in_bubbles then
"" + AsDollars(rl1 - xxhigh[1]) else ""),
#if xxlow > xxlow[1] then Color.GREEN else Color.RED,
Color.GRAY, no);

input bubbles = yes;
AddChartBubble(bubbles and !IsNaN(High1) and PointCount == 1,
high,
"Points: " + (Rhi - Rlo[1]) +
"\nTicks: " + ((Rhi - Rlo[1]) / TickSize()),
Color.GRAY);

AddChartBubble(bubbles and !IsNaN(Low1) and PointCount == -1,
low,
"Points: " + (Rlo - Rhi[1]) +
"\nTicks: " + ((Rlo - Rhi[1]) / TickSize()),
Color.GRAY,
no);

#If last bar is not a pivot, then Pending based upon high/low of that bar
def pivhbar = lastzhi;#if !IsNaN(pivh) then BarNumber() else pivhbar[1];
def pivlbar = lastzlo;#if !IsNaN(pivl) then BarNumber() else pivlbar[1];
def barct = if pivhbar > pivlbar then AbsValue(pivhbar - BarNumber()) else AbsValue(pivlbar - BarNumber());

AddChartBubble(bubbles and IsNaN(close[-1]) and !IsNaN(close),
if pivhbar > pivlbar then low else high,
"Pending\n" + "Points: " + (if pivhbar > pivlbar then Rhi - low else high - Rlo) +
"\nTicks: " + (if pivhbar > pivlbar then (Rhi - low) / TickSize() else (high - Rlo) / TickSize()) + " \nBarCount " + barct, Color.YELLOW,
if pivhbar > pivlbar then no else yes);


#ATR Clouds at Pivots

input clouds_to_display = 1;

input atrfactor1 = 2.0;
input atrfactor2 = 3.0;
input atrlength  = 14;


DefineGlobalColor("L", Color.LIGHT_GREEN);
DefineGlobalColor("H", Color.LIGHT_RED);

def rcount = if !IsNaN(close) and !IsNaN(zHI) or !IsNaN(zLO) then rcount[1] + 1 else rcount[1];
def rcond  = HighestAll(rcount) - rcount + 1;

def rhatr   =  if bn == pivhbar then ATR(atrlength) else rhatr[1];
def rhigh   = if clouds_to_display >= rcond and !IsNaN(High1) then Rhi - rhatr * atrfactor1 else rhigh[1];
plot rhigh1 = rhigh;
plot rhigh2 = if rhigh1 then Rhi - rhatr * atrfactor2 else Double.NaN;
rhigh1.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
rhigh2.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
rhigh1.SetDefaultColor(GlobalColor("H"));
rhigh2.SetDefaultColor(GlobalColor("H"));

AddCloud(rhigh2, rhigh1, GlobalColor("H"), GlobalColor("H"));

def rlatr  =  if bn == pivlbar then ATR(atrlength) else rlatr[1];
def rlow   = if clouds_to_display >= rcond and !IsNaN(Low1) then Rlo + rlatr * atrfactor1 else rlow[1];
plot rlow1 = rlow;
plot rlow2 = if rlow1 then Rlo + rlatr * atrfactor2 else Double.NaN;
rlow1.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
rlow2.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
rlow1.SetDefaultColor(GlobalColor("L"));
rlow2.SetDefaultColor(GlobalColor("L"));

AddCloud(rlow1, rlow2, GlobalColor("L"), GlobalColor("L"));


#
Click to expand...
 
Upvote 0 Downvote
SleepyZ said:
@vanwooten
Here is a different version that will plot the clouds, whether pivot highs or lows, based upon the number at input clouds_to_display.
The image shows that input set to display the last 3.
Click to expand...
I actually prefer what you did to produce pairs. I just added pairs to the variable name. I edited this down to the cloud function only. Nice chart addition. Need some time with it. Thank You again.

1735057456558.png

Code: 
#Swing_HL_Pivots_ATR_Profit_Zones

#Thanks to SleepyZ

input pivotlength = 4;

def h = high;
def l = low;
def c = close;
def o = open;
def v = volume;

# Simple Swing Pivots

def HH1 = h >= Highest(h, pivotlength) and h >= Highest(h, pivotlength)[-pivotlength];
def High1 = if HH1 then h else Double.NaN;
def LL1 = l <= Lowest(l, pivotlength) and l <= Lowest(l, pivotlength)[-pivotlength];
def Low1 = if LL1 then l else Double.NaN;
def PointCount = if BarNumber() == 1 then 0 else
if IsNaN(c) then PointCount[1] else
if !IsNaN(High1) then Max(1, PointCount[1] + 1) else
if !IsNaN(Low1) then Min(-1, PointCount[1] - 1)
else PointCount[1];

def RangeHI = if !IsNaN(High1) and PointCount == 1
then h else RangeHI[1];
def RangeLO = if !IsNaN(Low1) and PointCount == -1
then l else RangeLO[1];

#ATR Clouds at Pivots

input atrfactor1 = 4.0;
input atrfactor2 = 5.0;
input atrlength = 8;
input clouds = {default pivot_lows, pivot_highs};
input cloud_pairs_to_display = 1;

DefineGlobalColor("L", Color.LIGHT_GREEN);
DefineGlobalColor("H", Color.LIGHT_RED);


def zHI = if !IsNaN(High1) and PointCount == 1 then h else Double.NaN;
def zLO = if !IsNaN(Low1) and PointCount == -1 then l else Double.NaN;
def bn = BarNumber();
def lastzhi = if !IsNaN(zHI) then bn else lastzhi[1];
def lastzlo = if !IsNaN(zLO) then bn else lastzlo[1];

def pivhbar = lastzhi;#if !IsNaN(pivh) then BarNumber() else pivhbar[1];
def pivlbar = lastzlo;#if !IsNaN(pivl) then BarNumber() else pivlbar[1];

def rhicount = if !IsNaN(close) and RangeHI != RangeHI[1] then rhicount[1] + 1 else rhicount[1];
def rhicond = HighestAll(rhicount) - rhicount + 1;
def hiatr = if bn == pivhbar then ATR(atrlength) else hiatr[1];

def rhigh1 = if cloud_pairs_to_display < rhicond then Double.NaN else RangeHI - hiatr * atrfactor1;
def rhigh2 = if cloud_pairs_to_display < rhicond then Double.NaN else RangeHI - hiatr * atrfactor2;

AddCloud(rhigh2, rhigh1, GlobalColor("H"), GlobalColor("H"));

def rlocount = if !IsNaN(close) and RangeLO != RangeLO[1] then rlocount[1] + 1 else rlocount[1];
def rlocond = HighestAll(rlocount) - rlocount + 1;
def loatr = if bn == pivlbar then ATR() else loatr[1];

def rlow1 = if cloud_pairs_to_display < rlocond then Double.NaN else RangeLO + loatr * atrfactor1;
def rlow2 = if cloud_pairs_to_display < rlocond then Double.NaN else RangeLO + loatr * atrfactor2;

AddCloud(rlow1, rlow2, GlobalColor("L"), GlobalColor("L"));
 
Last edited by a moderator:
Upvote 0 Downvote
vanwooten said:
I actually prefer what you did to produce pairs. I just added pairs to the variable name. I edited this down to the cloud function only. Nice chart addition. Need some time with it. Thank You again.

View attachment 23632
Code: 
#Swing_HL_Pivots_ATR_Profit_Zones

#Thanks to SleepyZ

input pivotlength = 4;

def h = high;
def l = low;
def c = close;
def o = open;
def v = volume;

# Simple Swing Pivots

def HH1 = h >= Highest(h, pivotlength) and h >= Highest(h, pivotlength)[-pivotlength];
def High1 = if HH1 then h else Double.NaN;
def LL1 = l <= Lowest(l, pivotlength) and l <= Lowest(l, pivotlength)[-pivotlength];
def Low1 = if LL1 then l else Double.NaN;
def PointCount = if BarNumber() == 1 then 0 else
if IsNaN(c) then PointCount[1] else
if !IsNaN(High1) then Max(1, PointCount[1] + 1) else
if !IsNaN(Low1) then Min(-1, PointCount[1] - 1)
else PointCount[1];

def RangeHI = if !IsNaN(High1) and PointCount == 1
then h else RangeHI[1];
def RangeLO = if !IsNaN(Low1) and PointCount == -1
then l else RangeLO[1];

#ATR Clouds at Pivots

input atrfactor1 = 4.0;
input atrfactor2 = 5.0;
input atrlength = 8;
input clouds = {default pivot_lows, pivot_highs};
input cloud_pairs_to_display = 1;

DefineGlobalColor("L", Color.LIGHT_GREEN);
DefineGlobalColor("H", Color.LIGHT_RED);


def zHI = if !IsNaN(High1) and PointCount == 1 then h else Double.NaN;
def zLO = if !IsNaN(Low1) and PointCount == -1 then l else Double.NaN;
def bn = BarNumber();
def lastzhi = if !IsNaN(zHI) then bn else lastzhi[1];
def lastzlo = if !IsNaN(zLO) then bn else lastzlo[1];

def pivhbar = lastzhi;#if !IsNaN(pivh) then BarNumber() else pivhbar[1];
def pivlbar = lastzlo;#if !IsNaN(pivl) then BarNumber() else pivlbar[1];

def rhicount = if !IsNaN(close) and RangeHI != RangeHI[1] then rhicount[1] + 1 else rhicount[1];
def rhicond = HighestAll(rhicount) - rhicount + 1;
def hiatr = if bn == pivhbar then ATR(atrlength) else hiatr[1];

def rhigh1 = if cloud_pairs_to_display < rhicond then Double.NaN else RangeHI - hiatr * atrfactor1;
def rhigh2 = if cloud_pairs_to_display < rhicond then Double.NaN else RangeHI - hiatr * atrfactor2;

AddCloud(rhigh2, rhigh1, GlobalColor("H"), GlobalColor("H"));

def rlocount = if !IsNaN(close) and RangeLO != RangeLO[1] then rlocount[1] + 1 else rlocount[1];
def rlocond = HighestAll(rlocount) - rlocount + 1;
def loatr = if bn == pivlbar then A() else loatr[1];

def rlow1 = if cloud_pairs_to_display < rlocond then Double.NaN else RangeLO + loatr * atrfactor1;
def rlow2 = if cloud_pairs_to_display < rlocond then Double.NaN else RangeLO + loatr * atrfactor2;

AddCloud(rlow1, rlow2, GlobalColor("L"), GlobalColor("L"));
Click to expand...
@vanwooten
Confused With Your Chart, do have a link?
Thx
 
Upvote 0 Downvote
You must log in or register to reply here.

Join useThinkScript to post your question to a community of 21,000+ developers and traders.

SIGN UP NOW LEARN MORE
Thread starter Similar threads Forum Replies Date
F Last high/low intraday Questions 2
J Yesterday High, Low, Close for Intraday Questions 3
ALEK$TO$ Any scripts for Current (intraday) HOD with Previous days close, high, low? Questions 2
I Intraday Lower Low, followed by a Higher High Indicator Questions 3
X 52 week high/low line on intraday charts Questions 2

Similar threads

Not the exact question you're looking for?

Start a new thread and receive assistance from our community.

87k+ Posts
377 Online
Create Post

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
Try VIP Club Today

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.

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.
Back
Top