HighLow

//Highest and Lowest prices of the day compared with the previous
study(title="HighLow", shorttitle="HL", overlay=true)

ph = security(tickerid, 'D', high)
pdh = security(tickerid, 'D', high[1])
pl = security(tickerid, 'D', low)
pdl = security(tickerid, 'D', low[1])

isHigh() => high > pdh and high == ph
isLow() => low < pdl and low == pl

barcolor(isHigh() ? #ffd700 : isLow() ? aqua : na)

plotchar(isHigh(), char='H')
plotchar(isLow(), char='L', location = location.belowbar)