How to plot a horizontal line at the ATR level?

Svanoy · Jan 17, 2022

Would you mind sharing a screen shot of your result and mark it how you want it?

Joshua · Jan 17, 2022

ATR is a distance which requires a starting point and an ending point when applied to upper chart studies.

This, for example, would center ATR around the center of each bar;

Code:

plot x = hl2 + (ATR() * 0.5);
plot y = hl2 - (ATR() * 0.5);
x.setpaintingStrategy(paintingStrategy.HORIZONTAL);
y.setpaintingStrategy(paintingStrategy.HORIZONTAL);

But it depends on where you want to anchor it from, etc.

What, exactly, do you consider to be the ATR level?

ronviv1 · Jan 18, 2022

I would like to have a horizontal line at the last level of "CLOSE - ATR" instead of the continuous line shown here as a dotted white line.
.
The doted line is the continuous line drawn with the following script:

Here is the image:

Code:

input ATRLength = 14;
input averagetype = AverageType.WILDERS;
input BasePeriod = AggregationPeriod.DAY;
input showlabel = yes;

Def ATR = (MovingAverage (averagetype, TrueRange(high(period = BasePeriod)[1], close(period = BasePeriod)[1], low(period = BasePeriod)[1]), ATRLength));

plot line = CLOSE(period = BasePeriod)[1]- ATR;

line.SetDefaultColor(Color.WHITE);
line.SetStyle(Curve.SHORT_DASH);
line.SetLineWeight(1);

Svanoy · Jan 18, 2022

@ronviv1

Code:

input ATRLength = 14;
input averagetype = AverageType.WILDERS;
input BasePeriod = AggregationPeriod.thirty_MIN;
input showlabel = yes;

Def ATR = (MovingAverage (averagetype, TrueRange(high(period = BasePeriod)[1], close(period = BasePeriod)[1], low(period = BasePeriod)[1]), ATRLength));

plot line = CLOSE(period = BasePeriod)[1]- ATR;

line.SetDefaultColor(Color.WHITE);
line.SetStyle(Curve.SHORT_DASH);
line.SetLineWeight(1);

def barNum = if !IsNaN(BarNumber()) then Barnumber() else Double.NaN;
def numBars = HighestAll(barNum);

def FinalBar= fold c = 0 to numbars while !IsNaN(GetValue(close, -c)) do GetValue(BarNumber(), -c);
def FinalATR = fold a = 0 to AbsValue(FinalBar) while !IsNaN(GetValue(close, -a)) do GetValue(line[-1], -a);

plot DayATR = if FinalATR>1 then FinalATR else Double.NaN;
DayATR.SetStyle(Curve.LONG_DASH);
DayATR.AssignValueColor(Color.LIME);

ronviv1 · Jan 18, 2022

Thank you so much, @Svanoy. Your code works out perfect and will serve my purpose.

Here is the image for daily chart. I will remove dotted white line for ATR.

ronviv1 · Jan 18, 2022

@Svanoy, thank you for your help with code for ATR horizontal line.

Is it possible to create the similar code to plot a horizontal line at 20-Day EMA value?

I tried to modify ATR code but could not succeed. Thank you.

ronviv1 · Jan 18, 2022

Here is the modified code for 20-Day EMA, but it does plot EMA but will not plot a horizontal line at the final value!

Code:

input price = close;
input length = 20;
input displace = 0;

plot EMA = ExpAverage(price[-displace], length);

plot line = EMA;

EMA.SetDefaultColor(GetColor(1));


def barNum = if !IsNaN(BarNumber()) then Barnumber() else Double.NaN;
def numBars = HighestAll(barNum);

def FinalBar= fold c = 0 to numbars while !IsNaN(GetValue(close, -c)) do GetValue(BarNumber(), -c);
def FinalEMA = fold a = 0 to AbsValue(FinalBar) while !IsNaN(GetValue(close, -a)) do GetValue(line[-1], -a);

plot DayEMA = if FinalEMA>1 then FinalEMA else Double.NaN;
DayEMA.SetDefaultColor(GetColor(1));

Svanoy · Jan 18, 2022

@ronviv1
Remove the [-1] in the definition of FinalEMA, that is only needed for ATR.
Should be:

Code:

def FinalEMA = fold a = 0 to AbsValue(FinalBar) while !IsNaN(GetValue(close, -a)) do GetValue(line, -a);

Wardo21 · Jan 23, 2022

Svanoy said:

@ronviv1

Code:

input ATRLength = 14;
input averagetype = AverageType.WILDERS;
input BasePeriod = AggregationPeriod.thirty_MIN;
input showlabel = yes;

