Bars within N-Period Closing High/Low

study("Bars within N-Period Closing High/Low")
numberofbars = input(52, "Bar Period")
pricehigh = highest(close, numberofbars)
pricelow  = lowest(close, numberofbars)
newhigh   = close > pricehigh[1]
newlow    = close  < pricelow[1]
priceextreme = newhigh or newlow
plot(series=barssince(priceextreme), title="Bars Within N-Period Extreme", color=red, style=histogram, linewidth=2, editable=true)

//Adaptation of idea provided by Jamie Saettele, Senior Technical Strategist for DailyFX.com