Daily Hi/Lo TOS tweak

[grapetux]

Hey there,

Looking for help improving the below code so that it displays the previous month hi/lo price, not the current, or show those current levels on the right side of the pic, Thanks

input aggregationPeriod = AggregationPeriod.DAY;
input length = 1;
input displace = -1;
input showOnlyLastPeriod = no;

plot DailyHigh;
plot DailyLow;
if showOnlyLastPeriod and !IsNaN(close(period = aggregationPeriod)[-1]) {
DailyHigh = Double.NaN;
DailyLow = Double.NaN;
} else {
DailyHigh = Highest(high(period = aggregationPeriod)[-displace], length);
DailyLow = Lowest(low(period = aggregationPeriod)[-displace], length);
}

DailyHigh.SetDefaultColor(GetColor(4));
DailyHigh.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
DailyLow.SetDefaultColor(GetColor(4));
DailyLow.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);

 

[SleepyZ]

Hey there,

Looking for help improving the below code so that it displays the previous month hi/lo price, not the current, or show those current levels on the right side of the pic, Thanks

input aggregationPeriod = AggregationPeriod.DAY;
input length = 1;
input displace = -1;
input showOnlyLastPeriod = no;

plot DailyHigh;
plot DailyLow;
if showOnlyLastPeriod and !IsNaN(close(period = aggregationPeriod)[-1]) {
DailyHigh = Double.NaN;
DailyLow = Double.NaN;
} else {
DailyHigh = Highest(high(period = aggregationPeriod)[-displace], length);
DailyLow = Lowest(low(period = aggregationPeriod)[-displace], length);
}

DailyHigh.SetDefaultColor(GetColor(4));
DailyHigh.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
DailyLow.SetDefaultColor(GetColor(4));
DailyLow.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);

[Edit] Just noticed that if you are using a Daily chart, the following may not work the way you want. If so, let me know].

Below is the above script modified to your request. In the image below, you can see this script is used for both requests. It just needs to be added 2 times and the inputs changed as shown for each.

Optional bubbles were added. Examples of the data in the bubbles are the MH1 is Monthly High from 1 Month ago; the DH0 is Daily High 0 days ago (ie: Today's Daily High)).

To get the prior month's H/L, changed input aggregation to aggregation.month
To get the current day's H/L, changed displace to 0 and onexpansion to yes

input aggregationPeriod = AggregationPeriod.DAY;
input length = 1;
input displace = -1;
input showOnlyLastPeriod = no;
input onexpansion = yes;

plot DailyHigh;
plot DailyLow;
if showOnlyLastPeriod and !IsNaN(close(period = aggregationPeriod)[-1]) {
    DailyHigh = Double.NaN;
    DailyLow = Double.NaN;
} else if onexpansion {
    DailyHigh = if IsNaN(close) then Highest(high(period = aggregationPeriod)[-displace], length) else Double.NaN;
    DailyLow = if IsNaN(close) then Lowest(low(period = aggregationPeriod)[-displace], length) else Double.NaN;
} else {
    DailyHigh = Highest(high(period = aggregationPeriod)[-displace], length);
    DailyLow = Lowest(low(period = aggregationPeriod)[-displace], length);
}

DailyHigh.SetDefaultColor(color.green);
DailyHigh.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
DailyLow.SetDefaultColor(color.red);
DailyLow.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);

#Bubbles
input bubbles = yes;
input bubblemover = 2;#hint bubblemover: moves bubbles sideways
def bm = bubblemover;
def bm1 = bm + 1;
AddChartBubble(bubbles and IsNaN(close[bm]) and !IsNaN(close[bm1]), DailyHigh,
               (if aggregationPeriod == AggregationPeriod.DAY then "DH" else
               if aggregationPeriod == AggregationPeriod.MONTH then "MH"
               else "H") + AbsValue(displace), DailyHigh.TakeValueColor());
AddChartBubble(bubbles and IsNaN(close[bm]) and !IsNaN(close[bm1]), DailyLow,
               (if aggregationPeriod == AggregationPeriod.DAY then "DL" else
               if aggregationPeriod == AggregationPeriod.MONTH then "ML"
               else "H")+absvalue(displace), DailyLow.TakeValueColor(),no);

 

[SleepyZ]

[Edit] Just noticed that if you are using a Daily chart, the following may not work the way you want. If so, let me know].

Below is the above script modified to your request. In the image below, you can see this script is used for both requests. It just needs to be added 2 times and the inputs changed as shown for each.

Optional bubbles were added. Examples of the data in the bubbles are the MH1 is Monthly High from 1 Month ago; the DH0 is Daily High 0 days ago (ie: Today's Daily High)).

To get the prior month's H/L, changed input aggregation to aggregation.month
To get the current day's H/L, changed displace to 0 and onexpansion to yes

Here is a version that will work better on a daily chart. See the image for the input settings

input aggregationPeriod = AggregationPeriod.DAY;
input length = 1;
input displace = -1;
input showOnlyLastPeriod = no;
input onexpansion = no;

plot DailyHigh;
plot DailyLow;
if showOnlyLastPeriod and !IsNaN(close(period = aggregationPeriod)[-1]) or isnan(close) {
    DailyHigh = Double.NaN;
    DailyLow = Double.NaN;
} else if onexpansion {
    DailyHigh = if IsNaN(close) then Highest(high(period = aggregationPeriod)[-displace], length) else Double.NaN;
    DailyLow = if IsNaN(close) then Lowest(low(period = aggregationPeriod)[-displace], length) else Double.NaN;
} else {
    DailyHigh = Highest(high(period = aggregationPeriod)[-displace], length);
    DailyLow = Lowest(low(period = aggregationPeriod)[-displace], length);
}

DailyHigh.SetDefaultColor(color.green);
DailyHigh.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);
DailyLow.SetDefaultColor(color.red);
DailyLow.SetPaintingStrategy(PaintingStrategy.HORIZONTAL);

#Bubbles
input bubbles = yes;
input bubblemover = 2;#hint bubblemover: moves bubbles sideways
def bm = bubblemover;
def bm1 = bm + 1;
AddChartBubble(bubbles and !isnan(dailyhigh) and isnan(dailyhigh[-1]), DailyHigh,
               (if aggregationPeriod == AggregationPeriod.DAY then "DH" else
               if aggregationPeriod == AggregationPeriod.MONTH then "MH"
               else "H") + AbsValue(displace), DailyHigh.TakeValueColor());
AddChartBubble(bubbles and !isnan(dailylow) and isnan(dailylow[-1]), DailyLow,
               (if aggregationPeriod == AggregationPeriod.DAY then "DL" else
               if aggregationPeriod == AggregationPeriod.MONTH then "ML"
               else "H")+absvalue(displace), DailyLow.TakeValueColor(),no);