Madrid Upper OHLC — Indicator by Madrid

ohlc

This study displays the candlesticks of the upper timeframe, this provides a glance of the bigger picture in the current time frame by quickly and easily identifying the main OHLC levels.
In this example I am using the indicator twice on the 15 min chart, the first implementation displays the candles of the Daily timeframe and the second displays those of the weekly.

Open-source script

In true TradingView spirit, the author of this script has published it open-source, so traders can understand and verify it. Cheers to the author! You may use it for free, but reuse of this code in a publication is governed by House Rules. You can favorite it to use it on a chart.

Disclaimer

The information and publications are not meant to be, and do not constitute, financial, investment, trading, or other types of advice or recommendations supplied or endorsed by TradingView. Read more in the Terms of Use.

Want to use this script on a chart?

// Hector R. Madrid :04/DEC/2014 : 16:45 : 1.0
// http://madridjourneyonws.blogspot.com/
// This study displays the candlesticks of the upper timeframe, this
// provides a view of the bigger picture in the current time frame.
// Ref.  Pine programming tutorial 
//

study("Madrid Upper OHLC", "MUpperOHLC", overlay=true)

highTimeFrame = input("D", type=resolution)
numBars = highTimeFrame

// Upper HLOC
upperHigh = security(tickerid, highTimeFrame, high)
upperLow = security(tickerid, highTimeFrame, low)
upperOpen = security(tickerid, highTimeFrame, open)
upperClose = security(tickerid, highTimeFrame, close)
newBar(res) => change(time(res)) != 0



// Output
upperH = plot(newBar(numBars)?upperHigh:upperHigh[1], style=circles, linewidth=1, color=orange)
upperL = plot(newBar(numBars)?upperLow:upperLow[1], style=circles, linewidth=1, color=orange)
upperO = plot(newBar(numBars)?upperOpen:upperOpen[1], style=circles, linewidth=1, color=red)
upperC = plot(newBar(numBars)?upperClose:upperClose[1], style=circles, linewidth=1, color=green)

fill(upperH, upperL, orange, transp=90)
fill(upperO,upperC, color=orange, transp=90)