Def ATR = (MovingAverage (averagetype, TrueRange(high(period = BasePeriod)[1], close(period = BasePeriod)[1], low(period = BasePeriod)[1]), ATRLength));

plot line = CLOSE(period = BasePeriod)[1]- ATR;

line.SetDefaultColor(Color.WHITE);
line.SetStyle(Curve.SHORT_DASH);
line.SetLineWeight(1);

def barNum = if !IsNaN(BarNumber()) then Barnumber() else Double.NaN;
def numBars = HighestAll(barNum);

def FinalBar= fold c = 0 to numbars while !IsNaN(GetValue(close, -c)) do GetValue(BarNumber(), -c);
def FinalATR = fold a = 0 to AbsValue(FinalBar) while !IsNaN(GetValue(close, -a)) do GetValue(line[-1], -a);

plot DayATR = if FinalATR>1 then FinalATR else Double.NaN;
DayATR.SetStyle(Curve.LONG_DASH);
DayATR.AssignValueColor(Color.LIME);

Svanoy said:

@ronviv1

Code:

input ATRLength = 14;
input averagetype = AverageType.WILDERS;
input BasePeriod = AggregationPeriod.thirty_MIN;
input showlabel = yes;

Def ATR = (MovingAverage (averagetype, TrueRange(high(period = BasePeriod)[1], close(period = BasePeriod)[1], low(period = BasePeriod)[1]), ATRLength));

plot line = CLOSE(period = BasePeriod)[1]- ATR;

line.SetDefaultColor(Color.WHITE);
line.SetStyle(Curve.SHORT_DASH);
line.SetLineWeight(1);

def barNum = if !IsNaN(BarNumber()) then Barnumber() else Double.NaN;
def numBars = HighestAll(barNum);

def FinalBar= fold c = 0 to numbars while !IsNaN(GetValue(close, -c)) do GetValue(BarNumber(), -c);
def FinalATR = fold a = 0 to AbsValue(FinalBar) while !IsNaN(GetValue(close, -a)) do GetValue(line[-1], -a);

plot DayATR = if FinalATR>1 then FinalATR else Double.NaN;
DayATR.SetStyle(Curve.LONG_DASH);
DayATR.AssignValueColor(Color.LIME);

Thank you so much for this. I see the horizontal line to the downside, but is it possible to add an additional horizontal line for the upper boundary of ATR?

Svanoy · Jan 23, 2022

@Wardo21 I assume this is what you're wanting.

Code:

input ATRLength = 14;
input averagetype = AverageType.WILDERS;
input BasePeriod = AggregationPeriod.thirty_MIN;
input showlabel = yes;

Def ATR = (MovingAverage (averagetype, TrueRange(high(period = BasePeriod)[1], close(period = BasePeriod)[1], low(period = BasePeriod)[1]), ATRLength));

plot line = CLOSE(period = BasePeriod)[1]- ATR;
line.SetDefaultColor(Color.WHITE);
line.SetStyle(Curve.SHORT_DASH);
line.SetLineWeight(1);

plot line1 = CLOSE(period = BasePeriod)[1]+ ATR;
line1.SetDefaultColor(Color.WHITE);
line1.SetStyle(Curve.SHORT_DASH);
line1.SetLineWeight(1);

def barNum = if !IsNaN(BarNumber()) then Barnumber() else Double.NaN;
def numBars = HighestAll(barNum);

def FinalBar= fold c = 0 to numbars while !IsNaN(GetValue(close, -c)) do GetValue(BarNumber(), -c);
def FinalATRDn = fold a = 0 to AbsValue(FinalBar) while !IsNaN(GetValue(close, -a)) do GetValue(line[-1], -a);
def FinalATRUp = fold b = 0 to AbsValue(FinalBar) while !IsNaN(GetValue(close, -b)) do GetValue(line1[-1], -b);

plot DayATRDn = if FinalATRDn>1 then FinalATRDn else Double.NaN;
DayATRDn.SetStyle(Curve.LONG_DASH);
DayATRDn.AssignValueColor(Color.LIME);

plot DayATRUp = if FinalATRUp>1 then FinalATRUp else Double.NaN;
DayATRUp.SetStyle(Curve.LONG_DASH);
DayATRUp.AssignValueColor(Color.LIME);

Wardo21 · Jan 24, 2022

Svanoy said:

@Wardo21 I assume this is what you're wanting.

Code:

input ATRLength = 14;
input averagetype = AverageType.WILDERS;
input BasePeriod = AggregationPeriod.thirty_MIN;
input showlabel = yes;

Def ATR = (MovingAverage (averagetype, TrueRange(high(period = BasePeriod)[1], close(period = BasePeriod)[1], low(period = BasePeriod)[1]), ATRLength));

plot line = CLOSE(period = BasePeriod)[1]- ATR;
line.SetDefaultColor(Color.WHITE);
line.SetStyle(Curve.SHORT_DASH);
line.SetLineWeight(1);

plot line1 = CLOSE(period = BasePeriod)[1]+ ATR;
line1.SetDefaultColor(Color.WHITE);
line1.SetStyle(Curve.SHORT_DASH);
line1.SetLineWeight(1);

def barNum = if !IsNaN(BarNumber()) then Barnumber() else Double.NaN;
def numBars = HighestAll(barNum);

def FinalBar= fold c = 0 to numbars while !IsNaN(GetValue(close, -c)) do GetValue(BarNumber(), -c);
def FinalATRDn = fold a = 0 to AbsValue(FinalBar) while !IsNaN(GetValue(close, -a)) do GetValue(line[-1], -a);
def FinalATRUp = fold b = 0 to AbsValue(FinalBar) while !IsNaN(GetValue(close, -b)) do GetValue(line1[-1], -b);

plot DayATRDn = if FinalATRDn>1 then FinalATRDn else Double.NaN;
DayATRDn.SetStyle(Curve.LONG_DASH);
DayATRDn.AssignValueColor(Color.LIME);

plot DayATRUp = if FinalATRUp>1 then FinalATRUp else Double.NaN;
DayATRUp.SetStyle(Curve.LONG_DASH);
DayATRUp.AssignValueColor(Color.LIME);

You are an amazingly intelligent, beautiful human being! Thank you!

Wardo21 · Feb 11, 2022

Wardo21 said:
You are an amazingly intelligent, beautiful human being! Thank you!

Svanoy said:

@Wardo21 I assume this is what you're wanting.

Code:

input ATRLength = 14;
input averagetype = AverageType.WILDERS;
input BasePeriod = AggregationPeriod.thirty_MIN;
input showlabel = yes;

Def ATR = (MovingAverage (averagetype, TrueRange(high(period = BasePeriod)[1], close(period = BasePeriod)[1], low(period = BasePeriod)[1]), ATRLength));

plot line = CLOSE(period = BasePeriod)[1]- ATR;
line.SetDefaultColor(Color.WHITE);
line.SetStyle(Curve.SHORT_DASH);
line.SetLineWeight(1);

plot line1 = CLOSE(period = BasePeriod)[1]+ ATR;
line1.SetDefaultColor(Color.WHITE);
line1.SetStyle(Curve.SHORT_DASH);
line1.SetLineWeight(1);

def barNum = if !IsNaN(BarNumber()) then Barnumber() else Double.NaN;
def numBars = HighestAll(barNum);

def FinalBar= fold c = 0 to numbars while !IsNaN(GetValue(close, -c)) do GetValue(BarNumber(), -c);
def FinalATRDn = fold a = 0 to AbsValue(FinalBar) while !IsNaN(GetValue(close, -a)) do GetValue(line[-1], -a);
def FinalATRUp = fold b = 0 to AbsValue(FinalBar) while !IsNaN(GetValue(close, -b)) do GetValue(line1[-1], -b);

plot DayATRDn = if FinalATRDn>1 then FinalATRDn else Double.NaN;
DayATRDn.SetStyle(Curve.LONG_DASH);
DayATRDn.AssignValueColor(Color.LIME);

plot DayATRUp = if FinalATRUp>1 then FinalATRUp else Double.NaN;
DayATRUp.SetStyle(Curve.LONG_DASH);
DayATRUp.AssignValueColor(Color.LIME);

I've been struggling to create a scan that will identify when price is greater than or equal to the yellow DayATRUP line. Would you be able to assist me with this?

Svanoy · Feb 11, 2022

@Wardo21
DayATRUP is a plot based on the price and is always higher than the current price.
I think you want to use 'line1' in your scan.

Thread starter	Similar threads	Forum	Replies	Date
R	Plot a horizontal line at previous day close	Questions	3	Jul 27, 2021
H	plot horizontal lines at a stop and a target.	Questions	4	Jan 26, 2022
I	How to plot horizontal lines at price levels where the price ends with a certain number	Questions	3	Aug 25, 2021
P	Plot Horizontal Lines in Lower Window	Questions	3	May 19, 2021
D	how to plot the change in price in the day from the previous day's close	Questions	2	Saturday at 5:57 AM

How to plot a horizontal line at the ATR level?

Svanoy

Active member

Joshua

Well-known member

ronviv1

New member

Svanoy

Active member

ronviv1

New member

ronviv1

New member

ronviv1

New member

Svanoy

Active member

Wardo21

New member

Svanoy

Active member

Wardo21

New member

Wardo21

New member

Svanoy

Active member

Similar threads